Re: parameter list list

[Pete Hall <pbhall@xxxxxxxxxx>]

At 17:41 04/04/2001, Mike Pantzopoulos wrote:

>I thought I'd be clever and pass the list of object names to the SAVOBJ 
>command by extracting bytes 3 to 22 from &OBJECT into &OBJLST and using 
>that value as -
>
>SAVOBJ     OBJ(&OBJLST) LIB(&FRMLIB) DEV(*SAVF) ...................
>
>This works when I have only one object in the parameter list, but when I 
>have more than one parameter it doesn't.
>
>When I look at the value through debug immediately before the SAVOBJ 
>command is executed I see:
>
>  EVAL &OBJLST
>  &OBJLST =
>            ....5...10...15...20...25...30...35...40...45...50...55...60
>       1   'CC866CL   CC867CL                                           '
>      61   '                                                            '
>     121   '                                                            '
>
>The error message I get is:
>
>VALUE 'CC866CL   ' FOR OBJ NOT A NAME OR GENERIC NAME.
>  ERROR FOUND ON SAVOBJ COMMAND.

Mike,

Construct the entire command as a string and pass it through QCMDEXC like this:
   CHGVAR VAR(&CMDSTR) VALUE('SAVOBJ     OBJ(' *CAT &OBJLST *TCAT ') LIB(' 
*CAT &FRMLIB *TCAT ') DEV... etc
      CALL PGM QCMDEXC PARM(&CMDSTR &CMDLEN)

Where &CMDLEN is a 15.5 decimal (packed) variable.


Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---