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

FREE FVD_vl;
FREE WA_WORK;
PUT SKIP LIST('TEST@ DBF2UC ENCODE VAR LEN = Ø END');
/***************************/
/* END */
/***************************/
L_RETURN:
ON ERROR SYSTEM; /* AVOID ERROR LOOP */
CALL PLIRETC(MYRC);
RETURN;
/***************************/
/* SUBROUTINES */
/***************************/
PVD_ADD:PROC(FPPVVDS@,TP,LN,V) RETURNS(BIN FIXED(31));
DCL FPPVVDS@ POINTER;
DCL TP BIN FIXED(15);
DCL LN BIN FIXED(15);
DCL V CHAR(*);
DCL BF31 BIN FIXED(31) BASED;
DCL PVDL BIN FIXED(31) INIT(Ø);
DCL TMP@ POINTER;
TMP@=FPPVVDS@;
PVDL=4+2+2+LN;
TMP@->BF31=PVDL;
TMP@=POINTERADD(TMP@,4);
TMP@->FPVD.FPVDTYPE=TP;
TMP@->FPVD.FPVDVLEN=LN;
SUBSTR(TMP@->FPVD.FPVDVALE,1,LN)=V;
RETURN(PVDL);
END PVD_ADD;
END TST2UC ;
/*
//LKED.SYSLIB DD
// DD DISP=SHR,DSN=TSHVR.PGM.LOAD
// DD DISP=SHR,DSN=TSHVR.PGM.TOOLS
//LKED.SYSIN DD *
INCLUDE TOOLSMOD(DBF2UC)
INCLUDE TOOLSMOD(HVPC2X)
INCLUDE TOOLSMOD(HVPDMPX)
/*
//LKED.TOOLSMOD DD DISP=SHR,DSN=TSHVR.TEST.OBJMOD
// DD DISP=SHR,DSN=TSHVR.TOOLS.OBJMOD
//GO.STEPLIB DD
// DD DISP=SHR,DSN=TSHVR.PGM.TOOLS
//GO.SYSPRINT DD SYSOUT=X,OUTLIM=3ØØØØ ,CHARS=(GFC),HOLD=YES
Editor’s note: this article will be concluded next month.
Herman Vierendeels
Systems Programmer (Belgium) © Xephon 1999
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
33