In diesem Abschnitt finden Sie Beispiele zu folgenden Themen:
Übertragen von Dateien mit mehreren Parallelläufen
Übertragen von Katalogeinträgen privater Platten
Übertragen an einen anderen Rechner mit Verzeichnis
Übertragen auf eine andere Standard-Katalogkennung
Übertragen von Dateien auf gemeinschaftlichen Datenträger und Net-Storage
Übertragen von Dateien mit mehreren Parallelläufen
Die Dateien von drei Benutzern sollen übertragen werden; die Dateien sollen parallel bearbeitet werden.
/START-HSMS //EXPORT-FILES - ————————————————————————————————————————————————————— (1) // F-NAMES=($MANUAL.FILE.0*,$USEROLD.FILE.1*, - // $USERNEW.FILE.2*), - // DIR-NAME=HSMS.MAN.EXF.DIR.1(NEW-DIR=*YES), - // TO-STOR=*TAPE(VOL=(HSMS11,HSMS22,HSMS33)), - // SAVE-F=*NEW(RET-PER=0), - // OPER-CONTROL=*PAR(REPORT=*FULL,PAR-RUNS=3, - —————————————————————— (2) // OUT=HSMS.MAN.R.EXF.1,WAIT-F-C=*YES) % HSM0003 HSMS STATEMENT COMPLETED //SHOW-ARCHIVE - ————————————————————————————————————————————————————— (3) // ARCH-NAME=*BY-DIR(DIR-NAME=HSMS.MAN.EXF.DIR.1), - // SELECT=*SAVE-F
SHOW-ARCHIVE (SAVE-FILES) INFORMATION = SUMMARY ARCHIVE-NAME = BY-DIR(:2BY:$TSOS.HSMS.MAN.EXF.DIR.1) SAVE-FILE-STATE = ANY SAVE-FILE-STORAGE = ANY CREATED-BEFORE = LATEST EXPIRATION-BEFORE = LATEST -------------------------------------------------------------------------------- M SFID CREA-DATE EXP-DATE OBS ACCESS ST DEVICE #VOL #SV #R UNS S.160812.155059 16-08-12 16-08-12 YES ALL TAP TAPE-C4 3 1 3 ... ... ... NEXT-PAGE: + (+, -, ++, --, E) % HSM0012 END OF OUTPUT LIST REACHED
% HSM0003 HSMS STATEMENT COMPLETED //END % HSM0014 HSMS PROGRAM TERMINATED
/START-HSMS //IMPORT-FILES F-NAMES=*ALL, - ——————————————————————————————————————— (4) // SAVE-F=*BY-VOL(VOL= - // (*GROUPED-BY-RUN(HSMS11), - ———————————————————————————————————— (5) // *GROUPED-BY-RUN(HSMS22), - // *GROUPED-BY-RUN(HSMS33))), - // REPL-F-AND-JV=*YES, - // OPER-CONTROL=*PAR(REPORT=*FULL,PAR-RUNS=3, - ————————————————————— (6) // OUT=HSMS.MAN.R.IMF.1, - // WAIT-F-C=*YES) % HSM0003 HSMS STATEMENT COMPLETED //END % HSM0014 HSMS PROGRAM TERMINATED
(1) | Die Dateien von drei verschiedenen Benutzerkennungen werden in einem Exportlauf auf Magnetbandkassetten geschrieben. (Der Report dieses Laufs dient als Beispiel zur Erläuterung des Report-Aufbaus; siehe dazu den Abschnitt „Reporte“f.) |
(2) | Drei Parallelläufe werden angegeben, auf die HSMS die bei VOLUMES angegebenen Magnetbandkassetten verteilt. |
(3) | Da der Exportlauf mit Verzeichnis durchgeführt wurde, können die Attribute der erzeugten Sicherungsdatei mit der SHOW-ARCHIVE-Anweisung ausgegeben werden. Die Dateien wurden in drei Parallelläufen (#RUNS) auf drei Datenträger (#VOL) geschrieben. |
(4) | Die Dateien werden in einem Importlauf wieder eingelesen, wobei die Bestimmung der Sicherungsdatei durch die Datenträger geschieht. |
(5) | Für jede Magnetbandkassette eines Parallellaufs wird eine GROUPED-BY-RUN-Angabe gemacht. Die Angabe VOLUME=(HSMS11,HSMS22,HSMS33) wäre auch möglich. *GROUPED-BY-RUN führt aber zu einer Laufzeitverbesserung. |
(6) | Außerdem müssen drei Paralleläufe vereinbart werden. |
Übertragen von Katalogeinträgen privater Platten
Die Katalogeinträge von privaten Platten werden an einen anderen BS2000-Rechner übertragen.
/START-HSMS //EXPORT-FILES F-NAMES=$MANUAL.FILE.*, - ————————————————————————————— (1) // SUP=*PRIV-DISK(VOL=*ALL,CAT-ENTRIES-ONLY=*YES), - ———————————————— (2) // DIR-NAME=*NONE, - // TO-STOR=*TAPE(VOL=HSMS33), - // SAVE-F=*NEW(RET-PER=0), - // OPER-CONTROL=*PAR(REPORT=*FULL) % HSM0002 HSMS STATEMENT ACCEPTED //END % HSM0014 HSMS PROGRAM TERMINATED
An einem anderen Rechner:
/START-HSMS //IMPORT-FILES F-NAMES=*ALL, - ——————————————————————————————————————— (3) // SAVE-F=*BY-VOL(VOL=HSMS33), - // ORIG-SUP=*PRIV-DISK(VOL=WORKKB), - // REPL-F-AND-JV=*YES, - // OPER-CONTROL=*PAR(REPORT=*FULL) % HSM0002 HSMS STATEMENT ACCEPTED //END % HSM0014 HSMS PROGRAM TERMINATED
(1) | In einem Exportlauf werden die Katalogeinträge aller Dateien auf Privatplatten, deren Namen mit „$manual.file.“ beginnen, auf Magnetbandkassette geschrieben. Ein Verzeichnis wird nicht angelegt. |
(2) | Die Angabe CATALOG-ENTRIES-ONLY bewirkt, dass nicht die Daten, sondern nur die Katalogeinträge in die Sicherungsdatei aufgenommen werden. |
(3) | Die Katalogeinträge der dem Suchmuster entsprechenden Dateien, die sich auf der Privatplatte WORKKB befanden, werden in einem Importlauf an einem BS2000-Rechner eingelesen. Die Sicherungsdatei wird über die Magnetbandkassette bestimmt. |
Übertragen an anderen Rechner mit Verzeichnis
Eine Reihe von Dateien soll an einen anderen BS2000-Rechner unter eine andere Benutzerkennung übertragen werden. Dabei wird ein Verzeichnis verwendet.
/START-HSMS //EXPORT-FILES F-NAMES=$MANUAL.FILE.*, - ————————————————————————————— (1) // DIR-NAME=$MANUAL.HSMS.MAN.EXF.DIR.4 - // (NEW-DIR=*YES,SAVE-DIR=*YES), - // TO-STOR=*TAPE(VOL=HSMS33), - // SAVE-F=*NEW(RET-PER=0), - // OPER-CONTROL=*PAR(REPORT=*FULL) % HSM0002 HSMS STATEMENT ACCEPTED //END % HSM0014 HSMS PROGRAM TERMINATED
An einem anderen Rechner:
/START-HSMS //IMPORT-FILES F-NAMES=*DIRECTORY, - ————————————————————————————————— (2) // NEW-F-NAMES=*BY-RULE(NEW-USER-ID=USERNEW2), - // SAVE-F=*BY-VOL(VOL=HSMS33), - // REPL-F-AND-JV=*YES, - // OPER-CONTROL=*PAR(REPORT=*FULL) % HSM0002 HSMS STATEMENT ACCEPTED //IMPORT-FILES F-NAMES=$MANUAL.FILE., - —————————————————————————————— (3) // NEW-F-NAMES=*BY-RULE(NEW-USER-ID=USERNEW2), - // SAVE-F=*FROM-DIR(DIR-NAME=$USERNEW2.HSMS.MAN.EXF.DIR.4), - // REPL-F-AND-JV=*YES, - // OPER-CONTROL=*PAR(REPORT=*FULL) % HSM0002 HSMS STATEMENT ACCEPTED //END % HSM0014 HSMS PROGRAM TERMINATED
(1) | Alle Dateien der Benutzerkennung MANUAL, deren Name mit FILE. beginnt, werden mit EXPORT-FILES auf eine Magnetbandkassetten geschrieben. Für den Lauf wird ein neues Verzeichnis angelegt und mit auf den Export-Datenträger geschrieben. Der Report wird nach SYSLST geschrieben. |
(2) | In einem ersten Importlauf wird vorab das Verzeichnis eingelesen. Die Sicherungsdatei wird über den Datenträger bestimmt. |
(3) | Anschließend wird für die anderen Dateien ein Importlauf unter Verwendung des Verzeichnisses gestartet. Mit Hilfe des Verzeichnisses wäre auch die Auswahl der Dateien mit SELECT-FILE-NAMES vor dem Lauf möglich. |
Übertragen auf andere Standard-Katalogkennung
Ein Benutzer soll in Zukunft seine Dateien standardmäßig auf einem anderen Pubset führen. Dazu müssen die existierenden Dateien auf den neuen Standard-Pubset übertragen werden.
/START-HSMS //EXPORT-FILES F-NAMES=$MANUAL.*, - —————————————————————————————————— (1) // TO-STOR=*TAPE(VOL=HSMS33), - // SAVE-F=*NEW(RET-PER=0), - // OPER-CONTROL=*PAR(REPORT=*FULL, - // OUT=HSMS.MAN.R.EXF.6,WAIT-F-C=*YES) % HSM0003 HSMS STATEMENT COMPLETED //END % HSM0014 HSMS PROGRAM TERMINATED /MODIFY-USER-ATTRIBUTES MANUAL,DEFAULT-PUBSET=2BC, - ————————————————— (2) / PUBLIC-VOLUME-SET=2BY /START-HSMS //IMPORT-FILES F-NAMES=:2BY:$MANUAL.*, - ————————————————————————————— (3) // NEW-F-NAMES=*BY-RULE(NEW-CAT-ID=2BC), - // SAVE-F=*BY-VOL(VOL=HSMS33), - // OPER-CONTROL=*PAR(REPORT=*FULL, - // OUT=HSMS.MAN.R.IMF.6,WAIT-F-C=*YES) % HSM0003 HSMS STATEMENT COMPLETED //END % HSM0014 HSMS PROGRAM TERMINATED
(1) | Alle Dateien der Benutzerkennung MANUAL werden mit der HSMS-Anweisung EXPORT-FILES auf eine Magnetbandkassetten geschrieben. |
(2) | Die Standard-Katalogkennung der Benutzerkennung MANUAL wird geändert. |
(3) | Die Dateien werden importiert und dabei mit dem Operanden NEW-FILE-NAMES auf die Standard-Katalogkennung geschrieben. Die alte Katalogkennung muss bekannt sein, da sie nicht mehr Standard dieser Kennung ist. |
Anmerkung
Wenn der Exportlauf mit CATALOG-ID-MODE=*NO durchgeführt wird, ist das Umbenennen beim Importlauf nicht erforderlich. Dann nämlich schreibt HSMS automatisch in die Standard-Katalogkennung.
Übertragen von Dateien auf gemeinschaftlichen Datenträger und Net-Storage
Die Dateien werden auf gemeinschaflichen Datenträger übertragen:
//EXPORT-FILES FILE-NAMES=LM.TEST.*, - // TO-STORAGE=*PUBLIC-DISK(PUBSET-ID=IBA6), - // OPERATION-CONTROL=*PAR (REPORT=*FULL, - // OUTPUT=LM.EXP.PUB.REP) % HSM0003 HSMS STATEMENT COMPLETED
Die Dateien werden auf Net-Storage übertragen:
//EXPORT-FILES FILE-NAMES=LM.TEST.*, - // TO-STORAGE=*NET-STORAGE(VOLUMES=NATB00), - // OPERATION-CONTROL=*PAR (REPORT=*FULL, - // OUTPUT=LM.EXP.NET.REP) % HSM0003 HSMS STATEMENT COMPLETED
An einem anderen Server:
//IMPORT-FILES FILE-NAMES=LM.TEST, // SAVE-FILE=*BY-PUBLIC-DISK( - // SAVE-FILE-ID=S.161228.144335,PUBSET-ID=IBA6), —————————————————— (1) // OPERATION-CONTROL=*PARAMETERS( - // REPORT=*FULL,OUTPUT=LM.EXP.REP) % HSM0003 HSMS STATEMENT COMPLETED
(1) | Das Net-Storage Volume NATB00 ist dem Pubset IBA6 zugewiesen. Dieser Pubset kann für die Dateiübertragung verwendet werden. |