Operation: Copy three lines to the top of
the data set at line 0, using an increment of 50.
Known: - Data set contains lines 0 through 120.
- Line 0 contains data.
- Source lines are 80, 90, and 100.
- Target area starts at line 0.
Before: Enter: After:
0000 ZIP top 0050 HHHHHHHH
0010 A copy 80 100 * incr(50) 0100 IIIIIIIII
0020 BB CLP 0150 JJJJJJJJJJ
0030 CCC The attempt to copy into 0151 ZIP
0040 DDDD line 0 gets the target data 0152 A
0050 EEEEE to the top of the data set, 0153 BB
0060 FFFFFF but shifts the target line 0154 CCC
0070 GGGGGGG by the increment value. 0155 DDDD
0080 HHHHHHHH 0156 EEEEE
0090 IIIIIIIII 0157 FFFFFF
0100 JJJJJJJJJJ 0158 GGGGGGG
0110 KKKKKKKKKKK 0159 HHHHHHHH
0120 LLLLLLLLLLLL 0160 IIIIIIIII
0161 JJJJJJJJJJ
0162 KKKKKKKKKKK
0163 LLLLLLLLLLLL
Note: An entry of
copy 80 100 0 incr(50)
produces the results
shown at right. The target 0000 ZIP
data is inserted between 0050 HHHHHHHH
line 0 and the remainder 0100 IIIIIIIII
of the data set. CLP 0150 JJJJJJJJJJ
0151 A
0152 BB
0153 CCC
0154 DDDD
0155 EEEEE
0156 FFFFFF
0157 GGGGGGG
0158 HHHHHHHH
0159 IIIIIIIII
0160 JJJJJJJJJJ
0161 KKKKKKKKKKK
0162 LLLLLLLLLLLL