This example shows a SuperC compare JCL sequence:
//COMPARE EXEC PGM=ISRSUPC,PARM=('LINECMP,CHNGL,UPDCNTL')
//STEPLIB DD DSN=ISPF.LOAD,DISP=SHR
//NEWDD DD DSN=DLUDLOW.PDS(TEST1),DISP=SHR
//OLDDD DD DSN=DLUDLOW.PDS(TEST2),DISP=SHR
//OUTDD DD SYSOUT=A
//DELDD DD DSN=DLUDLOW.UCTL1,DISP=OLD
//SYSIN DD *
CMPCOLM 2:72
/*
The sequence allows the SuperC program to compare two input data
sets and generates a line compare CHANGE type listing to the spool
output queue and a separate UPDCNTL update control data set output
using source columns 2 through 72.
A catalog procedure is a set of “canned” JCL statements that you
can invoke as an extension of your own JCL. Here is a simplified JCL
sequence:
//SUPERC JOB
// EXEC SUPERC,
// NEWFILE='DLUDLOW.GROUP.DATA1',
// OLDFILE='MFRAME.GROUP.DATA2',
// LISTING=DELTA
The keywords NEWFILE, OLDFILE, and LISTING cause symbolic substitution
before the job submittal.
Note: A sample catalog procedure is contained
in the SAMPLIB member ISRSPROC.
A simplified Search-For JCL sequence follows. The SRCHFOR process
statement used in the search is part of the JCL instead of a separate
SYSIN data set. Concatenated data sets are also shown as part of the
JCL.
// JOB
//SEARCH EXEC PGM=ISRSUPC,PARM=('SRCHCMP,ANYC')
//STEPLIB DD DSN=ISPF330.LOAD,DISP=SHR
//NEWDD DD DSN=USERID.PDS,DISP=SHR
// DD DSN=USERID.PDS2,DISP=SHR
//OUTDD DD SYSOUT=*
//SYSIN DD *
SRCHFOR 'NEEDLE',W,10:20
/*
//
A very simplified Search-For sample CLIST follows:
PROC 0
FREE FI(NEWDD,SYSIN,OUTDD,SYSIN2)
ALLOC FI(NEWDD) DA('USERID.PDS(TEST1)') REUSE SHR
ALLOC FI(SYSIN) DA('USERID.SYSIN.DATA(STMTS)') REUSE SHR
DELETE 'USERID.USER.PDS'
ALLOC FI(OUTDD) DA('USERID.USER.LIST') SPACE(10,20) RECFM(F B) +
REUSE TRACKS RELEASE
CALL 'USERID.ISPF.LOAD(ISRSUPC)' 'SRCHCMP,ANYC'
/******************************************************/
/* SIMPLE CLIST WITH MINIMUM STATEMENTS. */
/* “USERID.SYSIN.DATA(STMTS)” MUST CONTAIN SRCH STMTS.*/
/******************************************************/