Die drei Plattendateien FILE.01, FILE.02 und FILE.03 sollen auf Band gesichert werden. Da die Kapazität eines Bandes nicht ausreichen würde, werden zwei Datenträger für die Ausgabe zur Verfügung gestellt.
Die beiden Datenträger werden als TAPE-SET vereinbart, um mehrfach erforderliches Montieren und Positionieren der Datenträger zu vermeiden.
/CREATE-TAPE-SET TAPE-SET-NAME=SET1,VOLUME=(FK0183,FK0238) &*————————— (1)
/CREATE-FILE FILE-NAME=FILE.01.TAPE,- &*—————————————————————————————— (2)
/ SUPPORT=*TAPE(VOLUME=*NO,DEVICE-TYPE=TAPE-C4)
/ADD-FILE-LINK LINK-NAME=PCOUT1,FILE-NAME=FILE.01.TAPE,-
/ ACCESS-METHOD=*SAM,-
/ SUPPORT=*TAPE(-
/ VOLUME-LIST=*TAPE-SET(TAPE-SET-NAME=SET1),-
/ FILE-SEQUENCE=1)
/CREATE-FILE FILE-NAME=FILE.02.TAPE,- &*—————————————————————————————— (3)
/ SUPPORT=*TAPE(VOLUME=*NO,DEVICE-TYPE=TAPE-C4)
/ADD-FILE-LINK LINK-NAME=PCOUT2,FILE-NAME=FILE.02.TAPE,-
/ ACCESS-METHOD=*SAM,-
/ SUPPORT=*TAPE(-
/ VOLUME-LIST=*TAPE-SET(TAPE-SET-NAME=SET1),-
/ FILE-SEQUENCE=*NEW)
/CREATE-FILE FILE-NAME=FILE.03.TAPE,-
/ SUPPORT=*TAPE(VOLUME=*NO,DEVICE-TYPE=TAPE-C4)
/ADD-FILE-LINK LINK-NAME=PCOUT3,FILE-NAME=FILE.03.TAPE,-
/ ACCESS-METHOD=*SAM,-
/ SUPPORT=*TAPE(-
/ VOLUME-LIST=*TAPE-SET(TAPE-SET-NAME=SET1),-
/ FILE-SEQUENCE=*NEW)
/START-PERCON &*—————————————————————————————————————————————————————— (4)
% PER0000 PERCON STARTED, VERSION V03.0A00
//ASSIGN-INPUT-FILE FILE=*DISK-FILE(NAME=FILE.01) &*—————————————————— (5)
//ASSIGN-OUTPUT-FILE FILE=*TAPE-FILE,LINK-NAME=PCOUT1 &*—————————————— (6)
//START-CONVERSION &*————————————————————————————————————————————————— (7)
% DMS0DE3 TAPE WITH VSN 'FK0183' FOR FILE ':2OS6:$WKST.FILE.01.TAPE'
IS MOUNTED ON DEVICE 'O1'
% DMS0DE7 SAM FILE CLOSED: FILE NAME=:2OS6:$WKST.FILE.01.TAPE,
LINK NAME=PCOUT1, BLOCK COUNT=0000000010
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCIN'
(FILE=:2OS6:$WKST.FILE.01): 10
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCOUT1'
(FILE=:2OS6:$WKST.FILE.01.TAPE): 10
//ASSIGN-INPUT-FILE FILE=*DISK-FILE(NAME=FILE.02) &*—————————————————— (8)
//ASSIGN-OUTPUT-FILE FILE=*TAPE-FILE,LINK-NAME=PCOUT2 &*—————————————— (9)
//START-CONVERSION &*—————————————————————————————————————————————————— (10)
% DMS0DE3 TAPE WITH VSN 'FK0183' FOR FILE ':2OS6:$WKST.FILE.02.TAPE'
IS MOUNTED ON DEVICE 'O1'
% DMS0DE3 TAPE WITH VSN 'FK0238' FOR FILE ':2OS6:$WKST.FILE.02.TAPE'
IS MOUNTED ON DEVICE 'O1' &*———————————————————————————————— (11)
% DMS0DE8 END OF TAPE FOR FILE ':2OS6:$WKST.FILE.02.TAPE' WITH LINK
NAME 'PCOUT2', BLOCK COUNT '000020' ON VOLUME WITH VSN 'TAPEKA
% DMS0DE8 END OF TAPE FOR FILE ':2OS6:$WKST.FILE.02.TAPE' WITH LINK
NAME 'PCOUT2', BLOCK COUNT '000040' ON VOLUME WITH VSN 'BD0150'
% DMS0DE7 SAM FILE CLOSED: FILE NAME=:2OS6:$WKST.FILE.02.TAPE, LINK
NAME=PCOUT2, BLOCK COUNT=0000000060
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCIN'
(FILE=:2OS6:$WKST.FILE.02): 60
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCOUT2'
(FILE=:2OS6:$WKST.FILE.02.TAPE): 60
/
//ASSIGN-INPUT-FILE FILE=*DISK-FILE(NAME=FILE.03) &*—————————————————— (12)
//ASSIGN-OUTPUT-FILE FILE=*TAPE-FILE,LINK-NAME=PCOUT3 &*—————————————— (13)
//END &*—————————————————————————————————————————————————————————————— (14)
% DMS0DE3 TAPE WITH VSN 'FK0183' FOR FILE ':2OS6:$WKST.FILE.03.TAPE'
IS MOUNTED ON DEVICE 'O1'
% DMS0DE7 SAM FILE CLOSED: FILE NAME=:2OS6:$WKST.FILE.03.TAPE,
LINK NAME=PCOUT3 , BLOCK COUNT=0000000010
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCIN'
(FILE=:2OS6:$WKST.FILE.03): 10
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCOUT3'
(FILE=:2OS6:$WKST.FILE.03.TAPE): 10
% PER0031 PERCON TERMINATED NORMALLY
/DELETE-TAPE-SET TAPE-SET-NAME=SET1 &*———————————————————————————————— (15)
(1) | Die beiden Datenträger (FK0183 und FK0238) werden als TAPE-SET vereinbart. |
(2) | Mit den Kommandos CREATE-FILE und ADD-FILE-LINK wird die erste Ausgabedatei (FILE-SEQUENCE=1) vereinbart, die auf Band geschrieben werden soll. Die beiden Datenträger werden über den Parameter TAPE-SET-NAME zugeordnet. |
(3) | Weitere Ausgabedateien (FILE-SEQUENCE=*NEW) werden analog zu (2) vereinbart. |
(4) | PERCON wird gestartet. |
(5) | Die erste Eingabedatei wird zugewiesen. |
(6) | Die erste Ausgabedatei wird zugewiesen. |
(7) | Start der Übertragung. Die Eingabedatei passt vollständig auf das erste Band. |
(8) | Eine weitere Eingabedatei wird zugewiesen. |
(9) | Eine weitere Ausgabedatei wird zugewiesen. |
(10) | Start der Übertragung. |
(11) | Die Eingabedatei passt nicht vollständig auf das erste Band. Für den Rest der Eingabedatei wird das zweite Band verwendet. |
(12) | Eine weitere Eingabedatei wird zugewiesen. |
(13) | Eine weitere Ausgabedatei wird zugewiesen. |
(14) | Start der Übertragung. Die Eingabedatei wird vollständig auf dem zweiten Band abgelegt. Nach Abschluss der Übertragung wird PERCON beendet. |
(15) | Das vereinbarte TAPE-SET von Datenträgern wird gelöscht. |
Einlesen einer Datei von einem MF/MV-SET
Die auf zwei Bändern abgelegte Datei FILE.02.TAPE soll gelesen werden.
/DELETE-FILE FILE-NAME=FILE.02.TAPE,SUPPRESS-ERR=DMS0533 &*——————————— (1)
/IMPORT-FILE SUPPORT=*TAPE(FILE-NAME=FILE.02.TAPE,- &*———————————————— (2)
/ VOLUME=(&volume1,&volume2),DEVICE-TYPE=TAPE-C4)
/ADD-FILE-LINK LINK-NAME=PCIN,FILE-NAME=FILE.02.TAPE,- &*————————————— (3)
/ SUPPORT=*TAPE(FILE-SEQUENCE=*UNKNOWN)
/CREATE-FILE FILE-NAME=FILE.02
/ADD-FILE-LINK LINK-NAME=PCOUT,FILE-NAME=FILE.02,- &*————————————————— (4)
/ ACCESS-METHOD=*SAM,-
/ RECORD-FORMAT=*FIXED,RECORD-SIZE=2000
/START-PERCON &*——————————————————————————————————————————————————————— (5)
% PER0000 PERCON STARTED, VERSION V03.0A00
//ASSIGN-INPUT-FILE FILE=*TAPE-FILE &*————————————————————————————————— (6)
//END &*——————————————————————————————————————————————————————————————— (7)
% DMS0DE3 TAPE WITH VSN 'FK0183' FOR FILE ':2OS6:$WKST.FILE.02.TAPE'
IS MOUNTED ON DEVICE 'O2'
% DMS0DE3 TAPE WITH VSN 'FK0238' FOR FILE ':2OS6:$WKST.FILE.02.TAPE'
IS MOUNTED ON DEVICE 'O3'
% DMS0DE8 END OF TAPE FOR FILE ':2OS6:$WKST.FILE.02.TAPE' WITH LINK
NAME 'PCIN', BLOCK COUNT '000020' ON VOLUME WITH VSN 'FK0183'
% DMS0DE8 END OF TAPE FOR FILE ':2OS6:$WKST.02.TAPE' WITH LINK
NAME 'PCIN', BLOCK COUNT '000040' ON VOLUME WITH VSN 'FK0238'
% DMS0DE7 SAM FILE CLOSED: FILE NAME=:2OS6:$WKST.FILE.02.TAPE, LINK
NAME=PCIN, BLOCK COUNT=0000000060
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCIN'
(FILE=:2OS6:$WKST.FILE.02.TAPE): 60
% PER0030 NUMBER OF PROCESSED RECORDS FOR LINK='PCOUT'
(FILE=:2OS6:$WKST.FILE.02): 60
% PER0031 PERCON TERMINATED NORMALLY
(1) | Ein eventuell vorhandener Katalogeintrag für die anzulegende Datei wird gelöscht. |
(2) | Die einzulesende Datei wird von den Datenträgern des MF/MV-Sets importiert. |
(3) | Zuweisen der Eingabedatei mit dem Kommando ADD-FILE-LINK. Da nicht bekannt ist, welchen Platz die Eingabedatei in der Folge der Dateien auf den Datenträgern einnimmt, wird der Parameter FILE-SEQUENCE=*UNKNOWN angegeben. |
(4) | Eine Ausgabedatei auf Platte wird zugewiesen. |
(5) | PERCON wird gestartet. |
(6) | Zuweisen der Eingabedatei: Das Zuweisen der Eingabedatei mit ASSIGN-INPUT-FILE ist notwendig, da FILE=*TAPE-FILE nicht Standard ist. Die Anweisung ASSIGN-OUTPUT-FILE kann entfallen, da die Ausgabedatei durch das Kommando ADD-FILE-LINK und die Standardeinstellungen der ASSIGN-Anweisung vollständig beschrieben ist. |
(7) | Start der Übertragung. Die Eingabedatei wird von zwei Datenträgern gelesen. Anschließend wird PERCON beendet. |