Re: Prototype issue - using a data structure on the call

[Booth Martin <booth@xxxxxxxxxxxx>]

Does this work just as well?  (This is *not* a rhetorical question!)

    dParmDS           ds                
    Dfirst8                          8
    Dd#sys                           1   
    arD                             30    dim(7)





Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx wrote:
> try this:
>
>      DMain             PR                  ExtPgm('BI60A1R') 
>      D parms                               LikeDS(ParmDS)
>  
>      dParmDS           ds                
>      Dfirst8                          8 
>      Dd#sys                    1      1 
>      Dd#ndx1                   2     31 
>      Dd#ndx2                  32     61 
>      Dd#ndx3                  62     91 
>      Dd#ndx4                  92    121 
>      Dd#ndx5                 122    151 
>      Dd#ndx6                 152    181 
>      Dd#ndx7                 182    211  
>
> but really....positional values?? 
>  
>      dParmDS           ds                
>      Dfirst8                          8a
>      Dd#sys                           1a   overlay(parmds)
>      Dd#ndx1                         30a   overlay(parmds:*next)
> ....
> Thanks,
> Tommy Holden
>
>
>
> From:
> Doug Palme <DPalme@xxxxxxxxxxx>
> To:
> RPG Midrange L <rpg400-l@xxxxxxxxxxxx>
> Date:
> 06/03/2008 10:24 AM
> Subject:
> Prototype issue - using a data structure on the call
>
>
>
> I am attempting to prototype a program for the incoming parms.  One parm 
> will be an 8 char and another will be a 211 byte string divided by a 1byte 
>
> id followed by 7 30 byte indexes......
>
> I know I can accept it as a full 211 string and parse it out but I would 
> like to use a data structure if possible......
>
> I thought I could just define it like the following:
>
> DMain             PR                  ExtPgm('BI60A1R') 
> D                                8 
> Dd#sys                    1      1 
> Dd#ndx1                   2     31 
> Dd#ndx2                  32     61 
> Dd#ndx3                  62     91 
> Dd#ndx4                  92    121 
> Dd#ndx5                 122    151 
> Dd#ndx6                 152    181 
> Dd#ndx7                 182    211 
>
> but the compiler balks at that.....and I have included it on the interface 
>
> as well.....
>
> Any suggestions or helpful hints would be appreciated.
>
> This transmission may contain information that is privileged, confidential 
>
> and/or exempt from disclosure under applicable law. If you are not the 
> intended recipient, you are hereby notified that any disclosure, copying, 
> distribution, or use of the information contained herein (including any 
> reliance thereon) is STRICTLY PROHIBITED. If you received this 
> transmission in error, please immediately contact the sender and destroy 
> the material in its entirety, whether in electronic or hard copy format. 
> Thank you.
>   
> ------------------------------------------------------------------------
>
>
> No virus found in this incoming message.
> Checked by AVG. 
> Version: 8.0.100 / Virus Database: 269.24.6/1480 - Release Date: 6/3/2008 7:00 AM
>