| 
* * * DATA STRUCTURES PARTICULIERES EN RPG * * * SDS : Data structure d'informations programme * * * INFDS : Data structures d'informations fichiers * * I********************** I* SDS * I********************** I SDS I 1 10 NOM DU PGM I 11 150STATUS CODE I 16 200PREVIOUS STATUS COD I 21 28 N° SEQUENCE DU SRC I 29 36 NOMDE LA ROUTINE I 37 390NOMBRE DE PARAM. I 40 42 CPF ou MCH |
|
I 43 46 N° de l'erreur I 47 50 MI / ODT I 51 80 MESSAGES (WRKARA) I 81 90 BIBLI DU PROG I 91 170 I 171 174 I 175 200 +== Inutilise ==+ I 201 208 NOM Dernier fichier I 209 243 INFO / DERNIER FICH I 244 253 Nom du JOB I 254 263 Nom du Profil I 264 2690Numero du Job I 270 2750Date entre système I 276 2810Date exécution prog I 282 2870Heure exécution prg I 288 293 Date de création I 294 299 Heure de création I 300 303 Niveau compilateur I 304 313 Nom du fichier src I 314 323 Bibli du fichi. src I 324 333 Nom du Membre I 334 429 +== Inutilise ==+ |
|
* * C********************** C* INFDS * C********************** FFICHIER UF E K DISK KINFDS FICDS IFICDS DS * ********************* INFOS FICHIER * I 1 8 FICHIER (NOM GAP) I 9 9 OUVERT = 1 I 10 10 EOF = 1 I 11 150CODE STATUS I 16 21 CODE OPERATION I 22 29 ROUTINE RPG I 30 37 N° SEQUENCE I 38 45 FORMAT (EXTERNE) I* INDIC ENTREE (INTERNE) I* si erreur I 46 52 ERREUR (MCH OU CPF) * |
|
********************** OPEN FEEDBACK AREA I 81 82 ODP DS = DEVICE I* DB = DATA BASE I* SP = SPOULE I 83 92 FICHIER OUVERT I* (DIF de 1 à 8 si OVRDBF) I 93 102 BIBLIOTHEQUE I B 123 124 SPLNBR (si PRTF) I B 125 1260LONG MAXI D'UN ENREG I 129 138 MEMBRE I B 152 1530NB de lignes(DSPF/PRTF) I B 154 1550NBCOL I* DSPF = NB DE COLONNES I* PRTF = NB DE CARACTERES I* PAR LIGNE I B 156 1590NBENREG I* NB d'enregistrements I* lors de l'OPEN I 160 1610ACCES,KU = KEYED UNIQUE I* KF = KEYED FIFO I* KL = KEYED LIFO I* AR = ARRIVEE |
|
I 162 162 DUP clés dupliquées I* U (unique) D (dup) I 163 163 SOURCE (Y = SRCPF) I B 188 1890OVF (N° ligne overflow) * ********************** I-O FEEDBACK AREA (standard) * I B 243 2460WRT (nb de write) I B 251 2540READ(nb de read) I B 251 2540EXF (nb de write/read) I B 255 2580IO D(nb d'autres IO) I 261 2700FMT (format traité) I 271 272 CLASSE UNITE I 273 282 NOM DE L'UNITE I B 283 2860RECLON lg du dernier I* enregistrement traité * ********************** I-O FEEDBACK AREA (ICF et DSPF) * I B 370 3710LICO position curseur I* LICO DIV 256 --> LIGNE I* MVR --> COLONNE |
|
I B 376 3770RANG sur SOUS-FICHIER I B 378 3790RANG du premier enreg I* de sous-fichier affiché I lors du read I B 380 3810NB d'enreg dans le SFL * ********************** I-O FEEDBACK AREA (PRTF) * I B 367 3680N° de ligne en cours I B 369 3700N° de page en cours * ********************** I-O FEEDBACK AREA (DATA BASE) * I B 367 3680lg des informationss I B 377 3780Nb d'enreg verrouillés I B 387 3880Nb de zones clé I B 393 3940Lg de la clé I B 395 3960N° du membre I B 397 4000N° relatif d'enreg I B 400 xxx Valeur de la clé I xxx = (367/368) ======================================================================== |
