Inhaltsverzeichnis SEU-Exit (PPHSEU)   Zeilenbefehle G..   Alphabetische Auflistung der G-Zeilenbefehle  

Operationscode in Build-In ändern (SCAN, CHECK ...) (GBI)

Operationscode in Build-In ändern (SCAN, CHECK ...) (GBI)

Mit dem Zeilebefehl GBI werden folgende RPG-IV-Operationscodes in die zugehörige Build-In-Funktionen umgesetzt.

Um mehrere Zeilen umzusetzen, kann ein Block GGBI festgelegt werden.

Eingabe
Spalten . . . :    6  76          Editieren                   ABODVP/QRPGLESRC
SEU==> PPHSEUTEST
FMT C CL0N01Faktor1+++++++Opcode&ExtFaktor2+++++++Ergebnis++++++Län++D+HoNiGl
GBI C '*' SCAN ZF:Start Pos
GGBI C '123' CHECK ZF Pos
0001.04 C '123' CHECKR ZF Pos
0001.05 C 'A' LOOKUP Arr 99
GGBI C 'B' LOOKUP Arr(ix) 99
Ergebnis
Spalten . . . :    6  76          Editieren                   ABODVP/QRPGLESRC
SEU==> PPHSEUTEST
FMT CX CL0N01Faktor1+++++++Opcode&ExtErweiterter-Faktor2++++++++++++++++++++++
0001.02 C EVAL Pos = %SCAN('*':ZF:Start)
0001.03 C EVAL Pos = %CHECK('123':ZF)
0001.04 C EVAL Pos = %CHECKR('123':ZF)
0001.05 C EVAL *IN99 = (%LOOKUP('A':Arr) > 0)
0001.06 C EVAL ix = %LOOKUP('B':Arr:ix)
0001.07 C EVAL *IN99 = ix > 0