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