Program Status Data Structure

["Dan Bale" <dbale@xxxxxxxxx>]

Sheesh, my brain must be in weekend mode already...

I've got a Program Status Data Structure defined in my application, but none
of the subfields are being populated at runtime.  I am attempting to display
the program name, job name, and user name on this display program.  Here is
my source statement:

     IPGMDS     ESDSY2PGDSPK

Synon users will recognize that.  It compiles to (this is scrunched together
to avoid email line splitting):

     3400  IPGMDS     ESDSY2PGDSPK
  K000001                   1  10 ZZPGM     *PROGRAM
  K000002                  11  150ZZSTCD    *STATUS
------------ 12 data records excluded ----------------
  K000015                 209 243 ZZERST    Status info
  K000016                 244 253 ZZJOB     Job name
  K000017                 254 263 ZZUSR     User name
  K000018                 264 2690ZZJNO     Job number

We have Synon programs that are using this exact same code and the values
are showing as designed.  The RPG manuals are of no help.  Is there a
compiler option I've missed?  Is there an op code I need to use?

- Dan Bale
(I am *NOT* "Dale"
http://archive.midrange.com/midrange-l/200105/msg00281.html )
SAMSA, Inc.
989-790-0507
DBale@SAMSA.com
  Quiquid latine dictum sit altum viditur.
  (Whatever is said in Latin seems profound.)