You must be logged in to use the copy button.

        
dcl-ds *n PSDS;
    ##psPgm     *Proc;              // pgm_sts_pgm
    ##psSts     *Status;            // pgm_sts_sts
    ##psStsPrev zoned(5) pos(16);   // pgm_sts_prev_sts
    ##psSeq     char(8)  pos(21);   // pgm_sts_src_seq
    ##psSr      *routine;           // pgm_sts_subr
    ##psParm    *parms  ;           // pgm_sts_parm_nbr
    ##psTyp     char(3)  pos(40);   // pgm_sts_msg_type
    ##psNBR     char(4)  pos(43);   // pgm_sts_msg_nbr
    ##psResv    char(4)  pos(47);   // Reserve
    ##psARA     char(30) pos(51);   // pgm_sts_work_area
    ##psLib     char(10) pos(81);   // pgm_sts_pgm_lib
    ##psDTA     char(80) pos(91);   // pgm_sts_msg_data
    ##psID      char(4)  pos(171);  // pgm_sts_msg_id
    ##psRS1     char(10) pos(175);  // pgm_sts_filler1
    ##psUnused  char(6)  pos(185);  // Unused
    ##psJDte    char(10) pos(191);  // Date (*DATE format) the job entered the system.
    ##psCCDte   zoned(2) pos(199);  // First 2 digit of a 4 digit year
    ##psFIL     char(8)  pos(201);  // Name of file on which the last file operation o
    ##psFILS    char(35) pos(209);  // Status information on the last file used
    ##psJOB     char(10) pos(244);  // Job Name
    ##psUSR     char(10) pos(254);  // User name
    ##psJOBN    zoned(6) pos(264);  // job Number
    ##psJOBD    zoned(6) pos(270);  // Job Date the program started
    ##psPGMD    zoned(6) pos(276);  // Date of the program running
    ##psPGMT    zoned(6) pos(282);  // Time of the pgm running
    ##psCmpD    char(6)  pos(288);  // Date (in UDATE format) the pgm was compiled
    ##psCmpT    char(6)  pos(294);  // Time the program was compiled
    ##psCmpL    char(4)  pos(300);  // Level of compiler
    ##psSRCF    char(10) pos(304);  // source file name
    ##psSRCL    char(10) pos(314);  // Source Library
    ##psSRCM    char(10) pos(324);  // souce file member
    ##psPgmP    char(10) pos(334);  // Program containing procedure
    ##psModP    char(10) pos(344);  // Module containing procedure
end-ds;