IBM Mainframe Forum

[navennaik]

Hello,

I have defined the occurs clause as below in my working storage section.

Select all

01 W-LETTER-TABLE.                                   
   04 W-LETTER-FORMAT OCCURS 3 TIMES                 
                        INDEXED BY W-LETTER-NDX.     
    10 LETTER-TYPE                          PIC X(1).
       88 COST-3230       VALUE 'B'.                 
       88 COST-3277       VALUE 'A'.                 
       88 COST-5048       VALUE 'C'.                 
    10 TOTAL-BATCHES                PIC 9(3).
    10 FILLER                               PIC X(76).

Is it possible to make use of the 88 level condition variables in occurs clause ?

If possible how to make use of the particular field (COST-5048 ,COST-3277 and COST-3230) in my PERFORM logic.

I am going read my input file in this above array.

My input file is as below.
****** ***************************** Top of Data ******************************
000001 A002
000002 B003
000003 C010
****** **************************** Bottom of Data ****************************
Please help me out.

ThanQ in advance.

[dick scherrer]

Hello,

What happens when you try to compile/run this?