This worked - the comma's needed to be literals:
/* REXX */
parse value '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22' with,
SEV TYPENAME ELEMENT DESC STATUS STSDESC SUBSRC SOURCE LOCATION SYSTYPE ,
PLTFTYPE IMPACT HOST MONENV RESOURCE EXTRINFO ACTIVE CLOSING FTPERR,
APPLTYPE APPLNAME UNIQUE
RS=ALERTSN(SEV','TYPENAME','ELEMENT','DESC','STATUS','STSDESC',' ,
SUBSRC','SOURCE','LOCATION','SYSTYPE','PLTFTYPE','IMPACT','HOST',' ,
MONENV','RESOURCE','EXTRINFO','ACTIVE','CLOSING','FTPERR',' ,
APPLTYPE','APPLNAME','UNIQUE)
say 'rs:' rs
exit
alertsn: procedure
arg opt
say opt
return opt
--------------------------------------------------------------------------
Lionel B. Dyck (Contractor) <sdg><
Mainframe Systems Programmer – RavenTek Solution Partners
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Jantje.
Sent: Friday, April 06, 2018 10:45 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: [EXTERNAL] Re: Many arguments to a Rexx function call
On Fri, 6 Apr 2018 15:27:19 +0000, Farley, Peter x23353
<peter.far...@broadridge.com> wrote:
>Use SPACE COMMA at the end of each separate line of arguments except the last
>line with the closing parenthesis.
>
>Comma at the end of a Rexx line says concatenate the next line with the
>current line, so your ARGUMENT comma is taken as a CONTIUATION comma. Adding
>SPACE COMMA after the ARGUMENT comma on each continuing line will solve your
>problem.
Tried that:
RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC, ,
SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST, ,
MONENV,RESOURCE,EXTRINFO,ACTIVE,CLOSING,FTPERR, ,
APPLTYPE,APPLNAME,UNIQUE)
already too, but no luck:
87 +++ RS=ALERTSN(SEV,TYPENAME,ELEMENT,DESC,STATUS,STSDESC,
,SUBSRC,SOURCE,LOCATION,SYSTYPE,PLTFTYPE,IMPACT,HOST, ,MONENV,RESOU
RCE,EXTRINFO,ACTIVE,CLOSING,FTPERR, ,APPLTYPE,APPLNAME,UNIQUE) IRX0040I Error
running ALERTSNB, line 87: Incorrect call to routine
Jantje.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
lists...@listserv.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
