********************************************************************
      * FILE NAME    - SCPSTSPF                                          *
      *                                                                  *
      * FUNCTION     - THIS FILE WAS DESIGNED TO SERVE AS AN EXTERNAL    *
      *                DATA STRUCTURE TO DEFINE THE PROGRAM STATUS       *
      *                DATA STRUCTURE.                                   *
      *                                                                  *
      * PROGRAMMER   - STEVE CROY        08/07/09                        *
      ********************************************************************

     A          R RSCPSTS                   TEXT('PROGRAM STATUS DS')
     A            PRGNAM        10          COLHDG('PROGRAM' 'NAME')
     A            STATUS         5S 0       COLHDG('PROGRAM' 'STATUS')
     A            PRVSTS         5S 0       COLHDG('PREVIOUS' 'STATUS')
     A            SRCSMT         8          COLHDG('SOURCE' 'STATEMT')
     A            ROUTIN         8          COLHDG('RPG' 'ROUTINE')
     A            PARMS          3S 0       COLHDG('NBR OF' 'PARMS')
     A            MSGID          7          COLHDG('MSG ID')
     A            INSBNR         4          COLHDG('INSTRUCTION')
     A            MSGWRK        30          COLHDG('WORK' 'AREA')
     A            PGMLIB        10          COLHDG('PROGRAM' 'LIBRARY')
     A            MSGTXT        80          COLHDG('MSG' 'TEXT')
     A            EXCNBR         4          COLHDG('EXCEPTION' 'NBR')
     A            PSUN01        26          COLHDG('UNDEFINED')
     A            ERRFIL         8          COLHDG('ERROR' 'FILE')
     A            ERRINF        35          COLHDG('ERROR' 'DATA')
     A            JOBNAM        10          COLHDG('JOB' 'NAME')
     A            USER          10          COLHDG('USER' 'NAME')
     A            JOBNBR         6          COLHDG('JOB' 'NUMBER')
     A            JOBDAT         6S 0       COLHDG('JOB' 'DATE')
     A            SYSDAT         6S 0       COLHDG('SYS' 'DATE')
     A            SYSTIM         6S 0       COLHDG('SYS' 'TIME')
     A            PGMDAT         6S 0       COLHDG('PGM' 'TIME')
     A            PGMTIM         6S 0       COLHDG('PGM' 'TIME')
     A            CMPLVL         4          COLHDG('COMPILER' 'LVL')
     A            SRCFIL        10          COLHDG('SOURCE' 'FILE')
     A            SRCLIB        10          COLHDG('SOURCE' 'LIB')
     A            SRCMBR        10          COLHDG('SOURCE' 'MEMBER')
      *----------------------------------------------------------------
      * LEGEND FOR PROGRAM STATUS DATA STRUCTURE
      *----------------------------------------------------------------
      * PRGNAM    PROGRAM NAME
      * STATUS    STATUS
      * PRVSTS    PREVIOUS STATUS
      * SRCSMT    SOURCE STATEMENT NUMBER
      * ROUTIN    RPG PROCESSING ROUTINE
      * PARMS     NUMBER OF PARAMETERS PASSED WHEN PROGRAM WAS CALLED
      * MSGID     CPF MESSAGE ID
      * INSNBR    COMPILED INSTRUCTION NUMBER BEING PERFORMED
      * MSGWRK    MESSAGE SUPPORT WORK AREA
      * PGMLIB    LIBRARY NAME CONTAINING THE PROGRAM
      * MSGTXT    CPF MESSAGE TEXT
      * EXCNBR    EXCEPTION/ERROR NUMBER
      * ERRFIL    FILE NAME ON WHICH THE LAST OPERATION WAS PERFORMED
      * ERRINF    EXCEPTION/ERROR STATUS INFORMATION
      * JOB       JOB NAME
      * WSID      WORKSTATION (DEVICE) NAME
      * USER      USER PROFILE NAME
      * JOBNBR    JOB NUMBER
      * JOBDAT    JOB DATE
      * SYSDAT    SYSTEM DATE
      * SYSTIM    SYSTEM TIME
      * PGMDAT    PROGRAM DATE (WHEN COMPILED)
      * PGMTIM    PROGRAM TIME (WHEN COMPILED)
      * CMPLVL    COMPILER LEVEL
      * SRCFIL    SOURCE FILE WHERE PROGRAM WAS COMPILED
      * SRCLIB    SOURCE LIBRARY NAME (WHEN COMPILED)
      * SRCMBR    SOURCE MEMBER NAME OF COMPILED OBJECT