Fun with REXX

> From: G Armour
> 
> "... pass a whole" what?

Must... get... sleep... <smile>

I meant to say, "pass a whole bunch of parms in one string, and then
parse them out".  For example, you can do the following:

STRREXPRC MYREXX "parm pgm1 pgm2 pgm3 pgm4"

MYREXX:
/* Call several programs with parameter */
PARSE UPPER ARG ArgString
PARSE VAR ArgString Parm ArgString

DO UNTIL Program=''
  PARSE VAR ArgString Program ArgString
  IF Program > ''
    "CALL PGM(&Program) PARM(&Parm)"
  END
END
 

This will parse the value from the first position of the string, then
parse out as many programs as you have entered, and call each one
passing it the parameter.

In this specific case, it would call four programs (PGM1-PGM4) and pass
each one the value PARM.


Joe