IBM System/370 - Printlog; VTOC Display

DOS/VS System Utilities (cant'd)
This job stream is used to initialize an ASCII tape with the card image option.
/I JOB INITIAL
/I ASSGN SYSOOO,X' 181'
1/ ASSGN SYSOO1,X'182'
II ASSGN SYSOO2,UA (no checkpoints)
/I EXEC INTTP
/I INTT CARD, A (column 80)
VOL 1000001 AB COMPANY NYC 1
/lEND
VOL1000002 AB COMPANY NYC
II END
1&
It is assumed that in each example SYSLOG is permanently assigned.
FAST COPY DISK VOLUME
1. Copy Disk to Disk
/I JOB COPY 3330 to 3330
/I ASSGN SYSOO4,X' 160'
II ASSGN SYSOO5,X' 161 ,
II EXEC FCOPY,REAL
II UDD IV=DOSR29
1&
2. Copy Disk to Tape
II JOB COPY 3340 TO TAPE
II ASSGN SYSOO4,X'160'
II ASSGN SYSOO5X280'
II ASSGN SYSOO5X281 ',ALT
II TLBL UOUT:BACKUP TAPE'
II EXEC FCOPY,REAL
II UDT IV=111111
1&
3. Copy Tape to Disk
(input disk)
(output disk)
(input disk)
(output tape)
(alternate tape)
II JOB RESTORE BACKUP TAPE TO DISK
/I ASSGN SYSOO4,X'280' . (input tape)
/I ASSGN SYS004,X' 281 ',ALT (alternate tape)
II ASSGN SYS005,X'160' (output disk)
II TLBL UIN:BACKUP TAPE'
/I EXEC FCOPY,REAL
I/UTD
1&
PRINTLOG
I
II JOB NAME
/I EXEC PRINTLOG
VTOC DISPLAY
/I JOB VTOC
II ASSGN SYSOO4,X' 191 ,
/I ASSGN SYSOO5,X'ooE'
/I PAUSE REPLY NO IF MSG 8V96D IS ISSUED
/I EXEC LVTOC
1&
It is not necessary to use a utility modifier card for the VTOC display program.
Page 6-5