Hallo und puh ha ...

ich bin jetzt doch ein wenig verwirrt und stelle deshalb mal folgende Infos hier rein :
? CRTSQLRPGI ??OBJ(x/xxxx)
?*SRCFILE(xxxx/QRPGLESRC)
?*SRCMBR(xxx)
COMMIT(*NONE)
?*OBJTYPE(*PGM)
??REPLACE(*NO)

So wandel ich.

H DEBUG DECEDIT('0,') DATEDIT(*DMY.) option(*nodebugio)

Mehr hab ich nicht in den H Bestimmungen ...

Und hier das "Ende meines Programms" :

Movel 'RCLRSC' CMD1
Z-add 6 CMD2
Call 'QCMDEXC'
Parm CMD1
Parm CMD2

eval *INLR = *ON

OK or not OK ? :-)

Gruß,
Ralf