|
C
|
Copy this line
|
|
Cn
|
Copy n lines starting with this line (where n is a number)
|
|
CC
|
Copy a block of lines starting with the first CC command and ending with the second CC command.
|
|
A
|
Place the copied lines after this line.
|
|
An
|
Repeat the copied lines n times after this line
|
|
B
|
Place the copied lines before this line
|
|
Bn
|
Repeat the copied lines n times before this line.
|
|
XX00 M0001.D00.TEST.JCL(TESTJCL1) -
03.10 MOVE/COPY is pending
Command ===>
Scroll ===> CSR
****** ***************************** Top of
Data ******************************
C
//MINPUT DD DSN=M0001.TESTFILE.MASTER2,DISP=(OLD,CATLG,CATLG),
000002 //
DCB=(LRECL=80,RECFM=FB,BLKSIZE=)
|
|
XX00 M0001.D00.TEST.JCL(TESTJCL1) -
03.10 Columns 00001 00072
Command ===> Scroll ===>
CSR
****** *****************************
Top of Data *****************************
000001 //MINPUT DD DSN=M0001.TESTFILE.MASTER2,DISP=(OLD,CATLG,CATLG),
000002 //
DCB=(LRECL=80,RECFM=FB,BLKSIZE=)
000003 //SYSIN DD *
000004 //TESTJCL1 JOB (EWDS),'TEST
JCL',NOTIFY=&SYSUID
c50005
//MINPUT DD DSN=M0001.TESTFILE.MASTER2,DISP=(OLD,CATLG,CATLG),
Note that the number should follow
the command.
|
|
XX00 M0001.D00.TEST.JCL(TESTJCL1) -
03.10 MOVE/COPY is pending
Command ===>
Scroll ===> CSR
****** *****************************
Top of Data ******************************
CC //MINPUT
DD DSN=M0001.TESTFILE.MASTER2,DISP=(OLD,CATLG,CATLG),
000002 //
DCB=(LRECL=80,RECFM=FB,BLKSIZE=)
000003 //SYSIN DD *
000004 //TESTJCL1 JOB (EWDS),'TEST
JCL',NOTIFY=&SYSUID
CC //MINPUT
DD DSN=M0001.TESTFILE.MASTER2,DISP=(OLD,CATLG,CATLG),
|
No comments:
Post a Comment