RPG III Program Status Data Structure copybook member

     I* Program Status Data Structure
     IPSDS       SDS
     I*                Program name
     I                                        1  10 S#PGM
     I*                Status code
     I                                       11  150S#STAT
     I*                Previous status code
     I                                       16  200S#PSTA
     I*                Source statement sequence number
     I                                       21  28 S#SEQ#
     I*                Routine
     I                                       29  36 S#RTN
     I*                Number of parameters
     I                                       37  390S#PARM
     I*                Exception message ID
     I                                       40  46 S#EXID
     I*                Exception type
     I                                       40  42 S#EXCT
     I*                Exception number
     I                                       43  46 S#EXC#
     I*                HI/ODT number
     I                                       47  50 S#ODT#
     I*                Message work area
     I                                       51  80 S#MWA
     I*                Library in which program is located
     I                                       81  90 S#LIB
     I*                Exception data
     I                                       91 170 S#EXCD
     I*                Exception ID
     I                                      171 174 S#EXCI
     I*                First 2 digits of *YEAR
     I                                      199 200 S#YEAR
     I*         Last file on which operation was performed
     I                                      201 208 S#FILE
     I*                File status
     I                                      209 243 S#FLST
     I*                Job name
     I                                      244 253 S#JOB
     I*                User profile
     I                                      254 263 S#USER
     I*                Job number
     I                                      264 2690S#JOB#
     I*                Date job entered system
     I                                      270 2750S#EDAT
     I*                System date
     I                                      276 2810S#SDAT
     I*                System time
     I                                      282 2870S#STIM
     I*                Compile date
     I                                      288 293 S#CDAT
     I*                Compile time
     I                                      294 299 S#CTIM
     I*                Compiler level
     I                                      300 303 S#LEVL
     I*                Source file name
     I                                      304 313 S#SRCF
     I*                Source file library
     I                                      314 323 S#SRCL
     I*                Source file member
     I                                      324 333 S#SRCM

[report a broken link by clicking here]