PList, Parm und Call in Free.

[Wavum]

Wie sieht dieser Code in Free aus?

     C                   Call      'CT0001CL'
     C                   parm      USER          PUSER            10
     C                   parm      'QPGMR'       PCHK             10
     C                   parm                    XQPGMR            1

Und welchen Ersatz gibt es zu PList in Free?

     C     *ENTRY        PLIST
     C                   PARM                    PWORT
     C                   PARM                    PKZ
     C                   PARM                    XMBR
     C                   PARM                    XMBRART
     C                   PARM                    PIREF            70

[andreaspr@aon.at]

Um PGM wie proceduren aufzurufen musst du das PGM einfach nur als Prototype definieren

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

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

[dschroeder]

Den CALL kann man nicht direkt umsetzen. Du musst einen Prototype definieren kannst das dann mit call ct0001cl(puser:chk:xqpgmr) aufrufen.


Die Entry Plist solltest du so umsetzen, dass die Variablen direkt deklariert werden,

z.B.:

dcl-pi *n;
  pwort char(...);
  pkz packed(5:2);
end-pi

Ich kenne natürlich nicht deine konkreten Defitionen! Du kannst die Parameter in der dcl-pi-Anweisung auch mit like definieren, wenn du eine passende Referenzvariable hast.

Dieter