Hi ihr Leidensgenossen :-)

Ich bin gerade dabei mir eine kleine Modul-Sammlung in RPG anzulegen. Ein Modul allerdings streikt.
Wenn ich einen CHAIN mache erzaehlt es mir immer das kein passender Satz vorhanden ist. Erstelle ich die Source als ganz normales Programm laeuft alles wie geplant.

Das ganze ein wenig gekuerzt sieht in etwa so aus:

F PGML2 IF E K DISK
C KEYPGM KLIST
C KFLD PGMNA
C KFLD PGMSUB
C*
C EVAL PGMNA = 'PRGNAM1 '
C EVAL PGMSUB = ' '
C*
C KEYPGM CHAIN PGMP2 66
C If *in66 = *on
C clear PgmDS
C EndIf
C move *on *inlr

Als MODULE compiliert geht *IN66 immer an, als Program compiliert klappt es bestens.

Habt ihr evtl. eine Loesung fuer mein Problem?

mfg
Guido