Dateifeld initialisieren (GFF)

Dateifelder werden mit dem Befehl GFF initialisiert. Dabei können Kommentarezeilen mit der Feldbeschreibung mit ausgegeben werden.

1. Eingabe

Initailisieren Datensatz mit Leerstellen ohne Beschreibung

Spalten . . . : 6 76 Editieren ABODVP/QRPGLESRC SEU==> PPHSEUTEST FMT * *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+. GFF

2 Eingabe - Beispiel 1

Initialisieren Datensatz mit Leerstellen ohne Beschreibung

BSRPMT 5.07.06 Felder initialisieren Auswahl eingeben und Eingabetaste drücken. Datei . . . . . . . . . . . . . . ADRSTM F4 für Liste Bibliothek . . . . . . . . . . . *LIBL F4 für Liste Kommentar mit Feldbeschr. . . . . N J=Ja, N=Nein Satznummer . . . . . . . . . . . 0

Ergebnis

Spalten . . . :    6  76          Editieren                   ABODVP/QRPGLESRC
SEU==>                                                              PPHSEUTEST
 FMT CX CL0N01Faktor1+++++++Opcode&ExtErweiterter-Faktor2++++++++++++++++++++++
0001.02 C                   EVAL      ADNUM = 0
0001.03 C                   EVAL      ADSEQ = 0
0001.04 C                   EVAL      ADNM1 = *BLANKS
0001.05 C                   EVAL      ADNM2 = *BLANKS
0001.06 C                   EVAL      ADNM3 = *BLANKS
0001.07 C                   EVAL      ADSTR = *BLANKS
0001.08 C                   EVAL      ADOTT = *BLANKS
0001.09 C                   EVAL      ADORT = *BLANKS
0001.10 C                   EVAL      ADATP = *BLANKS
0001.11 C                   EVAL      ADUSG = 0                                

2. Eingabe - Beispiel 2

Wahlweise besteht die Möglichkeit die Felder mit dem Inhalt eines bestehenden Datensatzes zu initialisieren. Hierzu ist dessen relative Satznummern anzugeben

BSRPMT 5.07.06 Felder initialisieren Auswahl eingeben und Eingabetaste drücken. Datei . . . . . . . . . . . . . . ADRSTM F4 für Liste Bibliothek . . . . . . . . . . . *LIBL F4 für Liste Kommentar mit Feldbeschr. . . . . J J=Ja, N=Nein Satznummer . . . . . . . . . . . 1

Ergebnis

Spalten . . . :    6  76          Editieren                   ABODVP/QRPGLESRC
SEU==>                                                              PPHSEUTEST
 FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+.
* Anschriftennummer 
C                   EVAL      ADNUM = 1 
 * Folgenummer 
C                   EVAL      ADSEQ = 1 
 * 1. Namenszeile
C                   EVAL      ADNM1 = 'Kümpflein DV-Beratung GmbH'
 * 2. Namenszeile
C                   EVAL      ADNM2 = *BLANKS 
 * 3. Namenszeile
C                   EVAL      ADNM3 = *BLANKS 
 * Straße 
C                   EVAL      ADSTR = 'Alemannenstr. 8' 
 * Ortsteil 
C                   EVAL      ADOTT = *BLANKS 
 * Ort
C                   EVAL      ADORT = '71277 Rutesheim'