Code:
- /* SKELETON -- Change commands as needed... */
-
- signal on error name command_error
- signal on failure name command_error
- signal on syntax name syntax_error
-
- /* SQL runs here... */
-
- PRVDATE = '0001-01-01'
-
- sql_Stmt = ,
- 'values CHAR(DATE(CURRENT_DATE - 15 DAYS)) into ?'
-
- 'execsql PREPARE S1 FROM :sql_Stmt'
- 'execsql EXECUTE S1 USING :PRVDATE'
-
- say RC '<'PRVDATE'>'
-
- 'execsql ',
- 'SET OPTION DATFMT = *ISO '
-
- sql_Stmt = ,
- 'select CHAR(DATE(CURRENT_DATE - 15 DAYS)) ',
- ' from sysibm/sysdummy1 '
-
- 'execsql ',
- 'PREPARE S2 FROM :sql_Stmt '
- 'execsql ',
- 'DECLARE C1 CURSOR FOR S2'
- 'execsql ',
- 'OPEN C1 '
-
- 'execsql ',
- 'FETCH C1 INTO :PRVDATE'
-
- say RC '<'PRVDATE'>'
-
- parse var PRVDATE year '-' month '-' day
- say (year)(month)(day)
-
- 'execsql ',
- 'CLOSE C1'
-
- queue (year)(month)(day)
-
- exit
-
- /* ---------------------------------------------------------------- */
- command_error:
-
- trace off
-
- parse source system start srcmbr srcfile srclib
- say 'Unexpected error at line 'sigl' of REXX program ',
- srcmbr' in 'srclib'/'srcfile'. The exception ID is 'rc'.'
-
- exit(right(rc,4))
- /* ---------------------------------------------------------------- */
- syntax_error:
-
- trace off
-
- parse source system start srcmbr srcfile srclib
- say 'Syntax error at line 'sigl' of REXX program ',
- srcmbr' in 'srclib'/'srcfile'. The error code is 'rc'.',
- ' The description is :'
- say errortext(rc)
-
- exit(rc)
-
|
|