IBM VisualAge Pacbase Guide D'installation
  1. Manuels
  2. Marques
  3. IBM Manuels
  4. Serveurs
  5. VisualAge Pacbase
  6. Guide d'installation
IBM VisualAge Pacbase Guide D'installation

IBM VisualAge Pacbase Guide D'installation

Masquer les pouces
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
Table des Matières

Publicité

Liens rapides

Télécharger ce manuel
VisualAge Pacbase
Guide d'installation
Serveur Z/OS CICS & Composants
Client
V ersion 3.5

Publicité

Table des Matières
loading

Manuels Connexes pour IBM VisualAge Pacbase

Sommaire des Matières pour IBM VisualAge Pacbase

  • Page 1 VisualAge Pacbase Guide d'installation Serveur Z/OS CICS & Composants Client V ersion 3.5...
  • Page 3 VisualAge Pacbase Guide d'installation Serveur Z/OS CICS & Composants Client V ersion 3.5...
  • Page 4 Avant d'utiliser le présent document et le produit associé, prenez connaissance des informations générales figurant à la section «Notices», à la page vii. Vous pouvez consulter ou télécharger la documentation de VisualAge Pacbase, régulièrement mise à jour, à partir de : http://www.ibm.com/support/docview.wss?rs=37&context=SSEP67&uid=swg27005478...

  • Page 5: Table Des Matières

    Initialisation du fichier des codes Informations préalables . . 107 utilisateur . . 54 Répertoire racine . . 107 Initialisation des 'Generation Data Group' Lancement de l'installation . . 108 Chargement de la Base Administration . . 57 © Copyright IBM Corp. 1983,2013...
  • Page 6 Echange mouvements GY entre base 2.n reprises . . 151 et 3.n (GY25) . . 204 PC25 - Entrées / Traitements / GY25 - Présentation générale . . 204 Résultats . . 152 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 7 GY25 - Description des étapes . 205 MIUS - Présentation générale . . 294 GY25 - JCL d'exécution . . 205 MIUS - Entrées Utilisateur . . 295 Echange mouvements MB entre base 3.n MIUS - Description des étapes . 296 et 2.n (MB30) .
  • Page 8 Utilitaires d'aide à la reprise . . 369 Installation des fichiers de la Base . . 382 UTU1 UTU2 - Adaptation des opérateurs Ressources nécessaires sous CICS . 382 'UNS' . . 369 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 9: Notices

    Si vous désirez recevoir des informations concernant l'acquisition de licences, veuillez en faire la demande par écrit à l'adresse suivante : IBM Director of Licensing, IBM Corporation, North Castle Drive, Armonk NY 10504–1785, U.S.A.
  • Page 10 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 11: Marques

    IBM est une marque d'International Business Machines Corporation, Inc. AIX, AS/400, CICS, CICS/MVS, CICS/VSE, COBOL/2, DB2, IMS, MQSeries, OS/2, VisualAge Pacbase, RACF, RS/6000, SQL/DS et VisualAge sont des marques d'International Business Machines Corporation, Inc. dans certains pays. Java et toutes les marques et logos incluant Java sont des marques de Sun Microsystems, Inc.
  • Page 12 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 13: Chapitre 1. Préambule

    "Guide d'utilisation AD workbench", chapitre "Actions préalables d'administration". Architecture du produit VisualAge Pacbase est un outil de conception, de développement et de maintenance d'applications eBusiness de type graphique (GUI) ou mode caractère (TUI), Web, conversationnel ou batch.

  • Page 14: Contenu De La Livraison

    Le contenu d'une livraison du produit varie selon les termes de votre commande : Guide d'Installation, Program Directory (pour SMP/E), CD-Rom pour l'installation de la partie Serveur, CD-Rom pour l'installation des composants du poste Client, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 15: Bibliographie

    Guide des Procédures de l'Administrateur. Pour les sites IBM, l'installation d'un Système de Sécurité, assurant le contrôle des codes utilisateur, des mots de passe et des autorisations d'accès, est documentée dans le chapitre "Installation de la partie Serveur", sous-chapitre "Installations complémentaires", et également dans l'aide en...
  • Page 16 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 17: Chapitre 2. Prérequis

    Prérequis partie Client Matériel Les caractéristiques matérielles nécessaires à l'installation des composants clients VisualAge Pacbase sont les suivantes : Processeur : Intel Pentium III 450 Mhz minimum ou processeur compatible. Moniteur : Moniteur graphique (800x600) VGA ou plus grande résolution (XGA ou SVGA).

  • Page 18: Espace Disque

    30 Mo pour la Station de Travail VisualAge Pacbase (avec une Méthode incluse). Si "IBM SDK for Java 2" n'est pas installé sur votre poste, son installation sera automatiquement déclenchée. Pour une installation opérationnelle de AD workbench par exemple, il vous faudra un espace disque minimum de 215 Mo (100 Mo pour AD workbench, 85 Mo pour "IBM SDK for Java 2"...

  • Page 19: Chapitre 3. Installation De La Partie Serveur

    Réception du produit avec l'outil SMP/E (System Modification Program/Extended) dans des PDS dédiés. Cette phase est à prendre en charge par l'équipe système habituée à installer les produits IBM avec SMP/E. v Allocation d'un fichier PDS destiné à stocker l'ensemble des JCLs d'installation et d'exploitation.
  • Page 20 'ftpini.scr' et suivre les instructions de paramétrage figurant sur ce fichier, 1.2.2 - lancer la commande ftp -s:ftpini.scr depuis le répertoire de travail. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 21 2 - Décompresser les exemples de JCLs avec la commande TSO RECEIVE INDA('tsouid.JBVP351.SAMPLE.JCL.BIN'). Ceci créée le fichier tsouid.JBVP351.TMP.JCLINST avec les membres suivants : BVPALLOC BVPPACC BVPPAPP BVPPREC BVPXMIT BVP1DCSI BVP2ICSI BVP3ALLO BVP4DEFZ BVP5DDEF BVP6DDEF BVP7ALLO BVP8PDD BVP9PAL 3 - Décharger les RELFILEs compressés et le SMPMCS depuis le CD-ROM. 3.1 - Paramétrer et soumettre le JCL BVPALLOC contenu dans tsouid.JBVP351.TMP.JCLINST afin d'allouer sur Z/OS les fichiers nécessaires au déchargement.
  • Page 22 éléments livrés (High-Level Qualifier) : hlq.SBVPINST : ensemble des fichiers de longueur 80 comprenant : – le fichier des libellés d'erreur (BVPAE), – le JCL d'installation initial (BVPPINIT) , VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 23 – un fichier contenant les JCLs et procédures d'installation et d'exploitation (BVPPTTAL), – les exemples de JCLs SMP/E, – le fichier BVPAMIAM contenant les paramètres de la procédure MIAM. hlq.SBVPPF2 : fichiers d'initialisation PC et PE. hlq.SBVPMBR8 : load-modules batch (les load-modules BVPDS600 et BVPDS610 d'interface entre VA Pacbase et DSMS 2.5 sont livrés en standard ;...
  • Page 24 .JOB NAMES PREFIXES (MAX OF 5 CHARACTERS) ===PRM CCPT=<> .JOB ACCOUNTING CODES (JOB CARDS) ===PRM CLASSJ=1 .JOB EXECUTION CLASS (JOB CARDS) ===PRM MSGCL=A .JCL OUTPUT CLASS (MSGCLASS) ===PRM INDSV=’EXP.BVP3V’ .SYSTEM VSAM FILES INDEX VA-PAC VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 25: Installation Du Jcl

    ===PRM INDSVE=’EXP.BVP3VE’ .SYSTEM VSAM FILES INDEX ENDEVOR ===PRM INDSN=’EXP.BVP3N’ .SYSTEM NON VSAM FILES INDEX VA-PAC ===PRM INDSNE=’EXP.BVP3NE’ .SYSTEM NON VSAM FILES INDEX ENDEVOR ===PRM INDUV=’UTI.BVP3V’ .USER VSAM FILES INDEX ===PRM INDUN=’UTI.BVP3N’ .USER NON VSAM FILES INDEX VA-PAC ===PRM INDUNE=’UTI.BVP3NE’ .USER NON VSAM FILES INDEX ENDEVOR ===PRM BASE=’BASE’...

  • Page 26: Entrees Utilisateur

    Lignes ===BEGMOD ./ ADD NAME=$ZMODUL On obtient ainsi l'ajout d'une ligne devant chaque module de JCL, de la forme ./ ADD NAME=<module-de-JCL> RESULTAT OBTENU : le JCL complet VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 27 Le fichier obtenu en SYSUT2 contient l'ensemble des JCLs d'installation et d'exploitation. Ce fichier doit être traité sous éditeur pour lancer l'installation proprement dite. Deux manipulations sont à effectuer sur le JCL complet : 1. Modifications globales éventuelles : Certaines adaptations peuvent être effectuées sur l'ensemble des JCLs. Les catalogues VSAM sont en commentaire dans le JCL obtenu suite à...

  • Page 28: Liste Des Jcls

    à des $ dans le flot traité par BVPMMJCL qui ne sont effectivement pas des paramètres. Liste des JCLs Tableau des JCLs d'installation Membre Contenu Procédure Installation Système et Base Administration VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 29 Membre Contenu Procédure D00CSD Mise à jour CICS : composants D01ALLOC Allocation des PDS de paramètres D02CPAR Chargement des paramètres communs D03DEFIN Définition des fichiers VSAM communs D03GDG Définition des GDG sauvegarde paramètres D03INI Initialisations des fichiers système D04MBR Renommage load modules batch Exit users D05IPROC Allocation de la Proclib (facultatif) D05PROC...
  • Page 30 Mise à jour des libellés d'erreur des applications EMUP générées JCLEXLI Extraction de bibliothèque PACX JCLEXPJ Extraction de mouvements à partir du journal PACX JCLEXTA Extraction d'entité PACX JCLEXTR Extraction d'entité PACX VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 31 Membre Contenu Procédure JCLEXUE Extraction d'entité utilisateur PACX JCLEXPU Extraction pour purge PACX JCLRMEN Extraction pour remontée remplacement PACX recodification JCLGPMC Edition-génération (MOVE CORRESPONDING) GPMC JCLGPRC Edition-génération (API COBOL) GPRC JCLGPRP Edition-génération + PPAF GPRP JCLGPRT Edition-génération GPRT JCLGPRU Edition-génération source + mise en bibliothèque GPRU source JCLMLIB...
  • Page 32 Reprise des mots de passe depuis 2.5 UTMP RPC250 Reprise du fichier PC depuis 2.n PC25 RPE250 Reprise du fichier PE depuis 2.n PE25 RPG200 Reprise du fichier PG depuis 2.0 PG20 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 33 Membre Contenu Procédure RPG250 Reprise du fichier PG depuis 2.5 PG25 RPJ250 Reprise du fichier PJ depuis 2.n PJ25 RPP250 Reprise du fichier PP PP25 RPEI25 Reprise PEI RPP2 RUV250 Reprise du fichier UV de Pac/Transfer UV25 Utilitaires JCLPURGE Purge des fichiers de travail LB PA WS JCLUKD1 Activation des clés d'accès en batch UKD1...

  • Page 34: Paramétrage Du Jcl

    <> CLASSJ Classe d'exécution des jobs MSGCL Classe de sortie du JCL INDSV Système VSAM VA Pacbase (24 car. maxi) 'EXP.BVP3V' INDSVE Système VSAM Endevor (24 car. maxi) 'EXP.BVP3VE' VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 35 Paramètre Signification Défaut INDSN Système non VSAM (SAM, PDS) VA Pacbase 'EXP.BVP3N' (24 car. maxi) INDSNE Système non VSAM (SAM, PDS) Endevor (24 'EXP.BVP3NE' car. maxi) INDUV Utilisateur VSAM (24 car. maxi) 'UTI.BVP3V' INDUN Utilisateur non VSAM (SAM) (24 car. maxi) 'UTI.BVP3N' BASE Code Base de Développement (il valorise aussi...

  • Page 36: Excn Connexion Exci

    (5) En cas d'utilisation de SCM, il faut retirer l'étoile de commentaire sur la ligne contenant le paramètre DFHEXC au niveau de la STEPLIB du step PAC dans les procédures GPRC GPRP GPRT et GPRU. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 37: Séparateurs Des Modules De Jcls

    (6) Paramètre obligatoire même lorsque l'on est sous SMS. Séparateurs des modules de JCLs Lignes en tête ou en fin de modules de JCL ===BEGMOD ..1 ..) lignes à insérer avant chaque module de JCL ..n ===ENDMOD ..1 ..) lignes à...
  • Page 38 Le code action 'X' permet de ne pas effectuer de transformation des caractères. Cette gestion est assurée par le programme BVPUTCR. Si l'on souhaite toujours travailler en majuscules, il suffit de remplacer le programme BVPUTCR par BVPUTCX. JCL d'exécution VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 39 //$PRFJ.D0 JOB ($CCPT),’SYSTEM DFHCSDUP’,CLASS=$CLASSJ, MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - CICSCSD CICS: CSD BATCH UPDATE SYSTEM //********************************************************************* //DFHCSDUP EXEC PGM=DFHCSDUP //STEPLIB DD DSN=$CSDL,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //DFHCSD DD DSN=$DFHCSD,DISP=SHR //SYSIN DD * *********************************************************************** COMMON FILES *********************************************************************** DEFINE FILE(BVPAE) GROUP($GROUF) DESCRIPTION(HELP FILE) DSNAME($INDSV..BVPAE)
  • Page 40 ADD(NO) BROWSE(YES) DELETE(NO) READ(YES) UPDATE(NO) RECOVERY(BACKOUTONLY) DEFINE FILE(BVPQJ) GROUP($GROUF) DESCRIPTION(FILE QJ) DSNAME($INDSV..BVPQJ) STRINGS(10) STATUS (ENABLED) OPENTIME(STARTUP) DATABUFFERS(11) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) RECOVERY(BACKOUTONLY) DEFINE FILE(BVPTR) GROUP($GROUF) DESCRIPTION(FILE TR) DSNAME($INDSV..BVPTR) STRINGS(10) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 41 STATUS (ENABLED) OPENTIME(STARTUP) DATABUFFERS(11) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) RECOVERY(BACKOUTONLY) DEFINE FILE(BVPWS) GROUP($GROUF) DESCRIPTION(FILE WS) DSNAME($INDSV..BVPWS) STRINGS(10) STATUS (ENABLED) OPENTIME(STARTUP) DATABUFFERS(11) INDEXBUFFERS(10) RECORDFORMAT(F) ADD(YES) BROWSE(YES) DELETE(YES) READ(YES) UPDATE(YES) RECOVERY(BACKOUTONLY) ***************************************************************** DEFINE PROGRAM(BVPCICSE) GROUP($GROUP) EXECKEY(CICS) DEFINE PROGRAM(BVPCMPUF) GROUP($GROUP) DEFINE PROGRAM(BVPFAJO) GROUP($GROUP) DEFINE PROGRAM(BVPFANM) GROUP($GROUP) DEFINE PROGRAM(BVPFBAG) GROUP($GROUP) DEFINE PROGRAM(BVPFBIB) GROUP($GROUP)
  • Page 42 DEFINE PROGRAM(BVPQV20) GROUP($GROUP) DEFINE PROGRAM(BVPQV30) GROUP($GROUP) DEFINE PROGRAM(BVPQX00) GROUP($GROUP) DEFINE PROGRAM(BVPQX01) GROUP($GROUP) DEFINE PROGRAM(BVPQY01) GROUP($GROUP) DEFINE PROGRAM(BVPQY02) GROUP($GROUP) DEFINE PROGRAM(BVPQY03) GROUP($GROUP) DEFINE PROGRAM(BVPQY04) GROUP($GROUP) DEFINE PROGRAM(BVPQY05) GROUP($GROUP) DEFINE PROGRAM(BVPQY10) GROUP($GROUP) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 43 DEFINE PROGRAM(BVPQY11) GROUP($GROUP) DEFINE PROGRAM(BVPQY20) GROUP($GROUP) DEFINE PROGRAM(BVPQY30) GROUP($GROUP) DEFINE PROGRAM(BVPQY33) GROUP($GROUP) DEFINE PROGRAM(BVPQZ00) GROUP($GROUP) DEFINE PROGRAM(BVPQ000) GROUP($GROUP) DEFINE PROGRAM(BVPQ100) GROUP($GROUP) DEFINE PROGRAM(BVPQ200) GROUP($GROUP) DEFINE PROGRAM(BVPQ210) GROUP($GROUP) DEFINE PROGRAM(BVPQ300) GROUP($GROUP) DEFINE PROGRAM(BVPQ400) GROUP($GROUP) DEFINE PROGRAM(BVPQ500) GROUP($GROUP) DEFINE PROGRAM(BVPQ600) GROUP($GROUP) DEFINE PROGRAM(BVPQ700) GROUP($GROUP) DEFINE PROGRAM(BVPQ800) GROUP($GROUP) DEFINE PROGRAM(BVPQ900) GROUP($GROUP) DEFINE PROGRAM(BVPRACF) GROUP($GROUP)
  • Page 44 DEFINE PROGRAM(BVPSF10) GROUP($GROUP) DEFINE PROGRAM(BVPSF20) GROUP($GROUP) DEFINE PROGRAM(BVPSH00) GROUP($GROUP) DEFINE PROGRAM(BVPSH02) GROUP($GROUP) DEFINE PROGRAM(BVPSH04) GROUP($GROUP) DEFINE PROGRAM(BVPSH10) GROUP($GROUP) DEFINE PROGRAM(BVPSH20) GROUP($GROUP) DEFINE PROGRAM(BVPSH30) GROUP($GROUP) DEFINE PROGRAM(BVPSH40) GROUP($GROUP) DEFINE PROGRAM(BVPSH42) GROUP($GROUP) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 45 DEFINE PROGRAM(BVPSH44) GROUP($GROUP) DEFINE PROGRAM(BVPSI00) GROUP($GROUP) DEFINE PROGRAM(BVPSI10) GROUP($GROUP) DEFINE PROGRAM(BVPSI20) GROUP($GROUP) DEFINE PROGRAM(BVPSI30) GROUP($GROUP) DEFINE PROGRAM(BVPSJ00) GROUP($GROUP) DEFINE PROGRAM(BVPSK00) GROUP($GROUP) DEFINE PROGRAM(BVPSL00) GROUP($GROUP) DEFINE PROGRAM(BVPSO00) GROUP($GROUP) DEFINE PROGRAM(BVPSO02) GROUP($GROUP) DEFINE PROGRAM(BVPSO03) GROUP($GROUP) DEFINE PROGRAM(BVPSO04) GROUP($GROUP) DEFINE PROGRAM(BVPSO05) GROUP($GROUP) DEFINE PROGRAM(BVPSO10) GROUP($GROUP) DEFINE PROGRAM(BVPSO12) GROUP($GROUP) DEFINE PROGRAM(BVPSO37) GROUP($GROUP) DEFINE PROGRAM(BVPSO38) GROUP($GROUP)

  • Page 46: Allocation Et Chargement Des Paramètres Système

    // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D01ALLOC //* INITIAL ALLOCATION OF THE PARAMETER PDS AND ADDITIONAL FILES .STEP1 : LISTCAT .STEP2 : ALLOCATION //********************************************************************* //STEP1 EXEC PGM=IDCAMS VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 47 Changer :/ en ./ avant de soumettre le JOB. JCL d'exécution ===FRM TYPE=DATA //$PRFJ.D2C JOB ($CCPT),’PAC D02CPAR’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D02CPAR LOADS PDS OF COMMON PARAMETERS .STEP1 : LOADING COMMON PARAMETERS //* ->NOTE: REPLACE :/ BY ./ BEFORE SUBMITTING THE JOB...
  • Page 48 ADD NAME=DFBVPGJ DELETE ($INDSV..BVPGJ) CLUSTER SET LASTCC = 0 SET MAXCC = 0 DEFINE CLUSTER ( NAME ($INDSV..BVPGJ) SHR (2) RUS NUMBERED VOL ($VOLSV) CYL (1 1) RECSZ (170,170) ) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 49 DATA ( NAME ($INDSV..BVPGJ.D) CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DFBVPGU DELETE ($INDSV..BVPGU) CLUSTER DEFINE CLUSTER ( NAME ($INDSV..BVPGU) SHR (2,3) RUS KEYS (8,0) VOL ($VOLSV) CYL (4 1) RECSZ (80,80) ) INDEX ( NAME ($INDSV..BVPGU.I) CISZ (4096) ) DATA ( NAME ($INDSV..BVPGU.D) FSPC (2,1)
  • Page 50 /*: CATALOG ($VCAT) */ ADD NAME=DFBVPSS DELETE ($INDSV..BVPSS) CLUSTER DEFINE CLUSTER ( NAME ($INDSV..BVPSS) SHR (2,3) RUS KEY (5 0) VOL ($VOLSV) RECSZ (4605,4605) ) INDEX ( NAME ($INDSV..BVPSS.I) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 51 CISZ (4096) ) DATA ( NAME ($INDSV..BVPSS.D) FSPC (10,5) SPEED CYL (5 1) CISZ (5120) ) /*: CATALOG ($SCAT) */ ADD NAME=DFBVPGK DELETE ($INDSV..BVPGK) CLUSTER DEFINE CLUSTER ( NAME ($INDSV..BVPGK) SHR (4) RUS KEY (29 0) VOL ($VOLSV) CYL (4 1) RECSZ (80,80) ) INDEX ( NAME ($INDSV..BVPGK.I)
  • Page 52 FSPC (10 5) SPEED CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DFSYSEXT DELETE (&USES.SYSEXT.&USER) CLUSTER SET LASTCC = 0 SET MAXCC = 0 DEFINE CLUSTER ( NAME (&USES.SYSEXT.&USER) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 53 SHR (2 3) RUS KEYS(43 0) VOL ($VOLUV) CYL (5 1) RECSZ (254 254) ) INDEX ( NAME (&USES.SYSEXT.&USER.I) CISZ (4096) ) DATA ( NAME (&USES.SYSEXT.&USER.D) FSPC (10 5) SPEED CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DFSYSEX2 DELETE (&USES.SYSEX2.&USER) CLUSTER SET LASTCC = 0 SET MAXCC = 0 DEFINE CLUSTER ( NAME (&USES.SYSEX2.&USER)
  • Page 54 DELETE ($INDUV..SYTRDU.&USER) CLUSTER SET LASTCC = 0 SET MAXCC = 0 DEFINE CLUSTER ( NAME ($INDUV..SYTRDU.&USER) SHR (2 3) RUS KEYS(28 0) VOL ($VOLUV) CYL (5 1) RECSZ (180 180) ) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 55 INDEX ( NAME ($INDUV..SYTRDU.&USER.I) CISZ (4096) ) DATA ( NAME ($INDUV..SYTRDU.&USER.D) FSPC (10 5) SPEED CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DLSYSPAF DELETE (&USES.SYSPAF.&USER) CLUSTER ADD NAME=DLSYSEXT DELETE (&USES.SYSEXT.&USER) CLUSTER ADD NAME=DLSYIANA DELETE ($INDUV..SYIANA.&USER) CLUSTER ADD NAME=DLSYTRDU DELETE ($INDUV..SYTRDU.&USER) CLUSTER ADD NAME=DLBVPWK DELETE ($INDSV..BVPWK) CLUSTER ADD NAME=DLBVPWY...

  • Page 56: Initialisations

    //*:STEPCAT DD DSN=$SCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //SYSIN DD DSN=$INDSN..BVPSY(DFBVPSA),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSC),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSG),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSN),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSR),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSP),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSS),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPPA),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPGS),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPGN),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPGR),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 57 IEFBR14 Allocation DSCB modèle JCL d'exécution //$PRFJ.D3G JOB ($CCPT),’PAC D03GDG’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D03GDG JOB TO RUN ONLY THE FIRST TIME THE PRODUCT IS INSTALLED . BUILDING OF DSCB MODEL //********************************************************************* //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=$OUT...
  • Page 58 DD * REPRO INFILE (GSI) OUTFILE (GSO) //STEP3 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$SCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //WSO DD DSN=$INDSV..BVPWS,DISP=SHR //WSI DD DSN=$INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD * REPRO INFILE (WSI) OUTFILE (WSO) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 59: Renommage Des Programmes Exit User Batch

    RENAME load modules Exit users STEP2 IEBCOPY COPY load modules Exit users JCL d'exécution //$PRFJ.D4B JOB ($CCPT),’PAC D04MBR’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D04MBR - RENAME EXIT USERS BATCH LOAD MODULES - //********************************************************************* //STEP1 EXEC PGM=IEBCOPY,REGION=0M //SYSPRINT DD SYSOUT=$OUT //I1 DD DSN=$HLQ..SBVPMBR8,DISP=SHR...

  • Page 60: Chargement Des Procédures

    PROCLIB déjà existante : exécuter dans ce cas directement le job de chargement. Module D05IPROC : job '$prfj.D5I' Allocation d'une bibliothèque réservée (Facultatif) Step Programme Commentaires STEP1 IEFBR14 Allocation bibliothèque de procédures VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 61 JCL d'exécution //$PRFJ.D5I JOB ($CCPT),’PAC D05IPROC’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D05IPROC WARNING! OPTIONAL JOB ===================== INITIAL ALLOCATION OF A SPECIAL "PROCLIB" FOR THE PRODUCT .STEP1 : LISTCAT .STEP2 : ALLOCATION //********************************************************************* //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=$OUT...
  • Page 62 :/ ADD NAME=BVPIANA :/ ADD NAME=BVPIGRA :/ ADD NAME=BVPIMFH :/ ADD NAME=BVPINAE :/ ADD NAME=BVPINFP :/ ADD NAME=BVPINFQ :/ ADD NAME=BVPINGU :/ ADD NAME=BVPINQJ :/ ADD NAME=BVPINSL :/ ADD NAME=BVPIPEP VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 63 :/ ADD NAME=BVPIPFQ :/ ADD NAME=BVPIPIA :/ ADD NAME=BVPISEP :/ ADD NAME=BVPISOS :/ ADD NAME=BVPJJND :/ ADD NAME=BVPJRND :/ ADD NAME=BVPLSND :/ ADD NAME=BVPMB25 :/ ADD NAME=BVPMB30 :/ ADD NAME=BVPMEND :/ ADD NAME=BVPMNDO :/ ADD NAME=BVPMLIB :/ ADD NAME=BVPPACG :/ ADD NAME=BVPPACS :/ ADD NAME=BVPPACX :/ ADD NAME=BVPPAGX :/ ADD NAME=BVPPC25...

  • Page 64: Chargement Des Squelettes De Génération

    .STEP4 : ALLOCATING AND LOADING "SF" //********************************************************************* //STEP1 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$SCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //SYSIN DD DSN=$INDSN..BVPSY(DFBVPSA),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSC),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSG),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSN),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSR),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSS),DISP=SHR DD DSN=$INDSN..BVPSY(DFBVPSP),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 65: Chargement Des Libellés D'erreur Et Aide En Ligne

    //STEP2 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$SCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //SAO DD DSN=$INDSV..BVPSA,DISP=SHR //SCO DD DSN=$INDSV..BVPSC,DISP=SHR //SGO DD DSN=$INDSV..BVPSG,DISP=SHR //SNO DD DSN=$INDSV..BVPSN,DISP=SHR //SRO DD DSN=$INDSV..BVPSR,DISP=SHR //SSO DD DSN=$INDSV..BVPSS,DISP=SHR //SPO DD DSN=$INDSV..BVPSP,DISP=SHR //SAI DD DSN=$HLQ..SBVPPF5(BVPSA$LSK),DISP=SHR //SCI DD DSN=$HLQ..SBVPPF6(BVPSC$LSK),DISP=SHR //SGI DD DSN=$HLQ..SBVPPF5(BVPSG$LSK),DISP=SHR //SNI DD DSN=$HLQ..SBVPPF5(BVPSN$LSK),DISP=SHR //SRI DD DSN=$HLQ..SBVPPF5(BVPSR$LSK),DISP=SHR...

  • Page 66: Installation De La Base Administration

    Base Administration de la version précédente, de récupérer au préalable le fichier GU correspondant à la sauvegarde PE. Step Programme Commentaires STEP1 IDCAMS DELETE DEFINE de GU STEP2 PTUIGU Création des données VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 67: Initialisation Des 'Generation Data Group

    JCL d'exécution //$PRFJ.D8 JOB ($CCPT),’PAC D08INGU’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL // JCLLIB ORDER=($BIBP) //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - D08INGU - INITIALIZATION OF USER FILE GU - EXECUTE THIS JOB ONLY FOR FIRST INSTALLATION //********************************************************************* //INGU EXEC BVPINGU Initialisation des 'Generation Data Group' Module D08INIAD : Job '$prfj.D8A'...
  • Page 68 DD * DEFINE GENERATIONDATAGROUP - (NAME ($INDSN..BVPPE) LIMIT (3) SCR) //STEP4 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=$OUT //SYSIN DD DUMMY //SYSUT1 DD DSN=$HLQ..SBVPPF2(BVPPE),DISP=SHR //SYSUT2 DD DSN=$INDSN..BVPPE(+1), DISP=(,CATLG,DELETE), UNIT=$UNITSN, VOL=SER=$VOLSN, SPACE=(TRK,(220,10),RLSE), DCB=($DSCB,RECFM=VB,LRECL=1023,BLKSIZE=27998) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 69: Chargement De La Base Administration

    //STEP5 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$VCAT,DISP=SHR //GDGMOD DD DSN=$INDSN..BVPJQ, DISP=(,KEEP,DELETE), UNIT=$UNITSN, VOL=SER=$VOLSN, SPACE=(TRK,0), DCB=($DSCB,RECFM=FB,LRECL=1119,BLKSIZE=11190) //SYSPRINT DD SYSOUT=$OUT //SYSIN DD * DEFINE GENERATIONDATAGROUP - (NAME ($INDSN..BVPJQ) LIMIT (3) SCR) //STEP6 EXEC PGM=IEBGENER //SYSIN DD DUMMY //SYSPRINT DD DUMMY //SYSUT1 DD DUMMY,DCB=(RECFM=FB,LRECL=1119,BLKSIZE=1119) //SYSUT2 DD DSN=$INDSN..BVPJQ(+1), DISP=(,CATLG,DELETE),...

  • Page 70: Initialisation Fichier Archivage Qj

    Module D08XMET : Job '$prfj.8X' Ce JCL est à exécuter lors de la première installation et à chaque réinstallation. Il exécute la procédure VING et installe le Modèle administration. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 71: Saisie De La Clé D'accès

    JCL d'exécution //$PRFJ.8X JOB ($CCPT),’PAC D08XMET’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL // JCLLIB ORDER=($BIBP) //********************************************************************* //* VISUALAGE PACBASE - ADMINISTRATION DATABASE - MODEL INSTALLATION INDICATE THE FILE NECESSARY FOR ROAD PROCEDURE //********************************************************************* //VING EXEC BVPVING,FDIC=’$HLQ..SBVPPF8(BVPMETAD)’, USER=ADMIN *ADMIN ADMIN VINSI //*VINS.PAC7MR DD DSN=ROADFILE Saisie de la clé d'accès Cette étape est effectuée à...

  • Page 72: Installations Annexes

    LISTENER ===> Y Enter Yes!No Après avoir sélectionné le listener : EZAC,ALter,LISTENER ENTER ALL FIELDS APPLID ===> A6ECCSXP APPLID of CICS System NAME ===> CSKL TRANSACTION NAME OF LISTENER VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 73: Utilitaire De Purge Des Fichiers De Travail

    à jour. Pour bénéficier des fonctionnalités de mise à jour, il faudra télécharger le source BVPRS12 via le Support VisualAge Pacbase, à l'adresse suivante : http://www.ibm.com/software/awdtools/vapacbase/support.htm, l'adapter et l'installer comme tout programme DB2 classique : Préparation par pré...

  • Page 74: Compléments Cics Pour Exci

    JCL d'exécution //$PRFJ.E0 JOB ($CCPT),’SYSTEM DFHCEXCI’,CLASS=$CLASSJ, MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - CICSCSD EXCI: CSD BATCH UPDATE SYSTEM //********************************************************************* //DFHCSDUP EXEC PGM=DFHCSDUP //STEPLIB DD DSN=$CSDL,DISP=SHR //SYSPRINT DD SYSOUT=$OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 75: Interface Systèmes De Sécurité

    //DFHCSD DD DSN=$DFHCSD,DISP=SHR //SYSIN DD * ***************************************************************** DEFINE CONNECTION($EXCN) GROUP($GROUE) ACCESSMETHOD(IRC) PROTOCOL(EXCI) CONNTYPE(GENERIC) SINGLESESS(NO) DATASTREAM(USER) RECORDFORMAT(U) QUEUELIMIT(NO) MAXQTIME(NO) AUTOCONNECT(NO) INSERVICE(YES) ATTACHSEC(LOCAL) BINDSECURITY(NO) USEDFLTUSER(NO) XLNACTION(KEEP) DEFINE SESSIONS($EXSS) GROUP($GROUE) CONNECTION($EXCN) PROTOCOL(EXCI) MAXIMUM(0,0) RECEIVEPFX($EXPF) RECEIVECOUNT(5) SENDSIZE(4096) RECEIVESIZE(4096) SESSPRIORITY(0) AUTOCONNECT(NO) BUILDCHAIN(YES) USERAREALEN(0) IOAREALEN(4096,4096) RELREQ(NO) DISCREQ(NO) NEPCLASS(0) RECOVOPTION(SYSDEFAULT) ***************************************************************** ADD GROUP($GROUE) LIST($LIST)

  • Page 76: Mise En Oeuvre Pour Racf

    Base Administration que ce code soit bien autorisé à lancer la procédure soumise. Erreur éditée si l'utilisateur n'est pas autorisé : 8296 Utilisateur non autorisé à cette procédure 2) Pour chaque carte '*' rencontrée : VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 77 3) Pour les procédures avec précision d'un code bibliothèque sur la carte '*' (GPRT, EXTR, UPDT ...), il est contrôlé dans les tables RACF les autorisations VisualAge Pacbase utilisateur/ressource bibliothèque. Erreur éditée si non autorisé : 2546 Accès à cette bibliothèque interdit Il y a toujours deux niveaux de contrôle :...
  • Page 78 3. ajout du nom de ce load module dans la librairie système de load SVC, 4. ZAP du module Visualage Pacbase BVPSECB avec le numéro de routine SVC choisi, 5. après la mise à jour de la librairie LPA, il sera nécessaire d'effectuer un IPL CLPA pour prendre en compte les modifications.

  • Page 79: Mise En Oeuvre Pour Topsecret

    Mise en oeuvre pour TOPSECRET Les sources des sous-programmes (assembleur) d'accès aux tables TOPSECRET sont livrés par SMP/E dans le PDS hlq.SBVPSRC et sont à compiler. Compilation des sous-programmes d'accès BVPTSS et BVPTSSC doivent être compilés avec la bibliothèque TSS "OPMAT" dans la ligne SYSLIB de la compilation Assembleur.

  • Page 80: Interface Va Pacbase/Endevor Tso

    'INFOPAC' est transparent pour l'utilisateur et les éléments appartenant à ce type sont à cet égard interdits de toutes modifications en dehors des processeurs prévus, entre autres fonctions, à cet effet. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 81 Trois PROCESSOR GROUP doivent être définis pour le système VA Pacbase Endevor. Deux de ces PROCESSOR GROUP sont affectés à chaque type 'VA Pac', et un seul est affecté à chaque type 'INFOPAC'. Ces PROCESSOR GROUP doivent être définis comme suit: Entités VA Pac "non compilables"...

  • Page 82: Installation Du Système

    Reprises depuis la 2.5 (avant l'exécution de ce JOB, lire attentivement le chapitre "Reprise" du "Manuel de référence VA Pacbase Endevor TSO"). ZAP sur l'EXIT2 'C1UEXT02' Module D11ZXIT : job '$PRFJ.ZXIT' Ce module comprend l'étape suivante : VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 83: Chargement Du Pds Des Paramètres Du Système

    Step Programme Commentaires STEP01 IMASPZAP ZAP de l'EXIST2. Il concerne le nom membre de la bibliothèque 'ISPMLIB' des messages VA Pacbase Endevor. A n'exécuter que si la valeur choisie pour le paramètre $MSGSXH n'est pas '50'. JCL d'exécution //$PRFJ.XIT JOB ($CCPT),’ZAP EXIT USER’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //**************************************************** --- ZAP ’C1UEXT02’...
  • Page 84 BEFORE EXECUTING THIS JOB, REPLACE ALL ’:/’ BY ’./’ VIA THE EDITOR. *--------------------------------------------------* //ET010 EXEC PGM=IEBUPDTE,PARM=NEW //SYSPRINT DD SYSOUT=$OUT //SYSUT1 DD DSN=$INDSN..BVPSY,DISP=SHR //SYSUT2 DD DSN=$INDSN..BVPSY,DISP=SHR //SYSIN DD DATA,DLM=’F+’ :/ ADD NAME=DFBVPNJ VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 85 DELETE ($INDSVE..BVPNJ) CLUSTER DEFINE CLUSTER ( NAME ($INDSVE..BVPNJ) SHR (2) NUMBERED VOL ($VOLSV) REC (310) RECSZ (310,310) RUS ) DATA ( NAME ($INDSVE..BVPNJ.D) CISZ (4096) ) /*: CATALOG ($CATU) */ :/ ADD NAME=DFBVPTS DELETE ($INDSVE..BVPTS) CLUSTER DEFINE CLUSTER ( NAME ($INDSVE..BVPTS) SHR (2 3) KEYS (14 1) VOL ($VOLSV)
  • Page 86 ’ONLY ACTIONS ’’ADD & UPDATE’’ ARE ALLOWED FOR PACBASE THROUGH PROCESSO :/ ADD NAME=PRCSGENI //*-------------------------------------------------------------------* //* G E N E R A T E P R O C E S S O R (INFOPAC TYPE) * VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 87 //*-------------------------------------------------------------------* //GENI PROC ROOTPGM=’BV’, STEPLIB=’$HLQ..SBVPMBR8’, OUT=’$OUT’, TY=’$INDSVE..BVPTY’, UP=’$INDSVE..BVPUP’, LOADTEST=’???’ //GEN00 EXEC PGM=BC1PDSIN,MAXRC=0, EXECIF=(&C1COMMENT(36,5),NE,’*RND*’) //GEN02A DD DSN=&&SYSOUT1,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //GEN02B DD DSN=&&SYSDMP1,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //GEN03A DD DSN=&&SYSOUT2,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //GEN04A DD DSN=&&SYSOUT3,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //GEN04B DD DSN=&&SYSDMP3,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //GEN0A EXEC PGM=IEBCOPY,MAXRC=4, EXECIF=(&C1COMMENT(36,5),NE,’*RND*’) //SYSPRINT DD SYSOUT=&OUT //SYSUT3...
  • Page 88 EXEC PGM=&ROOTPGM.PNPR11,COND=(00,NE,GEN02), EXECIF=(&C1COMMENT(36,5),NE,’*RND*’) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //PAC7EV DD DSN=&&PAC7EV,DISP=(OLD,PASS) //PAC7IP DD DSN=&&PAC7IP,DISP=(OLD,PASS) //PAC7PU DD DSN=&UP,DISP=SHR //SYSOUT DD DSN=&&SYSOUT3,DISP=(MOD,PASS) //SYSUDUMP DD DSN=&&SYSDMP3,DISP=(MOD,PASS) //*---------------------------------------------------* PRINT SYSOUTS, SYSUDUMP, ... //*---------------------------------------------------* //GEN05 EXEC PGM=CONLIST,PARM=PRINT,COND=EVEN,MAXRC=0, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 89 EXECIF=((&C1COMMENT(36,5),NE,’*IBM*’), (&C1COMMENT(36,5),NE,’*RND*’)) //C1BANNER DD DSN=&&BANNER,DISP=(,PASS,DELETE),UNIT=SYSDA, SPACE=(TRK,(1,1),RLSE) //C1PRINT DD SYSOUT=&OUT, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS) //LIST01 DD DSN=&&SYSOUT1,DISP=(OLD,DELETE) //LIST02 DD DSN=&&SYSDMP1,DISP=(OLD,DELETE) //LIST03 DD DSN=&&SYSOUT2,DISP=(OLD,DELETE) //LIST04 DD DSN=&&SYSOUT3,DISP=(OLD,DELETE) //LIST05 DD DSN=&&SYSDMP3,DISP=(OLD,DELETE) :/ ADD NAME=PRCSGEPP //*-------------------------------------------------------------------* //* G E N E R A T E P R O C E S S O R...
  • Page 90 //* DEFINED IN TSO WITH A NEW DDNAME FOR EXIT3 //*---------------------------------------------------* //TRS05 EXEC PGM=&ROOTPGM.PNPR11,COND=(00,NE,TRS03), EXECIF=(&C1ACTION(1,8),EQ,’GENERATE’) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //PAC7EV DD DSN=&&PAC7EV,DISP=(OLD,PASS) //PAC7IP DD DSN=&&PAC7IP,DISP=(OLD,PASS) //PAC7PU DD DSN=&UP,DISP=SHR //SYSOUT DD DSN=&&SYSOUT3,DISP=(MOD,PASS) //SYSUDUMP DD DSN=&&SYSDMP3,DISP=(MOD,PASS) //*---------------------------------------------------* TRANSFER ’INFOPAC’ ELEMENT //*---------------------------------------------------* VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 91 //TRS06 EXEC PGM=C1BM3000,PARM=(PAC7BS,CXMSGSX), EXECIF=(&C1ACTION(1,8),EQ,’TRANSFER’) //PAC7BS DD DSN=&&BSTIPT01,DISP=(OLD,PASS) //CXMSGSX DD SYSOUT=&OUT //*---------------------------------------------------* PRINT SYSOUTS, SYSUDUMP, ... //*---------------------------------------------------* //TRS07 EXEC PGM=CONLIST,PARM=PRINT,COND=EVEN,MAXRC=0, EXECIF=((&C1ACTION(1,3),NE,’ADD’), (&C1ACTION(1,4),NE,’MOVE’), (&C1ACTION(1,6),NE,’UPDATE’)) //C1BANNER DD DSN=&&BANNER,DISP=(,PASS,DELETE),UNIT=SYSDA, SPACE=(TRK,(1,1),RLSE) //C1PRINT DD SYSOUT=&OUT, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS) //LIST01 DD DSN=&&SYSOUT1,DISP=(OLD,DELETE) //LIST02 DD DSN=&&SYSDMP1,DISP=(OLD,DELETE) //LIST03 DD DSN=&&SYSOUT2,DISP=(OLD,DELETE) //LIST04 DD DSN=&&SYSOUT3,DISP=(OLD,DELETE) //LIST05 DD DSN=&&SYSDMP3,DISP=(OLD,DELETE)
  • Page 92 SPACE=(TRK,(5,5),RLSE) //TRS04B DD DSN=&&SYSDMP3,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //TRS01 EXEC PGM=&ROOTPGM.PNTRAN, EXECIF=((&C1ACTION(1,3),NE,’ADD’), (&C1ACTION(1,4),NE,’MOVE’), (&C1ACTION(1,6),NE,’UPDATE’)), PARM=(&C1ACTION(1,8,_),&C1ENVMNT(1,8,_), &C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_), &C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)G) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //PAC7PU DD DSN=&UP,DISP=SHR //PAC7TR DD DSN=&&PAC7TR,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=58,BLKSIZE=58), SPACE=(TRK,(01,01),RLSE) //TRS02 EXEC PGM=&ROOTPGM.PNPR10, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 93 EXECIF=((&C1ACTION(1,3),NE,’ADD’), (&C1ACTION(1,4),NE,’MOVE’), (&C1ACTION(1,6),NE,’UPDATE’)), PARM=(&C1ACTION(1,8,_),&C1ENVMNT(1,8,_), &C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_), &C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //SYSIN DD DSN=&&PAC7TR,DISP=(OLD,DELETE) //PAC7TZ DD DSN=&TY,DISP=SHR //PAC7BS DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), SPACE=(TRK,(01,01),RLSE) //PAC7CW DD DSN=&&CONWIN,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), SPACE=(TRK,(01,01),RLSE) //PAC7EV DD DSN=&&PAC7EV,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600), SPACE=(TRK,(01,01),RLSE) //SYSOUT DD DSN=&&SYSOUT1,DISP=(MOD,PASS) //SYSUDUMP DD DSN=&&SYSDMP1,DISP=(MOD,PASS) //*---------------------------------------------------* //* PRINT ’INFOPAC’ MEMBER OF THE ORIGINAL STAGE //* INTO SEQUENTIAL FILE ’PAC7IP’...
  • Page 94 //DEL03A DD DSN=&&SYSOUT2,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //DEL03B DD DSN=&&SYSDMP2,DISP=(,PASS,DELETE),UNIT=SYSDA, DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171), SPACE=(TRK,(5,5),RLSE) //DEL01 EXEC PGM=&ROOTPGM.PNPR10, EXECIF=(&C1COMMENT(36,5),NE,’*IBM*’), PARM=(DELETE__,&C1ENVMNT(1,8,_), &C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_), &C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //SYSIN DD DUMMY //PAC7TZ DD DSN=&TY,DISP=SHR //PAC7BS DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 95 SPACE=(TRK,(01,01),RLSE) //SYSOUT DD DSN=&&SYSOUT1,DISP=(MOD,PASS) //SYSUDUMP DD DSN=&&SYSDMP1,DISP=(MOD,PASS) //*---------------------------------------------------* //* PRINT ’INFOPAC’ MEMBER INTO SEQUENTIAL ’PAC7IP’ * //*---------------------------------------------------* //DEL02 EXEC PGM=CONWRITE,MAXRC=12, EXECIF=(&C1COMMENT(36,5),NE,’*IBM*’) //CONWIN DD DSN=&&CONWIN,DISP=(OLD,DELETE) //PAC7IP DD DSN=&&PAC7IP,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), SPACE=(TRK,(02,01),RLSE) //*---------------------------------------------------* //* COPY SEQUENTIAL ’PAC7IP’ IN VSAM ’PAC7UP’ //* DEFINED UNDER TSO WITH ANOTHER DDNAME FOR EXIT3 *...
  • Page 96 //STEPLIB DD DSN=&STEPLIB,DISP=SHR //PAC7PU DD DSN=&UP,DISP=SHR //PAC7TR DD DSN=&&&&C1ACTION,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=58,BLKSIZE=58), SPACE=(TRK,(01,01),RLSE) //MOV02 EXEC PGM=IEBGENER,EXECIF=(&C1ACTION,EQ,MOVE) //SYSIN DD * GENERATE MAXFLDS=1 RECORD FIELD=(058,1,,1) //SYSUT1 DD * ,&C1SENVMNT(1,8,_),&C1SSYSTEM(1,8,_)&C1SSUBSYS(1,8,_) &C1SELTYPE(1,8,_),&C1SELEMENT(1,10,_)&C1SSTGNUM) //SYSUT2 DD DSN=&&&&C1ACTION,DISP=(,PASS),UNIT=SYSDA, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 97 DCB=(RECFM=FB,LRECL=58,BLKSIZE=58), SPACE=(TRK,(01,01),RLSE) //SYSOUT DD DSN=&&SYSOUT1,DISP=(MOD,PASS) //SYSPRINT DD SYSOUT=&OUT //MOV03 EXEC PGM=&ROOTPGM.PNPR10,MAXRC=0, PARM=(&C1ACTION(1,8,_),&C1ENVMNT(1,8,_), &C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_), &C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)) //STEPLIB DD DSN=&STEPLIB,DISP=SHR //SYSIN DD DSN=&&&&C1ACTION,DISP=(OLD,DELETE) //PAC7TZ DD DSN=&TY,DISP=SHR //PAC7BS DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), SPACE=(TRK,(01,01),RLSE) //PAC7CW DD DSN=&&CONWIN,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080), SPACE=(TRK,(01,01),RLSE) //PAC7EV DD DSN=&&PAC7EV,DISP=(,PASS),UNIT=SYSDA, DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600), SPACE=(TRK,(01,01),RLSE) //SYSOUT DD DSN=&&SYSOUT2,DISP=(MOD,PASS) //SYSUDUMP DD DSN=&&SYSDMP2,DISP=(MOD,PASS) //*---------------------------------------------------* //* PRINT ’INFOPAC’...

  • Page 98: Préparation Initiale Des Fichiers

    'QU' (sauvegarde du fichier de mise à jour VA Pacbase : 'UQ') ET050 IEBGENER Chargement du fichier 'QU' ET060 IDCAMS Initialisation du fichier 'UP' ET070 IDCAMS Initialisation du fichier des types 'TY' VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 99 JCL d'exécution //$PRFJ.PRE JOB ($CCPT),’PREPARATION’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //*------------------------------------------------------------------* JOB TO RUN ONLY FIRST TIME PACBASE IS INSTALLED //*------------------------------------------------------------------* //******************************************************* ALLOCATION TABLES AND WORK VSAM FILES //* IF "SMS" IS INSTALLED DELETE //GDGMOD DD STATEMENTS * //******************************************************* //ET010 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$VCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //SYSIN DD DSN=$INDSN..BVPSY(DFBVPTY),DISP=SHR...
  • Page 100 //MAXKEY DD DSN=$INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=$INDSN..BVPSY(REPRO999),DISP=SHR //**************************************************** INITIALIZATION OF ’TS’ //**************************************************** //ET080 EXEC PGM=IDCAMS //*:STEPCAT DD DSN=$VCAT,DISP=SHR //SYSPRINT DD SYSOUT=$OUT //SYSPAF DD DSN=$INDSVE..BVPTS,DISP=SHR //MAXKEY DD DSN=$INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=$INDSN..BVPSY(REPRO999),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 101: Link-Edit Des Exits Dans Bibliothèque Autorisée

    LINK-EDIT des EXITS dans bibliothèque autorisée Module D14EXIT : job '$PRFJ.EXT. Le système VA Pacbase Endevor est constitué de deux EXITS (EXIT2 et EXIT3) lesquels doivent être linkés avec le DRIVER d'Endevor 'EPC1UEXT'. Pour ce faire, le job '$PRFJ.EXT' contient les deux étapes suivantes (à adapter suivant les sites) : Step Programme...

  • Page 102: Chargement Des Messages Tso / Va Pac-Endevor

    LOADING OF PACBASE MESSAGES IN THE ENDEVOR ’ISPMLIB’ //******************************************************************** //ET010 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=$OUT //SYSUT3 DD UNIT=$UWK,SPACE=(TRK,20) //SYSUT4 DD UNIT=$UWK,SPACE=(TRK,20) //IN DD DSN=$INDSN..BVPSY,DISP=SHR //OUT DD DSN=$MSGLIB,DISP=SHR //SYSIN DD * C I=IN,O=OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 103: Reprises Depuis La 2.5 (Jjnd Rpty Rp25)

    S M=CIUU$MSGSX Reprises depuis la 2.5 (JJND RPTY RP25) Module D162530 : job '$PRFJ.2530'. Ce JOB ne concerne que les sites possédant déjà la version 2.5 de l'interface VA Pacbase / Endevor. Son exécution devrait être précédée de la lecture du chapitre "Reprise depuis la 2.5"...

  • Page 104: Installation De La Base De Développement

    Base de Développement, code transaction et préfixe des codes fichiers de la Base de Développement, choisi par l'utilisateur. Fichiers : bbbbAN : fichier des index, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 105 Pour plus de détails consulter le chapitre "Optimisation des performances" décrit en annexe de ce manuel. JCL d'exécution //$PRFJ.I0 JOB ($CCPT),’DEVPT DFHCSDUP’,CLASS=$CLASSJ, MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - CICSCSD CICS: CSD BATCH UPDATE FOR ONE DEVELOPMENT DATABASE //********************************************************************* //DFHCSDUP EXEC PGM=DFHCSDUP //STEPLIB DD DSN=$CSDL,DISP=SHR...

  • Page 106: Allocation Et Chargement Des Paramètres De La Base

    Base de Développement. Step Programme Commentaires STEP1 IDCAMS DELETE du PDS STEP2 IEFBR14 Allocation JCL d'exécution //$PRFJ.I1 JOB ($CCPT),’PAC I01SY’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - I01SY VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 107 JCL d'exécution ===FRM TYPE=DATA //$PRFJ.I2 JOB ($CCPT),’PAC I02SY’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - I02SY LOADING OF THE PARAMETER PDS .STEP1 : LOADING PARAMETERS FOR ONE DEVELOPMENT DATABASE ->NOTE 1 ------ REPLACE :/ BY ./ BEFORE SUBMITTING THE JOB ->NOTE 2...
  • Page 108 CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DL$BASE.JT DELETE ($INDUN..$BASE.JT) ADD NAME=DL$BASE.TJ DELETE ($INDUN..$BASE.TJ) ADD NAME=DF$BASE.FP DELETE ($INDUV..&USER.$BASE.FP) CLUSTER DEFINE CLUSTER ( NAME ($INDUV..&USER.$BASE.FP) SHR (2) KEYS (33,0) VOL ($VOLUV) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 109 CYL (1 1) RECSZ (33,33) ) INDEX ( NAME ($INDUV..&USER.$BASE.FP.I) - CISZ (4096) ) DATA ( NAME ($INDUV..&USER.$BASE.FP.D) - FSPC (10,5) CISZ (4096) ) /*: CATALOG ($VCAT) */ ADD NAME=DF$BASE.EM DELETE ($INDUV..$BASE.EM) CLUSTER DEFINE CLUSTER ( NAME ($INDUV..$BASE.EM) SHR (2 3) KEYS (17,0) VOL ($VOLUV) CYL (1 1)

  • Page 110: Initialisation Des 'Generation Data Group

    JCL des Steps IDCAMS avant de soumettre le Job. Step Programme Commentaires STEP1 IDCAMS GDG du fichier PJ STEP2 IEBGENER Initialisation du fichier PJ STEP3 IDCAMS GDG du fichier PC PD PY VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 111: Jcl D'exécution

    Initialisation fichier PY JCL d'exécution //$PRFJ.I3I JOB ($CCPT),’PAC I03INI’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - I03INI JOB TO RUN ONLY FOR THE INITIALIZATION OF A NEW DATABASE . BUILDING OF INDEX DATA-GROUP FOR "PC", "PJ" SAVE FILES . "PJ" FILE INITIALIZATION .
  • Page 112 DD DUMMY //SYSUT1 DD DUMMY,DCB=(RECFM=VB,LRECL=1023,BLKSIZE=27998) //SYSUT2 DD DSN=$INDUN..$BASE.PD(+1), DISP=(,CATLG,DELETE), UNIT=$UNITUN, VOL=SER=$VOLUN, SPACE=(TRK,(220,10),RLSE), DCB=($DSCB,RECFM=VB,LRECL=1023,BLKSIZE=27998) //STEP6 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=$OUT //SYSIN DD DUMMY //SYSUT1 DD DUMMY,DCB=(RECFM=VB,LRECL=1023,BLKSIZE=27998) //SYSUT2 DD DSN=$INDUN..$BASE.PY(+1), DISP=(,CATLG,DELETE), UNIT=$UNITUN, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 113: Chargement De La Base De Test

    "Reprises de bases". JCL d'exécution //$PRFJ.I4 JOB ($CCPT),’PAC I04REST’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL // JCLLIB ORDER=($BIBP) //********************************************************************* //* VISUALAGE PACBASE INSTALLATION - I04REST CREATION OF THE DEVELOPMENT TEST DATABASE INDICATE THE LANGUAGE CODE OF DATABASE ON Y LINE COL 10-11 //********************************************************************* //TESTREST EXEC BVPREST...

  • Page 114: Complément - Pac/Impact

    INIFH2 IDCAMS Allocation GDG fichier FH INIFH3 IEBGENER Initialisation à vide fichier FH Voir la description, de ces fichiers au chapitre "Les composants", sous-chapitre "Bases de Développement", section "Pac/Impact". VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 115 JCL d'exécution //$PRFJ.I20 JOB ($CCPT),’PAC I05GDG’,CLASS=$CLASSJ, // MSGCLASS=$MSGCL //********************************************************************* //* VISUALAGE PACBASE - IMPACT ANALYSIS - INSTALLATION - I05GDG BUILDING OF INDEX DATA-GROUP FOR "FH" "FO" "FQ" "FR" FILES //* ->NOTE ---- IF "SMS" IS INSTALLED DELETE //GDGMOD DD STATEMENTS...
  • Page 116 //SYSABOUT DD SYSOUT=&OUT //PACRIN DD DDNAME=SYSIN //PACROU DD DSN=&&DFFQ,DISP=(,PASS),UNIT=&UWK,SPACE=(TRK,1), DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //INIFQ2 EXEC PGM=IDCAMS //*---------------------- //*:STEPCAT DD DSN=&VCAT,DISP=SHR //GDGMOD DD DSN=&INDUN..&USER..&BASE.FQ, DISP=(,KEEP,DELETE), UNIT=&UNITS, VOL=&VOLS, SPACE=(TRK,0), DCB=(&DSCB,RECFM=FB,LRECL=100,BLKSIZE=21600) //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFFQ,DISP=(OLD,DELETE) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 117 //INIFQ3 EXEC PGM=IEBGENER //*------------------------ //SYSIN DD DUMMY //SYSPRINT DD DUMMY //SYSUT1 DD DUMMY,DCB=(RECFM=FB,LRECL=100,BLKSIZE=100) //SYSUT2 DD DSN=&INDUN..&USER..&BASE.FQ(+1), DISP=(,CATLG,DELETE), UNIT=&UNITS, VOL=&VOLS, SPACE=(TRK,1), DCB=(&DSCB,RECFM=FB,LRECL=100,BLKSIZE=21600) //INIFH1 EXEC PGM=BVPRMSYS,PARM=’&INDUN..&USER..&BASE’ //*--------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSABOUT DD SYSOUT=&OUT //PACRIN DD DDNAME=SYSIN //PACROU DD DSN=&&DFFH,DISP=(,PASS),UNIT=&UWK,SPACE=(TRK,1), DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //INIFH2 EXEC PGM=IDCAMS //*---------------------...

  • Page 118: Complément Cics : Modification Sortie Transaction

    à un menu général utilisateur ou toute autre manipulation. Le source BVPR005 peut être téléchargé à partir de l'adresse suivante : http://www.ibm.com/software/awdtools/vapacbase/support.html. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 119: Chapitre 4. Installation/Réinstallation Des Composants Client

    Chapitre 4. Installation/Réinstallation des composants Client Informations préalables Pour installer les composants Client de VisualAge Pacbase sur un poste Windows, vous devez avoir le profil Administrateur sur ce poste. L'installation des composants Client s'exécute avec InstallShield for Windows Installer (ISWI). Si Windows Installer n'est pas installé sur le poste, il sera automatiquement installé.

  • Page 120: Lancement De L'installation

    ; le panneau suivant vous demande alors votre identification (Nom et Organisation). NOTE : Tous les composants Client de VisualAge Pacbase sont installés en mode utilisation partagée pour le poste. Ensuite, la liste des composants Client de l'offre VisualAge Pacbase s'affiche sur l'écran.

  • Page 121: Les Fichiers De La Communication

    (autres composants Client ou nouvelles versions de composants déjà installés). Les protocoles de communication disponibles Si le serveur VisualAge Pacbase est installé sous Windows ou UNIX, le protocole VAP Socket devra être utilisé. Si le serveur est installé sous MVS/CICS, vous avez le choix entre MVS CICS Socket, MVS CICS CPI-C ou MQ-CICS Bridge, en fonction de l'installation effectuée sur le serveur (voir le chapitre correspondant).
  • Page 122 Le fichier bases.ini se trouve sur le poste de chaque développeur, dans le sous-répertoire 'common' du répertoire racine de l'installation. Ce fichier établit la liste des Bases VisualAge Pacbase accessibles. A chaque Base est associé un nom de localisation (location en anglais).

  • Page 123: Administrator & Developer Workbench

    Administrator & Developer workbench Si "IBM SDK for Java 2" n'est pas installé sur votre poste, son installation sera automatiquement déclenchée. Pour cette installation, comme pour celle de Administrator & Developer workbench, la racine utilisée dépend du contexte courant de l'installation. Pour plus de détails, reportez-vous à la première page de ce chapitre.
  • Page 124 "Références Middleware" de l'assistant de connexion). Si seule la case "Middleware signon" est cochée, le contrôle de la connexion à la Base VA Pac est assuré par le système de sécurité. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 125: Les Fichiers De Lancement

    Ces fichiers se trouvent sous le répertoire racine de Administrator & Developer workbench ("ADWorkbench"). MENU DEMARRER / CHOIX PROGRAMMES A l'issue de cette installation, vous trouverez au niveau du bureau Windows, dans le menu Démarrer/choix Programmes, la section VisualAge Pacbase 3.5 Components avec les sous-sections suivantes : Administrator-Developer workbench Administration...

  • Page 126: Outils Ebusiness

    Pacbase. Les Outils eBusiness (sauf WAM) sont installés en tant que "features" et "tools" de VisualAge for Java. Si "IBM SDK for Java 2" n'est pas installé sur votre poste, son installation sera automatiquement déclenchée. Pour cette installation, comme pour celle des Outils eBusiness, la racine utilisée dépend du contexte courant.
  • Page 127 Lisez-le et suivez les instructions qu'il contient. MENU DEMARRER / CHOIX PROGRAMMES A l'issue de cette installation, vous trouverez au niveau du bureau Windows, dans le menu Démarrer/choix Programmes, la section VisualAge Pacbase 3.5 Components avec les sous-sections suivantes : eBusiness Tools...

  • Page 128: Station De Travail Visualage Pacbase

    Ce panneau ne s'affiche pas si vous avez déjà installé, sous la même racine, la Station de Travail VisualAge Pacbase ou Administrator & Developer workbench. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 129 Station. Ensuite, dans ce même contexte initial, vous indiquez la (première) Base à laquelle accèdera la Station de Travail VisualAge Pacbase. Pour cela, un panneau vous propose de renseigner : Le nom d'une Base VA Pac, déjà installée ou non au niveau serveur.

  • Page 130: Le Fichier De Lancement

    Le fichier de lancement est le suivant : pexec.exe Ce fichier se trouve dans le répertoire racine de la Station de Travail VisualAge Pacbase (SPAC\nnnl où "nnn" désigne le numéro de version et où "l" identifie la langue de la version installée). MENU DEMARRER / CHOIX PROGRAMMES A l'issue de cette installation, vous trouverez au niveau du bureau Windows, dans le menu Démarrer/choix Programmes, la section VisualAge Pacbase 3.5...

  • Page 131: Le Fichier Des Parametres De L'installation

    WorkStation WorkStation 3.5 WorkStation 3.5 News <méthode> News LE FICHIER DES PARAMETRES DE L'INSTALLATION Certains paramètres de l'installation de la Station de Travail sont positionnés dans le fichier Pacbase.dat. La procédure d'installation de la Station de Travail crée automatiquement ce fichier dans le répertoire \SPAC\NNNL où...

  • Page 132: Web Application Models (Wam)

    Pour démarrer l'installation, appuyez sur le bouton [Install]. WAM est installé dans un répertoire spécifique, nommé Wam. Ce répertoire contient un fichier zippé et un fichier readme. Lisez-le et suivez les instructions qu'il contient. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 133: Middleware

    Pour plus de détails, reportez-vous à la première page de ce chapitre. Pour utiliser Administrator & Developer workbench ou la Station de Travail VA Pac, les paramètres de localisation de vos Bases VisualAge Pacbase doivent toujours être renseignés. NOTE : Des informations IMPORTANTES concernant la communication vous sont données en début de chapitre.
  • Page 134 RACF group : Nom du groupe RACF pour IMS Connect. – Code Page : Valeur identifiant le codage des caractères utilisé par le serveur VisualAge Pacbase. La valeur 1147 correspond à l'EBCDIC français. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 135: Informations Complémentaires

    BVPSCPI. Ce code identifie le moniteur qui établit la connexion entre les composants Client et les programmes serveur de VisualAge Pacbase utilisant APPC. IMPORTANT : Il est possible de saisir une autre valeur que BVPSCPI sachant que, dans TOUS les cas, la valeur du Symbolic destination name doit impérativement être identique à...

  • Page 136: Mise À Jour Des Paramètres De La Communication

    Windows. Chaque section de ce fichier définit une configuration permettant d'accéder à une Base VisualAge Pacbase. Le nom de cette section est placé entre crochets [Nom de la section]. Le nom de chaque section sera présenté à l'utilisateur lors de sa connexion.

  • Page 137: Parametres Pour Adaptateur Direct (Middleware Local)

    = laps de temps (exprimé en ms.) qui sépare deux lancements de la procédure de nettoyage des connexions. Paramètre utile pour la Station de Travail VisualAge Pacbase uniquement. Valeur par défaut pour Windows NT/2000/XP = 60000. Pour Windows 95/98, ce paramètre prend obligatoirement la valeur -1, non modifiable, pour éviter les problèmes de multi-threading, non supporté...

  • Page 138: Parametres Pour Adaptateur Gateway (Middleware Distant)

    Défaut : ..\middleware\CharConv.txt PARAMETRES POUR ADAPTATEUR GATEWAY (MIDDLEWARE DISTANT) host = nom ou adresse IP du host où la gateway VisualAge Pacbase est installée. Ne pas saisir de "0" cadrés à gauche, source d'erreur pour certaines configurations.
  • Page 139 <NomLocalisation> COMM_TYPE=SOCKET MONITOR=BVPSCPI MESSAGE_LENGTH=31744 IXO_TIMEOUT=30 IXO_ADDRESS=127.0.0.1 3676 MVS CICS SOCKET <NomLocalisation> COMM_TYPE=TCPMVS MONITOR=BVPSSOC MESSAGE_LENGTH=31744 IXO_TIMEOUT=30 HOST_ENCODING=1147 IXO_ADDRESS=127.0.0.1 3676 IXO_TRANSID=V303 MVS CICS CPI-C <NomLocalisation> COMM_TYPE=CPIC MONITOR=BVPSCPI MESSAGE_LENGTH=31744 IXO_TIMEOUT=30 HOST_ENCODING=1147 MQ-CICS Bridge <NomLocalisation> MESSAGE_LENGTH=31744 MONITOR=BVPSCPI COMM_TYPE=MQCICS IXO_LOCALCCSID=819 IXO_QUEUEMANAGER=EECC IXO_REQUESTQUEUE=VAP.CICS_BRIDGE.VAPCS.REQUESTER IXO_REPLYQUEUE=VAP.CICS_BRIDGE.VAPCS.REPLY IXO_DYNAMICREPLYQUEUE=VAP.CICS_BRIDGE.VAPCS.DYNAMICREPLY IXO_TRANSID=WK51 IXO_REQUESTEXPIRY=120 IXO_TIMEOUT=35 IXO_HEADERVERSION=1...
  • Page 140 Base VA Pac. Pour plus de détails, voir le chapitre "Installation de la partie Serveur", sous-chapitre "Installation du Référentiel", section "Base de Développement", dans les Guides d'Installation respectifs. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 141 IXO_DATASTORE : Nom du lien vers IMS défini dans IMS Connect (IMS DataStore ID). IXO_DYNAMICREPLYQUEUE : Nom dynamique de la Queue. MQ-CICS Bridge et MQ-IMS Bridge. Lorsque ce paramètre est renseigné, la Queue de réponse est créée dynamiquement par MQSeries pour pouvoir transmettre les messages de réponse (cf.

  • Page 142: Mise À Jour, Ajout, Désinstallation De Composants

    Le CD des composants Client VA Pac vous propose également les options suivantes : "Update" pour mettre à jour un composant déjà installé. "Modify" pour ajouter un nouveau sous-composant à un composant déjà installé. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 143 été installé, – Station de Travail VisualAge Pacbase : ajout d'une Méthode. "Remove" pour désinstaller un composant. Vous pouvez également utiliser la même fonction proposée par le service Windows "Ajout/suppression de Programmes"...
  • Page 144 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 145: Chapitre 5. Tests

    Extraction d'entités JCLUXSR Extraction sous-réseaux Tests de l'installation Ces tests comprennent plusieurs phases : Tests de mises à jour TP et batch, d'édition-génération Tests des procédures d'administration Tests des procédures de développement Tests des utilitaires d'extraction. © Copyright IBM Corp. 1983,2013...

  • Page 146: Tests De Mise À Jour Tp/Batch, Edition-Génération

    En tout premier lieu, faites quelques consultations et mises à jour avec la Station "Developer workbench". Procédez ensuite aux tests, sachant que les fichiers de la Base de Développement doivent être fermés à l'accès TP. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 147: Tests Des Utilitaires D'extraction

    Ces tests comprennent les étapes listées ci-dessous, à exécuter dans l'ordre suivant : v Archivage du journal créé lors des tests d'utilisation : exécuter le JCL 'JCLARCH' donnant un fichier PJ(1). Sauvegarde directe de la Base de Développement : exécuter le JCL 'JCLSAVE' donnant un fichier PC(1) ;...
  • Page 148 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 149: Chapitre 6. Réinstallation Serveur

    Chapitre 6. Réinstallation Serveur Une réinstallation de la partie système du serveur VisualAge Pacbase est nécessaire en cas d'anomalies corrigées ou d'améliorations ponctuelles sur la version installée. L'installation de cette sous-version s'effectue à partir d'un CD-ROM sur les PDS dédiés via SMP/E, puis en exécutant les JCLs fournis si nécessaire.
  • Page 150 JCL D03INI sur les fichiers concernés pour les initialiser. En cas de nouvelle procédure, lancer le JCL D05PROC. En cas de nouvelle SYSIN de la Base de Développement lancer le JCL I02SY. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 151 Remarque : L'éclatement du fichier résultat du JCL BVPPINIT, ainsi que les JCLs D02CPAR, D05PROC, et I02SY écrasent respectivement tous les JCLs, les SYSINs système et de la Base Administration, les procédures et les SYSINs de la Base de Développement. Il pourra donc être nécessaire de sauvegarder au préalable les éléments personnalisés.
  • Page 152 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 153: Chapitre 7. Reprises Et Échanges Entre Bases 2.N Et 3.N

    (fichiers PEI) dans la nouvelle Base Administration, et d'autre part la reprise de l'ancienne Base de Développement. Enchaînement à effectuer : Il se déroule en sept étapes : 1) Sauvegarde de tous les anciens fichiers nécessaires par exécution des procédures suivantes dans l'ancienne version. © Copyright IBM Corp. 1983,2013...
  • Page 154 RPE250 : reprise des paramètres utilisateurs à partir du fichier PE généré lors de l'étape 1, – RMP250 : reprise des mots de passe 2.n (facultatif), – JCLSVAD : sauvegarde de la Base Administration. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 155 3) Reprise d'une Base de Développement. Cette étape nécessite le déroulement de l'installation de la (des) Base(s) de Développement jusqu'au JCL I03INI. Elle consiste en l'exécution des JCLs suivants : RPC250 : reprise de l'ancienne Base de Développement à partir de la sauvegarde de l'ancienne base créée dans l'étape 1 et réorganisation de la nouvelle base.

  • Page 156: Reprise Des Paramètres Utilisateur (Pe25)

    Une ligne 'A' (facultative) permettant de préciser le code et le nom de l'administrateur. Cette ligne n'est nécessaire que dans le cas de l'utilisation d'un système de sécurité (RACF). La structure de la ligne est la suivante : VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 157: Pe25 - Description Des Étapes

    Position Longueur Valeur Signification Code ligne bbbbbbbb Code de l'administrateur Nom de l'administrateur Une ligne 'B' par base permettant de préciser les caractéristiques des Bases de Développement qui seront gérées dans la nouvelle Base Administration soit : le code de la base : c'est le code logique qui sera indiqué lors de la restauration de la base.
  • Page 158 (longueur = 170) PAC7ME &&PAC7ME Sortie Fichier de travail (longueur=372) PAC7MW Sortie Fichier de travail (longueur=170) PAC7MX Sortie Fichier de travail (longueur=743) PAC7MY Sortie Fichier de travail (longueur=743) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 159: Pe25 - Jcl D'exécution

    La liste des mouvements propres à un utilisateur est précédée d'une bannière portant son code. Codes retour : 0 : OK sans erreur 2 : erreur warning 4 : erreur grave PE25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ Chapitre 7. Reprises et échanges entre bases 2.n et 3.n...
  • Page 160 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7MB DD DSN=&&PE25MB,DISP=(OLD,DELETE) //PAC7EN DD DSN=&OLDPE,DISP=SHR //PAC7GY DD DSN=&&PACGY,DISP=(,PASS),UNIT=&UWK, SPACE=(TRK,(100,20),RLSE), DCB=(RECFM=FB,LRECL=310,BLKSIZE=3100) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 161 //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7ET DD SYSOUT=&OUT //PAF900 EXEC PGM=BVPAF900,COND=(0,NE,PTU920) //*------------------------------------------ //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT...

  • Page 162: Reprise De La Base De Développement (Pc25)

    Le résultat de cette procédure est une image séquentielle de la Base de Développement au nouveau format. Ce nouveau fichier PC doit servir d'entrée à l'étape obligatoire suivante : la réorganisation. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 163: Pc25 - Remarques Sur Les Données Reprises

    PC25 - Remarques sur les données reprises Eclatement du descriptif commentaire (-G) Le descriptif commentaire est éclaté en plusieurs descriptifs. Commentaires proprement dits Ils regroupent les commentaires et les alias COBOL (-GC). Attention : Si en version 2.0 ou 2.5, le type de la ligne de documentation n'est pas adapté...

  • Page 164: Pc25 - Entrées / Traitements / Résultats

    Prise en compte des entrées : PTU001 Traitements généraux : PTU911 Code Nom physique Type Libellé PAC7MC &OLDPC Entrée Image séquentielle du réseau ancienne version PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PAC7MB &&PC25MB Entrée Entrée utilisateur VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 165 Code Nom physique Type Libellé PAC7PB &&PC Sortie Premier enregistrement des données (longueur=153) PAC7PE &&PE Sortie Fiches des O.E.U. (version 2.5), maquettes d'états et des commentaires (excepté les appels de formats guides) (longueur=193) PAC7PG &&PG Sortie Descriptions des formats guides et des commentaires avec appels de formats guides (longueur=193) PAC7PL...
  • Page 166 &&KP Sortie Descriptions des formats guides et de leurs appels dans les commentaires (longueur=193) PAC7PB &&PC Entrée Premier enregistrement des données PAC7PD &&PD Sortie Premier enregistrement des données (longueur=153) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 167 Code Nom physique Type Libellé SORTWK01 SORTWK02 SORTWK03 Traitement des maquettes d'états : PTU919 Code Nom physique Type Libellé PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PAC7PE &&PE Entrée Fiches des O.E.U (version 2.5), des maquettes d'état et des commentaires (excepté les appels de formats guides) PAC7PB &&PD...
  • Page 168 Critères de tri : membre SRTPC25 du PDS SY Code Nom physique Type Libellé SORTIN &&ZX Entrée Données extension intermédiaires SORTOUT &&XZ Sortie Données longues triées (longueur=193) SORTWK01 SORTWK02 SORTWK03 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 169: Pc25 - Jcl D'exécution

    Image séquentielle du réseau (version actuelle) PAC7ET Etat Compte-rendu de la reprise PC25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF PC FILE //* ------------------------------------------------------ //BVPPC25 PROC BASE=$BASE, CODE OF DEVPT DATABASE INDSN=’$INDSN’, INDEX OF SYSTEM NON VSAM FILES INDSV=’$INDSV’,...
  • Page 170 DD DSN=&SYSTCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7PB DD DSN=&&PC,DISP=(OLD,PASS) //PAC7PL DD DSN=&&PL,DISP=(OLD,DELETE) //PAC7PI DD DSN=&&PI,DISP=(NEW,PASS),UNIT=&UWK, SPACE=(CYL,&CYL,RLSE), DCB=(RECFM=FB,LRECL=153,BLKSIZE=27846) //PAC7PM DD DSN=&&PM,DISP=(OLD,PASS) //SORTLIB DD DSN=&SORTLIB,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 171 //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SYSUDUMP DD SYSOUT=&OUT //PTU92A EXEC PGM=BVPTU92A,COND=(0,NE,PTU911) //*------------------------------------------ //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SORTLIB DD DSN=&SORTLIB,DISP=SHR //PAC7PG DD DSN=&&PG,DISP=(OLD,DELETE) //PAC7PM DD DSN=&&PM,DISP=(OLD,PASS) //PAC7PE DD DSN=&&PH,DISP=(NEW,PASS),UNIT=&UWK,...
  • Page 172 //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SYSUDUMP DD SYSOUT=&OUT //PTU913 EXEC PGM=BVPTU913,COND=(0,NE,PTU911) //*------------------------------------------ //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 173 //SYSOUT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7PB DD DSN=&&PB,DISP=(OLD,DELETE) //PAC7PD DD DSN=&&PR,DISP=(NEW,PASS),UNIT=&UWK, SPACE=(CYL,&CYL,RLSE), DCB=(RECFM=FB,LRECL=153,BLKSIZE=27846) //PAC7PZ DD DSN=&&ZP,DISP=(OLD,DELETE) //PAC7PX DD DSN=&&EP,DISP=(OLD,DELETE) //PAC7ZP DD DSN=&&ZX,DISP=(NEW,PASS),UNIT=&UWK, SPACE=(CYL,&CYL,RLSE), DCB=(RECFM=FB,LRECL=193,BLKSIZE=27985) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SYSUDUMP DD SYSOUT=&OUT //SORTZX EXEC PGM=SORT,COND=(0,NE,PTU911) //*-------------------------------------- //SORTLIB DD DSN=&SORTLIB,DISP=SHR...

  • Page 174: Reprise Commandes D'édition-Génération

    Développement concernée par les lignes de JCL mises à jour dans la Base Administration. Si le code utilisateur ou le code de la base n'est pas renseigné, un message d'anomalie est émis et la procédure ne peut s'effectuer. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 175: Pg20 - Description Des Étapes

    La structure de la ligne est la suivante : Position Longueur Valeur Signification Code ligne uuuuuuuu Code utilisateur pppppppp mot de passe cccc Code base PG20 - Description des étapes Prise en compte des entrées : PTU001 Formatage des commandes d'édition génération : PTU908 Code Nom physique Type...
  • Page 176 Index de la Base Administration PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGY &INDSV..BVPGY Entrée Extension de la Base Administration PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 177 Code Nom physique Type Libellé PAC7DC DUMMY Entrée Fichier DSMS éléments de la Base de Développement PAC7ME &&PAC7ME Entrée Fichier de travail PAC7MV &&PAC7MV Entrée Mouvements de mise à jour PAC7RB DUMMY Sortie Mouvements erronés UPDT (longueur=80) PAC7RY DUMMY Sortie Mouvements erronés UPDP (longueur=310) PAC7IE...
  • Page 178 &&PAC7MV Entrée Mouvements de mise à jour PAC7RB DUMMY Sortie Mouvements erronés UPDT (longueur=80) PAC7RY DUMMY Sortie Mouvements erronés UPDP (longueur=310) PAC7IE Etat Compte-rendu de mise à jour (longueur=132) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 179: Pg20 - Jcl D'exécution

    Codes retour : 0 : OK sans erreur 2 : erreur warning 4 : erreur grave PG20 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF PG FILE SINCE 2.0 //* ------------------------------------------------------ //BVPPG20 PROC BASE=$BASE, CODE OF DEVPT DATABASE...
  • Page 180 DD SYSOUT=&OUT //PAF90Y EXEC PGM=BVPAF900,COND=(0,NE,PTU921) //*------------------------------------------ //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 181 //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7GY DD DSN=&&PACGY,DISP=(OLD,DELETE) //PAC7ME DD DSN=&&PAC7ME,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=372,BLKSIZE=27156) //PAC7MV DD DSN=&&PAC7MV,DISP=(,PASS),UNIT=&UWK,...
  • Page 182 //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7AJ DD DSN=&INDSV..BVPGJ,DISP=SHR //ANLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=10’,’BUFNI=10’) //ARLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=10’) //AYLSR DD DSN=&INDSV..BVPGY,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 183: Reprise Commandes D'édition-Génération

    //PAC7AY DD SUBSYS=(&LSR,’DDNAME=AYLSR’,’BUFND=10’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GYLSR DD DSN=&INDSV..BVPGY,DISP=SHR //PACGGY DD SUBSYS=(&LSR,’DDNAME=GYLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7DC DD DUMMY //PAC7IE DD SYSOUT=&OUTL //PAC7IF DD SYSOUT=&OUTL //PAC7ME DD DSN=&&PAC7ME,DISP=(OLD,DELETE) //PAC7MV DD DSN=&&PAC7MV,DISP=(OLD,DELETE) //PAC7RB DD DUMMY...

  • Page 184: Pg25 - Entrées / Traitements / Résultats

    Entrée Libellés d'erreur PAC7MB &&PG25MB Entrée Entrée utilisateur PAC7GY &&PACGY Sortie Mouvements des commandes d'édition-génération (longueur=310) PAC7GZ &&PACGZ Sortie Mouvements des lignes de JCL (longueur=310) PAC7ET Etat Compte-rendu d'anomalies VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 185 Mise en forme des mouvements : PAF900 Code Nom physique Type Libellé PAC7AR &INDUV..&BASE.AR Entrée Données de la Base de Développement PAC7AN &INDUV.. Entrée Index de la Base de &BASE.AN Développement PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGN &INDSV..BVPGN...
  • Page 186 PAC7AN &INDSV..BVPGN Entrée Index de la Base Administration PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGN &INDSV..BVPGN Entrée Index de la Base Administration VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 187 Code Nom physique Type Libellé PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration PAC7GY &&PACGZ Entrée Mouvements de mise à jour PAC7MV &&PAC7MV Sortie Mouvements mis en forme (doit pouvoir contenir tous les mouvements en entrée plus les mouvements d'annulation élémentaire générés par les mouvements d'annulation multiple) (longueur = 170)

  • Page 188: Pg25 - Jcl D'exécution

    TRANSACTION SPACE //********************************************************************* //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&PG25MB,DISP=(,PASS), UNIT=&UWK,SPACE=(TRK,(5,1),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //VERIFY EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 189 //SYSPRINT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7AJ DD DSN=&INDUV..&BASE.AJ,DISP=SHR //PAC7AN DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PACGGR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGY DD DSN=&INDSV..BVPGY,DISP=SHR //PACGGU DD DSN=&INDSV..BVPGU,DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(VERIFAE),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAJ),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGY),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR //PTU921 EXEC PGM=BVPTU921...
  • Page 190 DD SYSOUT=&OUTL //PAC7ME DD DSN=&&PAC7ME,DISP=(OLD,DELETE) //PAC7MV DD DSN=&&PAC7MV,DISP=(OLD,DELETE) //PAC7RB DD DUMMY //PAC7RY DD DUMMY //SYSUDUMP DD SYSOUT=&OUT //PAF90Z EXEC PGM=BVPAF900,COND=(0,NE,PTU921) //*------------------------------------------ //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 191 DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //ANLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=10’,’BUFNI=10’) //ARLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=10’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU...

  • Page 192: Reprise Mouvements Pj (Pj25)

    Un display est alors édité. Résultat obtenu Un fichier journal PJ au format de la nouvelle version. Remarques VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 193: Pj25 - Description Des Étapes

    &&NEWPJ Sortie Fichier journal au nouveau format (longueur=170) PAC7ET Etat Compte-rendu PJ25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF PJ FILE //* ------------------------------------------------------ //BVPPJ25 PROC BASE=$BASE, CODE OF DEVPT DATABASE OUT=$OUT, OUTPUT CLASS INDUV=’$INDUV’, INDEX OF USER VSAM FILES INDSV=’$INDSV’,...

  • Page 194: Reprise Du Fichier Pp (Pp25)

    Cette procédure permet de reprendre le fichier PP image séquentielle de l'environnement de production (PEI) de la version 2.0 ou 2.5 et met à jour la Base de Développement de la version installée. Condition d'exécution VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 195: Pp25 - Entrées / Traitements / Résultats

    Les fichiers de la Base de Développement doivent être fermés dans le transactionnel. Edition obtenue Cette procédure édite un compte-rendu signalant les anomalies rencontrées. Résultat obtenu Cette procédure génère un fichier mouvement contenant les environnements de production existants, la liste des entités générées, les environnements par défaut (-GO de la Bibliothèque), la liste des sessions de production au nouveau format, et met à...

  • Page 196: Pp25 - Description Des Étapes

    Mouvements de mise à jour PAC7MV &&PAC7MV Sortie Mouvements mis en forme (doit pouvoir contenir tous les mouvements en entrée plus les mouvements d'annulation élémentaire générés par les mouvements d'annulation multiple) (longueur=170) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 197 Code Nom physique Type Libellé PAC7ME &&PAC7ME Sortie Fichier de travail (longueur=372) PAC7MW Sortie Fichier de travail (longueur=170) PAC7MX Sortie Fichier de travail (longueur=743) PAC7MY Sortie Fichier de travail (longueur=743) Mise à jour de la Base de Développement : PACA15 Code Nom physique Type...

  • Page 198: Pp25 - Jcl D'exécution

    DD DSN=&INDUV..&BASE.AJ,DISP=SHR //PAC7AN DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PACGGR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGY DD DSN=&INDSV..BVPGY,DISP=SHR //PACGGU DD DSN=&INDSV..BVPGU,DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(VERIFAE),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAJ),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 199 DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGY),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR //PTU923 EXEC PGM=BVPTU923 //*----------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //AELSR DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7AE DD SUBSYS=(&LSR,’DDNAME=AELSR’) //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN...

  • Page 200: Reprise Pei (Rpp2)

    RPP2 - Présentation générale Principe Cette procédure permet de reprendre l'environnement PEI à partir d'une version 2.0 ou 2.5 et met à jour la Base de développement de la version installée. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 201: Rpp2 - Entrées / Traitements / Résultats

    Elle prend en compte les mouvements d'environnements pour lesquels des entités sont générées. Condition d'exécution Les fichiers de la Base de Développement doivent être fermés dans le transactionnel. Résultat obtenu Une Base de développement intégrant les environnements migrés. Remarques Tout mouvement de mise à jour dans une Bibliothèque ou une Session inexistante dans la nouvelle Base sera rejeté.

  • Page 202: Nom Physique

    Mouvements de mise à jour PAC7MV &&PAC7MV Sortie Mouvements mis en forme (doit pouvoir contenir tous les mouvements en entrée plus les mouvements d'annulation élémentaire générés par les mouvements d'annulation multiple) (longueur=170) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 203 Code Nom physique Type Libellé PAC7ME &&PAC7ME Sortie Fichier de travail (longueur=372) PAC7MW Sortie Fichier de travail (longueur=170) PAC7MX Sortie Fichier de travail (longueur=743) PAC7MY Sortie Fichier de travail (longueur=743) Mise à jour de la Base de Développement : PACA15 Code Nom physique Type...

  • Page 204: Rpp2 - Jcl D'exécution

    //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7AJ DD DSN=&INDUV..&BASE.AJ,DISP=SHR //PAC7AN DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PACGGR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGY DD DSN=&INDSV..BVPGY,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 205 //PACGGU DD DSN=&INDSV..BVPGU,DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(VERIFAE),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAJ),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGY),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR //PTU950 EXEC PGM=BVPTU950 //*----------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PAC7MB...
  • Page 206 DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7DC DD DUMMY //PAC7IE DD SYSOUT=&OUTL //PAC7IF DD SYSOUT=&OUTL //PAC7ME DD DSN=&&PAC7ME,DISP=(OLD,DELETE) //PAC7MV DD DSN=&&PAC7MV,DISP=(OLD,DELETE) //PAC7RB DD DUMMY //PAC7RY DD DUMMY //SYSUDUMP DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 207: Reprise Mots De Passe (Utmp)

    PAC7MB &&UTMPMB Entrée Entrée utilisateur PAC7CE &OLDPE Entrée Paramètres utilisateur ancienne version PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration UTMP - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ Chapitre 7. Reprises et échanges entre bases 2.n et 3.n...

  • Page 208: Reprise Paramètres Pac/Transfer (Uv25)

    Pac/Transfer de la version 2.0 ou 2.5 au nouveau format. Elle met à jour la Base Administration. Condition d'exécution Les fichiers de la Base Administration doivent être fermés dans le transactionnel. Edition obtenue VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 209: Uv25 - Entrées / Traitements / Résultats

    Cette procédure édite un compte-rendu signalant les anomalies rencontrées. UV25 - Entrées / Traitements / Résultats Une ligne * avec code utilisateur, mot de passe et code de la Base de Développement concernée par les transferts. Si le code utilisateur ou le code de la base n'est pas renseigné, un message d'anomalie est émis et la procédure ne peut s'effectuer.

  • Page 210: Extension De La Base Administration

    Utilisateurs de la Base Administration PAC7DC DUMMY Entrée Fichier DSMS éléments de la Base de Développement PAC7ME &&PAC7ME Entrée Fichier de travail PAC7MV &&PAC7MV Entrée Mouvements de mise à jour VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 211: Uv25 - Jcl D'exécution

    Codes retour : 0 : OK sans erreur 2 : erreur warning 4 : erreur grave UV25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF UV FILE //* ------------------------------------------------------- //BVPUV25 PROC OUT=$OUT, OUTPUT CLASS INDSV=’$INDSV’, INDEX OF SYSTEM VSAM FILES INDSN=’$INDSN’,...
  • Page 212 DD DSN=&INDSV..BVPGR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7GY DD DSN=&&PACGY,DISP=(OLD,DELETE) //PAC7ME DD DSN=&&PAC7ME,DISP=(,PASS),UNIT=&UWK, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 213: Echange Mouvements Mb Entre Base 2.N Et 3.N (Mb25)

    SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=372,BLKSIZE=27156) //PAC7MV DD DSN=&&PAC7MV,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120) //PAC7MW DD DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=170,BLKSIZE=6120) //PAC7MX DD DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928) //PAC7MY DD DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=748,BLKSIZE=26928) //PACA15 EXEC PGM=BVPACA15, COND=((0,NE,PTU922),(0,NE,PAF900)) //*---------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7AJ...

  • Page 214: Mb25 - Description Des Étapes

    Index de la Base Administration PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration PAC7MB &OLDMB Entrée Mouvements MB 2.5 PAC7MV &&PACMV Sortie Mouvements de reprise pour UPDT PAC7ME &&PACME Sortie Mouvements rejetés VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 215: Mb25 - Jcl D'exécution

    Libellé PAC7EF Etat Compte-rendu de reprise PAC7DD Etat Contrôle autorisation MB25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF MB FILE //* ------------------------------------------------------- //BVPMB25 PROC BASE=$BASE, CODE OF DEVPT DATABASE OUT=$OUT, OUTPUT CLASS INDUV=’$INDUV’, INDEX OF USER VSAM FILES INDSV=’$INDSV’,...

  • Page 216: Echange Mouvements Gy Entre Base 2.N Et 3.N (Gy25)

    Cette procédure édite un compte-rendu signalant les anomalies rencontrées. Résultat obtenu Cette procédure génère un fichier mouvement à destination de la procédure UPDP de la nouvelle version ainsi qu'un fichier des mouvements rejetés. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 217: Gy25 - Description Des Étapes

    Mouvements rejetés PAC7EF Etat Compte-rendu de reprise PAC7DD Etat Contrôle autorisation GY25 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF GY FILE //* ------------------------------------------------------- //BVPGY25 PROC BASE=$BASE, CODE OF DEVPT DATABASE OUT=$OUT, OUTPUT CLASS INDUV=’$INDUV’, INDEX OF USER VSAM FILES INDSV=’$INDSV’,...

  • Page 218: Echange Mouvements Mb Entre Base 3.N Et 2.N (Mb30)

    2.0 ou 2.5. Limites Les Méta entités, Entités utilisateur, Relations, Descriptions, Mots-clés, Documentation associée et Appels de Relation ne sont pas traités. Condition d'exécution VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 219: Mb30 - Description Des Étapes

    Mouvements rejetés PAC7EF Etat Compte-rendu de reprise PAC7DD Etat Contrôle autorisation MB30 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ RETRIEVAL OF MB FILE //* ------------------------------------------------------- //BVPMB30 PROC BASE=$BASE, CODE OF DEVPT DATABASE OUT=$OUT, OUTPUT CLASS INDUV=’$INDUV’, INDEX OF USER VSAM FILES...
  • Page 220 DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7MB DD DSN=&OLDMB,DISP=SHR //PAC7MV DD DSN=&&PACMV,DISP=(,PASS),UNIT=&UWK, SPACE=(TRK,(100,20),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7ME DD DSN=&&PACME,DISP=(,PASS),UNIT=&UWK, SPACE=(TRK,(100,20),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7EF DD SYSOUT=&OUT //PAC7DD DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 221: Echange Mouvements Gy Entre Base 3.N Et 2.N (Gy30)

    Echange mouvements GY entre base 3.n et 2.n (GY30) GY30 - Présentation générale Principe Cette procédure permet de reprendre des mouvements de format UPDP de la nouvelle version vers la version 2.0 ou 2.5. Limites Les Méta entités, Relations, Descriptions, Mots-clés, Documentation associée et Appels de Relation ne sont pas traités.

  • Page 222: Gy30 - Jcl D'exécution

    //PACGGR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGU DD DSN=&INDSV..BVPGU,DISP=SHR //PAC7AN DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AY DD DSN=&INDUV..&BASE.AY,DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(VERIFAE),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 223: Procédures - Tableau Récapitulatif Des Changements

    DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAY),DISP=SHR //PTU929 EXEC PGM=BVPTU929 //*----------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN...
  • Page 224 EXPM Extraction des environnements GPPM Ecriture compte-rendu génération dans QJ HIPM Mise en production des éléments SIPM Simulation de génération UBPM Génération des mouvements Batch à partir de QJ VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 225 Procédure Remarques TRED Pac/Transfer : édition paramètres UPGP Mise à jour PAF Base Administration CEND Contrôle d'intégrité intra-Endevor CIND Contrôle d'intégrité inter-Endevor GPND Endevor : valorisation des paramètres JJND Endevor : reprise du journal JRND Endevor : récupération des mouvements du journal archivé LSND Endevor : mise à...

  • Page 226: Reprises Des Bases De La Version 3.0

    'Réinstallation Serveur' du présent manuel. Après avoir exécuté la mise à jour du Modèle administration (VING), il faut se connecter à la station administrateur pour renseigner la nouvelle clé d'accès au système. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 227 Si cette version est installée dans un nouvel environnement, après avoir suivi toutes les étapes de l'installation de la partie serveur, il faut restaurer les bases dans l'ordre suivant : – RSAD : restauration de la Base d'Administration, – VING : mise à jour du Modèle d'Administration, –...
  • Page 228 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 229: Chapitre 8. Utilitaires Rpp

    Segments renommés en 00 dans les -CD lorsque le segment 00 existe au sein du réseau. détection des problèmes de tri dans les -CE d'Ecrans. détection des Etats avec des libellés en double. © Copyright IBM Corp. 1983,2013...
  • Page 230 Description du fichier NR des entités non reprises : Pos. Lon. Signification Code bibliothèque Type PAF Code entité Type de bloc Usage rubrique Méta-Entité FILLER Description du fichier PM des macros non typées : VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 231 Pos. Lon. Signification Code entité FILLER Description du fichier RQ des anomalies : Pos. Lon. Valeur Signification Bibliothèque Type PAF Code entité FILLER Type de l'anomalie Bloc à ne pas reprendre Caractères spécial Dialogue de type F (Serveur de Dossier) ou FV (Vue de Dossier) Problème de tri dans -CE Ecran Ecran de type F (Serveur de Dossier) ou FV (Vue de...

  • Page 232: Miam - Entrées Utilisateur

    Type de session Si sélection session historisée Si session courante ou H Ce traitement s'appuie également sur le fichier paramètre hlq.SBVPINST(BVPAMIAM), fourni à l'installation, qui a la structure suivante VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 233: Miam - Description Des Étapes

    Pos. Lon. Valeur Signification 'BL' Type de bloc non repris 'CS' Caractère spécial 'MT' Forçage reprise de Méta-Entité (1) 'UR' Usage de rubrique reconnu 'WK' Type de ligne de working à ne pas reprendre 'WN' Chaîne de caractères incompatible avec Windows Valeur du paramètre Ce fichier pourra être enrichi avec les caractères spéciaux souhaités : pour cela il suffit d'ajouter une ligne de type CS avec le caractère voulu.

  • Page 234: Miam - Jcl D'exécution

    //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&MIAMMB,DISP=(,PASS), UNIT=&UWK,SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PRLCSPE EXEC PGM=BVPRMSYS,PARM=’&OUTCSPE’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 235 //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LICSPE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISCSPE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LICSPE,DISP=(OLD,DELETE) //PRDCSPE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISCSPE),PARM=’&OUTCSPE’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLCSPE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELCSPE EXEC PGM=IDCAMS,COND=(4,EQ,LISCSPE) //*----------------------------------------...
  • Page 236 //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLRQER,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELRQER EXEC PGM=IDCAMS,COND=(4,EQ,LISRQER) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLRQER,DISP=(OLD,DELETE) //PLTPAM EXEC PGM=BVPLTPAM //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 237: Miba - Migration Batch

    //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //PAC7MB DD DSN=&&MIAMMB,DISP=(OLD,PASS) //PAC7CK DD DSN=&INPARAM,DISP=SHR...
  • Page 238 élément de son dossier. La bibliothèque la plus haute est la bibliothèque de référence. Dans chaque bibliothèque plus basse trouvée, le dossier de l'entité sera ultérieurement créé (étape suivante). VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 239: Bvpacs96 (Fichier Optionnel, Fourni Par La Procédure Miam)

    L'ensemble des bibliothèques d'un même réseau qui contient un élément du dossier est détecté. Pour chaque bibliothèque, une carte de commande en vision 'C' de l'entité extraite, accompagnée d'une carte assign appropriée, est formatée et triée. L'ensemble de ces cartes va constituer le fichier d'entrée de la seconde étape. Seconde étape : extraction PACX en vision 'C' L'extraction des entités est réalisée dans la bibliothèque d'extraction et les bibliothèques de niveau supérieur.
  • Page 240 &INDUV..SYSEXT.&USER Entrée/Sortie Fichier de travail PAC7MV &&MV Sortie Fichier travail PAC7MR &&MR Sortie Fichier travail PAC7MX &&MX Sortie Entités non extraites (PACX) PAC7GY DUMMY Sortie Mouvements extraits pour UPDP VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 241 Code Nom physique Type Libellé PAC7RQ &&QR Sortie Correspondance Entités/Bibliothèque origine PAC7TD &&TD Sortie Fichier travail PAC7UE &&UE Sortie Fichier travail PAC7IA Etat Edition générale de l'enchaînement des programmes PAC7DD Etat Edition des anomalies sur mouvements en entrée PAC7ED Etat Compte-rendu d'extractions PAC7EE Etat...

  • Page 242: Pac7Ae &Indsv

    &&PACXBM Entrée/Sortie Entrées utilisateur PAC7MM &&PACXMM Entrée/Sortie Fichier travail PAC7MJ &&PACXMJ Entrée/Sortie Fichier travail PAC7TE &&PACXTE Entrée/Sortie Fichier travail PAC7RE &&PACXRE Entrée/Sortie Fichier travail PAC7RM &&PACXRM Entrée/Sortie Fichier travail VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 243 Code Nom physique Type Libellé PAC7WD &&PACXWD Entrée/Sortie Mouvements extraits SYSEXT &INDUV..SYSEX2.&USER Entrée/Sortie Fichier de travail PAC7MV &&MV Sortie Fichier travail PAC7MR &&MR Sortie Fichier travail PAC7MX &&MX Sortie Entités non extraites (PACX) PAC7GY &&GY Sortie Mouvements extraits pour UPDP PAC7RQ DUMMY Sortie...

  • Page 244: Type Libellé

    Tri et mise en forme fichier import : BVPACS91 Code Nom physique Type Libellé PAC7AT &&PAC7AT Entrée Fichier des regroupements PAC7TI &&PAC7TI Sortie Fichier des regroupements retrié SORTWK01 SORTWK02 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 245: Miba - Jcl D'exécution

    PAC7TG &OUTFILE Sortie Fichier résultat tri global SORTWK01 SORTWK02 SORTWK03 MIBA - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ BATCH MIGRATION //* ------------------------------------------------------ //BVPMIBA PROC BASE=$BASE, CODE OF DEVPT DATABASE INDSV=’$INDSV’, INDEX OF SYSTEM VSAM FILES INDSN=’$INDSN’, INDEX OF SYSTEM NON VSAM FILE INDUV=’$INDUV’,...
  • Page 246 //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLFILE,DISP=(OLD,DELETE) //PRLMIMA EXEC PGM=BVPRMSYS,PARM=’&OUTMIMA’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIMIMA,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 247 DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISMIMA EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIMIMA,DISP=(OLD,DELETE) //PRDMIMA EXEC PGM=BVPRMSYS,COND=(4,EQ,LISMIMA),PARM=’&OUTMIMA’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLMIMA,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELMIMA EXEC PGM=IDCAMS,COND=(4,EQ,LISMIMA) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLMIMA,DISP=(OLD,DELETE)
  • Page 248 DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELGGC EXEC PGM=IDCAMS,COND=(4,EQ,LISGGC) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLGGC,DISP=(OLD,DELETE) //PRLGGS EXEC PGM=BVPRMSYS,PARM=’&OUTGGS’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 249 //PACROU DD DSN=&&LIGGS,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISGGS EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIGGS,DISP=(OLD,DELETE) //PRDGGS EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGGS),PARM=’&OUTGGS’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLGGS,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELGGS EXEC PGM=IDCAMS,COND=(4,EQ,LISGGS) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT...
  • Page 250 DD DSN=&&PACXRM,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //PAC7RQ DD DSN=&&QR,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7WD DD DSN=&&PACXWD,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG) //PAC7MV DD DSN=&&MV,DISP=(,DELETE),UNIT=&UWK, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 251 SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MR DD DSN=&&MR,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MX DD DSN=&&MX,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7TD DD DSN=&&TD,DISP=(,PASS),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //PAC7GY DD DUMMY //PAC7UE DD DSN=&&UE,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=230,BLKSIZE=6440) //SYSUDUMP DD SYSOUT=&OUT //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’,COND=EVEN //*----------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLSYSEXT),DISP=SHR //PACROU DD DSN=&&DLSYSEXT,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK,...
  • Page 252 DD SYSOUT=&OUTL //PAC7EM DD SYSOUT=&OUTL //PAC7EP DD SYSOUT=&OUTL //PAC7EQ DD SYSOUT=&OUTL //PAC7EU DD SYSOUT=&OUTL //PAC7EZ DD SYSOUT=&OUTL //PAC7MA DD DUMMY //PAC7ES DD DUMMY //SYLSR DD DSN=&INDUV..SYSEX2.&USER,DISP=SHR //SYSEXT DD SUBSYS=(&LSR,’DDNAME=SYLSR’) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 253 //PAC7MB DD DSN=&&PACXMB,DISP=(OLD,DELETE,DELETE) //PAC7BM DD DSN=&&PACXBM,DISP=(,DELETE),UNIT=&UWK, DCB=BLKSIZE=3440,SPACE=&SPAMB //PAC7MM DD DSN=&&PACXMM,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=113,BLKSIZE=11300) //PAC7MJ DD DSN=&&PACXMJ,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=158,BLKSIZE=6320) //PAC7TE DD DSN=&&PACXTE,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=323,BLKSIZE=6460) //PAC7RE DD DSN=&&PACXRE,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=36,BLKSIZE=6012) //PAC7RM DD DSN=&&PACXRM,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //PAC7RQ DD DUMMY //PAC7WD DD DSN=&&PACXWD,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&SRTSPC,,CONTIG)
  • Page 254 DD DSN=&OUTGGC,DISP=(,CATLG),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MS DD DSN=&OUTGGS,DISP=(,CATLG),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACS97 EXEC PGM=BVPACS97,COND=((4,LT,PACX), (4,LT,PACX2)) //*------------------------------------------ //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 255: Mibr - Migration Batch Contexte

    //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7TA DD DSN=&&PAC7TA,DISP=(OLD,PASS) //PAC7AT DD DSN=&&PAC7AT,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACS91 EXEC PGM=BVPACS91,COND=((4,LT,PACX), (4,LT,PACX2)) //*-------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7AT DD DSN=&&PAC7AT,DISP=(OLD,PASS) //PAC7TI DD DSN=&&PAC7TI,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400)

  • Page 256: Mibr - Entrées Utilisateur

    Type entité Pacbase à déplacer 'E ' : Rubrique 'S ' : Structure de donnée et Segment 'R ' : Etat 'B ' : Bloc base de donnée 'P ' : Programme VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 257 Pos. Lon. Valeur Signification 'O ' : Dialogue et écran 'F ' : Méta-Entité Cliente '$tt' : Entité Utilisateur Cliente (tt = code d'appel) 'T ' : Texte Code du nouveau projet Principe de la migration Un contexte d'extraction est sélectionné. La session et la bibliothèque dont sera extrait le réseau ascendant ou descendant sont précisées.

  • Page 258: Mibr - Eclatement Des Bibliothèques

    A l'aide des lignes P, il faut définir pour chaque type d'entité Pacbase concernée vers quel nouveau projet elles seront déplacées. Les projets sont tous dépendants et leur hiérarchie dépend du type de l'entité Pacbase associé. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 259 L'ordre est décrit dans la table des entrées de la ligne P. Cependant les projets des entités utilisateurs peuvent être placés au bon vouloir de l'utilisateur. On peut associer le même projet à plusieurs types d'entité Pacbase à condition que les types soient directement dépendants (hiérarchie immédiate). Pour s'assurer que la liste des nouveaux projets issus d'un éclatement de bibliothèque soit cohérente, il est contrôlé...

  • Page 260: Mibr - Description Des Étapes

    Données extension de la Base de Développement PAC7MB &&MIBRMB Entrée Mouvements utilisateur PAC7RQ &&QR Sortie Correspondance Entités/Bibliothèque la plus basse PAC7DD Sortie Etat d'anomalies Prise en compte des entités non reconduites BVPACS9A VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 261 Code Nom physique Type Libellé PAC7NR &NRFILE Entrée Entités non reprises issues de MIAM PAC7QR &&QR Entrée Correspondance Entité/Bibliothèque la plus basse PAC7RQ &&RQ Sortie Correspondance Entité/Bibliothèque épurée SORTWK01 SORTWK02 SORTWK03 Tri et mise en forme cartes commande : BVPACS92 Code Nom physique Type...
  • Page 262 Edition générale de l'enchaînement des programmes PAC7DD Etat Edition des anomalies sur mouvements en entrée PAC7ED Etat Compte-rendu d'extractions PAC7EE Etat Compte-rendu d'extractions PAC7EG Etat Compte-rendu d'extractions PAC7EM Etat Compte-rendu d'extractions VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 263 Code Nom physique Type Libellé PAC7EP Etat Compte-rendu d'extractions PAC7EQ Etat Compte-rendu d'extractions PAC7EU Etat Compte-rendu d'extractions PAC7EZ Etat Compte-rendu d'extractions SORTWK01 SORTWK02 SORTWK03 Codes retour : 0 : Pas d'erreur 4 : Erreur dans les entrées utilisateur (précisée dans PAC7EE) ou dans les extractions (précisée dans PAC7EZ) 8 : Erreur dans la ligne '*' (précisée dans PAC7DD) Suppression du fichier KSDS de travail : IDCAMS...

  • Page 264: Mibr - Jcl D'exécution

    Eclatement des Bibliothèques pour MIBJ PAC7TI &&PAC7TI Entrée Fichier des regroupements retrié PAC7TG &OUTFILE Sortie Fichier résultat tri global SORTWK01 SORTWK02 SORTWK03 MIBR - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 265 //* ------------------------------------------------------ BATCH MIGRATION //* ------------------------------------------------------ //BVPMIBR PROC BASE=$BASE, CODE OF DEVPT DATABASE INDSV=’$INDSV’, INDEX OF VSAM SYSTEM FILES INDSN=’$INDSN’, INDEX OF NON VSAM SYSTEM FILES INDUV=’$INDUV’, INDEX OF USER VSAM FILES //*: VSAMCAT=’$VCAT’, USER VSAM CATALOG //*: SYSTCAT=’$SCAT’, SYSTEM VSAM CATALOG STEPLIB=’$HLQ..SBVPMBR8’, LIBRARY OF LOAD-MODULES SORTLIB=’$BIBT’,...
  • Page 266 //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLMIMA,DISP=(OLD,DELETE) //PRLGCP EXEC PGM=BVPRMSYS,PARM=’&OUTGCP’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIGCP,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 267 //LISGCP EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIGCP,DISP=(OLD,DELETE) //PRDGCP EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCP),PARM=’&OUTGCP’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLGCP,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELGCP EXEC PGM=IDCAMS,COND=(4,EQ,LISGCP) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLGCP,DISP=(OLD,DELETE)
  • Page 268 //DELGGS EXEC PGM=IDCAMS,COND=(4,EQ,LISGGS) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLGGS,DISP=(OLD,DELETE) //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’ //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DFMIAMNR),DISP=SHR //PACROU DD DSN=&&DFMIAMNR,DISP=(,PASS),SPACE=(TRK,1), VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 269 UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DEFINE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFMIAMNR,DISP=(OLD,DELETE) //MAXKEY EXEC PGM=IDCAMS //*---------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSPAF DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR //MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR //PACS9B EXEC PGM=BVPACS9B //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR...
  • Page 270 //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’ //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 271 //PACRIN DD DSN=&INDSN..BVPSY(DFSYSEX2),DISP=SHR //PACROU DD DSN=&&DFSYSEX2,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DEFINE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFSYSEX2,DISP=(OLD,DELETE) //MAXKEY EXEC PGM=IDCAMS //*---------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSPAF DD DSN=&INDUV..SYSEX2.&USER,DISP=SHR //MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR //PACX2 EXEC PGM=BVPACX,REGION=0K,COND=(4,LT,PACS21) //*-------------------------------------------------- //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR...
  • Page 272 UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELETE EXEC PGM=IDCAMS,COND=EVEN //*------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLSYSEX2,DISP=(OLD,DELETE) //PACS94 EXEC PGM=BVPACS94,COND=((4,LT,PACS21), (4,LT,PACX2)) //*-------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 273 //PAC7CS DD DSN=&INPUTSPE,DISP=SHR //PAC7RQ DD DSN=&&PACXRQ,DISP=(OLD,DELETE) //PAC7QR DD DSN=&OUTSPLT,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACS96 EXEC PGM=BVPACS96,COND=((4,LT,PACS21), (4,LT,PACX2)) //*-------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7GY DD DSN=&&GY,DISP=(OLD,DELETE) //PAC7CS DD DSN=&INPUTSPE,DISP=SHR //PAC7PM DD DSN=&INPUTMIB,DISP=SHR //PAC7TA...

  • Page 274: Mibj - Migration Journal

    Elle permet de sélectionner le journal dans une plage de dates, sessions, bibliothèques, etc. Elle permet d'extraire du référentiel les entités des mouvements sélectionnés. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 275: Mibj - Entrées Utilisateur

    L'extraction s'effectue dans la bibliothèque et la session du mouvement d'une part et dans toutes ses bibliothèques inférieures où des overrides de la fiche ou d'un élément du dossier de l'entité ont été détectées. Pour chaque entité est indiquée la bibliothèque la plus haute du référentiel où elle a été...
  • Page 276 égales. Eclatement des bibliothèques La procédure MIBR, suite à la saisie des demandes utilisateurs d'éclatement de bibliothèques, sauvegarde ces informations. Elles sont prises en compte VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 277: Mibj - Description Des Étapes

    dans la procédure MIBJ. Ce fichier OUTSPLT issu de MIBR va constituer une entrée de MIBJ(SPLTFILE). Il contient l'ensemble des projets issu de l'éclatement des bibliothèques ainsi que leur hiérarchie. Pour chaque entité extraite par MIBJ, présente dans le fichier PAC7RQ , on recherche si elle doit être déplacée vers un nouveau projet , c'est à...
  • Page 278 Entités non reprises issues de MIAM PAC7QR &&QR Entrée Correspondance Entité/Bibliothèque la plus basse PAC7RQ &&RQ Sortie Correspondance Entité/Bibliothèque épurée SORTWK01 SORTWK02 SORTWK03 Tri et mise en forme cartes commande : BVPACS92 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 279 Code Nom physique Type Libellé PAC7QR &&QR Entrée Correspondance Entités/Bibliothèque PAC7RQ &&PACXRQ Sortie Correspondance Entités/Bibliothèque triée PAC7MZ &&PACXMB Sortie Cartes de commandes pour entrée PACX SORTWK01 SORTWK02 SORTWK03 Initialisation du fichier KSDS de travail : IDCAMS Extraction : PACX2 Cette étape extrait les mouvements en fonction des entrées issues du programme BVPACS92.
  • Page 280 Compte-rendu d'extractions SORTWK01 SORTWK02 SORTWK03 Codes retour : 0 : Pas d'erreur 4 : Erreur dans les entrées utilisateur (précisée dans PAC7EE) ou dans les extractions (précisée dans PAC7EZ) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 281 8 : Erreur dans la ligne '*' (précisée dans PAC7DD) Suppression du fichier KSDS de travail : IDCAMS Migration batch : BVPACS94 Code Nom physique Type Libellé PAC7RQ &&PACXRQ Entrée Correspondance Entités/Bibliothèque la plus basse PAC7CS &INPUTSPE Entrée Fichier de correspondance des caractères spéciaux PAC7QR &OUTSPLT...

  • Page 282: Mibj - Jcl D'exécution

    SORTLIB=’$BIBT’, SORT LIBRARY USER=, USER CODE LSR=’BLSR’, LSR BATCH SYSTEM NAME OUT=$OUT, UTILITIES AND ERRORS OUTPUT CLASS OUTL=$OUT, OUTPUT CLASS OF REPORTS UWK=$UWK, WORK UNIT SPAMB=’(TRK,(5,1),RLSE)’, REQUEST FILE SPACE VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 283 SPAMV=’(CYL,(100,10),RLSE)’, UPDT FILE SPACE SPAGY=’(CYL,(100,10),RLSE)’, UPDP FILE SPACE SPATD=’(CYL,(100,10),RLSE)’, CPSN FILE SPACE NRFILE=, NOT RETRIEVED ENTITIES FILE SPLTFILE=, SPLITTING LIBRARIES FILE INPUTMIB=, PROGRAM/MACRO FILE INPUTSPE=, SPECIAL CHAR FILE OUTMIMA=, OUTPUT MIMA COMMAND OUTFILE=, OUTPUT FILE MIGRATION OUTGCP=, OUTPUT GCP COMMAND OUTGCO=, OUTPUT GCO COMMAND OUTGGC=,...
  • Page 284 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLGCP,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELGCP EXEC PGM=IDCAMS,COND=(4,EQ,LISGCP) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLGCP,DISP=(OLD,DELETE) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 285 //PRLGCO EXEC PGM=BVPRMSYS,PARM=’&OUTGCO’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIGCO,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISGCO EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIGCO,DISP=(OLD,DELETE) //PRDGCO EXEC PGM=BVPRMSYS,COND=(4,EQ,LISGCO),PARM=’&OUTGCO’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR...
  • Page 286 //*---------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSPAF DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR //MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR //PACS9B EXEC PGM=BVPACS9B //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 287 //PAC7RN DD DSN=&NRFILE,DISP=SHR //PAC7NR DD DSN=&INDUV..MIAMNR.&USER,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACSJR EXEC PGM=BVPACSJR //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’)
  • Page 288 DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MZ DD DSN=&&PACXMB,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’ //*------------------------------------------- VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 289 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DFSYSEX2),DISP=SHR //PACROU DD DSN=&&DFSYSEX2,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DEFINE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFSYSEX2,DISP=(OLD,DELETE) //MAXKEY EXEC PGM=IDCAMS //*---------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSPAF DD DSN=&INDUV..SYSEX2.&USER,DISP=SHR //MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR...
  • Page 290 DD DSN=&&GY,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAGY, DCB=(RECFM=FB,LRECL=310,BLKSIZE=6200) //PAC7UE DD DSN=&&UE,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=230,BLKSIZE=6440) //SYSUDUMP DD SYSOUT=&OUT //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’,COND=EVEN //*----------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLSYSEX2),DISP=SHR //PACROU DD DSN=&&DLSYSEX2,DISP=(,PASS),SPACE=(TRK,1), VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 291 UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELETE EXEC PGM=IDCAMS,COND=EVEN //*------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLSYSEX2,DISP=(OLD,DELETE) //PACS94 EXEC PGM=BVPACS94,COND=((4,LT,PACSJR), (4,LT,PACX2)) //*-------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7CS DD DSN=&INPUTSPE,DISP=SHR //PAC7RQ DD DSN=&&PACXRQ,DISP=(OLD,PASS) //PAC7QR DD DSN=&&PAC7QR,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT...
  • Page 292 DD DSN=&&PAC7QR,DISP=(OLD,PASS) //PAC7TI DD DSN=&&PAC7TI,DISP=(OLD,PASS) //PAC7TG DD DSN=&OUTFILE,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=27600,LRECL=400) //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(30,1),,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 293: Mima - Migration Macros

    MIMA - Migration Macros MIMA - Présentation générale Cette procédure permet, simultanément, de générer et de taguer une ou plusieurs macrostructures à la fois. En entrée il faut : soit saisir une ligne '*' (code utilisateur, mot de passe et code bibliothèque) ainsi qu'une ou plusieurs lignes de commande, pour chaque macrostructure à...

  • Page 294: Mima - Description Des Étapes

    Index de la Base de Développement PAC7AY &INDUV..&BASE.AY Entrée Extension de la Base de Développement PAC7AJ DUMMY Entrée Journal de la Base de Développement PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 295 Code Nom physique Type Libellé PACGGN &INDSV..BVPGN Entrée Index de la Base Administration PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration PAC7ME &&MIMAMB Entrée Mouvements utilisateur PAC7MV &&PAC7MV Sortie Mouvements de mise à jour PAC7MG &&PAC7MG Sortie...
  • Page 296 Fichier de travail PAC7W3 Sortie Fichier de travail PAC7W4 Sortie Fichier de travail PAC7W5 Sortie Fichier de travail PAC7IA Etat Edition générale de l'enchaînement des programmes SORTWK01 SORTWK01 SORTWK01 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 297: Mima - Jcl D'exécution

    MIMA - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ MACRO-STRUCTURES MIGRATION //* ------------------------------------------------------ //BVPMIMA PROC BASE=$BASE, CODE OF VAPAC DATABASE INDSV=’$INDSV’, INDEX OF VSAM SYSTEM FILES INDSN=’$INDSN’, INDEX OF NON VSAM SYSTEM FILES INDUV=’$INDUV’, INDEX OF USER VSAM FILES //*: SYSTCAT=’$SCAT’,...
  • Page 298 //*------------------------------------------ //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR DD DSN=$DFHEXC,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //PAC7MG DD DSN=&&PAC7MG,DISP=(OLD,PASS) //PAC7JG DD DSN=&&PAC7KC,DISP=(,PASS), VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 299 UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) //PAC7KU DD DSN=&&PAC7KU,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK, DCB=(RECFM=FB,LRECL=260,BLKSIZE=26000) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACMM EXEC PGM=BVPACMM,COND=((4,LT,PACA10), (4,LT,PACA30)) //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR DD DSN=$DFHEXC,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR...

  • Page 300: Mith - Migration Thesaurus

    EXLI Code de l'extracteur Formatage pour UPDP (PAF) Top plan de convergence L'extraction EXLI s'exécute en inter-bibliothèque, puisque les entités du thesaurus sont créées en inter-bibliothèque dans le référentiel. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 301: Mith - Description Des Étapes

    Le fichier GY issu du PACX est ensuite filtré, les enregistrements du thesaurus sont sélectionnés et un nouveau fichier au format XML est créé . MITH - Description des étapes Prise en compte des entrées : PTU001 Initialisation du ou des fichiers de sortie Initialisation du fichier KSDS de travail : IDCAMS Extraction : PACX Cette étape extrait les mouvements en fonction des entrées utilisateur.
  • Page 302 8 : Erreur dans la ligne '*' (précisée dans PAC7DD) Suppression du fichier KSDS de travail : IDCAMS Sélection des mouvements du thesaurus et formatage d'un fichier XML : BVPACTH1 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 303: Mith - Jcl D'exécution

    Fichier issu de l'extraction PACX PAC7RQ &OUTFILE Sortie Fichier du thesaurus au format MITH - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ THESAURUS MIGRATION //* ------------------------------------------------------ //BVPMITH PROC BASE=$BASE, CODE OF DEVPT DATABASE INDSV=’$INDSV’, INDEX OF VSAM SYSTEM FILES INDSN=’$INDSN’,...
  • Page 304 //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 305 //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //AYLSR DD DSN=&INDUV..&BASE.AY,DISP=SHR //PAC7AY DD SUBSYS=(&LSR,’DDNAME=AYLSR’,’BUFND=40’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7PJ DD DUMMY //PAC7IA DD SYSOUT=&OUTL //PAC7DD DD SYSOUT=&OUTL //PAC7ED DD SYSOUT=&OUTL //PAC7EE DD SYSOUT=&OUTL //PAC7EG DD SYSOUT=&OUTL...

  • Page 306: Mius - Migration Utilisateurs

    Principe Transformation des users en create user. Cette procédure est l'utilitaire qui permet de transformer des Users en Create users. Suite à l'extraction des utilisateurs déclarés dans l'administration, un VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 307: Mius - Entrées Utilisateur

    fichier contenant les caractéristiques de chaque utilisateur est constitué. Ce fichier correspond à une liste d'ID utilisateur, d'adresses électroniques, de noms, d'ID licence et de niveau administration, séparés par des virgules. Ce fichier est une entrée à l'outil repotools de RTC. MIUS - Entrées Utilisateur Ce sont les entrées de la procédure PACX avec les valeurs spécifiques suivantes :...

  • Page 308: Mius - Description Des Étapes

    Base Administration PAC7PJ DUMMY Entrée Mouvements sélectionnés sur le journal PAC7MB &&MIUSMB Entrée Entrées utilisateur PAC7BM &&PACXBM Entrée/Sortie Entrées utilisateur PAC7MM DUMMY Entrée/Sortie SYSEXT &INDUV..SYSEXT. Entrée/Sortie Fichier de travail &USER VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 309 Code Nom physique Type Libellé PAC7MJ &&PACXMJ Entrée/Sortie PAC7TE &&PACXTE Entrée/Sortie PAC7RE &&PACXRE Entrée/Sortie PAC7RM &&PACXRM Entrée/Sortie PAC7RQ &&PACXRQ Entrée/Sortie Fichier de travail PAC7WD &&PACXWD Entrée/Sortie Mouvements extraits PAC7MV &MV Entrée/Sortie PAC7MR &MR Entrée/Sortie PAC7TD &TD Entrée/Sortie PAC7MX &MX Entrée/Sortie PAC7GY &&GY Sortie...

  • Page 310: Mius - Jcl D'exécution

    OUTPUT FILE MIGRATION VOLS=’SER=$VOLUN’, BACKUP VOLUME UNITS=$UNITUN, BACKUP UNIT SPAOT=’(TRK,(500,80),RLSE)’ OUTPUT FILE SPACE //*************************************************************** //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&MIUSMB,DISP=(,PASS), UNIT=&UWK,SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 311 //PRLFILE EXEC PGM=BVPRMSYS,PARM=’&OUTFILE’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISFILE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIFILE,DISP=(OLD,DELETE) //PRDFILE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFILE),PARM=’&OUTFILE’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR...
  • Page 312 //PAC7MJ DD DSN=&&PACXMJ,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=158,BLKSIZE=6320) //PAC7TE DD DSN=&&PACXTE,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=323,BLKSIZE=6460) //PAC7RE DD DSN=&&PACXRE,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=36,BLKSIZE=6012) //PAC7RM DD DSN=&&PACXRM,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //PAC7RQ DD DSN=&&PAC7RQ,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7WD DD DSN=&&PACXWD,DISP=(,DELETE),UNIT=&UWK, SPACE=&SPATD, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 313 DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //PAC7MV DD DSN=&&MV,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MR DD DSN=&&MR,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MX DD DSN=&&MX,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7TD DD DSN=&&TD,DISP=(,PASS),UNIT=&UWK, SPACE=&SPATD, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //PAC7GY DD DSN=&&GY,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAGY, DCB=(RECFM=FB,LRECL=310,BLKSIZE=6200) //PAC7UE DD DSN=&&UE,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMV, DCB=(RECFM=FB,LRECL=230,BLKSIZE=6440) //SYSUDUMP DD SYSOUT=&OUT...

  • Page 314: Mila - Migration Libellés D'erreur Administration

    Une ligne de commande : Pos. Lon. Valeur Signification Code ligne Numéro de ligne 'EX' Code de sélection de bibliothèque : Bibliothèque et ses 'centrales' YATTABLES Entité utilisateur des tables de l'administration VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 315: Mila - Description Des Étapes

    L'extraction EXTR s'exécute en inter-bibliothèque, dans la base d'administration. Le fichier GY issu du PACX est ensuite filtré, les enregistrements des messages d'erreur sont sélectionnés (descriptif -D02) et remis en forme dans un fichier PAC7LI. MILA - Description des étapes Prise en compte des entrées : PTU001 Initialisation du ou des fichiers de sortie Initialisation du fichier KSDS de travail : IDCAMS...
  • Page 316 Codes retour : 0 : Pas d'erreur 4 : Erreur dans les entrées utilisateur (précisée dans PAC7EE) ou dans l'extraction 8 : Erreur dans la ligne '*' (précisée dans PAC7DD) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 317: Mila - Jcl D'exécution

    Fichier issu de l'extraction PACX PAC7LI &OUTFILE Sortie Fichier des utilisateurs : entrée outil repotools MILA - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ ERROR LABEL MIGRATION //* ------------------------------------------------------ //BVPMILA PROC INDSV=’$INDSV’, INDEX OF SYSTEM VSAM FILES INDUV=’$INDUV’, INDEX OF USER VSAM FILES INDSN=’$INDSN’,...
  • Page 318 DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR //PACX EXEC PGM=BVPACX,REGION=0K //*------------------------------- //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSOUX DD SYSOUT=&OUT //SYSPRINT DD SYSOUT=&OUT //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 319 //ANLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //AYLSR DD DSN=&INDSV..BVPGY,DISP=SHR //PAC7AY DD SUBSYS=(&LSR,’DDNAME=AYLSR’,’BUFND=40’) //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7PJ DD DUMMY //PAC7IA DD SYSOUT=&OUTL //PAC7DD DD SYSOUT=&OUTL...
  • Page 320 //PLTYAT EXEC PGM=BVPLTYAT,COND=(4,LT,PACX) //*---------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR //*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR //*: DD DSN=&VSAMCAT,DISP=SHR //PAC7GY DD DSN=&&GY,DISP=(OLD,PASS) //PAC7LI DD DSN=&OUTFILE,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=3500,LRECL=35) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 321: Mia1 - Génération Programmes

    MIA1 - Génération programmes MIA1 - Présentation générale Cette procédure permet de générer les programmes dans deux fichiers contenant respectivement le généré Cobol et le généré Cobol de contrôle. Elle effectue la génération des micro-patterns qui ne proviennent pas de macros.
  • Page 322 Commande de l'extracteur PAC7KF &UWK Entrée/ Fichier de travail Sortie PAC7MG &&PAC7MG Entrée Commandes Edition/Génération PAC7W1 DUMMY Entrée/ Fichier de travail Sortie PAC7KU &&PAC7KU Sortie Fichier état sortie SORTWK01 SORTWK02 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 323 Code Nom physique Type Libellé SORTWK03 Génération des programmes : BVPACMM1 Code Nom physique Type Libellé PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGN &INDSV..BVPGN Entrée Index de la Base Administration PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration PAC7AR...

  • Page 324: Mia1 - Jcl D'exécution

    LSR BATCH SYSTEM NAME UWK=$UWK, WORK UNIT OUT=$OUT OUTPUT CLASS //*************************************************************** //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&MIA1MB,DISP=(,PASS), UNIT=&UWK,SPACE=(CYL,(10,10),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PRLFILE EXEC PGM=BVPRMSYS,PARM=’&OUTFILE’ //*--------------------------------------- VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 325 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISFILE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIFILE,DISP=(OLD,DELETE) //PRDFILE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFILE),PARM=’&OUTFILE’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLFILE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK,...
  • Page 326 //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PACGGK DD DSN=&INDSV..BVPGK,DISP=SHR //PAC7JG DD DSN=&&PAC7KC,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK, VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 327 DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) //PAC7KF DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820 //PAC7MG DD DSN=&&PAC7MG,DISP=(OLD,PASS) //PAC7W1 DD DUMMY //PAC7KU DD DSN=&&PAC7KU,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK, DCB=(RECFM=FB,LRECL=260,BLKSIZE=26000) //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,2,,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACM1 EXEC PGM=BVPACMM1,COND=((4,LT,PACA10), (4,LT,PACA20)) //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR...

  • Page 328: Mia2 - Génération Écrans

    Il faut une ligne '*' avec code utilisateur, mot de passe et code bibliothèque. Pos. Lon. Valeur Signification Code ligne uuuuuuuu Code utilisateur pppppppp Mot de passe Code bibliothèque VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 329: Mia2 - Description Des Étapes

    Il faut ensuite une ligne de commande de type GCO telle que décrite dans les entrées de la procédure GPRT pour chaque écran à générer. MIA2 - Description des étapes Prise en compte des entrées : PTU001 Initialisation du ou des fichiers de sortie Commandes Edition/génération : BVPACA10 Code Nom physique...
  • Page 330 Données extension de la Base de Développement PAC7SG &INDSV..BVPSG Entrée Squelette de génération PAC7EE Entrée Fichier de travail PAC7GE &&PAC7GE Sortie Fichier de travail PAC7JG &&PAC7JG Sortie Fichier de travail VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 331: Mia2 - Jcl D'exécution

    PAC7IA Etat Edition générale de l'enchaînement des programmes SORTWK01 SORTWK01 SORTWK01 MIA2 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ SCREEN GENERATION //* ------------------------------------------------------ //BVPMIA2 PROC BASE=$BASE, CODE OF VAPAC DATABASE INDSV=’$INDSV’, INDEX OF VSAM SYSTEM FILES INDSN=’$INDSN’, INDEX OF NON VSAM SYSTEM FILES INDUV=’$INDUV’,...
  • Page 332 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIFIL2,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISFIL2 EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&LIFIL2,DISP=(OLD,DELETE) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 333 //PRDFIL2 EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFIL2),PARM=’&OUTFIL2’ //*------------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLFIL2,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELFIL2 EXEC PGM=IDCAMS,COND=(4,EQ,LISFIL2) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLFIL2,DISP=(OLD,DELETE) //PACA10 EXEC PGM=BVPACA10 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR DD DSN=$DFHEXC,DISP=SHR //ANLSR...
  • Page 334 //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PAC7SG DD DSN=&INDSV..BVPSG,DISP=SHR //PAC7EE DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820 //PAC7GE DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=16000 //PAC7JG DD DSN=&&PAC7JG,DISP=(,PASS),UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440), SPACE=(CYL,(5,1),RLSE) //PAC7KC DD DSN=&&PAC7KC,DISP=(OLD,PASS) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 335: Mia3 - Génération Clients

    //PAC7KE DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820 //PAC7G1 DD DSN=&&PAC7G1,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=16000,LRECL=160) //PAC7G2 DD DSN=&OUTFIL2,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOU, DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80) //PAC7G3 DD DSN=&OUTFILE,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=16000,LRECL=160) //PAC7W1 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=26000 //PAC7W2 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820 //PAC7EZ DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=17120 //PAC7IA DD SYSOUT=&OUT //PACM2W DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=16000 //PACM2P DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=16000 //PAC2GW DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=16000 //PAC2GP DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=16000...

  • Page 336: Mia3 - Description Des Étapes

    Utilisateurs de la Base Administration PAC7ME &&MIA3MB Entrée Mouvements utilisateur PAC7MV &&PAC7MV Sortie Mouvements de mise à jour PAC7MG &&PAC7MG Sortie Commandes Edition/Génération SORTWK01 SORTWK02 SORTWK03 Ventilation des commandes : BVPACA20 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 337 Code Nom physique Type Libellé PAC7AR &INDUV..&BASE.AR Entrée Données de la Base de Développement PAC7AN &INDUV..&BASE.AN Entrée Index de la Base de Développement PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur PACGGN &INDSV..BVPGN Entrée Index de la Base Administration PACGGR &INDSV..BVPGR Entrée Données de la Base Administration PACGGU &INDSV..BVPGU...

  • Page 338: Mia3 - Jcl D'exécution

    SPAOT=’(CYL,(100,100))’, OUTPUT FILE SPACE SPAOU=’(CYL,(200,200))’, OUTPUT FIL2 SPACE VOLS=’SER=$VOLUN’, BACKUP VOLUME UNITS=$UNITUN, BACKUP UNIT SPAWK=’(CYL,(50,10),RLSE)’, WORK FILE SPACE SORTLIB=’$BIBT’, SORT LIBRARY LSR=’BLSR’, LSR BATCH SYSTEM NAME UWK=$UWK, WORK UNIT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 339 OUT=$OUT OUTPUT CLASS //*************************************************************** //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&MIA3MB,DISP=(,PASS), UNIT=&UWK,SPACE=(CYL,(10,10),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PRLFILE EXEC PGM=BVPRMSYS,PARM=’&OUTFILE’ //*--------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR //PACROU DD DSN=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //LISFILE EXEC PGM=IDCAMS //*---------------------...
  • Page 340 //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PACA20 EXEC PGM=BVPACA20,COND=(4,LT,PACA10) //*------------------------------------------ //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR DD DSN=$DFHEXC,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 341 //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR DD SUBSYS=(&LSR,’DDNAME=GRLSR’,’BUFND=10’) //GULSR DD DSN=&INDSV..BVPGU,DISP=SHR //PACGGU DD SUBSYS=(&LSR,’DDNAME=GULSR’,’BUFND=10’,’BUFNI=10’) //PACGGK DD DSN=&INDSV..BVPGK,DISP=SHR //PAC7JG DD DSN=&&PAC7KC,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=1600) //PAC7KF DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820 //PAC7MG DD DSN=&&PAC7MG,DISP=(OLD,PASS) //PAC7W1 DD DUMMY //PAC7KU DD DSN=&&PAC7KU,DISP=(,PASS), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAWK,...

  • Page 342: Mia4 - Génération Serveurs

    Mot de passe Code bibliothèque Il faut ensuite une ligne de commande de type GGS telle que décrite dans les entrées de la procédure GPRT pour chaque serveur à générer. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 343: Mia4 - Description Des Étapes

    MIA4 - Description des étapes Prise en compte des entrées : PTU001 Initialisation du ou des fichiers de sortie Commandes Edition/génération : BVPACA10 Code Nom physique Type Libellé PAC7AR &INDUV..&BASE.AR Entrée Données de la Base de Développement PAC7AN &INDUV..&BASE.AN Entrée Index de la Base de Développement PAC7AY...
  • Page 344 PAC7SS &INDSV..BVPSS Entrée Squelette de génération PAC7EV Entrée Fichier de travail PAC7GV &&PAC7GV Sortie Fichier de travail PAC7JG &&PAC7JG Sortie Fichier de travail PAC7KC &&PAC7KC Sortie Fichier de travail VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 345: Mia4 - Jcl D'exécution

    PAC7IA Etat Edition générale de l'enchaînement des programmes SORTWK01 SORTWK01 SORTWK01 MIA4 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ SERVER GENERATION //* ------------------------------------------------------ //BVPMIA4 PROC BASE=$BASE, CODE OF VAPAC DATABASE INDSV=’$INDSV’, INDEX OF VSAM SYSTEM FILES INDSN=’$INDSN’, INDEX OF NON VSAM SYSTEM FILES INDUV=’$INDUV’,...
  • Page 346 //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR //PACROU DD DSN=&&DLFIL2,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELFIL2 EXEC PGM=IDCAMS,COND=(4,EQ,LISFIL2) //*---------------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLFIL2,DISP=(OLD,DELETE) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 347 //PACA10 EXEC PGM=BVPACA10 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR DD DSN=$DFHEXC,DISP=SHR //ANLSR DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AN DD SUBSYS=(&LSR,’DDNAME=ANLSR’,’BUFND=40’,’BUFNI=30’) //ARLSR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AR DD SUBSYS=(&LSR,’DDNAME=ARLSR’,’BUFND=40’) //AYLSR DD DSN=&INDUV..&BASE.AY,DISP=SHR //PAC7AY DD SUBSYS=(&LSR,’DDNAME=AYLSR’,’BUFND=40’) //PAC7AJ DD DUMMY //PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR //GNLSR DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGN DD SUBSYS=(&LSR,’DDNAME=GNLSR’,’BUFND=10’,’BUFNI=10’) //GRLSR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGR...
  • Page 348 DCB=(RECFM=FB,LRECL=80,BLKSIZE=3440), SPACE=(CYL,(5,1),RLSE) //PAC7KC DD DSN=&&PAC7KC,DISP=(OLD,PASS) //PAC7KV DD UNIT=&UWK,SPACE=(CYL,(20,5),RLSE),DCB=BLKSIZE=27820 //PAC7G1 DD DSN=&OUTFILE,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOT, DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80) //PAC7G2 DD DSN=&OUTFIL2,DISP=(,CATLG), UNIT=&UNITS,VOL=&VOLS, SPACE=&SPAOU, DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80) //PAC7W1 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820 //PAC7W2 DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820 //PAC7IA DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 349 //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,3,,CONTIG) //SYSPRINT DD SYSOUT=&OUT //SYSOUT DD DUMMY //SYSUDUMP DD SYSOUT=&OUT Chapitre 8. Utilitaires RPP...
  • Page 350 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 351: Chapitre 9. Les Composants

    Pour RACF, le sous-programme est BVPSECRA. Il doit être installé dans une bibliothèque autorisée, par copie du module se trouvant dans la bibliothèque des modules batch (SBVPMBR8) sous le nom BVPSECUR. Programme Système de sécurité BVPSECRA RACF BVPTSS TOPSECRET Batch BVPTSSC TOPSECRET CICS © Copyright IBM Corp. 1983,2013...

  • Page 352: Documentation En Ligne

    Dsname &INDSV..BVPSA Un fichier squelette de génération SC, utilisé par le générateur Batch. Caractéristique Valeur Taille Environ 45 enregistrements Organisation VSAM-KSDS Recsize 3204 CI Size 3584 (data) 1024 (index) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 353 Caractéristique Valeur Clé 4 (position 0) Dsname &INDSV..BVPSC Un fichier squelette de génération SG, utilisé par les générateurs Dialogue et Base de données. Caractéristique Valeur Taille Environ 450 enregistrements Organisation VSAM-KSDS Recsize 4605 CI Size 5120 (data) 1536 (index) Clé 5 (position 0) Utilisation Batch uniquement...

  • Page 354: Paramètres

    Elle contient tous les paramètres des utilitaires système mis en oeuvre dans les procédures batch d'installation et d'exploitation des Bases d'Administration et de Développement, ainsi que dans les procédures PAF standards utilisateur. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 355 Caractéristique Valeur Taille Environ 20 blocs de 6080 Organisation Recfm=FB,Lrecl=80,Blksize=6080 Dsname &INDSN..BVPSY Les informations concernant les noms, les disques (le catalogue) sont initialisées en fonction du paramétrage effectué à l'installation. Attention : : Ces informations ne doivent pas être modifiées sauf indication particulière.
  • Page 356 TABLES : Descriptifs DLPQCE DELETE KEY01 00000001 LIBVPGJ LISTCAT - GJ VERIFAE VERIFY (PAC7AE) VERIFAJ VERIFY (PAC7AJ) VERIFAN VERIFY (PAC7AN) VERIFAR VERIFY (PAC7AR) VERIFAY VERIFY (PAC7AY) VERIFEM VERIFY (PAC7EM) VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 357 Membre Contenu ou format Indication particulière VERIFGJ VERIFY (PAC7GJ) VERIFGN VERIFY (PAC7GN) VERIFGR VERIFY (PAC7GR) VERIFGU VERIFY (PAC7GU) VERIFGY VERIFY (PAC7GY) VERIFLB VERIFY (PAC7LB) VERIFQJ VERIFY (PAC7QJ) VERIFSA VERIFY (PAC7SA) VERIFSC VERIFY (PAC7SC) VERIFSG VERIFY (PAC7SG) VERIFSN VERIFY (PAC7SN) VERIFSP VERIFY (PAC7SP) VERIFSR VERIFY (PAC7SR)

  • Page 358: Bibliothèque Des Jcl De Procédures Batch

    Le fichier des données extension GY. Caractéristique Valeur Organisation VSAM-RRDS Recsize 1018 CI size 4096 Utilisation Batch et TP Dsname &INDSV..BVPGY Encombrement 4 enreg. par C.I. de 4096 Le fichier des index GN. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 359 Caractéristique Valeur Organisation VSAM-KSDS Recsize CI size 4096 (pour index et data) Clé 49 (position 0) Utilisation Batch et TP Dsname &INDSV..BVPGN Encombrement 62 enreg. par C.I. de 4096 Le fichier journal GJ. Caractéristique Valeur Organisation VSAM-RRDS Recsize CI size 4096 Utilisation Batch et TP...

  • Page 360: Sauvegarde De La Base Administration

    ARAD permet de le diviser en plusieurs fichiers dont seul le plus récent est manipulé régulièrement. Caractéristique Valeur Organisation Séquentielle à génération DSNAME &INDSN..BVPPK(n) Recfm=FB,Lrecl=170,Blksize=6800 Utilisation batch La sauvegarde du journal QJ du module SCM. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 361: Base De Développement

    La sauvegarde de QJ est le fichier JQ. Ce fichier permet d'archiver les mouvements valides déjà traités par les différentes mises à jour et stockés dans le fichier journal QJ. Caractéristique Valeur Organisation Séquentielle à génération DSNAME &INDSN..BVPJQ(n) Recfm=FB,Lrecl=1119,Blksize=1119 Utilisation batch Base de Développement Fichiers de la Base de Développement...

  • Page 362: Bibliothèque Des Paramètres Base De Développement

    Taille Environ 10 blocs de 6080 Organisation Recfm=FB,Lrecl=80,Blksize=6080 Dsname &INDUN..&BASE.SY Elle contient les SYSIN de l'utilitaire IDCAMS mis en oeuvre dans les procédures batch d'exploitation d'une Base de Développement. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 363: Fichiers De Sauvegarde Base De Développement

    Les informations concernant les noms des fichiers, les disques (le catalogue) sont initialisées en fonction du paramétrage effectué à l'implantation. DELETE/DEFINE des fichiers de la base : sous les noms DFbbbbff (bbbb=BASE, et ff=suffixe caractérisant le fichier concerné). Important C'est dans ces membres que le responsable du produit peut modifier la taille des fichiers constitutifs de la Base de Développement, en fonction de l'évolution dans le temps de cette dernière.

  • Page 364: Modules - Fichiers Spécifiques

    Fichier des critères déjà impactés (FQ). Caractéristique Valeur Organisation Séquentielle à génération Recfm=FB,Lrecl=100,Blksize=21600 DSNAME &INDUN..&USER..&BASE.FQ(n) Utilisation permet de mémoriser les critères de recherche d'impact déjà traités Fichier critères de recherche ou points d'entrée (FH). VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 365 Caractéristique Valeur Organisation Séquentielle à génération Recfm=FB,Lrecl=160,Blksize=24000 DSNAME &INDUN..&USER..&BASE.FH(n) Utilisation permet de mémoriser les critères de recherche d'impact pour IANA suivante Fichier réduit des critères pour épuration (FR). Caractéristique Valeur Organisation Séquentielle à génération Recfm=FB,Lrecl=72,Blksize=21600 DSNAME &INDUN..&USER..&BASE.FR(n) Utilisation permet d'épurer les critères de recherche d'impact sous éditeur.

  • Page 366: Dsms

    VSAM-KSDS Recsize moyen 200, maxi 539 CI size 4096 Clé 37 (position 2) Utilisation Mis à jour par les sous-programmes BVPTPST et/ou BVPTPWS appelés par les programmes TP utilisateur VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 367: Bibliothèques Et Fichiers Complémentaires

    Caractéristique Valeur Dsname &INDSV..BVPPA Ddname BVPPA Un fichier de travail pour PAF batch. Un fichier indexé de travail est nécessaire à l'utilisation du module PAF par les programmes batch utilisateur. Ce fichier est alloué pour l'exécution et détruit en fin de job. Caractéristique Valeur Organisation...
  • Page 368 Le fichier des paramètres pour la procédure MIAM est livré automatiquement par SMP/E dans le PDS hlq.SBVPINST. Membre Contenu ou format Remarques BVPAMIAM Fichier séquentiel Paramètres standard pour la procédure MIAM VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 369: Chapitre 10. Annexes

    VING - Présentation générale La procédure VING effectue la mise à jour batch de la Base Administration à partir de mouvements livrés par IBM. Parfois on peut utiliser un fichier autre. Par exemple en cas de changement de méthode Pacdesign/Pacbench.

  • Page 370: Ving - Description Des Étapes

    Journal de la Base Administration PAC7AN &INDSV..BVPGN Sortie Index de la Base Administration PAC7AR &INDSV..BVPGR Sortie Données de la Base Administration PAC7AY &INDSV..BVPGY Sortie Extension de la Base Administration VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 371 Code Nom physique Type Libellé PAC7MA &FDIC Entrée Mouvements méta entités IBM PAC7MB &&VINGMB Entrée Entrées utilisateur PAC7BM &&PACXBM Entrée/sortie Fichier de travail PAC7WD &&PACXWD Entrée/sortie Mouvements extraits PAC7ES &&PACXES Entrée/sortie Mouvements extraits PAC7TD &&TD Entrée/sortie Mouvements extraits PAC7MR &&MR...

  • Page 372: Ving - Jcl D'exécution

    //PAC7MB DD DSN=&&VINGMB,DISP=(,PASS), UNIT=&UWK,SPACE=(TRK,(5,1),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’ //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DFSYSEXT),DISP=SHR //PACROU DD DSN=&&DFSYSEXT,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DEFINE EXEC PGM=IDCAMS //*--------------------- VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 373 //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFSYSEXT,DISP=(OLD,DELETE) //MAXKEY EXEC PGM=IDCAMS //*---------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSPAF DD DSN=&INDUV..SYSEXT.&USER,DISP=SHR //MAXKEY DD DSN=&INDSN..BVPSY(MAXKEY),DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(REPRO999),DISP=SHR //VERIFY EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGR...

  • Page 374: Installation Du Modèle De La Base De Développement

    VINS - Présentation générale La procédure VINS effectue la mise à jour batch de la Base de Développement à partir de mouvements livrés par IBM. Parfois on peut utiliser un fichier autre. Par exemple en cas de changement de méthode Pacdesign/Pacbench.

  • Page 375: Vins - Entrées / Traitements / Résultats

    à effectuer, les mouvements permettant de créer les méta entités IBM et de reprendre les entités utilisateur clientes au format 'extension' : en aucun cas, l'utilisateur ne doit modifier le contenu de ces mouvements.

  • Page 376: Vins - Description Des Étapes

    Données de la Base Administration PACGGY &INDSV..BVPGY Entrée Extension de la Base Administration PACGGU &INDSV..BVPGU Entrée Utilisateurs de la Base Administration PAC7AJ &INDUV..&BASE.AJ Sortie Journal de la Base de Développement VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 377 PAC7AR &INDUV..&BASE.AR Sortie Données de la Base de Développement PAC7AY &INDUV..&BASE.AY Sortie Extension de la Base de Développement PAC7MA &FDIC Entrée Mouvements méta entités IBM PAC7MB &&VINSMB Entrée Entrées utilisateur PAC7BM &&PACXBM Entrée/ Fichier de travail sortie PAC7WD &&PACXWD Entrée/...

  • Page 378: Vins - Jcl D'exécution

    DSN USER’S DEVELOPMENT MODEL USER=, USER CODE LSR=’BLSR’, LSR BATCH SYSTEM NAME UWK=$UWK, WORK UNIT SPAMB=’(TRK,(5,1),RLSE)’, WORK FILE SPACE SPAWK=’(TRK,(50,10))’ WORK FILE SPACE //*************************************************************** //INPUT EXEC PGM=BVPTU001 //*----------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 379 DD DSN=$BCOB,DISP=SHR //CARTE DD DDNAME=SYSIN //PAC7MB DD DSN=&&VINSMB,DISP=(,PASS), UNIT=&UWK,SPACE=(TRK,(5,1),RLSE), DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’ //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DFSYSEXT),DISP=SHR //PACROU DD DSN=&&DFSYSEXT,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DEFINE EXEC PGM=IDCAMS //*--------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DFSYSEXT,DISP=(OLD,DELETE) //MAXKEY EXEC PGM=IDCAMS...
  • Page 380 //SORTLIB DD DSN=&SORTLIB,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,(3,1),,CONTIG) //PAC7MR DD DSN=&&MR,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAMB, DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //PAC7MX DD DUMMY //PAC7RQ DD DUMMY //PAC7TD DD DSN=&&TD,DISP=(,PASS),UNIT=&UWK, SPACE=&SPAWK, DCB=(RECFM=FB,LRECL=286,BLKSIZE=6292) //SYSUDUMP DD SYSOUT=&OUT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 381: Utilitaires D'aide À La Reprise

    //PRMSYS EXEC PGM=BVPRMSYS,PARM=’&USER,&INDUV’,COND=EVEN //*----------------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //SYSOUT DD SYSOUT=&OUT //PACRIN DD DSN=&INDSN..BVPSY(DLSYSEXT),DISP=SHR //PACROU DD DSN=&&DLSYSEXT,DISP=(,PASS),SPACE=(TRK,1), UNIT=&UWK, DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) //DELETE EXEC PGM=IDCAMS,COND=EVEN //*------------------------------- //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //SYSIN DD DSN=&&DLSYSEXT,DISP=(OLD,DELETE) Utilitaires d'aide à la reprise UTU1 UTU2 - Adaptation des opérateurs 'UNS' UTU1 - Extraction ligne 'P' avec 'UNS' Principe Cette procédure est un utilitaire qui permet d'extraire les lignes 'P' des...

  • Page 382: Utu1 - Description Des Étapes

    Cette procédure est un utilitaire qui permet de mettre à jour les enregistrements extrait par la procédure UTU1. Pour toutes les lignes du fichier en entrée, on force '99BL' dans la zone 'Niveau-conditionnement'. Condition d'exécution VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 383: Utu2 - Entrées Utilisateur

    à jour PAC7CP &INDUN..&BASE.PC(+1) Sortie Nouvelle Image séquentielle du réseau UTU2 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ UPDATE LINES "P" WITH OPERATOR "UNS" //* ------------------------------------------------------ //BVPUTU2 PROC BASE=$BASE, CODE OF DEVPT DATABASE INDUN=’$INDUN’, INDEX OF USER NOT VSAM FILES STEPLIB=’$HLQ..SBVPMBR8’,...

  • Page 384: Utm1 Utm2 - Migration Anciennes Méta Entités

    L'utilisateur attribuera le nouveau code relation de son choix. L'ancien code pourra être conservé si la relation pointe sur un seul type d'entité. Exemple de transformation : RELAT1 P 220 P PGMXCR CR VAO 2243 && VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 385 modifié en : RELATE P 220 P PGMXCR CR VAO 2243 && La relation RELATE sera ainsi spécifiquement dédiée aux entités de type 'P' (programme), alors que RELAT1 était dédiée à plusieurs types. Remarque : la transformation n'est à effectuer que sur le nom de la Relation situé...
  • Page 386 A l'issue de la mise à jour, un compte-rendu signale les anomalies rencontrées. Résultat obtenu Une fois la réorganisation effectuée, le résultat obtenu est un réseau exempt de méta entités de type old et d'appels de relations de type old. VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 387: Utm1 - Description Des Étapes

    &INDSV..BVPAE Entrée Libellés d'erreur PAC7EQ Etat Compte-rendu UTM1 - JCL d'exécution //* ------------------------------------------------------ VISUALAGE PACBASE //* ------------------------------------------------------ CONVERSION OF OLD META-ENTITIES ANALYSIS OF THE DATABASE RELATIONS //* ------------------------------------------------------ //BVPUTM1 PROC BASE=$BASE, CODE OF DEVPT DATABASE INDUV=’$INDUV’, INDEX OF DEVPT VSAM FILES INDSV=’$INDSV’,...

  • Page 388: Utm2 - Entrées Utilisateur

    Données de la Base de Développement PAC7AN &INDUV..&BASE.AN Entrée Index de la Base de Développement PAC7ME &UTM1FILE Entrée Liste des appels des relations dans toutes les entités PAC7AE &INDSV..BVPAE Entrée Libellés d'erreur VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 389 Code Nom physique Type Libellé PAC7MV &UTM2MV Sortie Mouvements mis en forme (longueur = 170) PAC7ET Sortie Compte-rendu PAC7MB &&UTM2MB Entrée Entrée utilisateur Mise à jour de la Base de Développement : PACA15 Code Nom physique Type Libellé PAC7AR &INDUV..&BASE.AR Sortie Données de la Base de Développement PAC7AN...

  • Page 390: Utm2 - Jcl D'exécution

    DD DSN=&SYSTCAT,DISP=SHR //SYSPRINT DD SYSOUT=&OUT //PACGGN DD DSN=&INDSV..BVPGN,DISP=SHR //PACGGR DD DSN=&INDSV..BVPGR,DISP=SHR //PACGGU DD DSN=&INDSV..BVPGU,DISP=SHR //PAC7AN DD DSN=&INDUV..&BASE.AN,DISP=SHR //PAC7AR DD DSN=&INDUV..&BASE.AR,DISP=SHR //PAC7AY DD DSN=&INDUV..&BASE.AY,DISP=SHR //SYSIN DD DSN=&INDSN..BVPSY(VERIFGN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFGU),DISP=SHR VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 391 DD DSN=&INDSN..BVPSY(VERIFAN),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAR),DISP=SHR DD DSN=&INDSN..BVPSY(VERIFAY),DISP=SHR //PTUME3 EXEC PGM=BVPTUME3 //*------------------------ //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR //*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR //*: DD DSN=&SYSTCAT,DISP=SHR //SYSOUT DD SYSOUT=&OUT //SYSUDUMP DD SYSOUT=&OUT //PAC7ME DD DSN=&UTM1FILE,DISP=SHR //SORTWK01 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK02 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //SORTWK03 DD UNIT=&UWK,SPACE=(CYL,&CYL,,CONTIG) //PTUME2 EXEC PGM=BVPTUME2,COND=(0,NE,PTUME3) //*------------------------------------------- //STEPLIB DD DSN=&STEPLIB,DISP=SHR DD DSN=$BCOB,DISP=SHR...

  • Page 392: Smp/E : Suppression D'une Version Précédente

    //*-------------------------------------------------------------- PERFORM SMP/E DELETING SYSMOD BEFORE USING THIS JOB STEP, YOU WILL HAVE TO MAKE THE FOLLOWING MODIFIFICATIONS. //* - CHANGE THE JOB CARD TO MEET THE INSTALLATION REQUIREMENT VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...

  • Page 393: Optimisation Des Performances

    //* - CHANGE &SMPE BY THE NAME OF SMPE HLQ ON YOUR SYSTEM //* - CHANGE &TGT BY THE NAME YOU CHOOSE FOR TARGET ZONE //* - CHANGE &DLIB BY THE NAME YOU CHOOSE FOR DISTRIBUTION ZONE //* - CHANGE &USER BY THE PREFIX YOU CHOOSE FOR MCS //* - CHANGE JBVPXXX BY THE FMID YOU WANT TO DELETE //*--------------------------------------------------------------...

  • Page 394: Installation Des Fichiers De La Base

    BVPFANM : choix VA PACBASE, BVPSERR : serveur d'erreurs, BVPSFF0 : dossier méta-entités, BVPR980 : mise en forme messages 3270, BVPSFIN : initialisation dossier méta-entités, BVPR000 : serveur COMM.3270,PUF-TP,V.LOG. La gestion des buffers VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 395 Trois paramètres associés aux fichiers sont à renseigner en CSD : STRINGS, DATABUFFERS et INDEXBUFFERS. STRINGS : Il spécifie le nombre de strings ou requêtes pouvant être exécutées en parallèle par VSAM sur un même fichier : normalement, un string est consommé...
  • Page 396 VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client...
  • Page 398 Référence : DEPCI001362F - 9024 Imprimé en France...

Table des Matières