Re: [Tiny-cobol-users] Indexes in Linkage

[Rildo P. <ri...@pr...>]

Hi Chris,

On 7 Sep 2002, Chris Borgn=E6s wrote:

> That's good news, as long as the area for the index isn't part of
> linkage.  Is it?

No, it is "hidden" in the regular data area.
Let's see how this apply to your code. Here is a test program with only
your data:

 IDENTIFICATION DIVISION.
 PROGRAM-ID. TESTING.
 ENVIRONMENT DIVISION.
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
 DATA DIVISION.
 LINKAGE SECTION.
    01 LnkWAtkTab SYNC.
    05 LnkWAtkRec OCCURS 20 TIMES INDEXED BY WAR-Idx.
     10 LnkCritMinRoll OCCURS 5 TIMES INDEXED BY
            CMR-Idx PIC 999 COMP.
     10 LnkDiv PIC 99 COMP.
     10 LnkCritTyp PIC XXX.

 PROCEDURE DIVISION.
 STOP RUN.

If you compile it with listing output enabled, you may see at the end of
listing, the section which each variable belongs to. Section 3 (according
defines in compiler/htcoboly.h) is SEC_DATA or SEC_WORKING, for working
storage variables. Your CMR_IDX and WAR_IDX variables will be placed
there. All your other variables (supposing the only data defined is yours
supplied in the previous e-mail) will be placed in section 5, or SEC_ARGS.

best regards,
Rildo
 ------------------------------------------------------------------
 Rildo Pragana                   FPGA/uControllers * Linux * tcl/tk
 R.Joaquim Nabuco,92/302 Derby   http://www.pragana.net
 Recife, PE - Brazil 52011-000   +55-81-3223-5694