The Tape Volume Accounting Interface › Operating Instructions › TVA Sample JCL

TVA Sample JCL

The following is a sample run deck for executing the TVA Interface.

//TVARUN   JOB ,'RUN TVA INTERFACE',CLASS=A,MSGCLASS=M
//*
//* DOC:   THIS JOB EXECUTES THE CA JARS/TVA INTERFACE PROGRAM
//*        THIS JCL REFERS TO DATA SET NAME CAI.CAJRLOAD ON THE
//*        STEPLIB DD. THIS NAME MUST MATCH THE ONE WITH WHICH
//*        YOU LOADED THE LOAD LIBRARY FROM THE DISTRIBUTION TAPE.
//*
//*        CAIJFPR   DD   TVA MESSAGE AND REPORT OUTPUT
//*        CAIJFSN   DD   SNAP DUMP
//*        CAIJRIN   DD   CONTROL CARD INPUT (INPUT CONTROL CARD REQUIRED
//*        CAIVMFI   DD   CA DYNAM/TLMS INPUT MASTER FILE
//*                       (OPTIONAL DEPENDING ON CONTROL CARD)
//*        CAITMCI   DD   CA 1 INPUT MASTER FILE
//*                       (OPTIONAL DEPENDING ON CONTROL CARD)
//*        CAITVAS6  DD   TVA OUTPUT BILLING FILE
//*
//TVA01   EXEC PGM=JSTA0020,REGION=150K
//*
//STEPLIB  DD  DSN=CAI.CAJRLOAD,DISP=SHR
//*
//CAIJFPR  DD  SYSOUT=*
//CAIJFSN  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//CAIJFIN  DD   *
MM/DD/YY MM/DD/YY CA 1       (ONLY CA 1 MASTER FILE IS PROCESSED)
 OR
MM/DD/YY MM/DD/YY CA 1 CA 1  (ONLY CA 1 MASTER FILE IS PROCESSED)
 OR
MM/DD/YY MM/DD/YY TLMS       (ONLY TLMS MASTER FILE IS PROCESSED)
 OR
MM/DD/YY MM/DD/YY TLMS TLMS  (ONLY TLMS MASTER FILE IS PROCESSED)
 OR
MM/DD/YY MM/DD/YY CA 1 TLMS  (BOTH MASTER FILES ARE PROCESSED)
 OR
MM/DD/YY MM/DD/YY TLMS CA 1  (BOTH MASTER FILES ARE PROCESSED)
 OR
MM/DD/YY MM/DD/YY      TLMS  (BOTH MASTER FILES ARE PROCESSED)
 OR
MM/DD/YY MM/DD/YY      CA 1  (ONLY CA 1 MASTER FILE IS PROCESSED)
 OR
MM/DD/YY MM/DD/YY            (ONLY CA 1 MASTER FILE IS PROCESSED)
/*
//CAIVMFI  DD   DSN=TLMS.VMF.MASTER.FILE,DISP=SHR
//CAITMCI  DD   DSN=CA 1.TMC.MASTER.FILE,DISP=SHR
//CAITVAS6 DD   DSN=TVA.BILLING.FILE,DISP=(,CATLG,DELETE),
//         DCB=(RECFM=FB,LRECL=270,BLKSIZE=6750),
//         SPACE=(CYL(5,5)),
//         UNIT=SYSDA,VOL=SER=WORK01
//CAIJSACT  DD DSN=CAI.TVA.EXTDATA,
//          DISP=(NEW,CATLG,DELETE),
//          UNIT=uuuu,
//          SPACE=(CYL,(pp,ss),RLSE),
//          DCB=(RECFM=VB,LRECL=8188,BLKSIZE=bbbb),
//          VOL=SER=vvvvvv
/*
//