//
//
//PAC7WB
//PAC7WC
//PAC7WM
//PAC7WP
//PAC7W1
//PAC7W2
//PAC7W3
//PAC7W4
//PAC7W5
//PAC7W6
//PAC7CA
//PAC7CM
//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
MIA2 - Génération écrans
MIA2 - Présentation générale
Cette procédure permet de générer les écrans 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.
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).
MIA2 - Entrées Utilisateur
Il faut une ligne '*' avec code utilisateur, mot de passe et code bibliothèque.
Pos.
2
3
11
19
316
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
SPACE=&SPAOT,
DCB=(RECFM=FB,BLKSIZE=23550,LRECL=150)
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27180
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=27820
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=23550
DD UNIT=&UWK,SPACE=&SPAWK,DCB=BLKSIZE=23550
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