| 
VISUALISATION DE TOUS LES PROGRAMMES UTILISANT UN FICHIER 1 DSPPGMREF TOUT D'ABORD UTILISATION DE LA COMMANDE DSPPGMREF PERMETTANT DE VISUALISER LES REFERENCES D'UN PROGRAMME EN PARTICULIER LES OBJETS UTILISES PAR CE PROGRAMME (fichier data area) LE RESULTAT DE LA VISUALISATION SERA PLACE DANS UN FICHIER PGMREF |
|
DSPPGMREF PGM(STAGXX/*ALL) OUTPUT(*OUTFILE) OUTFILE(PGMREF) 2 LE FICHIER LOGIQUE ENSUITE CREATION D'UN FICHIER LOGIQUE SUR PGMREF AVEC LA CLEF SUR LA ZONE CONTENANT LE NOM DU FICHIER. A R PGMREFF1 PFILE(FORMATION/PGMREF) A WHFNAM A WHLNAM A WHFUSG A WHPNAM A WHLIB A K WHFNAM A K WHPNAM |
|
3 LA COMMANDE
ENSUITE CREATION DE LA COMMANDE DEMANDANT LE NOM DU FICHIER
ET LE TYPE DE LA SORTIE
CMD PROMPT('programme utilisant un fichier')
PARM KWD(FICHIER) TYPE(*NAME) MIN(1) PROMPT('nom +
du fichier a consulter')
PARM KWD(OUTPUT) TYPE(*CHAR) LEN(6) RSTD(*YES) +
DFT(*) VALUES(* *PRINT) PROMPT('type de +
sortie')
|
|
4 LE PROGRAMME ENSUITE CREATION DU PROGRAMME PGM PARM(&FIC &OUTPUT) DCL VAR(&FIC) TYPE(*CHAR) LEN(10) DCL VAR(&OUTPUT) TYPE(*CHAR) LEN(6) DCL VAR(&TYP) TYPE(*CHAR) LEN(1) /* */ /* RECUPERATION DANS &FIC DU NOM DU FICHIER ET + DANS &OUTPUT DE LA SORTIE A EFFECTUER */ /* COPIE DU FICHIER PGMREFL1 (FICHIER LOGIQUE DU + DSPPGMREF AVEC CLE SUR LA ZONE CONTENANT LE + NOM DU FICHIER) AVEC SELECTION SUR CLE + FOURNI PAR &FIC */ CPYF FROMFILE(PGMREFL1) TOFILE(*PRINT) FROMKEY(1 + (&FIC)) TOKEY(1 (&FIC)) |
|
/* RECUPERATION DU TYPE DE JOB DANS &TYP + 0 SI BATCH 1 SI INTERACTIF */ RTVJOBA TYPE(&TYP) /* SI LE TYPE EST INTERACTIF ET LA SORTIE + * VISUALISATION DU FICHIER SPOOL CREE PAR + CPYF PUI ANNULATION DU FICHIER SPOOL */ IF COND((&TYP *EQ '1') *AND (&OUTPUT *EQ '*')) + THEN(DO) /* VISUALISATION DU DERNIER FICHIER SPOOL + CREE PAR LE TRAVAIL */ DSPSPLF FILE(QSYSPRT) SPLNBR(*LAST) /* ANNULATION DU DERNIER FICHIER SPOOL + CREE PAR LE TRAVAIL */ DLTSPLF FILE(QSYSPRT) SPLNBR(*LAST) ENDDO ENDPGM A suivre format du fichier physique |
|
5728SS1 R01 M02 891114 DESCRIPTION DES ZONES Fichier ou nom générique - PGMREF Biblio - FORMATION Fichier récepteur - *NONE Processeur - Ordinateur AS 400 - Processeur de description de zones INFORMATION FICHIER Fichier- PGMREF Biblio- FORMATION Nombre de formats- 1 Date de création- 25/01/89 Texte de description- TEXT Texte non disponible pour le message Type de fichier- PHYSIQUE INFORMATION FORMAT Format d'enregistrement- QWHDRPPR Id niveau du format- 4E5CBF3C1AB37 Texte de description- TEXT-DDS Format base de données DSPPGMREF Nombre de zones- 14 Longueur de l'enregistrement- 155 |
|
INFORMATION NIVEAU ZONE TYPE LONG LONG POSITION UTIL ZONE DONNEE ZONE BUFFER BUFFER ZONE EN-TETE WHLIB ALPHA 10 10 1 E/S BIBLIO Description de la zone- TEXT-DDS Bibliothèque WHPNAM ALPHA 10 10 11 E/S PROGRAMME Description de la zone- TEXT-DDS Programme WHTEXT ALPHA 50 50 21 E/S TEXTE DE DESCRIPTI PROGRAMME Description de la zone- TEXT-DDS Texte de description programme WHFNUM ETENDUE 5 0 5 71 E/S NB OBJETS Description de la zone- TEXT-DDS Nombre d'objets référencés WHDTTM ALPHA 13 13 76 E/S DATE ET HEURE EXTRACTION Description de la zone- TEXT-DDS Date extraction: siècle/date/heu WHFNAM ALPHA 11 11 89 E/S OBJET Description de la zone- TEXT-DDS Objet référencé: 1-*expr WHLNAM ALPHA 11 11 100 E/S BIBLIO Description de la zone- TEXT-DDS Bibliothèque référencée 1-*expr WHSNAM ALPHA 11 11 111 E/S FICHIER |
|
SOURCE Description de la zone- TEXT-DDS Nom fichier dans pgm source: 1-* WHRFNO ETENDUE 3 0 3 122 E/S NB ramm DE FMTS Description de la zone- TEXT-DDS Nombre de formats référencés WHFUSG ETENDUE 2 0 2 125 E/S UTIL ramm Description de la zone- TEXT-DDS Utilisation: 1-In, 2-Out, 4-Upda WHRFNM ALPHA 10 10 127 E/S FORMAT ramm ENREG Description de la zone- TEXT-DDS Format référencé WHRFSN ALPHA 13 13 137 E/S NIVEAU ramm FORMAT Description de la zone- TEXT-DDS Identificateur de niveau WHRFFN ETENDUE 5 0 5 150 E/S NB ramm DE ZONES Description de la zone- TEXT-DDS Nombre de zones WHOBJT ALPHA 1 1 155 E/S OBJECT ramm TYPE Description de la zone- TEXT-DDS Type objet: F-Fichier,P-Programm |
