Re: Is the Program Status Data Structure Externally Defined?

[Nathan Andelin <nandelin@xxxxxxxxx>]

Very well, Rory.  Thanks.

-Nathan



----- Original Message ----
From: Rory Hewitt <rory.hewitt@xxxxxxxxx>
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Sent: Mon, December 6, 2010 5:21:35 PM
Subject: Re: Is the Program Status Data Structure Externally Defined?

Nathan,

Nope, but it's easy enough to stick it into a copybook:

      /IF DEFINED(PGMSDS)
      /EOF
      /ENDIF
      /DEFINE PGMSDS

     D PgmSDS         SDS                  Qualified
     D  MainProc                     10A
     D  Status                        5S 0
     D  PrvSts                        5S 0
     D  Stmt                          8A
     D  Routine                       8A
     D  Parms                         3S 0
     D  ExcpMsg                       7A
     D   ExcpMsgPfx                   3A   Overlay(ExcpMsg)
     D   ExcpMsgNbr                   4A   Overlay(ExcpMsg:*Next)
     D                                4A
     D  WorkArea                     30A
     D  PgmLib                       10A
     D  ExcpData                     80A
     D  ExcpID                        4A
     D  FileErr                      10A
     D                                6A
     D  Date                          8A
     D  Century                       2A
     D  FileErr2                      8A
     D  FileSts                      35A
     D  QualJob                      26A
     D    JobName                    10A   Overlay(QualJob)
     D    JobUser                    10A   Overlay(QualJob:*Next)
     D    JobNbr                      6A   Overlay(QualJob:*Next)
     D      JobNbrN                   6S 0 Overlay(JobNbr)
     D  JobDate                       6S 0
     D    JobDateC                    6A   Overlay(JobDate)
     D  RunDate                       6S 0
     D    RunDateC                    6A   Overlay(RunDate)
     D  RunTime                       6S 0
     D    RunTimeC                    6A   Overlay(RunTime)
     D  CmpDate                       6S 0
     D    CmpDateC                    6A   Overlay(CmpDate)
     D  CmpTime                       6S 0
     D    CmpTimeC                    6A   Overlay(CmpTime)
     D  CmpLvl                        4A
     D  SrcfName                     10A
     D  SrcfLib                      10A
     D  SrcfMbr                      10A
     D  OwnPgm                       10A
     D  OwnMod                       10A
     D                               76A
     D  SrcID                         5I 0
     D  SrcID2                        5I 0
     D  UsrPrf                       10A
     D                               62A

I just include it in my programs as:

      /COPY QRPGLESRC,PGMSDS

Rory

On Mon, Dec 6, 2010 at 2:52 PM, Nathan Andelin <nandelin@xxxxxxxxx> wrote:

> Wouldn't PSDS be easier to code in modules if it were externally defined?
>  Just
> wondering if the file exists somewhere on the system?
>
> -Nathan
>
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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.