Re: LIKE not supported amidst data structure subfields?

Good suggestion Carel, but I guess I kind of like qualified.  Got a 
shiPload of these /includes for various api's and it makes it easier to 
avoid variable conflicts. 

(Except for OBJL0100 used by both List Object Locks and List Objects.)

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




"Carel Teijgeler" <coteijgeler@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/21/2003 12:37 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Fax to: 
        Subject:        Re: LIKE not supported amidst data structure 
subfields?


Rob,

as far as I can see you pass the different parameters of the APi in a DS. 
Why not use seperate single fields for the parameters? then you can use 
LIKE, anyhow. Does the API accept one DS as all the parameters it 
requires? The CHGCMD (sub)field is a I/O parameter, IIRC

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 21-3-03 at 11:05 rob@xxxxxxxxx wrote:

>Is LIKE not supported amidst data structure subfields?
>
>     D qcapcmdds       ds                  qualified
>     D  SourceCmd                 32702a   inz(*blanks)
>     D  SourceCmdLen                 10i 0 inz(0)
>     D  OptCtlBlck                         like(CPOP0100ds)
>     D  OptCtlBlckLen                10i 0 
inz(%len(qcapcmdds.OptCtlBlck))
>     D  OptCtlBlckFmt                 8a   inz('CPOP0100')
>     D  ChgCmd                             inz(*blanks)
>     D                                     like(qcapcmdds.SourceCmd)
>     D  ChgCmdLenAv                  10i 0 inz(%len(qcapcmdds.ChgCmd))
>     D  ChgCmdLenRet                 10i 0 inz(0)
>results in RNF0519 on qcapcmdds.ChgCmd
>
>
>Rob Berendt
>-- 
>"They that can give up essential liberty to obtain a little temporary 
>safety deserve neither liberty nor safety." 
>Benjamin Franklin 
>_______________________________________________
>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing 
list
>To post a message email: RPG400-L@xxxxxxxxxxxx
>To subscribe, unsubscribe, or change list options,
>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>or email: RPG400-L-request@xxxxxxxxxxxx
>Before posting, please take a moment to review the archives
>at http://archive.midrange.com/rpg400-l.




_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.