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.
EingabeSpalten . . . : 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 |
ErgebnisSpalten . . . : 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 |
|