× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. February 2002

Re: Compiler error on packed field redefine

This is 7 packed not 4.


0001.72     84=I                             P   16   19 0L1_MTRNBR

> 0021.00 F*
> 0022.00 Dl1_mtr_attribs   ds             6
> 0023.00 D l1_mtrtyp                        1a
> 0024.00 D l1_mtrnbr                        4p 0
> 0025.00 D l1_mtrid                          1a
> 0026.00 D*
>
> 0001.67     79=I                             A    1    1  L1_MTRTYP
> 0001.68     80=I                             A    2    2  L1_MTRID
> 0001.69     81=I                             P    3    5 3L1_WMSIZE
> 0001.70     82=I                             P    6    9 0L1_TRFNBR
> 0001.71     83=I                             P   10   15 0L1_MTRLOC
> 0001.72     84=I                             P   16   19 0L1_MTRNBR

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.