Control Data 3170 Installation Handbook page 293

Sample 4 deletes SEPOINT, SETCLV50, inserts SEPOINT, ACCOUNT 1 before SEPOINT,
START2, skips two cards after CRT and deletes ALGOL routine.
$JOB, 4JL52, DLW, 10
$EQUIP, 01=MT, 02=MT
$PLIBEDIT
$SEPOINT, ACCOUNT 1
DELETE/
INSERT /
CRT LOCATE/
ALGO
77
88
$EOJ
SKIP/
DELETE/
ENDEDIT /
Sample 4
SEPOINT, SETCLV50
SEPOINT, START2
2
ALG5
Sample 5 replaces the old PRELIB control card, deletes binary decks CIC and CIO,
inserts decks CIC and CIO, inserts SEPOINT, MYACCNO before SEPOINT, PLMEMV50,
and adds routine COPYT A PE after the COSY routine.
$JOB, , ,
$EQUIP, 01=MT, 02=MT
$PLIBEDIT
$PRELIB", P" 42
CIC
Binary deck of CIC
Binary deck of CIO
~SEPOINT,
MY ACCNO
COSY
REPLACE/
DELETE/
INSERT/
LOCATE/
Binary deck of COPYTA PE
ENDEDIT /
77
88
$EOJ
III-I0-4
Sample 5
PRELIB, , , , , xx
CIO
SEPOINT, PLMEMV50
60410800 A