Re: Is the Program Status Data Structure Externally Defined?

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.