|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.