• Subject: Re: parameter list list
  • From: rorr@xxxxxxxxxxxxxx
  • Date: Thu, 5 Apr 2001 16:14:28 +1000


Mike,

you will also need to expand the list &OBJLST, because all the elements are
fixed 10 chars and if you have an object name of 10 chars there will be no
space between it and the next object name.

e.g. (substitute &OBJLST for &FldDs, FldL is the new list e.g. 50 x 11)

0343.00  /* Expand field list (nnaaabbbccc) to format (aaa bbb ccc) --*/
0344.00
0345.00 Flds:
0346.00         ChgVar  &FldNbr  (%bin(&FldDs 1 2))
0347.00         ChgVar  &LCount  (1)
0348.00         ChgVar  &LFrom   (3)
0349.00
0350.00         If   (&FldNbr = 0) (GoTo CpyToRmt)
0351.00 Flds1:
0352.00         If   (&LCount = 1)
+
0353.00              (ChgVar &FldL (%sst(&FldDs &LFrom 10)))
0354.00         Else
+
0355.00              (ChgVar &FldL (&FldL *bcat %sst(&FldDs &LFrom 10)))
0356.00
0357.00         ChgVar &LFrom   (&LFrom + 10)
0358.00         If   (&LCount < &FldNbr) (Do)
0359.00              ChgVar     &LCount (&LCount + 1)
0360.00              GoTo       Flds1
0361.00         EndDo

_______________________________________________________________
Hope this helps
Regards,        Rod Orr

________________________________________________________________


                                                                                
                                         
                    Pete Hall                                                   
                                         
                    <pbhall@execpc.com>        To:     MIDRANGE-L@midrange.com  
                                         
                    Sent by:                   cc:                              
                                         
                    owner-midrange-l@mi        Subject:     Re: parameter list 
list                                      
                    drange.com                                                  
                                         
                                                                                
                                         
                                                                                
                                         
                    05/04/01 14:46                                              
                                         
                    Please respond to                                           
                                         
                    MIDRANGE-L                                                  
                                         
                                                                                
                                         
                                                                                
                                         




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
+---




+---
| 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
+---

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].