//PAC7G1
//
//
//
//PAC7G2
//
//
//
//PAC7W1
//PAC7W2
//PAC7IA
//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
//SYSUDUMP DD SYSOUT=&OUT
MIA4 - Génération serveurs
MIA4 - Présentation générale
Cette procédure permet de générer les serveurs dans deux fichiers contenant
respectivement le généré sans le spécifique propre et le généré avec le
spécifique.
Elle effectue la génération des micro-patterns qui ne proviennent pas de
macros.
La génération est effectuée sans numéro de ligne.
La partie droite (colonnes 73 à 80) est générée à blanc sauf sur les lignes
étiquettes où l'on a lvnn (avec nn = niveau de la fonction/sous-fonction).
MIA4 - Entrées Utilisateur
Il faut une ligne '*' avec code utilisateur, mot de passe et code bibliothèque.
Pos.
2
3
11
19
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.
330
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
DD DSN=&OUTFILE,DISP=(,CATLG),
UNIT=&UNITS,VOL=&VOLS,
SPACE=&SPAOT,
DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80)
DD DSN=&OUTFIL2,DISP=(,CATLG),
UNIT=&UNITS,VOL=&VOLS,
SPACE=&SPAOU,
DCB=(RECFM=FB,BLKSIZE=12560,LRECL=80)
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD SYSOUT=&OUT
DD DUMMY
Lon. Valeur
Signification
1
'*'
Code ligne
8
uuuuuuuu
Code utilisateur
8
pppppppp
Mot de passe
3
bbb
Code bibliothèque