Examples of the DFSUARC0 utility

These examples show how to use the DFSUARC0 utility using the COPY control statement to create an RLDS and FEOV to ensure consistency in the SLDS.

//ARCHIVE  JOB MSGCLASS=A,CLASS=A,MSGLEVEL=(1,1)
//*
//ARC1    EXEC PGM=DFSUARC0,PARM='SYSA'
//STEPLIB   DD DSN=IMS.&SYS2..SDFSRESL,DISP=SHR
/*   COPY FROM 3 OLDS TO A SLDS                            */
/*   RLDS AND A USER DATA SET ARE ALSO CREATED             */
//DFSOLP00  DD DSN=OLP900,DISP=SHR,DCB=(BUFNO=20)
//DFSOLP01  DD DSN=OLP901,DISP=SHR,DCB=(BUFNO=20)
//DFSOLP02  DD DSN=OLP902,DISP=SHR
//DFSSLOGP  DD DSN=SLDSP.D82001.N001,DISP=(,KEEP),
//             UNIT=TAPE,VOL=(,,,99),LABEL=(,SL)
//RLDSDD1   DD DSN=RLDSP.D82001.N001,DISP=(,KEEP),
//             UNIT=TAPE,VOL=(,,,99),LABEL=(,SL)
//USERDD1   DD DSN=USER.D82001.N001,DISP=(,KEEP),
//             UNIT=3350,VOL=USER01,SPACE=(CYL,5)
//RECON1    DD DSN=RECON1,DISP=SHR
//RECON2    DD DSN=RECON2,DISP=SHR
//RECON3    DD DSN=RECON3,DISP=SHR
//SYSPRINT  DD SYSOUT=A
//SYSUDUMP  DD SYSOUT=A
//SYSIN     DD *
 COPY DDNOUT1 (RLDSDD1) DBRECOV
 /*  THIS USER DATA SET CONTAINS                           */
 /*  X'A5', X'A6', AND X'A7' LOG RECORDS                   */
 COPY DDNOUT1 (USERDD1) -
  RECORD (O(5) T(X) V(A5) L(1) C(E)) -
  RECORD (O(5) T(X) V(A6) L(1) C(E)) -
  RECORD (O(5) T(X) V(A7) L(1) C(E))
 EXIT NAME (UEXIT01)

//ARCHIVE2 JOB MSGCLASS=A,CLASS=A,MSGLEVEL=(1,1)
//*
//ARC2    EXEC PGM=DFSUARC0,PARM='SYSA'
//STEPLIB   DD DSN=IMS.&SYS2..SDFSRESL,DISP=SHR
//*   COPY FROM 2 OLDS TO DUAL SLDS                   */
//DFSOLP02  DD DSN=OLP902,DISP=SHR
//DFSOLP00  DD DSN=OLP900,DISP=SHR
//DFSOLS00  DD DSN=OLS900,DISP=SHR
//DFSOLS02  DD DSN=OLS902,DISP=SHR
//DFSSLOGP  DD DSN=SLDSP.D82001.N001,DISP=(,KEEP),
//             UNIT=TAPE,VOL=(,,,99),LABEL=(,SL)
//DFSSLOGS  DD DSN=SLDSS.D82001.N001,DISP=(,KEEP),
//             UNIT=TAPE,VOL=(,,,99),LABEL=(,SL)
//RECON1   DD  DSN=RECON1,DISP=SHR
//RECON2   DD  DSN=RECON2,DISP=SHR
//SYSPRINT DD  SYSOUT=A
//SYSUDUMP DD  SYSOUT=A
//SYSIN    DD  *
  SLDS FEOV (08000)
 /*  THE SLDS ARE FORCED EOV AFTER 8000 LOG BLOCKS    */
 /*  ARE WRITTEN.                                     */
/*