Hallo!

Hier noch eine Variante dises Programmes. Vielleicht für Ihre RPG-Zukunft. Mann kann so viel Zeit (Tip- und Testarbeit) ersparen.
F*****************************************
FUEBMAS90 UPE F DISK

C *ENTRY PLIST
C PARM PRMMGR 2
C PARM PRMISM 6

C MOVE PRMMGR NUMMGR 20
C MOVE PRMISM NUMISM 60

C KTRMGR IFEQ NUMMGR
C Z-ADDNUMISM KTRISM
C UPDATUEBFMT01
C END
C****************************************

Also kein SETLL, kein READ, kein SETON LR,
keine Lesen nach Schlüssel. Die Performance ist unschlagbar.
Das lernt man heute leider nicht mehr, ist aber der Grund, warum es die AS/400 noch gibt.

m.f.G
Otto Zehetner