|
IEFBR14 |
Create a PS
(FB/VB) Delete a PS
(FB/VB) Create a
PDS Delete an
entire PDS Create a PS
in a GDG base Delete a
GDG |
|
|
IEBGENER |
Concatenate/Merge
two PS files Create a
PDS member Copy a PS
to another PS Copy a PDS
to PS Convert a
PDS member to PS To send an
email Copy PS to
GDG |
|
|
IEBCOPY (IEB
Input-Output COPY) |
Copy all
members of PDS to another PDS Copy PDS
member to another PDS Exclude pds
members while copying to another pds Compress a
pds Merge
multiple pds to single pds Rename PDS
members during copy Altering
load modules Copying
members have alias Copying and
reblocking load modules Converting
PDS to PDSE |
COPY : OUTDD,INDD,R,LIST SELECT: MEMBER,R,newname1,… EXCLUDE: MEMBER ALTERMOD: OUTDD,LIST COPYPRG: OUTDD,INDD,R,LIST,GENS COPYMOD: OUTDD,INDD,R,MAXBLK, MINBLK,LIST |
|
IDCAMS |
Delete a PS Delete a
PDS member Alter a GDG
base Delete a
GDG base |
ALTER,BACKUP,CANCEL,BLDINDEX, DELETE,EXPORT,IMPORT,LISTCAT, PRINT,RECMAP,REPRO,RESTORE,SNAP, VERIFY |
|
ICETOOL |
COPY,COUNT,DATASORT,DEFAULTS, DISPLAY,MERGE,MODE,OCCUR,RANGE, RESIZE,SELECT,SORT,SPLICE,STATS, SUBSET,UNIQUE,VERIFY |
|
|
IGYCRCTL |
to compile the COBOL module. |
//stepname
EXEC PGM=IGYCRCTL,PARM=(options) |
|
IEWBLINK |
to link edit the module. |
//LKED EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M |
|
JCL TO CREATE AN FB PS
FILE |
JCL TO CREATE A VB PS FILE |
|
//JOBIBMKS JOB (123),’FBFILE’,CLASS=A, MSGCLASS=A,MSGLEVEL=(1,1), NOTIFY=&SYSUID //STEP01 EXEC PGM=IEFBR14 //SYSPRINT DD
SYSOUT=* //SYSOUT DD
SYSOUT=* //SYSDUMP DD
SYSOUT=* //DD1 DD
DSN=WORK.FIRST.FILE1, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA |
//JOBIBMKS JOB (123),’FBFILE’,CLASS=A, MSGCLASS=A,MSGLEVEL=(1,1), NOTIFY=&SYSUID //STEP01 EXEC PGM=IEFBR14 //SYSPRINT DD
SYSOUT=* //SYSOUT DD
SYSOUT=* //SYSDUMP DD
SYSOUT=* //DD1 DD
DSN=WORK.FIRST.FILE1, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=VB, LRECL=80,BLKSIZE=0), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA |
|
JCL TO DELETE AN FB/VB PS
FILE |
CONCATENATE/MERGE TWO PS
FILES |
|
//STEP01 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.FILE1, DISP=(OLD,DELETE,DELETE) |
//STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSUT1 DD DSN=WORK.FIRST.FILE1,DISP=SHR DD
DSN=WORK.FIRST.FILE2,DISP=SHR //SYSUT2 DD DSN=WORK.FIRST.FILE3, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA //SYSIN DD DUMMY |
|
TO DELETE A PS VIA IDCAMS |
|
|
//STEP01 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE WORK.FIRST.FILE1 /* |
|
|
JCL TO CREATE A PDS FILE |
JCL TO CREATE A PDS MEMBER |
|
//STEP01 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.PDS1, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PO,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(10,10,10),RLSE), UNIT=SYSDA |
//STEP01 EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSDUMP DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSUT1 DD DUMMY,RECFM=FB,LRECL=80 //DD1 DD DSN=WORK.FIRST.PDS1(MEM3), DISP=(SHR) |
|
JCL TO DELETE AN ENTIRE
PDS FILE |
TO DELETE A PDS MEMBER VIA
IDCAMS |
|
//STEP01 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.PDS1, DISP=(OLD,DELETE,DELETE) |
//STEP01 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE WORK.FIRST.PDS1(MEM3) /* |
|
TO COPY COMPLETE PDS TO
ANOTHER PDS |
TO COPY A PDS MEMBER TO
ANOTHER PDS |
|
//STEP01 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //DD2 DD DSN=WORK.FIRST.PDS2, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PO,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(50,50,50),RLSE), UNIT=SYSDA //SYSIN DD * |
//STEP01 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //DD2 DD DSN=WORK.FIRST.PDS2, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PO,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(50,50,50),RLSE), UNIT=SYSDA //SYSIN DD * COPY OUTDD=DD2,INDD=DD1 SELECT MEMBER(MEM3,MEM4) /* // |
|
TO EXCLUDE PDS MEMBERS
WHILE COPYING TO ANOTHER PDS |
TO COMPRESS A PDS |
|
//STEP01 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //DD1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //DD2 DD DSN=WORK.FIRST.PDS2, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PO,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(50,50,50),RLSE), UNIT=SYSDA //SYSIN DD * COPY OUTDD=DD2,INDD=DD1 EXCLUDE MEMBER(MEM3,MEM4) /* // |
//STEP01 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //OUT1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //OUT2 DD DSN=WORK.FIRST.PDS1,DISP=SHR //SYSIN DD * COPY INDD=OUT1,OUTDD=OUT2 /* // OR //OUT1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //SYSIN DD * COPY INDD=OUT1,OUTDD=OUT21 /* |
|
TO MERGE MULTIPLE PDS TO SINGLE
PDS |
|
//STEP01 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //IN1 DD DSN=WORK.FIRST.PDS1,DISP=SHR //IN2 DD DSN=WORK.FIRST.PDS2,DISP=SHR //OUT1 DD DSN=WORK.FIRST.PDS3, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PO,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(50,50,50),RLSE), UNIT=SYSDA //SYSIN DD * COPY INDD=(IN1,IN2),OUTDD=OUT1 /* // |
|
JCL TO COPY PS TO PS |
JCL TO COPY A PDS MEMBER
TO PS (unloading) |
|
//STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSUT1 DD DSN=WORK.FIRST.FILE1, DISP=SHR //SYSUT2 DD DSN=WORK.FIRST.FILE2, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA |
//STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSUT1 DD DSN=WORK.FIRST.PDS1(MEM3), DISP=SHR //SYSUT2 DD DSN=WORK.FIRST.FILE2, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=FB, LRECL=80,BLKSIZE=0), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA |
|
JCL TO CONVERT A PDS
member TO PS |
JCL TO SEND AN EMAIL |
|
//STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=WORK.FIRST.PDS1(MEM1), DISP=SHR //SYSUT2 DD DSN=WORK.FIRST.FILE1, DISP=(NEW,CATLG,DELETE), DCB=(DSORG=PS,RECFM=FB, LRECL=80,BLKSIZE=800), SPACE=(TRK,(1,1),RLSE), UNIT=SYSDA |
//STEP01 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSIN DD DUMMY //SYSUT12 DD SYSOUT=(A,SMTP) //SYSUT2 DD * HELLO VAIGA MAIL FROM :TSTMAIL@TKH.COM RCPT TO :TSTMAIL@TKH.COM DATA FROM: TSTMAIL@TKH.COM TO :
TSTMAIL@TKH.COM SUBJECT : TESTMAIL FROM MAINFRAME QUIT /* |
|
ALTERING LOAD MODULES |
|
|
//STEP10 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SYSDUMP DD SYSOUT=* //SYSUT1 DD DSN=MATEPK.IEBCOPY.INPLOAD, DISP=(OLD,KEEP) //SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(5,1)) //SYSIN DD * ALTERMOD
OUTDD=SYSUT1 SELECT MEMBER=(FIRSTPRG) /* |
|
No comments:
Post a Comment