RE: Replace *entry parm with pr and pi

Do you think we can have something like below :) ?   Pleeeaaassssee....

LIKEDS(Data Structure Name {:*EXTFILE}),
LIKE(Field Name {:External File Name})

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Barbara Morris
Sent: Friday, January 19, 2007 1:13 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Replace *entry parm with pr and pi

Lim Hock-Chai wrote:

Yes, that is what I'm trying to avoid.  To do that I'll have to do
below:
D AI8350RP        pr
D  piAI8350IDS                        likeds(AI8350IDS)
D  piAI8350ODS                        likeds(AI8350ODS)

D AI8350RP        pi
D  epiIDS                             likeds(AI8350IDS)

D  epiODS                             likeds(AI8350ODS)

If you move the dummy definitions and your prototype into a /COPY file,
it won't seem so bad.  Then the other programs that will call this
program can use your prototype without having to define their own dummy
data structures to match the prototype.

--- Copy file ---
 D AI8350IDS_t   E DS                  based(template) qualified
 D AI8350ODS_t   E DS                  based(template) qualified

 D AI8350RP        pr
 D  piAI8350IDS                        likeds(AI8350IDS_t)
 D  piAI8350ODS                        likeds(AI8350ODS_t)

--- Program ---
  /copy AI8350RP
 D AI8350RP        pi
 D  epiIDS                             likeds(AI8350IDS_t)
 D  epiODS                             likeds(AI8350ODS_t)

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