OUTMODルーチンの実行 - FastExport

FastExport、およびIBM CまたはCOBOLのいずれかのOUTMODルーチンを実行するには、以下のz/OS JCLを使用します。JOBLIB文は、両方の実行時ライブラリを定義します。

IBM Cのプロシージャは、FastExportをサポートするために必須です。COBOLのプロシージャは、COBOLで作成されたOUTMODルーチンが存在する場合に限って必須です。

 //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         */