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

CVD_DEF.FPVDTYPE=255; /*INVALID*/
CVD_DEF.FPVDVLEN=255;
CALL DBF2UC(WA_DEF,FPIB,CVD_DEF,FVD_DEF,FPPVL);
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
IF FPBTOKP¬=SYSNULL THEN
PUT SKIP EDIT('FPBTOK=',FPBTOK)(A);
PUT SKIP DATA(FPIB);
PUT SKIP LIST('TEST@ DBF2UC INV TYPE ->ERROR END');
/**/
PUT SKIP LIST('TEST@ DBF2UC DEFINE WITH PRMABEND->NOK');
WA_DEF='';
FPBFCODE=FPBFDEF;
FPBWKLN=CSTG(WA_DEF);
FPBTOKP=SYSNULL;
CVD_DEF.FPVDTYPE=FPVDTCHR;
CVD_DEF.FPVDVLEN=255;
/**/
FPPVLEN=2;
FPPVCNT=Ø;
FPPVVDS@=ADDR(FPPVVDS);
PVDL=PVD_ADD(FPPVVDS@,FPVDTCHR,CSTG(PRMABEND),PRMABEND);
FPPVLEN=FPPVLEN+PVDL;
FPPVCNT=FPPVCNT+1;
FPPVVDS@=POINTERADD(FPPVVDS@,PVDL);
MYRC=HVPDMPX(ADDR(FPPVL),BINARY(fppvlen+2,31),SYSPRINT);
/**/
CALL DBF2UC(WA_DEF,FPIB,CVD_DEF,FVD_DEF,FPPVL);
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
IF FPBTOKP¬=SYSNULL THEN
PUT SKIP EDIT('FPBTOK=',FPBTOK)(A);
PUT SKIP DATA(FPIB);
PUT SKIP DATA(FVD_DEF);
PUT SKIP LIST('TEST@ DBF2UC DEFINE WITH PRMABEND->NOK END');
/**/
PUT SKIP LIST('TEST@ DBF2UC DEFINE OK');
WA_DEF='';
FPBFCODE=FPBFDEF;
FPBWKLN=CSTG(WA_DEF);
FPBTOKP=SYSNULL;
CVD_DEF.FPVDTYPE=FPVDTCHR;
CVD_DEF.FPVDVLEN=255;
/**/
FPPVLEN=2;
FPPVCNT=Ø;
FPPVVDS@=ADDR(FPPVVDS);
PRMTST1='PRM 1 2 3';
PVDL=PVD_ADD(FPPVVDS@,FPVDTCHR,CSTG(PRMTST1),PRMTST1);
FPPVLEN=FPPVLEN+PVDL;
FPPVCNT=FPPVCNT+1;
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
27