Kapitelübersicht
B Skript fuer die Datenuebernahme beim PC-Empfaenger
B.1 Uebernahmeskript
B.2 Beschreibung
B.3 Dateinamen
Anhang B
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
Skript fuer die Datenuebernahme beim PC-Empfaenger
--------------------------------------------------
Fuer ASS unter WINDOWS wurde das neue Programm WINBAT ent-
wickelt. Es ermoeglicht die Erstellung von Batchskripts unter
WINDOWS fuer die ASS Datenuebernahme am PC.
In diesem Kapitel wird das mitgelieferte Uebernahmeskript
einsp.wbt
vorgestellt. Man kann das Skript mit dem Programm WINBAT star-
ten und die vom Host bereitgestellten Daten werden automatisch
auf dem PC eingespielt.
Das Skript muss natuerlich fuer jedes zu uebernehmende Ar-
beitsgebiet angepasst werden. Es ist also als Muster fuer die
eigenen Uebernahmeskripts gedacht.
Hat man sich nun ein eigenes Uebernahmeskript angepasst, ist es
zweckmaessig, sich ein Symbol in der ASS-Gruppe unter WINDOWS
mit der passenden Befehlszeile, zum Beispiel:
c:/ass/pgm/winbat.exe c:/ass/vlk/einsp01.wbt
fuer das neue Skript einzurichten.
(slashes bitte fuer Windows stets als backslashes lesen)
Anhang B
B.1 Uebernahmeskript
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
1 TITEL-TEXT-1 Datenuebernahme Empfaengerpaket fuer AG01
REM
REM Eventuell alte Fehlerdatei loeschen
REM
2 ASSFEHLER-INIT
REM Empfaengerpaket evtl. vom Host holen
3 JA-NEIN-FRAGE Paket vom Host holen?
4 IF ANTWORT-NEIN
5 GOTO weiter
6 END-IF
REM File-Transfer Empfaengerpaket holen
7 STATUS-ON Hole Datenpaket vom Host
8 receive c:/ass/dateien/paket1 'verteil.pc01.a00001'
9 STATUS-OFF
:weiter
10 IF EXISTS c:/ass/dateien/paket1
11 GOTO weiter1
12 END-IF
13 PAUSE Kein Empfaengerpaket.
14 EXIT
:weiter1
REM
REM Sichern der alten Datenbanken
REM
15 JA-NEIN-FRAGE Sicherungen erstellen?
16 IF ANTWORT-NEIN
17 GOTO weiter2
18 END-IF
19 STATUS-ON Sicherungen erstellen ...
20 IF EXISTS c:/ass/db/dst001
21 COPY c:/ass/db/dst001 c:/ass/db/dst001s
22 COPY c:/ass/db/dst001.idx c:/ass/db/dst001s.idx
23 COPY c:/ass/db/dst002 c:/ass/db/dst002s
24 COPY c:/ass/db/dst002.idx c:/ass/db/dst002s.idx
25 COPY c:/ass/db/dst003 c:/ass/db/dst003s
26 COPY c:/ass/db/dst003.idx c:/ass/db/dst003s.idx
27 END-IF
28 STATUS-OFF
Anhang B
:weiter2
REM
REM Laden Empfaengerpaket via PCL1228
REM
29 STATUS-ON Empfaengerpaket laden ...
30 c:/ass/pgm/pcl1228 c:/ass/dateien/paket1
31 STATUS-OFF
32 IF ASSFEHLER
33 PAUSE Fehler beim Laden des Empfaengerpakets.
34 GOTO rollback
35 END-IF
REM
REM Erst- bzw. Folgeeinspeicherung
REM
36 STATUS-ON Summendaten sichern ...
37 c:/ass/pgm/pcl1024
38 STATUS-OFF
39 IF ASSFEHLER
40 PAUSE Fehler beim Einspeichern der Summendaten.
41 GOTO rollback
42 END-IF
43 IF ANTWORT-NEIN
44 GOTO agsichern
45 END-IF
46 STATUS-ON Sicherungen erstellen ...
47 IF EXISTS c:/ass/db/dst110s.zip
48 DELETE c:/ass/db/dst110s.zip
49 END-IF
50 IF EXISTS c:/ass/db/dst110
51 pkzip c:/ass/db/dst110s.zip c:/ass/db/dst110.*
52 END-IF
53 STATUS-OFF
:agsichern
54 STATUS-ON Arbeitsgebiet sichern ...
55 c:/ass/pgm/pcl1004
56 STATUS-OFF
57 IF ASSFEHLER
58 PAUSE Fehler beim Sichern des Arbeitsgebiets.
59 GOTO rollback
60 END-IF
Anhang B
61 STATUS-ON Summendaten laden ...
62 c:/ass/pgm/pcl1001
63 STATUS-OFF
64 IF ASSFEHLER
65 PAUSE Fehler beim Laden der Summendaten.
66 GOTO rollback
67 END-IF
68 STATUS-ON SU-DB einspeichern ...
69 c:/ass/pgm/pcl1002
70 STATUS-OFF
71 IF ASSFEHLER
72 PAUSE Fehler beim Einspeichern der Summendaten.
73 GOTO rollback
74 END-IF
75 STATUS-ON Caches erstellen ...
76 c:/ass/pgm/pcl1046
77 c:/ass/pgm/pcl1089
78 STATUS-OFF
79 IF ASSFEHLER
80 PAUSE Fehler beim Erstellen der Caches.
81 GOTO rollback
82 END-IF
83 IF EXISTS c:/ass/db/dst001s
84 DELETE c:/ass/db/dst001s
85 DELETE c:/ass/db/dst001s.idx
86 DELETE c:/ass/db/dst002s
87 DELETE c:/ass/db/dst002s.idx
88 DELETE c:/ass/db/dst003s
89 DELETE c:/ass/db/dst003s.idx
90 END-IF
91 IF EXISTS c:/ass/db/dst110s.zip
92 DELETE c:/ass/db/dst110s.zip
93 END-IF
REM Statusdatei an Host senden
94 JA-NEIN-FRAGE Rueckmeldung an Host?
95 IF ANTWORT-NEIN
96 EXIT
97 END-IF
REM File-Transfer Statusdatei an Host senden
98 STATUS-ON Rueckmeldung zum Host ...
99 send c:/ass/dateien/vupd.ebc 'pg##e.verteil.pcstatus'
100 STATUS-OFF
101 EXIT
Anhang B
102 :rollback
REM
REM Alten Zustand wiederherstellen
REM
103 STATUS-ON Zuruecksichern ...
104 IF EXISTS c:/ass/db/dst001s
105 COPY c:/ass/db/dst001s c:/ass/db/dst001
106 COPY c:/ass/db/dst001s.idx c:/ass/db/dst001.idx
107 COPY c:/ass/db/dst002s c:/ass/db/dst002
108 COPY c:/ass/db/dst002s.idx c:/ass/db/dst002.idx
109 COPY c:/ass/db/dst003s c:/ass/db/dst003
110 COPY c:/ass/db/dst003s.idx c:/ass/db/dst003.idx
111 DELETE c:/ass/db/dst001s
112 DELETE c:/ass/db/dst001s.idx
113 DELETE c:/ass/db/dst002s
114 DELETE c:/ass/db/dst002s.idx
115 DELETE c:/ass/db/dst003s
116 DELETE c:/ass/db/dst003s.idx
117 END-IF
118 IF EXISTS c:/ass/db/dst110s.zip
119 pkunzip c:/ass/db/dst110s.zip
120 END-IF
121 STATUS-OFF
Anhang B
B.2 Beschreibung
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
Das im vorhergehenden Kapitel gezeigte Uebernahmeskript be-
inhaltet die Schritte 5 bis 8 einer Versorgungsrunde aus Kapi-
tel 1.2.
Zeilen I Beschreibung
------------I----------------------------------------------
1 I In der ersten Zeile ist eine Titelzeile
I fuer das Stammfenster der Datenuebernahme
I festgelegt.
------------I----------------------------------------------
2 I Bricht ein Programm bei der Datenuebernahme
I mit Fehlern ab, so erzeugt es eine Fehler-
I datei.
I Am Anfang des Skripts wird eine evtl. noch
I vorhandene alte Fehlerdatei geloescht.
------------I----------------------------------------------
3 - 9 I Dem Benutzer wird an dieser Stelle die
I Moeglichkeit gegeben, das Empfaengerpaket
I vom Host zu holen.
I Beantwortet der Benutzer die Frage mit JA,
I so wird ueber den Befehl in Zeile 8 das Pa-
I ket, das fuer diesen Empfaenger am Host
I bereitsteht, auf den PC geholt.
I Der receive-Befehl muss ggf. durch einen
I oder mehrere geeignete Befehle ersetzt wer-
I den, die den Filetransfer des Paketes in
I die Umgebung des PC-Empfaengers durchfueh-
I ren.
I Der Filetransfer muss BINAER erfolgen, es
I duerfen keine Konvertierungen der Daten bei
I der Uebertragung vorgenommen werden.
------------I----------------------------------------------
10 - 14 I Das Skript enthaelt in diesen Zeilen eine
I Pruefung, ob das zu uebernehmende Paket ue-
I berhaupt vorhanden ist.
I Der Dateiname in Zeile 10 muss mit denen in
I den Zeilen 8 und 30 unbedingt uebereinstim-
I men.
------------I----------------------------------------------
15 - 28 I Bei der Einspeicherung neuer Daten ist es
I sinnvoll eine Datensicherung vorzunehmen.
I Das Skript fuehrt nach Konsultation des Be-
I nutzers ggf. eine Sicherung aller wichtigen
I Parameterdatenbanken durch.
I
Anhang B
Zeilen I Beschreibung
------------I----------------------------------------------
29 - 35 I Das Programm PCL1228 wird gestartet.
I (vgl. Kapitel 2.7)
------------I----------------------------------------------
36 - 42 I Mit dem Programm PCL1024 erfolgt der Abzug
I der alten Summendatenbank, der im Programm
I PCL1002 spaeter verwendet wird.
------------I----------------------------------------------
43 - 53 I Wurde die in Zeile 15 gestellte Frage mit
I JA beantwortet, erfolgt hier noch die Si-
I cherung der Summendatenbank des betroffenen
I PC-Arbeitsgebietes mit dem Komprimierungs-
I programm pkzip. Diese Zeile muss durch den
I Aufruf der bei Ihnen eingesetzten Software
I ersetzt werden.
------------I----------------------------------------------
54 - 60 I Das Programm PCL1004 zieht die Arbeitsge-
I bietsdefinition des PC-Arbeitsgebiets fuer
I das Programm PCL1001 ab.
------------I----------------------------------------------
61 - 82 I Nach all den Sicherungen erfolgt nun eine
I normale Erst- bzw. Folgeeinspeicherung. Im
I letzten Schritt erstellen die Programme
I PCL1046 und PCL1089 noch den Arbeitsge-
I bietscache und die Schluesselcaches.
------------I----------------------------------------------
83 - 93 I Ist die Einspeicherung der Empfaengerdaten
I fehlerfrei durchgelaufen, koennen an dieser
I Stelle die Sicherungsdateien geloescht wer-
I den, da die neuen Datenbanken korrekt er-
I stellt wurden.
------------I----------------------------------------------
94 - 100 I An dieser Stelle gibt das Skript dem Benut-
I zer noch die Moeglichkeit, die Rueckmelde-
I datei an den Host zu senden.
I Der send-Befehl muss unter Umstaenden durch
I geeignete Befehle ersetzt werden, um die
I Datei VUPD.EBC mit den Rueckmeldedaten zum
I Host zu uebertragen.
------------I----------------------------------------------
101 I Das exit-Kommando schliesst das Skript bei
I fehlerfreiem Lauf der Uebernahme ab.
------------I----------------------------------------------
102 - 121 I Tritt bei einem der aufgerufenen Programme
I ein Fehler auf, so wird zur Marke :rollback
I im Skript verzweigt.
I An dieser Stelle werden, wenn vorhanden,
I die Sicherungen dazu benutzt, die alte Um-
I gebung wiederherzustellen, als ob die
I Datenuebernahme nie durchgefuehrt worden
I waere.
Anhang B
B.3 Dateinamen
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
Die Dateinamen in der folgenden Tabelle koennen bzw. muessen
unter Umstaenden angepasst werden.
Je nach Installation vom ASS muessen zum Beispiel die Dateipfa-
de geaendert werden, wenn nicht die Standardangaben im Handbuch
HWIN verwendet werden. Auch bei der Einspeicherung eines ande-
ren Arbeitsgebiets, als im Beispiel das Arbeitsgebiet 01, muss
der Name der zugehoerigen Summendatenbank angepasst werden.
Sind in der Spalte 'Zeilen' mehrere Zeilennummern zu einem
Dateinamen angegeben, so muss dieser in den angegebenen Zeilen
unbedingt uebereinstimmen.
Zeilen I Dateiname I Beschreibung
------------I-----------------------I----------------------
8, 10, 30 I c:/ass/dateien/paket1 I Pfad und Dateiname
I I des Empfaengerpakets
I I am Empfaenger-PC
------------I-----------------------I----------------------
8 I 'verteil.pc01.a00001' I Pfad und Dateiname
I I des bereitgestell-
I I ten Empfaengerpakets
I I am Host
------------I-----------------------I----------------------
20 - 22, I c:/ass/db/dst001 I Pfad und Dateiname
105, 106 I c:/ass/db/dst001.idx I der Wertedatenbank
I I Nur der Pfad ist
I I evtl. anzupassen
I I (vgl. $ASSDB)
------------I-----------------------I----------------------
21, 22, I c:/ass/db/dst001s I Pfad und Dateiname
83 - 85, I c:/ass/db/dst001s.idx I der Sicherung fuer
104 - 106, I I die Wertedatenbank
111, 112 I I
------------I-----------------------I----------------------
23, 24, I c:/ass/db/dst002 I Pfad und Dateiname
107, 108 I c:/ass/db/dst002.idx I der Schluessel-DB
I I Nur der Pfad ist
I I evtl. anzupassen
I I (vgl. $ASSDB)
------------I-----------------------I----------------------
23, 24, I c:/ass/db/dst002s I Pfad und Dateiname
86, 87, I c:/ass/db/dst002s.idx I der Sicherung fuer
107, 108, I I die Schluessel-DB
113, 114 I I
I I
Anhang B
Zeilen I Dateiname I Beschreibung
------------I-----------------------I----------------------
25, 26, I c:/ass/db/dst003 I Pfad und Dateiname
109, 110 I c:/ass/db/dst003.idx I der Steuerungs-DB
I I Nur der Pfad ist
I I evtl. anzupassen
I I (vgl. $ASSDB)
------------I-----------------------I----------------------
25, 26, I c:/ass/db/dst003s I Pfad und Dateiname
88, 89, I c:/ass/db/dst003s.idx I der Sicherung fuer
109, 110, I I die Steuerungs-DB
115, 116 I I
------------I-----------------------I----------------------
50, 51 I c:/ass/db/dst110 I Pfad und Dateiname
I c:/ass/db/dst110.* I der Summendatenbank
I I fuer das entsprechen-
I I de PC-Arbeitsgebiet
I I (AGNR*10+100)
I I Pfad: vgl. $ASSDB
------------I-----------------------I----------------------
47, 48, I c:/ass/db/dst110s.zip I Pfad und Dateiname
51, 91, I I der Sicherung fuer
92, 118, I I die Summendatenbank
119 I I
Vorheriges Kapitel: A Muster-JCL fuer Versorgungsrunde am Host
Nächstes Kapitel: Stichwortverzeichnis