Ich kenne mich leider in RPG nicht aus und habe deshalb eine Frage an euch RPG - Programmierer:

Ich habe untenstehendes kleinen RPG, was mir ein UPDATE macht.

Ich möchte das Prog jetzt so abändern, dass KTRMGR = '99' und KTRISM = 4711 variabel sind, indem diese durch Übergabeparameter ersetzt werden.

D.h. ich starte das Programm wie folgt:

call MEINPROG '99' 4711

Bestimmt nicht schwer für einen RPG-Profi, oder?

Danke
HS


FUEBMAS90UF E K DISK
C *LOVAL SETLLUEBFMT01
C READ UEBFMT01 49
C *IN49 DOWEQ*OFF
C KTRMGR IFEQ '99'
C MOVE 4711 KTRISM
C UPDATUEBFMT01
C ENDIF
C READ UEBFMT01 49
C ENDDO
C MOVE *ON *INLR