Kapitelübersicht
A Muster-JCL fuer Versorgungsrunde am Host
A.1 Muster-JCL
A.2 Beschreibung
Anhang A
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
Muster-JCL fuer Versorgungsrunde am Host
----------------------------------------
Eine Versorgungsrunde am Host besteht aus der Aneinander-
reihung der Programme PCL1224, PCL1225, PCL1226 und PCL1227.
Bestandteil der Ausliefeung fuer die Dezentrale Datenversorgung
ist eine Muster-JCL mit der Jobkette fuer die 4 genannten Pro-
gramme.
Selbstverstaendlich muss die mitgelieferte Muster-JCL noch
an die Belange der EDV vor Ort angepasst werden. Weiterhin sind
die Dateizuordnungen an das jeweilige Versorgungsarbeitsgebiet
anzupassen.
Es empfiehlt sich, fuer jedes Versorgungsarbeitsgebiet eine
eigene Versorgungs-JCL aus der Muster-JCL abzuleiten, die dann
nach einiger Vorlaufzeit nicht mehr veraendert werden muss.
Dieses Kapitel enthaelt die Muster-JCL, sowie eine kurze Be-
schreibung der wichtigsten Details.
Die eingeklammerten Ziffern am Ende einiger ausgewaehlter Zei-
len gehoeren nicht zur JCL, sie stellen lediglich Bezuege zur
Beschreibung der JCL im Kapitel A.2 her.
Anhang A
A.1 Muster-JCL
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
//PG99949V JOB (PG9999,ASS,E),' PCVERT ',
// CLASS=T,
// MSGCLASS=Z,
// NOTIFY=PG99949,
// REGION=6M,
// TIME=(5,30)
/*JOBPARM R=33
//*
//*
//**** P C L 1 2 2 4 (VERTEILABZUG HOST) **********
//PCL1224 EXEC DBTEST,MBR=PCL1224,PSB=PCL1224,
// COND=(0,LT)
//*
//******************************************************
//* VORLAUFKARTE
//* BSP: PROGRAMM=PCL1224,AGNR=01,VSTNR=4,ALLE_VST
//******************************************************
//ASSCO DD *
PROGRAMM=PCL1224,AGNR=01 ( 1)
//*
//******************************************************
//* ABZUG
//******************************************************
//ASSPCAB DD DSN=PKSTE.KH.PCAG1(+1), ( 2)
// DISP=(,CATLG),UNIT=TSO,
// DCB=(RECFM=VB,LRECL=20008,BLKSIZE=27998),
// SPACE=(TRK,(15,30),RLSE)
//*
//******************************************************
//* SEQUENTIELLE VERDICHTUNGSSTUFEN
//******************************************************
//*ASSCV01 DD DSN=PKSTE.KH.ASSCV01,DISP=SHR ( 3)
//*
//******************************************************
//* SUMMENDATENBANK
//******************************************************
//DST110 DD DSN=PKASE.DST110.DLIDB,DISP=SHR ( 4)
//DST111 DD DSN=PKASE.DST111.DLIDB,DISP=SHR
//*
Anhang A
//******************************************************
//* PARAMETERDATENBANKEN
//******************************************************
//DST001 DD DSN=PKASE.DST001.DLIDB,DISP=SHR
//DST011 DD DSN=PKASE.DST011.DLIDB,DISP=SHR
//DST012 DD DSN=PKASE.DST012.DLIDB,DISP=SHR
//DST013 DD DSN=PKASE.DST013.DLIDB,DISP=SHR
//DST002 DD DSN=PKASE.DST002.DLIDB,DISP=SHR
//DST021 DD DSN=PKASE.DST021.DLIDB,DISP=SHR
//DST022 DD DSN=PKASE.DST022.DLIDB,DISP=SHR
//DST023 DD DSN=PKASE.DST023.DLIDB,DISP=SHR
//DST003 DD DSN=PKASE.DST003.DLIDB,DISP=SHR
//DST031 DD DSN=PKASE.DST031.DLIDB,DISP=SHR
//DST032 DD DSN=PKASE.DST032.DLIDB,DISP=SHR
//DST033 DD DSN=PKASE.DST033.DLIDB,DISP=SHR
//DST007 DD DSN=PKASE.DST007.DLIDB,DISP=SHR
//DST071 DD DSN=PKASE.DST071.DLIDB,DISP=SHR
//DST009 DD DSN=PKASE.DST009.DLIDB,DISP=SHR
//DST091 DD DSN=PKASE.DST091.DLIDB,DISP=SHR
//*
//PROTO DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*
//**** P C L 1 2 2 5 (VERTEILUNG STEP1) ***********
//PCL1225 EXEC DBTEST,MBR=PCL1225,PSB=PCL1225,
// COND=(0,LT)
//*
//******************************************************
//* VORLAUFKARTE
//* BSP: PROGRAMM=PCL1225,BER_ERHOEHEN,MIT_SEC,PC=PC01
//* KEINE_ANF, ALLE_AUSPR, NSCHL=115
//******************************************************
//ASSCO DD *
PROGRAMM=PCL1225,BER_ERHOEHEN ( 5)
//*
//******************************************************
//* AKTUELLER VERTEILABZUG (PCL1224)
//******************************************************
//ASSPCAB DD DSN=PG##E.KH.PCAG1(+1),DISP=OLD ( 6)
//*
Anhang A
//******************************************************
//* ALTE VERTEILABZUEGE (PCL1224)
//* BEI ERSTVERSORGUNG - KEINER
//* BEI FOLGEVERSORGUNG - BIS ZU 10
//******************************************************
//ASSPC01 DD DUMMY DSN=PG##E.KH.PCAG1(0),DISP=OLD ( 7)
//ASSPC02 DD DUMMY DSN=PG##E.KH.PCAG1(-1),DISP=OLD
//ASSPC03 DD DUMMY DSN=PG##E.KH.PCAG1(-2),DISP=OLD
//ASSPC04 DD DUMMY
//ASSPC05 DD DUMMY
//ASSPC06 DD DUMMY
//ASSPC07 DD DUMMY
//ASSPC08 DD DUMMY
//ASSPC09 DD DUMMY
//ASSPC10 DD DUMMY
//*
//******************************************************
//* AUSGABEDATEIEN
//******************************************************
//ASSVERT DD DISP=(,PASS),UNIT=SYSDA, ( 8)
// SPACE=(CYL,(30,15)),DCB=BLKSIZE=27998
//ASSVTAG DD DISP=(,PASS),UNIT=SYSDA,
// SPACE=(CYL,(30,15)),DCB=BLKSIZE=27998
//*
//******************************************************
//* PARAMETERDATENBANKEN
//******************************************************
//DST001 DD DSN=PKASE.DST001.DLIDB,DISP=SHR
//DST011 DD DSN=PKASE.DST011.DLIDB,DISP=SHR
//DST012 DD DSN=PKASE.DST012.DLIDB,DISP=SHR
//DST013 DD DSN=PKASE.DST013.DLIDB,DISP=SHR
//DST002 DD DSN=PKASE.DST002.DLIDB,DISP=SHR
//DST021 DD DSN=PKASE.DST021.DLIDB,DISP=SHR
//DST022 DD DSN=PKASE.DST022.DLIDB,DISP=SHR
//DST023 DD DSN=PKASE.DST023.DLIDB,DISP=SHR
//DST003 DD DSN=PKASE.DST003.DLIDB,DISP=SHR
//DST031 DD DSN=PKASE.DST031.DLIDB,DISP=SHR
//DST032 DD DSN=PKASE.DST032.DLIDB,DISP=SHR
//DST033 DD DSN=PKASE.DST033.DLIDB,DISP=SHR
//DST007 DD DSN=PKASE.DST007.DLIDB,DISP=SHR
//DST071 DD DSN=PKASE.DST071.DLIDB,DISP=SHR
//DST009 DD DSN=PKASE.DST009.DLIDB,DISP=SHR
//DST091 DD DSN=PKASE.DST091.DLIDB,DISP=SHR
//*
//ASSLIST DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
Anhang A
//*
//*
//**** P C L 1 2 2 6 (VERTEILUNG STEP2) *********
//PCL1226 EXEC DBTEST,MBR=PCL1226,PSB=PCL1226,
// COND=(0,LT)
//*
//******************************************************
//* UPDATE ST09: PC-EMPFAENGER BEREITSTELLUNG
//******************************************************
//VUPD DD DISP=(,PASS),UNIT=SYSDA, ( 9)
// SPACE=(TRK,(5,5)),DCB=BLKSIZE=160
//*
//******************************************************
//* AKTUELLER VERTEILABZUG (PCL1224)
//******************************************************
//VABZUG DD DSN=PG##E.KH.PCAG1(+1),DISP=OLD (10)
//*
//******************************************************
//* DATENPOOL (PCL1225)
//******************************************************
//VERTEIL DD DSN=*.PCL1225.G.ASSVERT,DISP=(OLD,DELETE) (11)
//VTAG DD DSN=*.PCL1225.G.ASSVTAG,DISP=(OLD,DELETE)
//*
//******************************************************
//* PARAMETERDATENBANKEN
//******************************************************
//DST001 DD DSN=PKASE.DST001.DLIDB,DISP=SHR
//DST011 DD DSN=PKASE.DST011.DLIDB,DISP=SHR
//DST012 DD DSN=PKASE.DST012.DLIDB,DISP=SHR
//DST013 DD DSN=PKASE.DST013.DLIDB,DISP=SHR
//DST002 DD DSN=PKASE.DST002.DLIDB,DISP=SHR
//DST021 DD DSN=PKASE.DST021.DLIDB,DISP=SHR
//DST022 DD DSN=PKASE.DST022.DLIDB,DISP=SHR
//DST023 DD DSN=PKASE.DST023.DLIDB,DISP=SHR
//DST003 DD DSN=PKASE.DST003.DLIDB,DISP=SHR
//DST031 DD DSN=PKASE.DST031.DLIDB,DISP=SHR
//DST032 DD DSN=PKASE.DST032.DLIDB,DISP=SHR
//DST033 DD DSN=PKASE.DST033.DLIDB,DISP=SHR
//DST004 DD DSN=PKASE.DST004.DLIDB,DISP=SHR
//DST041 DD DSN=PKASE.DST041.DLIDB,DISP=SHR
//DST007 DD DSN=PKASE.DST007.DLIDB,DISP=SHR
//DST071 DD DSN=PKASE.DST071.DLIDB,DISP=SHR
//DST009 DD DSN=PKASE.DST009.DLIDB,DISP=SHR
//DST091 DD DSN=PKASE.DST091.DLIDB,DISP=SHR
//*
//******************************************************
//* DOKUMENTATION DER PC-EMPFAENGERPAKETE
//******************************************************
//*PKTNAM DD ...
//* ...
//*
//******************************************************
//* ALLOKIERUNG VON PC-EMPFAENGERPAKETEN
//******************************************************
//*ASSPC01 DD ...
//* ...
//*ASSPC20 DD ...
//*
Anhang A
//******************************************************
//* ARBEITSDATEIEN
//******************************************************
//WORK01 DD UNIT=SYSDA,SPACE=(CYL,(50,10)), (12)
// DCB=BLKSIZE=27998
//WORK02 DD UNIT=SYSDA,SPACE=(CYL,(50,10)),
// DCB=BLKSIZE=27998
//WORKOUT DD UNIT=SYSDA,SPACE=(CYL,(50,10)),
// DCB=BLKSIZE=27998
//WORKZW DD UNIT=SYSDA,SPACE=(CYL,(50,10)),
// DCB=BLKSIZE=27998
//KEINHWK DD UNIT=SYSDA,SPACE=(CYL,(3,3)),
// DCB=BLKSIZE=27986
//*
//ASSLIST DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
//*
//**** P C L 1 2 2 7 (UPDATE ST09) **************
//PCL1227 EXEC DBTEST,MBR=PCL1227,PSB=PCL1227,
// COND=(0,LT)
//*
//******************************************************
//* UPDATEDATEI PC-EMPFAENGER (PCL1226)
//******************************************************
//DATEI DD DSN=*.PCL1226.G.VUPD,DISP=(OLD,DELETE) (13)
//*
//******************************************************
//* PARAMETERDATENBANKEN
//******************************************************
//DST007 DD DSN=PKASE.DST007.DLIDB,DISP=SHR
//DST071 DD DSN=PKASE.DST071.DLIDB,DISP=SHR
//DST009 DD DSN=PKASE.DST009.DLIDB,DISP=SHR
//DST091 DD DSN=PKASE.DST091.DLIDB,DISP=SHR
//*
//PROTO DD SYSOUT=*
//*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*
Anhang A
A.2 Beschreibung
Kapitelübersicht
Inhaltsverzeichnis
Stichwortverzeichnis
Die mitgelieferte Muster-JCL muss vor Gebrauch erst einmal
an die EDV-Umgebung angepasst werden, ausserdem muessen die
ASS-Parameterdatenbanken, Summendatenbanken und ggf. Sequen-
tielle Verdichtungsstufendateien angepasst werden.
Nach diesen vorbereitenden Massnahmen sollte fuer jedes Versor-
gungsarbeitsgebiet eine eigene JCL aus der angepassten Muster-
JCL entwickelt werden.
Dabei sind folgende Punkte (vgl. Markierung im Kapitel A.1) zu
beachten.
(1) Vorlaufkarte PCL1224
------------------------
Die Vorlaufkarte fuer das Programm PCL1224 muss die Ar-
beitsgebietsnummer des Versorgungsarbeitsgebietes enthal-
ten.
Ausserdem muessen hier die Verdichtungsstufen angegeben
werden, die gezielt ausgewaehlt werden sollen, ggf. mit der
Option ALLE_VST (vgl. Kap. 2.3).
(2), (6), (10) Aktueller Verteilabzug
-------------------------------------
Fuer jede Versorgungsrunde ist ein aktueller Verteilab-
zug zu erstellen.
In der Muster-JCL werden die Verteilabzuege in einer Gene-
ration Data Group (GDG) gespeichert.
Diese Organisationsform hat den Vorteil, dass alte Verteil-
abzuege automatisch - bis zur Anzahl der Generationen - er-
halten bleiben.
Die neueste Generation der Verteilabzuege ist mit +1 mar-
kiert, die vohergehenden mit 0, -1, -2, ..., entsprechend
der Generationenzahl.
(3) Sequentielle Verdichtungsstufen
-----------------------------------
Erfolgt die Versorgung der PC-Empfaenger auch aus Se-
quentiellen Verdichtungsstufen des Versorgungsarbeitsgebie-
tes, so muessen die Dateien mit den Daten der Sequentiellen
Verdichtungsstufen an dieser Stelle zugewiesen werden.
Anhang A
(4) Summendatenbanken des Versorgungsarbeitsgebiets
---------------------------------------------------
Die Summendatenbanken des Versorgungsarbeitsgebietes
sind an dieser Stelle der JCL einzutragen. Sie muessen zum
Arbeitsgebiet in der Vorlaufkarte passen.
(5) Vorlaufkarte PCL1225
------------------------
In der Vorlaufkarte des Programms PCL1225 kann man stan-
dardmaessig die Vorlaufkartenoption BER_ERHOEHEN eintragen.
So wird erreicht, dass bei Nichtabhohlung automatisch die
nichtabgeholten Empfaengerpakete fortgeschrieben werden.
Die Option wirkt nur, wenn dieser Fall wirklich eintritt.
(7) Alte Verteilabzuege
-----------------------
Wie bei Punkt (6) schon angedeutet, basiert die Muster-
JCL darauf, dass die Verteilabzuege in einer GDG gespei-
chert werden. Damit ist sichergestellt, dass entsprechend
viele alte Verteilabzuege fuer spaetere Folgeversorgungen
erhalten bleiben.
Bei der Erstverteilung eines Arbeitsgebietes darf hier kein
alter Verteilabzug angegeben werden.
Bei jeder Folgeverteilung sollte dann ein weiterer alter
Verteilabzug aus der GDG in der JCL aktiviert werden, bis
alle alten Verteilabzuege (maximal 10) aktiviert sind.
Hat man unterschiedliche Versorgungsturni bei der Versor-
gung, so muss sichergestellt werden, dass fuer jeden unter-
schiedlichen Turnus ein alter Verteilabzug aufgehoben wird,
da sonst eine Folgeversorgung mit Differenzen fuer diesen
alten Versorgungsstand nicht moeglich ist (vgl. ADATUM).
(8), (11) Datenpool fuer PCL1226
--------------------------------
Die Daten fuer die zu erstellenden Empfaengerpakete wer-
den vom Programm PCL1225 in einen Datenpool gestellt.
Die zwei Dateien des Pools enthalten zum einen die Arbeits-
gebietsdaten (ASSVTAG), zum anderen die Summendaten
(ASSVERT) fuer die PC-Empfaengerpakete.
Der Datenpool enthaelt kaum Redundanzen, dass heisst, wenn
zwei Empfaenger genau gleiche Daten erhalten, so sind diese
Daten im Datenpool nur einmal enthalten.
Der Datenpool wird an das Programm PCL1226 weitergereicht.
Anhang A
(9) Updatedatei fuer PCL1227
----------------------------
PCL1226 erstellt am Programmende eine Updatedatei fuer
die PC-Empfaengerverwaltung.
Diese Datei wird an das Programm PCL1227 weitergereicht.
(12) Workdateien fuer PCL1226
-----------------------------
Dem Programm PCL1226 muessen bis zu 20 Workdateien zur
Verfuegung gestellt werden.
Die Anzahl der Workdateien richtet sich nach der Anzahl der
zu versorgenden PC's. Bei bis zu 20 PC's muss man die glei-
che Anzahl Workdateien definieren, bei mehr als 20 PC-Em-
pfaengern kommt PCL1226 mit 20 Workdateien aus.
Bei grossen Datenmengen muessen zusaetzlich noch SORT-WORK
Dateien fuer PCL1226 angegeben werden.
Vorheriges Kapitel: 4. Abschliessende Bemerkungen und Ausblick Anhang
Nächstes Kapitel: B Skript fuer die Datenuebernahme beim PC-Empfaenger