MIA3 - Génération clients
MIA3 - Présentation générale
Cette procédure permet de générer les clients 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).
MIA3 - Entrées Utilisateur
Il faut une ligne '*' avec code utilisateur, mot de passe et code bibliothèque.
Pos.
2
//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
//PAC780
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=16000
//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
Lon. Valeur
1
'*'
Signification
Code ligne
Chapitre 8. Utilitaires RPP
323