Previous Topic: SYSIN Control StatementsNext Topic: CA Roscoe Execution


ISPF Execution

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.