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

Ø2 FPVDHD,
Ø3 FPVDTYPE ,
Ø3 FPVDVLEN ,
Ø2 FPVDVALE CHAR(16);
fvD.FPVDTYPE=FPVDTCHR;
fvd.FPVDVLEN=16;
fvd.fpvdvale='abcdefghijklmnops';
cvd.FPVDTYPE=FPVDTCHR;
cvd.FPVDVLEN=Ø8; /*error ! */
cvd.fpvdvale='';
CALL DBF2UC(WA_DEF,FPIB,CVD,FVD,FPPVL);
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
IF FPBTOKP¬=SYSNULL THEN
PUT SKIP EDIT('FPBTOK=',FPBTOK)(A);
PUT SKIP DATA(FPIB);
PUT SKIP DATA(cVD);
FREE CVD;
FREE FVD;
FREE WA_WORK;
/**/
PUT SKIP LIST('TEST@ DBF2UC ENCODE LEN > 255 ');
ALLOC WA_WORK CHAR(WA_WORK_LEN);
WA_WORK='';
FPBFCODE=FPBFENC;
FPBWKLN=WA_WORK_LEN;
FPBTOKP=SYSNULL;
ALLOCATE
Ø1 CVD,
Ø2 FPVDHD,
Ø3 FPVDTYPE ,
Ø3 FPVDVLEN ,
Ø2 FPVDVALE CHAR(3ØØ);
ALLOCATE
Ø1 FVD,
Ø2 FPVDHD,
Ø3 FPVDTYPE ,
Ø3 FPVDVLEN ,
Ø2 FPVDVALE CHAR(3ØØ);
CVD.FPVDTYPE=FPVDTCHR;
CVD.FPVDVLEN=3ØØ;
DO LOPER=1 TO CVD.FPVDVLEN;
SUBSTR(CVD.FPVDVALE,LOPER,1)=LOPER_CHARS(2);
END;
FVD.FPVDTYPE=FPVDTCHR;
FVD.FPVDVLEN=CVD.FPVDVLEN;
FVD.FPVDVALE='';
CALL DBF2UC(WA_DEF,FPIB,CVD,FVD,FPPVL);
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
30
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.