class-id WindowsFormsApplication1.Form1 is partial
inherits type System.Windows.Forms.Form.
working-storage section.
method-id NEW.
procedure division.
invoke self::InitializeComponent
goback.
end method.
method-id button1_Click final private.
working-storage section.
01 aux string.
01 FIELD PIC 9(10).
procedure division using by value sender as object e as type System.EventArgs.
move textBox1::Text::Replace("(", "") to aux.
move aux::Replace(")", "") to aux.
move aux::Replace("_", "") to aux.
move aux::Replace("-", "") to aux.
set FIELD to type Convert::ToInt32(aux)
invoke type System.Windows.Forms.MessageBox::Show(FIELD::ToString())
end method.
end class.