Bedienerhilfe

Inhaltsverzeichnis SEU-Exit (PPHSEU)

Zeilenbefehle G..

Alphabetische Auflistung der G-Zeilenbefehle

RGP-IV-Schlüsselliste erstellen (GKY)

Mithilfe des Befehls GKY kann eine RPG-IV-Schlüsselliste erstellt werden.

1. Eingabe

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

2. Eingabe

BSRPMT  5.07.06              Schlüsselfelder eingeben

Auswahl eingeben und Eingabetaste drücken.

Datei . . . . . . . . . . . . . .   ADRSTMO    
Bibliothek  . . . . . . . . . . .   *LIBL      
Anweisungen zum Initialisieren  .   J             J=Ja, N=Nein
Leseschleife erstellen  . . . . .   J             J=Ja, N=Nein
F-Anweisung erstellen . . . . . .   J             J=Ja, N=Nein

Ergebnis

 SEU==>                                                              PPHSEUTEST
 FMT FX FDateiname+IPEASF.....L.....A.E/AEinh.Schlüsselwörter++++++++++++++++++
0001.02 FADRSTM0   IF   E           K DISK
0001.03  * Schlüssel für Datei ADRSTM0
0001.04 C     KEYAD2        KLIST
0001.05 C                   KFLD                    ADNUM
0001.06 C                   KFLD                    ADSEQ
0001.07
0001.08 C                   EVAL      ADNUM = ADNUM
0001.09 C                   EVAL      ADSEQ = ADSEQ
0001.10 C     KEYAD2        CHAIN     ADSATZ                             99
0001.11 C                   DOW       NOT *IN99
0001.12 C     KEYAD2        READE     ADSATZ                                 99
0001.13 C                   ENDDO