Re: comprehensive info for ile rpg -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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 mailing list archive is Copyright 1997-2024 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.