Bildschirmfeld wird nicht zurück gegeben
Hi *all
suche mir grade einen Wolf, bin echt am verzweifeln.
in dieser DSPF kann ich im Feld LBAU05 und LBAU131 z. b ein X eingeben.
Dadrunter kommen noch einige andere einstellige Felder.
Source wurde im SDA mit F4/F6 sortiert, keine Überschreibung vorhanden.
Pgm funktioniert nicht, da LBAU131 immer leer ist!
lt Debug, 'IM' exfmt': LBAU131 ist leer.
LBAU05 beinhaltet das, was ich eingebe,
LBAU132, LBAU133,... (das sind die nachfolgenden Felder) alle haben den Inhalt den ich ihnen gebe.
(Auch die sind mit FLDCSRPRG(LBAU13x) definiert) Aber LBAU131 ist immer leer!
Habe das Feld umbenannt in LBAU177 --> es ist trotzdem immer leer.
Das hab ich noch nicht erlebt, hat einer ne Idee?
V7R1 TR6
Gruß
Robi
(nein, ich habe Nix unanständiges geraucht!)
Code:
A R FO012509
A OVERLAY
A KEEP
A CF24(24 'Änderung trotz Fehler best-
A ätigen')
A CF02(26)
A CSRLOC(LINNBR POSNBR)
A RTNCSRLOC(&##CSRC &##CSFL &##CSPS)
A PUTOVR
A LINNBR 3S 0H
A POSNBR 3S 0H
A ##CSRC 10A H
A ##CSFL 10A H
A ##CSPS 4S 0H
A LBAU05 1A B 5 2
A 5 6'Anbei erhalten Sie folgende Unterl-
A agen in Kopie:'
A 5 76'(05)'
A LBAU131 1A B 6 3FLDCSRPRG(LBAU132)
A 6 5'xxxxxxxxxx'
Das Notwendige steht über dem technisch machbaren.
(klingt komisch, funktioniert aber!)
Bookmarks