*
      /IF NOT DEFINED(PGMSDS)
      /DEFINE PGMSDS
      *
     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
     ‚* Additional user-defined fields
     D  PSDSPSSRSts                    N
     D  PSDSDebugSts                   N
     D  PSDSProcName                256A
     D  PSDSDumpName                132A
     D  PSDSErrPgm                   10A
      *
      /ENDIF
      *