Datenfelder und Tabellen - MIDRANGE SHOP

bin.midrange.shop.com

Datenfelder und Tabellen - MIDRANGE SHOP

Datenfelder, Tabellen, und Datenstrukturen Kapitel 9 – Seite 11

CCL0N01FACTOR1+++++OPCODE&EXTFACTOR2++++++RESULT++++++LEN++D+HILOEQ

MYNAME LOOKUP TABNAMES TABSCORE 90

C

C IF *IN90 = *ON

C MYNAME LOOKUP

C EXCEPT PRINTIT

TABNAMES TABSCORE 90

C

C

ENDIF

IF *IN90 = *ON

C EXCEPT PRINTIT

C

ENDIF

Abb. 9.7: ILE RPG-Suchoperation

Der gesuchte Schülername (der im Feld MYNAME enthalten ist)

wird bei der Suchoperation als Faktor eins verwendet. Die Suche

erfolgt in der Tabelle TABNames. Wenn dabei der Schülername

gefunden wird, wird Indikator 90 aktiviert und das entsprechende

Element in Tabelle TABScore zurückgegeben. Die verknüpfte

Tabelle TABScore enthält den entsprechenden dreistelligen Testwert.

Beispiel

Zur Kompilierungszeit ladende Tabelle in

RPG/400 verwenden

Diejenigen unter Ihnen, die noch nicht mit ILE RPG in ihrer Entwicklungsumgebung

arbeiten, können Tabellen, die zur Kompilierungszeit

geladen werden, auch in RPG/400 verwenden. Listing

9.2 zeigt die Source des Programms RPG002R.

Ein I.T.P.-Fachbuch

Weitere Magazine dieses Users
Ähnliche Magazine