home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vrxda.zip / DAERRINF.VRM < prev    next >
Text File  |  1995-08-21  |  549b  |  24 lines
  1. /* Custom mainline for macro */
  2.  
  3.     signal on SYNTAX name _VRESyntax
  4.     signal _VREMain
  5.  
  6. _VRESyntax:
  7.     parse source . . _VRESourceSpec
  8.     call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
  9.     exit 32000
  10.  
  11. _VREMain:
  12. /*:VRX         Main
  13. */
  14. Main:
  15.     crlf = "0d0a"x
  16.  
  17.     ret = 'hConn = VRInfo( "DAHandle");' || crlf
  18.     ret = ret || 'ErrNum = VRInfo( "ErrNum");' || crlf
  19.     ret = ret || 'ErrSev = VRInfo( "ErrSev");' || crlf
  20.     ret = ret || 'ErrMsg = VRInfo( "ErrMsg");'
  21.  
  22. exit ret
  23.  
  24.