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

Ø2 FPVDHD,
Ø3 FPVDTYPE BIN FIXED(15),
Ø3 FPVDVLEN BIN FIXED(15);
DCL Ø1 FVD UNALIGNED CTL,
Ø2 FPVDHD,
Ø3 FPVDTYPE BIN FIXED(15),
Ø3 FPVDVLEN BIN FIXED(15),
Ø2 FPVDVALE CHAR(*);
DCL Ø1 FVD_VL UNALIGNED CTL,
Ø2 FPVDHD,
Ø3 FPVDTYPE BIN FIXED(15),
Ø3 FPVDVLEN BIN FIXED(15),
Ø2 FPVDVALE CHAR(*) VARYING;
/* FIELDPROC PARAMETER VALUE LIST */
DCL FPPVVDS@ POINTER;
DCL Ø1 FPPVL UNALIGNED,
Ø2 FPPVLEN BIN FIXED(15),
Ø2 FPPVAREA,
Ø3 FPPVCNT BIN FIXED(15),
Ø3 FPPVVDS CHAR(254); /* PVD'S */ /*254=max.length*/
DCL WA_DEF CHAR(512);
DCL WA_WORK CHAR(*) CTL;
DCL WA_WORK_LEN BIN FIXED(15);
/***************************/
/* CONDITIONS */
/***************************/
/***************************/
/* MAIN */
/***************************/
PUT SKIP LIST('TEST@ DBF2UC NO PARMS ->ERROR');
CALL DBF2UC;
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
PUT SKIP LIST('TEST@ DBF2UC NO PARMS ->ERROR END');
/**/
PUT SKIP LIST('TEST@ DBF2UC INV CODE ->ERROR');
WA_DEF='';
FPBFCODE=FPBFINV;
FPBWKLN=CSTG(WA_DEF);
FPBTOKP=SYSNULL;
CALL DBF2UC(WA_DEF,FPIB,SYSNULL,SYSNULL,SYSNULL);
MYRC=PLIRETV();
PUT SKIP DATA(MYRC);
PUT SKIP DATA(FPIB);
PUT SKIP LIST('TEST@ DBF2UC INV CODE ->ERROR END');
/**/
PUT SKIP LIST('TEST@ DBF2UC INV TYPE ->ERROR');
WA_DEF='';
FPBFCODE=FPBFDEF;
FPBWKLN=CSTG(WA_DEF);
FPBTOKP=SYSNULL;
26
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.