Hallo,

schönen Dank Herr Fürchau für die Hinweise.

Kleines Problem. Habe Funktion T2 wie beschrieben erstellt und mit crtcblmod umgewandelt. Muß diese Funktion auch in ein Binderverzeichnis.

Aufrufendes Programm T1 macht Probleme beim Umwandeln mit crtbndcbl. Siehe Liste:

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. T1.
000300*------------------------------------
000400 DATA DIVISION.
000500*------------------------------------
000600 WORKING-STORAGE SECTION.
000700 01 i pic 9.
000800 01 a pic x.
000900*------------------------------------
001000 PROCEDURE DIVISION.
001100 HP1.
001200 move 1 to i
001300 call "T2" using i returning a
001400 goback.

* 9 ID: LNC2762 BEW.STUFE 30 FOLGENR. 001300
Nachricht . . . : Phrase GIVING/RETURNING der Anweisung CALL ist für
LINKAGE-Angabe PROGRAM nicht zulässig.


Wo liegt denn hier das Problem? Bei der Funktion T2 oder bei T1?

Danke für Hilfe.

Schöne Grüße
Reiner