Utilitário z/OS - IEFBR14

O IEFBR14 é padrão de você criar datasets vazios ou excluir datasets que não eram mais necessários, hoje é mais pratico e facil você usar TSO ou ISPF para executar essas funções interativamente. IEFBR14 é um utilitário fornecido pela IBM muito útil, o utilitário IEFBR14 força o sistema a realizar a alocação e desalocação de etapas. Na verdade, é um dos meus utilitários favoritos. Sempre uso esse utilitário para alocar ou excluir qualquer dataset sequencial. 

Retirado

1. JCL to create a PS dataset(s) - Início

//RACFID01 JOB 1,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//** JCL TO CREATE A PS DATASET
//*******************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.PS1,
//            DISP=(MOD,CATLG,DELETE),
//            SPACE=(TRK,(10,100),RLSE),
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800,DSORG=PS)
//*
//DD2      DD DSN=RACFID.IBMMF.PS2,
//            DISP=(MOD,CATLG,DELETE),
//            SPACE=(TRK,(10,100),RLSE),
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800,DSORG=PS)
//*

2. JCL to delete a PS dataset(s) - Início

//RACFID02 JOB 2,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO DELETE A PS DATASET
//*******************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.PS1,
//            DISP=(OLD,DELETE,DELETE)
//*
//DD2      DD DSN=RACFID.IBMMF.PS2,
//            DISP=(OLD,DELETE,DELETE)
//*

3. JCL to create a PDS dataset(s) - Início

//RACFID03 JOB 3,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO CREATE A PDS DATASET
//*******************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.PDS1,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(10,100,4),RLSE),
//            DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PO)
//*
//STEP002  EXEC PGM=IEFBR14
//DD2      DD DSN=RACFID.IBMMF.PDS2,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(10,100,4),RLSE),
//            DCB=(LRECL=80,BLKSIZE=800,RECFM=FB,DSORG=PO)
//*

4. JCL to delete a PDS dataset(s) - Início

//RACFID04 JOB 4,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO DELETE A PDS DATASET
//*******************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.PDS1,
//            DISP=(OLD,DELETE,DELETE)
//*
//STEP002  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.PDS2,
//            DISP=(OLD,DELETE,DELETE)
//*

5. JCL to create a PDS dataset member(s) - Início

//RACFID05 JOB 5,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO CREATE A PDS DATASET MEMBER
//*******************************************************************************
//STEP001  EXEC PGM=IEBGENER
//SYSUT1  DD *
//SYSUT2  DD DSN=RACFID.IBMMF.PDS(MEMBER1),
//            DISP=SHR
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//*
//STEP002  EXEC PGM=IEBGENER
//SYSUT1  DD *
//SYSUT2  DD DSN=RACFID.IBMMF.PDS(MEMBER1),
//            DISP=SHR
//SYSIN    DD DUMMY
//SYSPRINT DD SYSOUT=*
//*

6. JCL to delete a PDS dataset member(s) - Início

//RACFID06 JOB 6,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO DELETE A PDS DATASET MEMBER
//*******************************************************************************
//STEP001  EXEC PGM=IDCAMS
//DD1      DD  DSN=RACFID.IBMMF.PDS,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
DELETE 'RACFID.IBMMF.PDS(MEMBER1)' FILE(DD1)
/*
//STEP002  EXEC PGM=IDCAMS
//DD1      DD  DSN=RACFID.IBMMF.PDS,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE 'RACFID.IBMMF.PDS(MEMBER2)' FILE(DD1)
/*

7. JCL to create a GDG base(s) - Início

//RACFID07 JOB 7,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO DELETE A PDS DATASET MEMBER
//*******************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE GDG(NAME(RACFID.IBMMF.BASE1) -
            LIMIT(7) -
            NOEMPTY -
            SCRATCH
/*
//STEP002  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE GDG(NAME(RACFID.IBMMF.BASE2) -
            LIMIT(7) -
            NOEMPTY -
            SCRATCH
/*

8. JCL to create a GDG generation(s) - Início

//RACFID08 JOB 8,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO CREATE A GDG GENERATION
//*******************************************************************************
//STEP001  EXEC PGM=IEFBR14
//SYSPRINT DD SYSOUT=*
//DD1      DD DSN=RACFID.IBMMF.GDG(+1),
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(100,100),RLSE),
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800,DSORG=PS)
//*
//DD2      DD DSN=RACFID.IBMMF.GDG(+1),
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(100,100),RLSE),
//            DCB=(LRECL=80,RECFM=FB,BLKSIZE=800,DSORG=PS)
//*

9. JCL to delete a GDG base(s) - Início

//RACFID09 JOB 9,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//*******************************************************************************
//* JCL TO DELETE A GDG BASE
//*******************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  DELETE (RACFID.IBMMF.BASE1)    -
          GDG -
          FORCE
/*
//STEP002 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
  DELETE (RACFID.IBMMF.BASE2)    -
          GDG -
          FORCE
/*

10. JCL to delete one GDG generation(s) - Início

//RACFID10 JOB 10,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO DELETE A ONE GDG GENERATION
//********************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.BASE1.G0001V00,
//            DISP=(OLD,DELETE,DELETE)
//*
//DD2      DD DSN=RACFID.IBMMF.BASE2.G0001V00,
//            DISP=(OLD,DELETE,DELETE)

11. JCL to delete all GDG generation(s) - Início

//RACFID11 JOB 11,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO DELETE A ONE GDG GENERATION
//********************************************************************************
//STEP001  EXEC PGM=IEFBR14
//DD1      DD DSN=RACFID.IBMMF.BASE1,
//            DISP=(OLD,DELETE,DELETE)
//*
//DD2      DD DSN=RACFID.IBMMF.BASE2,
//            DISP=(OLD,DELETE,DELETE)

12. JCL to create a VSAM - ESDS - Início

//RACFID12 JOB 12,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CREATE a VSAM - ESDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER ( -
          NAME(RACFID.IBMMF.ESDS) -
          NONINDEXED -
          RECSZ(200 200) -
          FREESPACE(10 10) -
          CISZ(8192) -
          TRACKS(20 20) -
          VOLUME(IBMSYS)
/*

13. JCL to create a VSAM - KSDS - Início

//RACFID13 JOB 13,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CREATE a VSAM - KSDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER( -
        NAME(RACFID.IBMMF.KSDS) -
        INDEXED -
        KEYS(5 0) -
        RECSZ(200 200) -
        FREESPACE(10 20) -
        TRACKS(50 30) -
        CISZ(4096) -
        VOLUME(IBMSYS))
/*

14. JCL to create a VSAM - RRDS - Início

//RACFID14 JOB 14,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CREATE a VSAM - RRDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER ( -
  NAME(RACFID.IBMMF.RRDS) -
  NUMBERED -
  RECSZ(200 200) -
  CISZ(4096) -
  TRACKS(20 20) -
  FREESPACE(10 10) -
  VOLUME(IBMSYS))
/*

15. JCL to create a VSAM - LDS - Início

//RACFID15 JOB 15,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CREATE a VSAM - LDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE CLUSTER ( -
  NAME(RACFID.IBMMF.LDS) -
  LINEAR -
  CISZ(4096) -
  TRACKS(20 20) -
  VOLUME(IBMSYS)
/*

16. JCL to LISTCAT a VSAM - Início

//RACFID16 JOB 16,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO LISTCAT A VSAM
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  LISTCAT ENTRY(RACFID.IBMMF.ESDS) -
  ALL
/*

17. JCL REPRO – Copy from PS to ESDS - Início

//RACFID17 JOB 17,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO – COPY FROM PS TO ESDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*
//PSFILE  DD DSN=RACFID.IBMMF.PS,
//            DISP=SHR
//ESDSFILE DD DSN=RACFID.IBMMF.ESDS,
//            DISP=SHR
//SYSIN    DD *
  REPRO INFILE(PSFILE) -
        OUTFILE(ESDSFILE)
/*

18. JCL REPRO - Copy from PS TO KSDS - Início

//RACFID18 JOB 18,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO - COPY FROM PS TO KSDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//*
//PSFILE  DD DSN=RACFID.IBMMF.PS,
//            DISP=SHR
//KSDSFILE DD DSN=RACFID.IBMMF.KSDS,
//            DISP=SHR
//SYSIN DD *
  REPRO INFILE(PSFILE) -
        OUTFILE(KSDSFILE)
/*

19. JCL REPRO - Copy from KSDS TO PS - Início

//RACFID19 JOB 19,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO - COPY FROM KSDS TO PS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*
//KSFILE  DD DSN=RACFID.IBMMF.KSDS,
//            DISP=SHR
//PSFILE  DD DSN=RACFID.IBMMF.PS,
//            DISP=SHR
//*
//SYSIN DD *
  REPRO INFILE(KSFILE) -
        OUTFILE(PSFILE)
/*

20. JCL REPRO - copy from PS to RRDS - Início

//RACFID20 JOB 20,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO - COPY FROM PS TO RRDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*
//PSFILE  DD DSN=RACFID.IBMMF.PS,
//            DISP=SHR
//RRDSFILE DD DSN=RACFID.IBMMF.RRDS,
//            DISP=SHR
//*
//SYSIN DD *
  REPRO INFILE(PSFILE) -
        OUTFILE(RRDSFILE)
/*

21. JCL REPRO – copy from ESDS to ESDS - Início

//RACFID21 JOB 21,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO - COPY FROM ESDS TO ESDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*
//ESDS1    DD DSN=RACFID.IBMMF.ESDS1,
//            DISP=SHR
//ESDS2    DD DSN=RACFID.IBMMF.ESDS2,
//            DISP=SHR
//*
//SYSIN DD *
  REPRO INFILE(ESDS1) -
        OUTFILE(ESDS2)
/*

22. JCL REPRO – copy from RRDS to RRDS - Início

//RACFID22 JOB 22,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL REPRO - COPY FROM RRDS TO RRDS
//********************************************************************************
//STEP001  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//*
//RRDS1    DD DSN=RECFID.IBMMF.RRDS1,
//            DISP=SHR
//RRDS2    DD DSN=RECFID.IBMMF.RRDS2,
//            DISP=SHR
//*
//SYSIN DD *
  REPRO INFILE(RRDS1) -
        OUTFILE(RRDS2)
/*

23. JCL to copy all member from one PDS to another PDS - Início

//RACFID23 JOB 23,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY ALL MEMBER FROM ONE PDS TO ANOTHER PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      OUTDD=DD2
/*

24. JCL to copy all member from one PDS to another PDS using SYSUT - Início

//RACFID24 JOB 24,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY ALL MEMBER FROM ONE PDS TO ANOTHER PDS USING SYSUT
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//SYSUT1  DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- INPUT DATASET
//SYSUT2  DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY

25. JCL to copy specific member from one PDS to another PDS - Início

//RACFID25 JOB 25,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY SPECIFIC MEMBER FROM ONE PDS TO ANOTHER PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      OUTDD=DD2
    SELECT MEMBER=(MEMBER8,MEMBER3,MEMBER4)
/*

26. JCL to copy two PDS member to one PDS - Início

//RACFID26 JOB 26,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY TWO PDS MEMBER TO ONE PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- INPUT DATASET
//DD3      DD DSN=RACFID.IBMMF.PDS3,DISP=SHR <--- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      INDD=DD2
      OUTDD=DD3
/*

27. JCL to copy specific member from two PDS to one PDS - Início

//RACFID27 JOB 27,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY SPECIFIC MEMBER FROM TWO PDS TO ONE PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- INPUT DATASET
//DD3      DD DSN=RACFID.IBMMF.PDS3,DISP=SHR <--- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN DD *
  COPY INDD=DD1
      INDD=DD2
      OUTDD=DD3
      SELECT MEMBER=(MEMBER1,MEMBER5,MEMBER9)
/*

28. JCL to rename member while copying PDS to PDS - Início

//RACFID28 JOB 28,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO RENAME MEMBER WHILE COPYING PDS TO PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <-- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <-- INPUT DATASET
//DD3      DD DSN=RACFID.IBMMF.PDS3,DISP=SHR <-- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN DD *
  COPY INDD=DD1
      INDD=DD2
      OUTDD=DD3
  SELECT MEMBER=((MEMBER1,NEW1),MEMBER2)
/*

29. JCL to replace member while copying PDS to PDS - Início

//RACFID29 JOB 29,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO REPLACE MEMBER WHILE COPYING PDS TO PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <-- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <-- INPUT DATASET
//DD3      DD DSN=RACFID.IBMMF.PDS3,DISP=SHR <-- OUTPUT DATASET
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      INDD=DD2
      OUTDD=DD3
    SELECT MEMBER=((MEMBER2,,R))
/*

30. JCL to exclude/omit members while copying PDS to PDS - Início

//RACFID30 JOB 30,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO EXCLUDE/OMIT MEMBERS WHILE COPYING PDS TO PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <-- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <-- OUTPUT DATASET
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      OUTDD=DD2
  EXCLUDE MEMBER=(MEMBER6,MEMBER3)
/*

31. JCL to rename and replace while copying PDS to PDS - Início

//RACFID31 JOB 31,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO RENAME AND REPLACE WHILE COPYING PDS TO PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <-- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <-- OUTPUT DATASET
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      OUTDD=DD2
  SELECT MEMBER=((MEMBER1,MEMBER2,R))
/*

32. JCL to compare PS datasets - Início

//RACFID32 JOB 32,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COMPARE PS DATASETS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOMPR
//SYSUT1  DD DSN=RACFID.IBMMF.PS1,DISP=SHR <--- DATASETS TO COMPARE
//SYSUT2  DD DSN=RACFID.IBMMF.PS2,DISP=SHR <--- DATASETS TO COMPARE
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COMPARE TYPORG=PS
/*

33. JCL to compare PDS datasets - Início

//RACFID33 JOB 33,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COMPARE PDS DATASETS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOMPR
//SYSUT1  DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <--- DATASETS TO COMPARE
//SYSUT2  DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <--- DATASETS TO COMPARE
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COMPARE TYPORG=PO
/*

34. JCL to Copy whole job into another dataset - Início

//RACFID34 JOB 34,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY WHOLE JOB INTO ANOTHER DATASET
//********************************************************************************
//STEP001  EXEC PGM=IEBEDIT
//SYSUT1  DD DSN=RACFID.IBMMF.PS1,DISP=SHR
//SYSUT2  DD DSN=RACFID.IBMMF.PS2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  EDIT START=COPY1
/*

35. JCL to Copy multiple job into another dataset - Início

//RACFID35 JOB 35,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY MULTIPLE JOB INTO ANOTHER DATASET
//********************************************************************************
//STEP001  EXEC PGM=IEBEDIT
//SYSUT1  DD DSN=RACFID.IBMMF.PS1,DISP=SHR
//SYSUT2  DD DSN=RACFID.IBMMF.PS2,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  EDIT START=COPY1
  EDIT START=COPY2
/*

36. JCL to Copy steps using INCLUDE and EXCLUDE command - Início

//RACFID36 JOB 36,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY STEPS USING INCLUDE and EXCLUDE command
//********************************************************************************
//STEP001  EXEC PGM=IEBEDIT
//SYSUT1  DD DSN=RACFID.IBMMF.PS1,DISP=SHR
//SYSUT2  DD DSN=RACFID.IBMMF.PS2,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  EDIT START=COPY1,TYPE=EXCLUDE,STEPNAME=STEPB
  EDIT START=COPY2,TYPE=INCLUDE,STEPNAME=STEPA
/*

37. JCL to Copy steps using POSITION member - Início

//RACFID37 JOB 37,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY STEPS USINF POSITION MEMBER
//********************************************************************************
//STEP001  EXEC PGM=IEBEDIT
//SYSUT1  DD DSN=RACFID.IBMMF.PS1,DISP=SHR
//SYSUT2  DD DSN=RACFID.IBMMF.PS2,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  EDIT START=COPY1,TYPE=POSITION,STEPNAME=STEPC
/*

38. JCL to Merge Datasets - Início

//RACFID38 JOB 38,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO MERGE DATASETS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS1,DISP=SHR <-- INPUT DATASET
//DD2      DD DSN=RACFID.IBMMF.PDS2,DISP=SHR <-- INPUT DATASET
//DD3      DD DSN=RACFID.IBMMF.PDS3,DISP=SHR <-- OUTPUT DATASET
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY OUTDD=DD3
  INDD=DD1
  INDD=DD2
/*

39. JCL to Compress a PDS - Início

//RACFID39 JOB 39,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COMPRESS A PDS
//********************************************************************************
//STEP001  EXEC PGM=IEBCOPY
//DD1      DD DSN=RACFID.IBMMF.PDS,DISP=SHR <-- DATASET TO COMPRESS
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  COPY INDD=DD1
      OUTDD=DD1
/*

40. JCL to List a PDS - Início

//RACFID40 JOB 40,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO LIST A PDS
//********************************************************************************
//STEP001  EXEC PGM=IEHLIST
//DD1      DD UNIT=DISK,VOLUME=SER=IBMMFVOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  LISTPDS DSNAME=RACFID.IBMMF.PDS,
          VOLUME=DISK=IBMMFVOL
/*

41. JCL to List a VTOC - Início

//RACFID41 JOB 41,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO LIST A VTOC
//********************************************************************************
//STEP001  EXEC PGM=IEHLIST
//DD1      DD UNIT=DISK,VOLUME=SER=IBMMFVOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  LISTVTOC FORMAT,
          VOLUME=DISK=IBMMFVOL
/*

42. JCL to SCRATCH a dataset - Início

//RACFID42 JOB 42,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SCRATCH A DATASET
//********************************************************************************
//STEP001  EXEC PGM=IEHPROGM
//DD1      DD UNIT=DISK,VOLUME=SER=IBMMFVOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SCRATCH DSNAME=RACFID.IBMMF.PS,VOL=DISK=IBMMFVOL
/*

43. JCL to UNCATALOG a dataset - Início

//RACFID43 JOB 43,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO UNCATALOG a dataset
//********************************************************************************
//STEP001  EXEC PGM=IEHPROGM
//DD1      DD UNIT=DISK,VOLUME=SER=IBMMFVOL,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  UNCATLG DSNAME=RACFID.IBMMF.PS
/*

44. JCL to sort a single field - Início

//RACFID44 JOB 44,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT A SINGLE FIELD
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A)
/*

45. JCL to sort multiple fields - Início

//RACFID45 JOB 45,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT A MULTIPLE FIELD
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A,30,5,CH,D)
/*

46. JCL to SORT multiple fields using FORMAT keyword - Início

//RACFID46 JOB 46,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT MULTIPLE FIELDS USING FORMAT KEYWORD
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FORMAT=CH,FIELDS=(1,10,D,30,5,D)
/*

47. JCL to sort record in ascending order - Início

//RACFID47 JOB 47,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT RECORD IN ASSCENDING ORDER
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A)
/*

48. JCL to sort record in descending order - Início

//RACFID48 JOB 48,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT RECORD IN DESCENDING ORDER
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(40,5,CH,D)
/*

49. JCL to copy a dataset using SORT - Início

//RACFID49 JOB 49,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY A DATASET USING SORT
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
/*

50. JCL to sort the record with INCLUDE condition - Início

//RACFID40 JOB 40,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT THE RECORD WITH INCLUDE CONDITION
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A)
  INCLUDE COND=(20,5,CH,EQ,C'IBMMF')
/*

51. JCL to sort the record with INCLUDE many condition - Início

//RACFID51 JOB 51,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT THE RECORD WITH INCLUDE MANY CONDITION
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A)
  INCLUDE COND=(25,4,CH,EQ,C'2020',OR,50,1,CH,NE,C'F')
/*

52. JCL to sort the record with omit condition - Início

//RACFID52 JOB 52,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT THE RECORD WITH OMIT CONDITION
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,10,CH,A)
  INCLUDE COND=(1,2,CH,EQ,C'NY',OR,1,2,CH,EQ,C'NJ')
/*

53. JCL to sort the record with OUTREC field - Início

//RACFID53 JOB 53,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT THE RECORD WITH OUTREC FIELDS
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(10,4,BI,D)
  OUTREC FIELDS=(1,20,30,50)
/*

54. JCL to copy a dataset using SORT OUTREC with FINDREP - Início

//RACFID54 JOB 54,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY A DATASET USING SORT OUTREC WITH FINDREP
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  OUTREC FINDREP=(IN=C'MAINFRAME TUTORIAL',OUT=C'IEFBR14')
/*

55. JCL to sort the record and write OUTREC at specific columns - Início

//RACFID55 JOB 55,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SORT THE RECORD AND WRITE OUTREC AT SPECIFIC COLUMNS
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,
//            DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//            DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  SORT FIELDS=(1,4,BI,A)
  OUTREC BUILD=(20:2,4,30:10,70)
/*

56. JCL to SPLIT file record based on condition - Início

//RACFID56 JOB 56,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SPLIT FILE RECORD BASED ON CONDITION
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,DISP=SHR
//SORTOF01 DD DSN=RACFID.IBMMF.NY,DISP=SHR
//SORTOF02 DD DSN=RACFID.IBMMF.PL,DISP=SHR
//SORTOF03 DD DSN=RACFID.IBMMF.NJ.DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  OUTFIL FILES=01,INCLUDE=(23,2,CH,EQ,C'NY')
  OUTFIL FILES=02,INCLUDE=(23,2,CH,EQ,C'PL')
  OUTFIL FILES=03,INCLUDE=(23,2,CH,EQ,C'NJ')
/*

57. JCL to SPLIT a dataset into equal parts - Início

//RACFID57 JOB 57,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO SPLIT A DATASET INTO EQUAL PARTS
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,DISP=SHR
//SORTOF01 DD DSN=RACFID.IBMMF.OUTPUT1,DISP=SHR
//SORTOF02 DD DSN=RACFID.IBMMF.OUTPUT2,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  OUTFIL FILES=(01,02),SPLIT
/*

58. JCL to SORT for Multiple copies using OUTFIL - Início

//RACFID58 JOB 58,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL SORT FOR MULTIPLE COPIES USING OUTFIL
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,DISP=SHR
//SORTOF01 DD DSN=RACFID.IBMMF.OUT1,DISP=SHR
//SORTOF02 DD DSN=RACFID.IBMMF.OUT2,DISP=SHR
//SORTOF03 DD DSN=RACFID.IBMMF.OUT3.DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  OPTION COPY
  OUTFIL FILES=(01,02,03)
/*

59. JCL to remove duplicate record from dataset - Início

//RACFID59 JOB 59,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO REMOVE DUPLICATE RECORD FROM DATASET
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=RACFID.IBMMF.INPUT,DISP=SHR
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,DISP=SHR
//SYSIN    DD *
  SORT FIELDS=(1,15,ZD,A)
  SUM FIELDS=NONE
/*

60. JCL to COPY only first 100 records in dataset - Início

//RACFID60 JOB 60,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO Copy ONLY FIRST 100 RECORDS IN DATASET
//********************************************************************************
//STEP001 EXEC PGM=SORT
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=RECFID.IBMMF.INPUT,DISP=SHR
//SORTOUT DD DSN=RACFID.IBMMF.OUTPUT,DISP=SHR
//SYSIN  DD *
  OPTION COPY,STOPAFT=50
/*

61. JCL to Overwrite input record content - Início

//RACFID61 JOB 61,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO OVERWRITE INPUT RECORD CONTENT
//********************************************************************************
//STEP001 EXEC PGM=SORT
//SYSOUT  DD SYSOUT=*
//SORTIN  DD DSN=RECFID.IBMMF.INPUT,DISP=SHR
//SORTOUT DD DSN=RACFID.IBMMF.OUTPUT,DISP=SHR
//SYSIN  DD *
  OPTION COPY
  INREC OVERLAY=(47:1,6)
/*

62. JCL SORT IF condition - Início

//RACFID61 JOB 61,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL SORT IF CONDITION
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SORTIN  DD *
123456789012345 ---> Column
HEADRselect
DETAL
TRIALselect
/*
//SORTOUT  DD DSN=RACFID.IBMMF.OUTPUT,
//        DISP=(NEW,CATLG,DELETE),
//        DCB=*.SYSUT1,SPACE=(CYL,(50,1),RLSE)
//SYSPRINT DD SYSOUT=*
//SYSOUT  DD SYSOUT=*
//SYSIN    DD *
  INREC  IFTHEN=(WHEN=(6,1,CH,NE,C' '),BUILD=(1:1,15),
        IFTHEN=(WHEN=(6,1,CH,EQ,C' '),BUILD=(1:1,5,7:C'RECORD')
  OPTION COPY
/*

63. JCL to convert a FB dataset to VB - Início

//RACFID63 JOB 63,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CONVERT A FB DATASET TO VB
//********************************************************************************
//STEP001  EXEC  PGM=SORT
//SYSOUT  DD  SYSOUT=*
//SORTIN  DD  DSN=RACFID.IBMMF.FBIN,DISP=SHR
//VBOUT    DD  DSN=RACFID.IBMMF.VBOUT,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN    DD  *
  OPTION COPY
  OUTFIL FNAMES=VBOUT,FTOV
/*

64. JCL to convert a VB dataset to FB - Início

//RACFID64 JOB 64,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO CONVERT A VB DATASET TO FB
//********************************************************************************
//STEP001  EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=RACFID.IBMMF.VBIN,DISP=SHR   <-- LRECL=104
//FBOUT    DD DSN=RACFID.IBMMF.FBOUT,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=3390,SPACE=(CYL,(5,5))
//SYSIN    DD *
  OPTION COPY
  OUTFIL FNAMES=FBOUT,VTOF,OUTREC=(5,100)
/*

65. JCL to copy dataset using ICETOOL - Início

//RACFID65 JOB 65,'IEFBR14',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//********************************************************************************
//* JCL TO COPY DATASET USING ICETOOL
//********************************************************************************
//STEP001  EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//*
//INPUT   DD DSN=RACFID.IBMMF.INPUT,DISP=SHR
//OUTPUT  DD DSN=RACFID.IBMMF.OUTPUT,DISP=(NEW,CATLG),
//          DCB=(*.INPUT1)
//*
//TOOLIN  DD *
  COPY FROM(INPUT) TO(OUTPUT)
/*

Categories: Mainframe