Déclaration des zones d'entrée en RPG-IV (spécif I) RPG ! RPG-IV ! INTERNE ! EXTERNE -----!---------!----------------------------!----------------------------------- 6 ! 6 ! I ! I ! Niveau fichier 7-14 ! 7-16 ! nom du fichier ! nom du fichier externe ! ! ! 14-16! 16-18 ! AND/OR ! ! ! ! 15-16! 17-18 ! Séquence ! blanc ! ! XX-alpha sans séquence ! ! ! 01-99 - test de séquence ! ! ! ! 17 ! 19 ! ' ' , si sans séquence ! blanc ! ! 1 = un enreg/séquence ! ! ! N = plusieurs/séquence ! ! ! ! 18 ! 20 ! Présence dans la séquence ! blanc ! ! ' ' = obligatoire ! ! ! O = optionnel ! ! ! ! |
RPG ! RPG-IV ! INTERNE ! EXTERNE -----!---------!----------------------------!----------------------------------- 19-20! 21-22 ! indicateur d'entrée ! idem ! ! ! 21-41! 23-46 ! Test d'enregistrements ! blanc ! ! ! ! 23-27 ! Position/enregistrement ! ! 28 ! ' ' ou N (not) ! ! 29 ! C =caractère entier ! ! ! Z/D = hors texte/digits ! ! 30 ! caractère à tester ! ! ! ! ! 31-38 ! 2ème test (idem 23-30) ! ! 39-46 ! 3ème test (idem 23-30) ! ! ! ! ! Niveau zones ! 21-30 ! blanc ! nom de zone externe ! ! ! ! 31-34 ! format date/heure ! ! ! ! ! 35 ! séparateur date/heure ! blanc ! ! ! |
RPG ! RPG-IV ! INTERNE ! EXTERNE -----!---------!----------------------------!----------------------------------- 43 ! 36 ! type BLANC = dft. ! BLANC ! ! A = car. ! ! ! L/R = signe à G/D <-- ########################## ! ! B = binaire ! # longueurs maxis: # ! ! P = packéd ! # Packé : 16 O (30 ch) # ! ! S = étendu ! # Etendu : 30 O (30 ch) # ! ! G = DBCS ! # Binaire: 4 O (9 ch) # ! ! D = date ! # date/heure : imposé # ! ! T = heure ! # Autres : 32767 ! # ! ! Z = horodatage ! ########################## ! !(V3R70) F = scientifique ! ! ! ! 44-47! 37-41 ! Position de début ! ! ! ! 48-51! 42-46 ! Position de fin ! ! ! ! 52 ! 47-48 ! décimales ! ! ! ! 53-58! 49-62 ! nom de zone ! nom de zone dans le pgm. ! ! tableau(indice) possible ! |
RPG ! RPG-IV ! INTERNE ! EXTERNE -----!---------!----------------------------!----------------------------------- 59-60! 63-64 ! Indic de rupture (Lx) ! idem ! ! ! 61-62! 65-66 ! Indic de concordance (Mx) ! idem ! ! ! 63-64! 67-68 ! Condition de présence ! idem ! ! ! 65-70! 69-74 ! Test du contenu >><<== ! idem ! ! ! -----!---------!----------------------------!----------------------------------- |