Under z/OS 1.4 and PL/I Enterprise 3.3 the following program works when called by the OP REXX code.
PGM1: PROCEDURE(DSN,DDN) OPTIONS(MAIN NOEXECOPS BYADDR) REORDER;
DCL DSN CHAR(44) VAR; DCL DDN CHAR(08) VAR;
PUT DATA(DSN); PUT SKIP DATA(DDN);
END PGM1;
Tested in TSO foreground, background and batch IRXJCL.
Perhaps the OP could post back with more info as to his OS, compilier release, etc. It should be working for him.
-- Jeff
Shmuel Metz , Seymour J. said the following on 05/18/2005 11:17 AM:
In <[EMAIL PROTECTED]>, on 05/17/2005 at 05:19 PM, Paulo Caze <[EMAIL PROTECTED]> said:
I have a PL/I program that receives 2 arguments:
PGM1: PROCEDURE(DSN,DDN) OPTIONS(MAIN NOEXECOPS) REORDER;
DCL DSN CHAR(44) VAR; DCL DDN CHAR(08) VAR;
Check the documentation for NOEXECOPS.
Then I'm calling this pgm in a REXX: dsn = left('sys1.proctest',44) ddn = left('DD1',8) address linkmvs "PGM1 dsn ddn"
Why would you expect that to work? REXX doesn't know about PL/I locator/descriptors, so you need to either construct parameters that PL/I can handle or declare your procedure to handle the parameters that REXX constructs. You may need to use ILC.
Then I got a S0C4 and RC(-196)
That doesn't surpise me.
When I change the program to receive just one argument it works fine.
That surprises me. But the NOEXECOPS option may explain it.
-- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.11.12 - Release Date: 05/17/2005
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
