Re: Array overlay.

[rob@xxxxxxxxx]

Thanks Hans,

Scott,
I didn't want to overlay the whole data structure.  (Didn't want to
hardcode the offset.)  Hans idea of a dummy field helped.

Mel,
I did pretty much verbatim what you said right after reading Hans
email.  And the values are correct.  I used the api QWDLSJBQ to fill it.

Makes me wonder why this line could figure it out though:
For x = 1 to %elem(SJQL0100.MaxPty);

This did it:

      * SJQL0100 - QWDLSJBQ - List Subsystem Job Queue Entries
     D pSJQL0100       s               *
     D SJQL0100        DS                  Qualified based(pSJQL0100)
     D  JobQueueName                 10a
     D  JobQueueLib                  10a
     D  SeqNbr                       10i 0
     D  AllocInd                     10a
     D*
     D*
     D  Reserved1                     2a
     D  MaxAct                       10i 0
     D*
     D  MaxPtyAlpha                  36a
     D  MaxPty1                      10i 0 Overlay(MaxPtyAlpha)
     D  MaxPty2                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty3                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty4                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty5                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty6                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty7                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty8                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty9                      10i 0 Overlay(MaxPtyAlpha:*next)
     D  MaxPty                       10i 0 Overlay(MaxPtyAlpha) dim(9)

Scott,
I didn't want to overlay the whole data structure.  (Didn't want to
hardcode the offset.)

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com