Array overlay.

[rob@xxxxxxxxx]

As some people may prefer field names over an array I defined a data
structure like the following:
     D pSJQL0100       s               *
     D SJQL0100        DS                  Qualified based(pSJQL0100)
     D  JobQueueName
10a                                        Job Queue Name

D  JobQueueLib                  10a                                        Job
 Queue Library

     D  SeqNbr                       10i
0                                      Sequence number
     D  AllocInd
10a                                        Allocation Indicator

D*                                                                         
 *NO=Not
 aloc to sbs


D*                                                                         
 *YES=Alloc
 to sbs

     D  Reserved1                     2a
     D  MaxAct                       10i
0                                      Maximum Active jobs

D*                                                                          -1
 = *NOMAX

     D  MaxPty1                      10i
0                                      Max jobs, priority 1
     D  MaxPty2                      10i
0                                      Max jobs, priority 2
     D  MaxPty3                      10i
0                                      Max jobs, priority 3
     D  MaxPty4                      10i
0                                      Max jobs, priority 4
     D  MaxPty5                      10i
0                                      Max jobs, priority 5
     D  MaxPty6                      10i
0                                      Max jobs, priority 6
     D  MaxPty7                      10i
0                                      Max jobs, priority 7
     D  MaxPty8                      10i
0                                      Max jobs, priority 8
     D  MaxPty9                      10i
0                                      Max jobs, priority 9
     D  MaxPty                       10i 0 Overlay(MaxPty1) dim(9)

However, I am getting the following in the compile:
                 For x = 1 to %elem(SJQL0100.MaxPty);
                   cmd += ' MAXPTY' + %char(x) + '(';
                   Select;
                   When SJQL0100.MaxPty(x)=-1;
RNF7503S Expression contains an operand that is not defined.
                     cmd += '*NOMAX';
                   Other;
                     cmd += %char(SJQL0100.MaxPty(x));
RNF7503S Expression contains an operand that is not defined.
                   EndSl;
                   cmd += ')';
                 EndFor;


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