DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape

***************************/
/* RETURN CODES */
/***************************/
DCL MYRC BIN FIXED(31) INIT(Ø);
/***************************/
/* CONSTANTS */
/***************************/
DCL $TRUE BIT(1) STATIC INIT('1'B);
DCL $FALSE BIT(1) STATIC INIT('Ø'B);
DCL $ERROR CHAR(8) STATIC INIT('*ERROR*');
DCL $DEBUG CHAR(8) STATIC INIT('*DEBUG*');
DCL $INFO CHAR(8) STATIC INIT('*INFO *');
DCL $PROG CHAR(8) STATIC INIT('TST2UC');
DCL $HOMELIB CHAR(44) STATIC INIT('TSHVR.SOURCE.TEST');
/***************************/
/* EXTERNAL ENTRIES ENTRY */
/***************************/
DCL DBF2UC ENTRY OPTIONS(INTER,ASM,RETCODE);
DCL HVPC2X ENTRY OPTIONS(INTER,ASM,RETCODE);
DCL HVPDMPX ENTRY(
POINTER,
BIN FIXED(31),
FILE)
RETURNS(BIN FIXED(31));
/***************************/
/* PASSED PARM PARMS PRM */
/***************************/
DCL PARMS CHAR(*) VARYING;
/***************************/
/* BUILTIN */
/***************************/
%INCLUDE BUILTIN;
/***************************/
/* FILES */
/***************************/
DCL SYSPRINT FILE STREAM OUTPUT PRINT ;
/***************************/
/* WORK VARIABLES */
/***************************/
DCL TRCLVL BIN FIXED(31) INIT(Ø);
dcl loper bin fixed(15);
dcl loper_chars(2) char(1) based(addr(loper));
DCL PRMTST1 CHAR(14);
DCL PRMABEND CHAR(5) INIT('ABEND');
DCL PVDL BIN FIXED(15);
/**/
/* DSN41Ø.SDSNMACS(DSNDFPPB) */
DCL FPBFENC BIN FIXED(15) STATIC INIT(Ø);
DCL FPBFDEC BIN FIXED(15) STATIC INIT(4);
DCL FPBFDEF BIN FIXED(15) STATIC INIT(8);
DCL FPBFINV BIN FIXED(15) STATIC INIT(12);
24
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.