Re: Program Status DS

Ya, I did the mistake of assuming... you know what they say about that....

On 10/11/06, Barbara Morris <bmorris@xxxxxxxxxx> wrote:

Mike wrote:
>
> Is this documentation correct?
>
http://wiki.midrange.com/index.php/Program_Status_Data_Structure#Here_is_a_Sample_Program_Status_Data_Structure_in_RPG_IV_Style
> :
>
> I am not getting expected results in the User field. It has a number
instead
> of my username.
>

For any data structure where the exact position is important, I would
never depend on getting the exact size of filler fields correct.  I
would use a length notation and OVERLAY(psds:pos) to define every
subfield explicitly with exactly the same information that is in the
documentation.

     Dpsds            sds
     D pgmname                       10a     overlay(psds:1)
     D pgmsts                         5s 0   overlay(psds:11)
     D pgmprvsts                      5s 0   overlay(psds:16)
     D pgmsrcstmt                     8a     overlay(psds:21)
     etc

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.