Previous Topic: Fixed-Format RecordsNext Topic: Extracting Data (FEX)


Sample JCL (Fixed-Format Records)

Sample z/OS JCL

The following is a sample z/OS EXPORT job:

 //jobname    See the note above and Preparing JCL for Batch CA Dataquery Utilities.
 //       EXEC PGM=DQBATCH
 //STEPLIB    See the note above and Preparing JCL for Batch CA Dataquery Utilities.
 //SYSPRINT DD SYSOUT=*                            Print Output
 //SYSUDUMP DD SYSOUT=*
 //SNAPER   DD SYSOUT=*
 //SYSOUT   DD SYSOUT=*
 //DQFIXD   DD DSN= ....  Specify according to your site standards.
 //SYSIN    DD *                                   Command input
 SIGN/ON DQUSER
 FIND ALL CA-DETAIL-REC                                               X
    PRINT ITMID-ORDID=KEY ORD-QTY SHIP-QTY UNIT-PRICE DISC-PCT ACT-DT
 EXECUTE *
 EXPORT 'DOCUMENT1' FIXED
 /*
 //

Sample z/VSE JCL

The following is a sample z/VSE EXPORT job to output to a data set on disk:

 * $$ JOB ...           See the note on the previous page and Preparing JCL for Batch CA Dataquery Utilities.
 * $$ LST ...
 // JOB name
 // EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see Preparing JCL for Batch CA Dataquery Utilities.
 // DLBL DQFIXD,'datacom.dq.export',99/365
 // EXTENT ,VSEDT4
 // EXEC DQBATCH
 SIGN/ON DQUSER
 FIND ALL CA-DETAIL-REC                                                X
    PRINT ITMID-ORDID-KEY ORD-QTY SHIP-QTY UNIT-PRICE DISC-PCT ACT-DT
 EXECUTE *
 EXPORT 'DOCUMENT1' FIXED DISK
 /*
 /&
 * $$ EOJ

The following is a sample z/VSE EXPORT job to output to a data set on tape:

 * $$ JOB ...           See the note on the previous page and Preparing JCL for Batch CA Dataquery Utilities.
 * $$ LST ...
 // JOB name
 // EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see Preparing JCL for Batch CA Dataquery Utilities.
 // ASSIGN SYS011,X'...'
 // EXEC DQBATCH
 SIGN/ON DQUSER
 FIND ALL CA-DETAIL-REC                                                X
    PRINT ITMID-ORDID-KEY ORD-QTY SHIP-QTY UNIT-PRICE DISC-PCT ACT-DT
 EXECUTE *
 EXPORT 'DOCUMENT1' FIXED TAPE
 /*
 /&
 * $$ EOJ