IEBCOPY - LOADING/UNLOADING  
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.JCLS(LOAD1)                                                                Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 //PSLOAD JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEBCOPY
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSUT1 DD DSN=IBMMFS.MAC.PS,DISP=SHR
000005 //SYSUT2 DD DSN=IBMMFS.MAC.PSLOAD,DISP=(NEW,CATLG,DELETE),
000006 // UNIT=TAPE,VOLUME=SER=260141,SPACE=(TRK,(4,2,0)),
000007 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000008 //SYSIN DD *
000009   COPY INDD=SYSUT1,OUTDD=SYSUT2
000010 /*
000011 //
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                          IEBCOPY - COMPRESS  
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.JCLS(CMPRS)                                                               Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 //COMPRS JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEBCOPY
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSUT1 DD DSN=IBMMFS.MAC.PS,DISP=SHR
000005 //SYSIN DD *
000006   COPY INDD=SYSUT1,OUTDD=SYSUT1
000007 /*
000008 //
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

                               IEBCOPY - COPY SELECTED PDS MEMBERS 
 File           Edit              Confirm               Menu                  Utilities                Compilers              Test                Help
 

EDIT IBMMFS.MAC.JCLS(PDSCPY)                                                              Columns 00001 -  00072
****** ***************************** Top of Data **************************************
000001 //PDSCPY JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEBCOPY
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSUT1 DD DSN=IBMMFS.MAC.PDS,DISP=SHR
000005 //SYSUT2 DD DSN=IBMMFS.MAC.PDSCPY,DISP=SHR
000006 //SYSIN DD *
000007   COPY INDD=SYSUT1,OUTDD=SYSUT2
000008   SELECT MEMBER=(COBOL,COMP,RUN)   <= SELECT <-> EXCLUDE
000009 /*
000010 //
****** **************************** Bottom of Data ************************************

Command ===>  SUB                                                                                                     Scroll ===> PAGE


F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

 

® IBMMAINFRAMES.com Training Division                                                               © www.ibmmainframes.com