Um PGM wie proceduren aufzurufen musst du das PGM einfach nur als Prototype definieren
Code:
DCL-PR deinName EXTPGM('CT0001CL');
parm1 char(10) OPTIONS(*VARSIZE) CONST;
parm2 char(10) OPTIONS(*VARSIZE) CONST;
parm3 char(1) const;
Um die *ENTRY durch Prototype ersetzen zu können, packst du den Source deines PGMs in eine Prozedur und definierst diese in den H-Specs als Haupteinstiegspunkt
Code:
CTL-OPT MAIN(deinEingang);
DCL-PROC deinEingang;
DCL-PI *n EXTPGM;
parm1 char(10);
parm2 char(10);
END-PI;
Je nach Release gibt es Unterschiede in der Deklaration.
Die oben beschriebene Variante geht ab 7.1.
lg Andreas
Bookmarks