z/OS Info

IEBCOPY

//STEP1   EXEC PGM=IEBCOPY
//SYSPRINT  DD SYSOUT=*
//SYSUT3    DD UNIT=WORK,SPACE=(CYL,(50,50))
//SYSUT4    DD UNIT=WORK,SPACE=(CYL,(50,50))
//SYSUT1    DD DSN=<YOUR.PO.DATASET>,DISP=SHR
//SYSUT2    DD DSN=<YOUR.PO.DATASET>.SAVE,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=WORK,
//             DCB=(RECFM=FB,LRECL=80),DATACLAS=OPTBLOCK,
//             SPACE=(CYL,(15,10,60))
//SYSIN     DD *

COMPRESS A PO DATASET

//STEP1    EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//OUT1        DD  DISP=SHR,DSN=<YOUR.PO.DSN>
//SYSUT3   DD  UNIT=WORK,SPACE=(CYL,(500,500))
//SYSUT4   DD  UNIT=WORK,SPACE=(CYL,(500,500))
//SYSIN  DD  *
 COPY INDD=((OUT1,R)),OUTDD=OUT1
//*

IEBCOPY

//COPY     EXEC PGM=IEBCOPY
//SYSPRINT DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//IN       DD  DISP=SHR,DSN=<YOUR.SOURCE.DSN>
//OUT      DD  DISP=SHR,DSN=<YOUR.TARGET.DSN>
//SYSUT3   DD  UNIT=WORK,SPACE=(CYL,(50,1))
//SYSUT4   DD  UNIT=WORK,SPACE=(CYL,(50,1))
//SYSIN  DD  *
 COPY INDD=((IN,R)),OUTDD=OUT
      SELECT MEMBER=(($$$COIBM,,R))
      SELECT MEMBER=((CPPMERG,,R))
      SELECT MEMBER=((IEFACTRT,,R))
      SELECT MEMBER=((IVPCHK,,R))
//*

IEBGENER

Print a Sequential Dataset

//STEP2   EXEC PGM=IEBGENER ,COND=(4,LT,STEP1)
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=<YOUR.PS.DATASET>
//SYSUT2    DD SYSOUT=*

//*  KOPIERT DATASETS
//STEP1   EXEC PGM=IEBGENER
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=<YOUR.PS.IDATASET>
//SYSUT2    DD DISP=SHR,DSN=<YOUR.PS.ODATASET>
/*

//*  KOPIERT DATASETS
//STEP1   EXEC PGM=IEBGENER
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD DUMMY
//SYSUT1    DD DISP=SHR,DSN=<YOUR.PS.IDATASET.NR1>
//                   DD DISP=SHR,DSN=<YOUR.PS.IDATASET.NR2>
//SYSUT2    DD DISP=SHR,DSN=<YOUR.PS.ODATASET>
/*

SEND A COMMAND TO CONSOLE (JES2)

//STEP001  EXEC PGM=IEBGENER 
//* Send a command to console (D ASM)
//SYSPRINT DD  SYSOUT=* 
//SYSIN    DD  DUMMY 
//SYSUT2   DD  SYSOUT=(A,INTRDR),DCB=BLKSIZE=80
//SYSUT1   DD  DATA,DLM=$$
/*$VS,'D ASM '
$$
/*

IEBUPDTE

//************************************************************
//* THIS STEP WILL RUN IEBUPDTE TO CREATE A BPXPRMDB MEMBER
//* CPAC.PARMLIB WITH THE NEW FILESYSTEM STRUCTURE.
//* UPDATE YOUR IEASYS00 MEMBER WITH THIS NEW MEMBER.
//************************************************************
//BPXS01 EXEC PGM=IEBUPDTE,COND=(4000,LT)
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD DSN=CPAC.PARMLIB,
//            DISP=SHR
//SYSUT2   DD DSN=CPAC.PARMLIB,
//            DISP=SHR
//SYSIN    DD   DATA,DLM='%%'
./    ADD  NAME=BPXPRMDB,LIST=ALL
/*******************************************************************/
/*  THIS MEMBER, AS SPECIFIED IN IEASYS00, WILL CAUSE OPENEDITION  */
/*  TO COME UP WITH ALL FILESYSTEMS MOUNTED.                       */
/*******************************************************************/
  MOUNT FILESYSTEM('DB2S.OMVS.DB2610.HFS.DB2EXT')
        MOUNTPOINT('/USR/LPP/DB2EXT_06_01_00')
        TYPE(HFS)  MODE(RDWR)
                                 /*  DB2 IAV EXTENDERES            */
  MOUNT FILESYSTEM('DB2S.OMVS.DB2610.HFS.DB2TX')
        MOUNTPOINT('/USR/LPP/DB2TX')
        TYPE(HFS)  MODE(RDWR)
                                 /*  DB2 TEXT EXTENDER             */
  MOUNT FILESYSTEM('DB2S.OMVS.DB2610.DSNHFS')
        MOUNTPOINT('/USR/LPP/DB2')
        TYPE(HFS)  MODE(RDWR)
                                 /*  DB2 JAVA EDITION              */
%%
//*


IEFBR14 ?)

//BR14 EXEC PGM=IEFBR14



IEHLIST


//STEP1    EXEC PGM=IEHLIST,REGION=512K
//SYSPRINT  DD SYSOUT=*
//VOLUME   DD  DISP=SHR,UNIT=3390,VOL=SER=<YOURVOL>
//SYSIN    DD  *
     LISTVTOC     VOL=3390=<YOURVOL>,FORMAT
/*
//*   LISTVTOC     VOL=3390=<YOURVOL>,
//*                             FORMAT,INDEXDSN=SYS1.VTOCIX. <YOURVOL>


Copy a File from Spool to Disk

//STEP10  EXEC PGM=IEFBR14
//CCCCXX    DD DSN=<YOUR.DATASET>.OUTLIST,
 //             UNIT=SYSDA
//             DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(20,10,0),RLSE),
//             DCB=(DSORG=PS,RECFM=FB,LRECL=140,BLKSIZE=1400)
//STEP05  EXEC PGM=IKJEFT01,REGION=7M
//SYSIN     DD DUMMY
//SYSPRINT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD *
 PROF NOPREF
 OUT < JOBNAME> (J<JOBNR>) PRINT(<YOUR.DATASET>) BEGIN KEEP HOLD
/*

SUBMIT JOBS

//SUBJOBS  EXEC PGM=IKJEFT01
//* SUBMIT JOBS
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *
  EXECUTIL SEARCHDD(YES)
   SUB '<YOUR.PO.LIBRARY>(<MEMBER>)'
   SUB '<YOUR.PO.LIBRARY>(<MEMBER>)'
   SUB '<YOUR.PO.LIBRARY>(<MEMBER>)'
/*


//***********************************************
//* CREATE A NEW LOGREC DATASET AND INITIALIZE IT
//***********************************************
//STEP1 EXEC PGM=IFCDIP00,COND=(4000,LT)
//SERERDS DD UNIT=3390,
//           VOL=SER=Z14CAT,
//           SPACE=(CYL,3,,CONTIG),
//           DISP=(,CATLG),
//           DSN=SYS1.LOGREC.TEMPSTOR


//DEFGDG      EXEC  PGM=IDCAMS
//SYSPRINT    DD    SYSOUT=*
//SYSIN        DD    *
 DEFINE GDG (<YOUR.DSN>.PTYPGDG        )         +
        NOEMPTY SCRATCH LIMIT(<020>))
/*

IEBDG

//STEP1 EXEC PGM=IEBDG
//SYSPRINT DD SYSOUT=*
//INDD   DD *
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVXYZ
ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890ABCDEFGHIJKLMNOPQRSTUVXYZ
//OUTDD  DD DSN=MGDB05.TEST1,
//  DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(10,5),RLSE),UNIT=SYSALLDA,
//  DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//SYSIN  DD *
      DSD  OUTPUT=(OUTDD),INPUT=(INDD)
      FD   NAME=FIELD1,LENGTH=10,STARTLOC=10
      FD   NAME=FIELD2,LENGTH=10,STARTLOC=21
      FD   NAME=FIELD3,LENGTH=10,STARTLOC=38
      FD   NAME=FIELD4,LENGTH=10,PICTURE=10,'TEST DATA1'
      FD   NAME=FIELD5,LENGTH=10,PICTURE=10,'TEST DATA2'
      CREATE  QUANTITY=5,INPUT=INDD,
              NAME=(FIELD1,FIELD2,FIELD3,FIELD4,FIELD5)
      END
/*
//
  DSD OUTPUT=(OUTDS)
  FD NAME=FIELD1,LENGTH=30,FORMAT=AL,ACTION=RP
  FD NAME=FIELD2,LENGTH=10,PICTURE=10,'TEST DATA '
  FD NAME=FIELD3,LENGTH=10,FORMAT=RA
  CREATE QUANTITY=90000,NAME=(FIELD1,FIELD2,FIELD3)
  END
/*

IEHLIST LISTVTOC

//STEP1    EXEC PGM=IEHLIST,REGION=512K
//SYSPRINT  DD SYSOUT=*
//VOLUME   DD  DISP=SHR,UNIT=3390,VOL=SER=MVSWK1
//SYSIN    DD  *
     LISTVTOC     VOL=3390=MVSWK1,FORMAT
/*