Re: [EXTERNAL] Re: Many arguments to a Rexx function call

2018-04-06 Thread Paul Gilmartin 
On Fri, 6 Apr 2018 15:55:48 +, Dyck, Lionel B. (TRA) wrote:

>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)
>
I see only one argument there, not "many".  Is it possible that the real ALERTSN
(the one below appears to be a demo) accepts only one argument:

>say 'rs:' rs
>  exit
>alertsn:  procedure
>  arg opt 
>
This parses for only the first argument.

>  say opt
>
What did SAY display?

>  return opt

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [EXTERNAL] Re: Many arguments to a Rexx function call

2018-04-06 Thread Dyck, Lionel B. (TRA) 
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)  <
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 +, Farley, Peter x23353 
 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