3800 Model 1
In this example, a copy of an existing copy modification module,
RTO1, is used as the basis for a new copy modification module. The
new module is added to the SYS1.IMAGELIB data set as a new member.
The existing module, RTO1, remains unchanged and available for use.
72
//COPMOD2 JOB ...
//STEP1 EXEC PGM=IEBIMAGE
//SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
INCLUDE RTO1,DELSEG=1
OPTION OVERRUN=8,DEVICE=3800M3
COPYMOD COPIES=(2,3),LINES=(52,6),POS=100, X
TEXT=(X,'40404040404040405C5C')
NAME AP
/*
The control statements are discussed below:
- The SYSUT1 DD statement includes DISP=OLD to ensure that no other
job can modify the data set while this job is executing.
- The INCLUDE statement specifies that a copy of the copy modification
module named RTO1 is used as a basis for the new module, and that
the first modification segment of RTO1 is to be deleted from the copy.
- OVERRUN=8 in the OPTION statement specifies that the IEBIMAGE
program is to print a warning message if the copy modification could
cause a line overrun condition when printing at 6 and 8 lines per
inch. The program is also to suppress any warning messages that apply
to printing at 10 and 12 lines per inch. DEVICE=3800M3 in the OPTION
statement specifies 3800 Model 3 compatibility mode processing.
- The COPYMOD statement specifies text that applies to each page
of the second, third, and fourth copies of the output data set:
LINES=(52,6)
and POS=100 specify that the text is to be on the 52nd line and repeated
for the 53rd through 57th lines of each page, starting at the 100th
print position from the left.
The TEXT statement specifies
the text in hexadecimal form: eight blanks followed by two asterisks
(in this example, the assumption is made that X'40' prints
as a blank and that X'5C' prints as an asterisk; in actual
practice, the character arrangement table used with the copy modification
module might translate X'40' and X'5C' to other printable
characters).
- The name of the new copy modification module is AP; it is stored
as a member of the SYS1.IMAGELIB data set.