home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
vrxda.zip
/
DAERRINF.VRM
< prev
next >
Wrap
Text File
|
1995-08-21
|
549b
|
24 lines
/* Custom mainline for macro */
signal on SYNTAX name _VRESyntax
signal _VREMain
_VRESyntax:
parse source . . _VRESourceSpec
call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
exit 32000
_VREMain:
/*:VRX Main
*/
Main:
crlf = "0d0a"x
ret = 'hConn = VRInfo( "DAHandle");' || crlf
ret = ret || 'ErrNum = VRInfo( "ErrNum");' || crlf
ret = ret || 'ErrSev = VRInfo( "ErrSev");' || crlf
ret = ret || 'ErrMsg = VRInfo( "ErrMsg");'
exit ret