Qualified DS

[FaStOnE]

OK.. someone 'splain to me why this won't work...

      * Data Structures
      *========================================================================*
     D CustNo          DS                  Qualified
     D   Prefix                       4A   Overlay( CustNo : 1 )
     D   AccountNo                   16A   Overlay( CustNo : 1 )

Later in code...

                 CustNo = PSAcctNo;
                 If Cust.Prefix = '7600';
                    ExSR #AddRec;
                 EndIF;
...
             AcctNo    = Cust.AccountNo; 

I get the following under the compile...

*RNF7030 CUST **UNDEF**
*RNF7030 ACCOUNTNO **UNDEF**
*RNF7030 PREFIX **UNDEF**

...Anyone...Anyone...Buhler...Buhler...

[slabadie]

Re: Qualified DS

You need to use the keyword Prefix - see below

D CustNo DS Qualified Prefix(CUST.)
D Prefix 4A Overlay( CustNo : 1 )
D AccountNo 16A Overlay( CustNo : 1 )

[FaStOnE]

Re: Qualified DS

Added the "Prefix(Cust.)" and this is what I get

RNF3529E Keyword is not allowed for a program-described data structure; keyword is ignored.
RNF0622E A qualified name is not allowed in this context.
RNF0623E The qualified name is not specified correctly.



It should not matter that I'm using SLQRPGLE... correct?

[tonyserzin]

Re: Qualified DS

As your data structure is CustNo should it be CustNo.Prefix not Cust.Prefix?

[FaStOnE]

Re: Qualified DS

Amazing how the small things can bite you on the @#%@#%@#%...

Thanks Tony! That did it.