Erstmal Danke,

soweit funktionierts mit Parameter 1.

Beim zweiten Parameter klappts jedoch noch nicht.

Ich habe die 2.Variable als 6,0 deklariert.

Wenn ich das Prog aufrufe z.B. mit
CALL MEINPROG '70' 4711, erhalte ich einen Dezimaldatenfehler.

Wat nu?

Danke
HS

PS: Das Feld KTRISM ist gezont, Länge 9.3 - liegts daran?

Anbei nochmals der Code:

FUEBMAS90UF E K DISK
C *ENTRY PLIST
C PARM MGR 002
C PARM ISM 60
C *LOVAL SETLLUEBFMT01
C READ UEBFMT01 49
C *IN49 DOWEQ*OFF
C KTRMGR IFEQ MGR
C KTRNU1 ANDEQ0
C MOVE ISM KTRISM
C UPDATUEBFMT01
u.s.w.