home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / PROG / REXX / CMD / DB22RE.ZIP / SQLERROR.CMD < prev    next >
Encoding:
Text File  |  1993-03-10  |  1007 b   |  22 lines
  1. /*
  2.  ┌──────────────────────────────────────────────────────────────────┐
  3.  │  Name       : sqlerror.cmd                                       │
  4.  │  Purpose    : experiment with REXXUTILS functions                │
  5.  │  Platform   : DB2/2                                              │
  6.  │  Author     : Jeff Fisher                                        │
  7.  │               IBM Toronto Development Lab                        │
  8.  │  Disclaimer : This "sample" code is for demonstrations only, no  │
  9.  │               warrenties are made or implied as to correct       │
  10.  │               function. You should carefully test this code in   │
  11.  │               your own environment before using it.              │
  12.  │                                                                  │
  13.  └──────────────────────────────────────────────────────────────────┘
  14. */
  15.  
  16. rc = RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs')
  17. call SysLoadFuncs
  18.  
  19. rc=RxMessageBox("Fatal SQL Code",, "OK", "EXCLAMATION")
  20.  
  21. exit
  22.