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

eturn
end
/*———————————— */
/* Date Encode */
/*———————————— */
if CTYPE = 'DATE' then do
NCDATAD = left(NCDATAD,8) || '4Ø4Ø4Ø4Ø'
NCDATAE = NCDATAD
return
end
/*—————————————————————————————————————— */
/* Default Endcode data to input decoded */
/*—————————————————————————————————————— */
NCDATAE = NCDATAD || '4Ø4Ø4Ø4Ø4Ø4Ø4Ø4Ø'
NCDATAE = left(NCDATAE,16)
return
Liz Page
Independent Consultant (UK) © Xephon 1999
Driving and testing FIELDPROC
This article gives a PL/I program that drives and tests a DB2 Assembler
FIELDPROC exit. Using this program, you can perform a lot of
testing before linking your FIELDPROC to the exits library.
PL/I PROGRAM
//TSHVRD JOB (),'PLIXC',CLASS=A,MSGCLASS=X,NOTIFY=TSHVR
//PLI EXEC IEL1CLG,
// REGION=5ØØØK,
// PARM.PLI='OFFSET,INCLUDE,NODECK,LIST,AGGREGATE,ATTRIBUTES',
// PARM.LKED='XREF,LIST,RENT,AMODE=31,RMODE=ANY',
// PARM.GO='/'
//PLI.SYSLIB DD DSN=TSHVR.SOURCE.TEST,DISP=SHR
// DD DSN=TSHVR.INCLUDE.TOOLS,DISP=SHR
// DD DSN=TSHVR.SOURCE.TOOLS,DISP=SHR
//PLI.SYSIN DD *
* PROCESS LANGLVL(OS,SPROG);
* PROCESS SYSTEM(MVS);
/*TST2UC TEST DBF2UC */
/* drives and test DB2 Assembler FIELDPROC exit */
TST2UC: PROC(PARMS) OPTIONS(MAIN REENTRANT) ;
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
23