Return to the Sample Job Stream List

RBFRMLOD Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=RBFRMLOD,CLASS=6,DISP=D
* $$ LST CLASS=R,DEST=*
// JOB RBFRMLOD
// ASSGN SYSLST,00E
*     DEFINE VSAM CLUSTERS FOR TRANSACTION (FRM) DATA BASE
// ASSGN SYSLST,00E
// OPTION PARTDUMP,NOSYSDMP,LOG
// ASSGN SYS045,DISK,VOL=TREAS5,SHR
// EXEC IDCAMS,SIZE=AUTO
   DEL (RB107-1.DATA) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEL (RB107-2) CL CAT (TREAS.UCAT.RB RBCAT) PURGE
   DEF CL (NAME(RB107-1.DATA) NIXD RECSZ (2038 2038) CISZ (2048) -
         SHR (1 3) BLK (140000 620) VOL(TREAS8))  -
         CAT (TREAS.UCAT.RB RBCAT)
  /* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT TRANSACTION */
  /* THE KEY TO THIS INDEX IS DATE/TIME                        */
   DEF CL (NAME(RB107-2) IXD KEYS (14 10) RECSZ (28 28) CISZ (2048) -
         SHR (1 3) BLK (10000 620) FSPC (20 10) VOL (TREAS8)) -
         DATA (NAME(RB107-2.DATA)) -
         INDEX (NAME(RB107-2.INDEX)) -
         CAT (TREAS.UCAT.RB RBCAT)
/*
*    LOAD TRANSACTION DATA BASE
// ASSGN SYSLST,00E
// OPTION PARTDUMP,NOSYSDMP,LOG
// DLBL IJSYSUC,'TREAS.UCAT.RB',,VSAM
// PAUSE MOUNT RB107-1.DATA ON TAPE UNIT 180
// ASSGN SYS011,180
// TLBL DUMPIN,'RB107-1.DATA'
// ASSGN SYS012,IGN
// ASSGN SYS013,IGN
// ASSGN SYS005,DISK,VOL=TREASA,SHR
// DLBL RFORMR,'RB107-1.DATA',,VSAM,,BUFSP=128
// EXTENT SYS005,TREASA
// EXEC DLZRRC00,SIZE=250K
UDR,DLZURDB0,RFRMDBD
S  RFRMDBD  RFORMR
/*
*    LOAD PRIMARY DATE/TIMEKSDS FROM TAPE
// ASSGN SYSLST,00E
// OPTION PARTDUMP,NOSYSDMP
// DLBL IJSYSUC,'TREAS.UCAT.RB',,VSAM
// PAUSE MOUNT RB107-2 ON TAPE UNIT 180
// ASSGN SYS011,180
// TLBL DUMPIN,'RB107-2'
// ASSGN SYS012,IGN
// ASSGN SYS013,IGN
// ASSGN SYS006,DISK,VOL=TREASA,SHR
// DLBL RINXDAT,'RB107-2',,VSAM,,BUFSP=128
// EXTENT SYS006,TREASA
// EXEC DLZRRC00,SIZE=250K
UDR,DLZURDB0,RFRMDBD
S  RX40DBD  RINXDAT
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//RBFRMLOD JOB (RBFRMLOD),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     DEFINE VSAM CLUSTERS FOR TRANSACTION (FRM) DATA BASE
//*
//*     STEP0010  PGM=IDCAMS
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//*    VS    I RBCAT    A          'RB107-1.DATA'                       DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB107-1.DATA
//*    VS    I RBCAT    A          'RB107-2'                            DELETE
//#DELETE  DD  DUMMY,DSN=MVSDB.RB107-2
//* VS VS ES O RBCAT    A          'RB107-1.DATA'                       DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB107-1.DATA
//* VS VS KS O RBCAT    A          'RB107-2'                            DEFCL
//#DEFCL   DD  DUMMY,DSN=MVSDB.RB107-2
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
   DEL (MVSDB.RB107-1.DATA) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   DEL (MVSDB.RB107-2) CL                     PURGE
 IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
   DEF CL (NAME(MVSDB.RB107-1.DATA)-
    NIXD RECSZ (2038 2038) CISZ (2048) -
         SHR (1 3) TRK (1400   7  ) VOL(TREAS8))
  /* DEFINE THE HISAM PRIMARY INDEX FOR RETIREMENT TRANSACTION */
  /* THE KEY TO THIS INDEX IS DATE/TIME                        */
   DEF CL (NAME(MVSDB.RB107-2)-
    IXD KEYS (14 10) RECSZ (28 28) CISZ (2048) -
         SHR (1 3) TRK (100   7  ) FSPC (20 10) VOL (TREAS8))
/*
//*
//*    LOAD TRANSACTION DATA BASE
//*
//*     STEP0020  PGM=DFSURDB0                                          DLZRRC00
//*
//STEP0020 EXEC PGM=DFSRRC00,PARM=(UDR,DFSURDB0,RFRMDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* MT I              DUMPIN   'RB107-1.DATA'
//DFSUDUMP DD  DSN=MVSTAPE.RB107-1.DATA,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB107-1.DATA'
//RFORMR   DD  DSN=MVSDB.RB107-1.DATA,
//             DISP=SHR
//*    O SYS256 IGN
//DFSUCUM  DD  DUMMY
//*    O SYS256 IGN
//DFSULOG  DD  DUMMY
//* CD I SYSIPT 00C
//SYSIN    DD  *
S  RFRMDBD  RFORMR
/*
//*
//*    LOAD PRIMARY DATE/TIMEKSDS FROM TAPE
//*
//*     STEP0030  PGM=DFSURDB0                                          DLZRRC00
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(UDR,DFSURDB0,RFRMDBD)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
//        INCLUDE MEMBER=IMSFILES
//* MT I              DUMPIN   'RB107-2'
//DFSUDUMP DD  DSN=MVSTAPE.RB107-2,
//             DISP=SHR
//* VS VS DB U RBCAT               'RB107-2'
//RINXDAT  DD  DSN=MVSDB.RB107-2,
//             DISP=SHR
//*    O SYS256 IGN
//DFSUCUM  DD  DUMMY
//*    O SYS256 IGN
//DFSULOG  DD  DUMMY
//* CD I SYSIPT 00C
//SYSIN    DD  *
S  RX40DBD  RINXDAT
/*
//
   

Return to the Sample Job Stream List