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