//LOADRPF  JOB (RPF),
//             'Load RPF from tape',
//             CLASS=A,
//             MSGCLASS=A,
//             MSGLEVEL=(2,1)
//CLEANUP EXEC PGM=IDCAMS
//REPROIN  DD  *
99999999    SEED RECORD FOR THE RPF DATABASE
//SYSPRINT DD  SYSOUT=*
//SYSIN  DD *
 /***********************************************************/
 /*                                                         */
 /* Note:  you do not need this define alias if you do not  */
 /*        want to use a private user catalog               */
 /*                                                         */
 /* Note:  you need to update the relate parameter to       */
 /*        point to the catalog that you want to use        */
 /*                                                         */
 /***********************************************************/
   DEFINE ALIAS(NAME(RPF) RELATE(UCWORK01))
   SET LASTCC = 0
   SET MAXCC = 0
   DELETE RPF.V1R4M1.SRPFASM  NONVSAM
   DELETE RPF.V1R4M1.SRPFOBJ  NONVSAM
   DELETE RPF.V1R4M1.SRPFHELP NONVSAM
   DELETE RPF.V1R4M1.SRPFLOAD NONVSAM
   DELETE RPF.V1R4M1.CNTL     NONVSAM
   DELETE RPF.V1R4M1.SRPFPROF CLUSTER
   SET LASTCC = 0
   SET MAXCC  = 0
 /***********************************************************/
 /*                                                         */
 /* Note:  You will have to modify the volume names         */
 /*        and the dataset high level qualifiers            */
 /*        to reflect your system environment               */
 /*                                                         */
 /* Note:  Do __not__ modify the low level qualifier, as    */
 /*        they will be needed as is if and when RPF        */
 /*        will be distributed in smp format                */
 /*                                                         */
 /***********************************************************/
  DEFINE CLUSTER ( NAME(RPF.V1R4M1.SRPFPROF) -
                   VOL(WORK01) -
                   FREESPACE(20 10) -
                   RECORDSIZE(1750 1750) -
                   INDEXED -
                   IMBED -
                   UNIQUE  -
                   KEYS(8 0) -
                   CYLINDERS(1 1) -
                 ) -
            DATA ( NAME(RPF.V1R4M1.SRPFPROF.DATA) -
                   SHR(3 3) -
                 ) -
           INDEX ( NAME(RPF.V1R4M1.SRPFPROF.INDEX) -
                   SHR(3 3) -
                 )
  IF LASTCC = 0 THEN -
     REPRO INFILE(REPROIN) -
           OUTDATASET(RPF.V1R4M1.SRPFPROF)
/*
//ALLOC   EXEC PGM=IEBCOPY
//ASM      DD  DISP=(NEW,CATLG),
//             DSN=RPF.V1R4M1.SRPFASM,
//             DCB=SYS1.MACLIB,
//             SPACE=(CYL,(5,5,20)),
//             UNIT=3350,
//             VOL=SER=WORK01
//OBJ      DD  DISP=(NEW,CATLG),
//             DSN=RPF.V1R4M1.SRPFOBJ,
//             DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB),
//             SPACE=(CYL,(1,1,20)),
//             UNIT=3350,
//             VOL=SER=WORK01
//HELP     DD  DISP=(NEW,CATLG),
//             DSN=RPF.V1R4M1.SRPFHELP,
//             DCB=SYS1.MACLIB,
//             SPACE=(CYL,(1,1,5)),
//             UNIT=3350,
//             VOL=SER=WORK01
//LOAD     DD  DISP=(NEW,CATLG),
//             DSN=RPF.V1R4M1.SRPFLOAD,
//             DCB=SYS1.LINKLIB,
//             SPACE=(CYL,(1,1,20)),
//             UNIT=3350,
//             VOL=SER=WORK01
//CNTL     DD  DISP=(NEW,CATLG),
//             DSN=RPF.V1R4M1.CNTL,
//             DCB=SYS1.MACLIB,
//             SPACE=(CYL,(1,1,20)),
//             UNIT=3350,
//             VOL=SER=WORK01
//ASMIN    DD  DISP=OLD,
//             DSN=RPF.INST.SRPFASM,
//             UNIT=(TAPE,,DEFER),
//             VOL=SER=RPF141,
//             LABEL=(1,SL)
//OBJIN    DD  DISP=OLD,
//             DSN=RPF.INST.SRPFOBJ,
//             UNIT=AFF=ASMIN,
//             VOL=REF=*.ASMIN,
//             LABEL=(2,SL)
//HELPIN   DD  DISP=OLD,
//             DSN=RPF.INST.SRPFHELP,
//             UNIT=AFF=OBJIN,
//             VOL=REF=*.OBJIN,
//             LABEL=(3,SL)
//LOADIN   DD  DISP=OLD,
//             DSN=RPF.INST.SRPFLOAD,
//             UNIT=AFF=HELPIN,
//             VOL=REF=*.HELPIN,
//             LABEL=(4,SL)
//CNTLIN   DD  DISP=OLD,
//             DSN=RPF.INST.CNTL,
//             UNIT=AFF=LOADIN,
//             VOL=REF=*.LOADIN,
//             LABEL=(5,SL)
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 COPY INDD=ASMIN,OUTDD=ASM
 COPY INDD=OBJIN,OUTDD=OBJ
 COPY INDD=HELPIN,OUTDD=HELP
 COPY INDD=LOADIN,OUTDD=LOAD
 COPY INDD=CNTLIN,OUTDD=CNTL
//GENER   EXEC PGM=IEBUPDTE,PARM=NEW
//SYSUT2   DD  DISP=SHR,DSN=SYS1.PARMLIB
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
//SYSUT1   DD  *
./ ADD NAME=RPFKEY00
RPF.V1R4M1.SRPFPROF
HELP=RPF.V1R4M1.SRPFHELP
/*