Examples

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