AW: comprehensive info for ile rpg

Hi,

instead of defining an internally described data structure, you also can
create a DDS described physical file for the SDS and embedd it as external
data structure. In this way you won't need a copy member. An external
datastructure can be qualified or you can use the prefix keyword to rename
the original fields if you want.

Mit freundlichen Gru?en / Best regards

Birgitta

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les Brown)

-----Ursprungliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Jim Wiant
Gesendet: Montag, 10. Juli 2006 00:08
An: RPG programming on the AS400 / iSeries
Betreff: RE: comprehensive info for ile rpg


And I would also suggest putting the SDS itself into a separate source
member and bringing it in as a copy book for maintenance purposes.





The bitterness of poor quality remains long after low pricing is
forgotten!



Cautillo, Leon M.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Rory Hewitt
Sent: Monday, 10 July 2006 10:04
To: RPG programming on the AS400 / iSeries
Subject: Re: comprehensive info for ile rpg


Jim,

Here's a tip - put this into a copybook called e.g. PGMSDS:
      /IF NOT DEFINED(PGMSDS)
      /DEFINE PGMSDS
      *
      * Program Status Data Structure
      *
     D PgmSDS         SDS
     D  PSDSMainProc                 10A
     D  PSDSStatus                    5S 0
     D  PSDSPrvSts                    5S 0
     D  PSDSStmt                      8A
     D  PSDSRoutine                   8A
     D  PSDSParms                     3S 0
     D  PSDSExcpMsg                   7A
     D   PSDSExcpTyp                  3A   Overlay(PSDSExcpMsg:1)
     D   PSDSExcpNbr                  4A   Overlay(PSDSExcpMsg:4)
     D                                4A
     D  PSDSWorkArea                 30A
     D  PSDSPgmLib                   10A
     D  PSDSExcpData                 80A
     D  PSDSExcpID                    4A
     D  PSDSFileErr                  10A
     D                                6A
     D  PSDSDate                      8A
     D  PSDSCentury                   2A
     D  PSDSFileErr2                  8A
     D  PSDSFileSts                  35A
     D  PSDSQualJob                  26A
     D   PSDSJobName                 10A   Overlay(PSDSQualJob:1)
     D   PSDSJobUser                 10A   Overlay(PSDSQualJob:11)
     D   PSDSJobNbr                   6S 0 Overlay(PSDSQualJob:21)
     D    PSDSJobNbrC                 6A   Overlay(PSDSJobNbr)
     D  PSDSJobDate                   6S 0
     D   PSDSJobDateC                 6A   Overlay(PSDSJobDate)
     D  PSDSRunDate                   6S 0
     D   PSDSRunDateC                 6A   Overlay(PSDSRunDate)
     D  PSDSRunTime                   6S 0
     D   PSDSRunTimeC                 6A   Overlay(PSDSRunTime)
     D  PSDSCmpDate                   6S 0
     D   PSDSCmpDateC                 6A   Overlay(PSDSCmpDate)
     D  PSDSCmpTime                   6S 0
     D   PSDSCmpTimeC                 6A   Overlay(PSDSCmpTime)
     D  PSDSCmpLvl                    4A
     D  PSDSSrcfName                 10A
     D  PSDSSrcfLib                  10A
     D  PSDSSrcfMbr                  10A
     D  PSDSOwnPgm                   10A
     D  PSDSOwnMod                   10A
     D                               76A
     D  PSDSSrcID                     5I 0
     D  PSDSSrcID2                    5I 0
     D  PSDSUsrPrf                   10A
     D                               62A
      /ENDIF

and then include in all your programs as e.g.:

     /COPY QRPGLESRC,PGMSDS

Much easier than defining specific fields in your programs.

HTH,

Rory
--
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 message was scanned for compliance with Foodstuffs email policies
######################################################################
This message has been sent from Foodstuffs (Auckland) Limited
("Foodstuffs").

The information contained in this message and or attachments
is intended only for the person or entity to which it is
addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other
use of, or taking of any action in reliance upon, this
information by persons or entities other than the intended
recipient is prohibited. If you received this in error,
please contact the sender and delete the material from any
system and destroy any copies.

The views and opinions expressed in this message may be those
of the individual and not necessarily those of Foodstuffs,
and are not given or endorsed by it.

Please note that this communication does not designate an
information system for the purposes of the Electronic
Transactions Act 2002.

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