CL - sind optionale Entry-Parameter möglich ?

[HeymannJ]

Hallo *All,

besteht im CLLE die Möglichkeit, ähnlich wie im RPGLE, Parameter optional an das Programm zu übergeben "options(*nopass)" und anschl. die Anzahl der übergebenen Parameter mit %parms abzufragen

vielen Dank im voraus

[rmittag]

x: pgm (&pWert)

dcl &pWert *char (10)
dcl &Wert *char (10)
dcl &xWert *lgl *n '1'
dcl &pCount *dec (5 0) 1

chgvar &Wert &pWert
monmsg cpf0000 exec(do)
chgVar &Wert '*N/A'
chgVar &pCount (&pCount - 1)
chgVar &xWert '0'
enddo

[HeymannJ]

Hallo rmittag,

das ist ja schon mal nicht schlecht. Funktioniert das auch mit per Pointer übergebene Parms (*PTR)

mfg
J.Heymann