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

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