Execute the OUTMOD Routine
Use the following z/OS JCL to execute FastExport and either the IBM C or the COBOL OUTMOD routine. The JOBLIB statements define both runtime libraries.
The IBM C procedures are required to support FastExport. The COBOL procedures are required only if an OUTMOD routine written in COBOL exists.
//USEREXP JOB (20750000),'USERNAME',MSGCLASS=A,NOTIFY=USER,
// CLASS=A,MSGLEVEL=(1,1),REGION=4096K
//JOBLIB DD DSN=TERADATA.TRLOAD,DSP=SHR
// DD DSN=TERADATA.APPLOAD,DISP=SHR
// DD DSN=SYS1.VSCOLIB,DISP=SHR
//EXP EXEC PGM=XPORT,REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//OUTNAME DD DSN=USER.EXPORT.TEST1,DISP=(NEW,CATLG,DELETE),
// DCB=(NCP=20,RECFM=FB,LRECL=20,BLKSIZE=3200,DSORG=PS),
// UNIT=SYSDA,SPACE=(3200,(300,1))
//FILE1OUT DD DSN=USER.EXPORT.TEST2,DISP=(NEW,CATLG,DELETE),
// DCB=(NCP=20,RECFM=FB,LRECL=20,BLKSIZE=3200,DSORG=PS),
// UNIT=SYSDA,SPACE=(3200,(1,1))
//FILE2OUT DD DSN=USER.EXPORT.TEST3,DISP=(NEW,CATLG,DELETE),
// DCB=(NCP=20,RECFM=FB,LRECL=20,BLKSIZE=3200,DSORG=PS),
// UNIT=SYSDA,SPACE=(3200,(1,1))
//SYSIN DD *
.LOGTABLE TranLog; /* define restart log */
.LOGON TDPV/USER,USER; /* the logon string */
.BEGIN EXPORT /* Specify export function */
SESSIONS 20; /* number of sessions to be used */
.EXPORT OUTFILE OutName /* identify the destination */
OUTMOD ChkTran; /* file and the procedure */
/* to receive the records. */
SELECTRegion, /* provide the SQL SELECT */
ProdCode,
Quantity,
Price
From TranLogTable
WHERE TranDate BETWEEN 911231 and 920701
ORDER BY Region, ProdCode;
.END EXPORT; /* terminate FastExport */
.LOGOFF /* disconnect from the DBC */