Use the following sample JCL to execute $CCFB109.
//CCFJOB JOB (ACCOUNTING),PGMR02.BU03,CLASS=0,
// MSGCLASS=T
//CREPROF EXEC PGM=IEFBR14
//O DD DSN=&&TEMPPROF,DISP=(,PASS),UNIT=VIO,
// SPACE=(3120,(30,,2)),
// DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=3120)
// EXEC PGM=IKJEFT01,DYNAMNBR=25,REGION=2000K,PARM=
//ISPLLIB DD DISP=SHR,DSN=CAI.CALJLINK A LIBR LOAD LIB
//ISPPLIB DD DISP=SHR,DSN=CAI.CALJPENU B LIBR PANEL LIB
// DD DISP=SHR,DSN=ISR.V3R5M0.ISRPENU ISR PANEL LIB
// DD DISP=SHR,DSN=ISP.V3R5M0.ISPPENU ISP PANEL LIB
//ISPMLIB DD DISP=SHR,DSN=CAI.CALJMENU C LIBR MESSG LIB
// DD DISP=SHR,DSN=ISR.V3R5M0.ISRMENU ISR MESSG LIB
// DD DISP=SHR,DSN=ISP.V3R5M0.ISPMENU ISP MESSG LIB
//ISPSLIB DD DISP=SHR,DSN=CAI.CALJSENU D LIBR SKEL LIB
// DD DISP=SHR,DSN=ISR.V3R5M0.ISRSENU ISR SKEL LIB
// DD DISP=SHR,DSN=ISP.V3R5M0.ISPSLIB ISP SKEL LIB
//ISPTLIB DD DISP=SHR,DSN=CAI.CALJTENU E LIBR TABL LIB
// DD DISP=SHR,DSN=ISR.V3R5M0.ISRTLIB ISR TABL LIB
// DD DISP=SHR,DSN=ISP.V3R5M0.ISPTENU ISP TABL LIB
//SYSPROC DD DISP=SHR,DSN=ISR.V3R5M0.ISRCLIB F ISR CLIST LIB
//ISPPROF DD DSN=&&TEMPPROF,DISP=(SHR,PASS)
//ISPLOG DD SYSOUT=K,DCB=(DSORG=PS,RECFM=VA,LRECL=125,BLKSIZE=129)
//ISPCTL1 DD DISP=(,DELETE),UNIT=VIO,
// SPACE=(3120,(30,5)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSTERM DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CCFPRINT DD SYSOUT=*
//SYSTSIN DD *
ISPSTART PGM($CCFB109) NEWAPPL(CCF@) BDISPMAX(99999) +
PARM(+ }
SYSTEM=ROSCOE,+ }
PGMR,+ } G
NXT+ }
) }
//SYSIN DD *
JC //CCFJOB JOB (ACCOUNTING),PGMR02.BU03,CLASS=0, }
JC // MSGCLASS=T }
CCFID PGMR02 }
HISTORY LOGIN FOR PAYROLL APPLICATION }
S 5 }
PROCESS }
S 6 H }
TEST }
HISTORY LOGIN FOR ACCOUNTS REC APPLICATION }
S 7 }
PROCESS }
All necessary LIB/CCF files are allocated dynamically. The LIB/CCF system master file is dynamically allocated based on the SYSMAST keyword of the $CCFGEN macro.
|
Copyright © 2010 CA.
All rights reserved.
|
|