Cobol und IFS

[Fuerchau]

Variablen in der Linkage haben keine Adresse, außer beim Aufruf von extern.
Dies kann man nutzen um die Adresse selber zu setzen:

CALL PROCEDURE '__errno'
RETURNING ERRNO-PTR
SET ADDRESS OF ERRNO TO ERRNO-PTR

Deine Variable ERRMSG gehört da aber eher in die Working-Storage.

[KingofKning]

Tja das ist ja auch eigentlich mein Kenntnisstand.

Aber wenn ich das Teil aus der Linkage in die Workin verschubs bekomme ich beim Wandeln.

* 76 ID: LNC2728 BEW.STUFE 30 FOLGENR. 007927
Nachricht . . . : 'ERRNO' muß im Kapitel Programmverbindungen ein
Datenelement ohne Referenzänderung sein, dessen Stufennummer 01 ode
77 ist.

Tja, ich frage mich ja nur woher man so etwas weiß......

GG

BTW. Das nächste Treffen zum AWk mit Thema Cobol & SQL findet in Bad Neuenahr statt.

[BenderD]

BTW. Das nächste Treffen zum AWk mit Thema Cobol & SQL findet in Bad Neuenahr statt.

Vortragsthema ist:
"Embedded SQL" und ich werde mich bemühen die Interessen der COBOLista und der RPGler unter einen Hut zu bekommen.

Dieter Bender

[Fuerchau]

Ich kann die Adresse einer Variablen in der Working-Storage nicht ändern!
Dafür sind adresslose Variablen (eben auf 01 oder 77) in der Linkage Section erforderlich.
Verschiebe die ERRNO in Working-Storage, aber lass dann das "SET ADDRESS OF ERRNO" weg. Die Variable hat dann eine Adresse.
Allerdings ist dann der Effekt weg, auf die externe ERRNO zuzugreifen da du dann eine eigene Variable hast.

[Fuerchau]

Das Wissen dazu steht im COBOL-Handbuch.

[KingofKning]

Das ich mir den Schinken das letzte mal komplett durchgelesen habe ist wohl auch schon länger her, und damals konnte ich wohl mit den Konstrukten nichts anfangen und habe das Wissen in die Ablage rund und grün verschoben....GG

[AG1965_2]

Ich hoffe, dass Ärzte anders unterwegs sind.