Usage of 88 level condition variables in occurs clause



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Usage of 88 level condition variables in occurs clause

Postby navennaik » Wed May 27, 2009 7:42 pm

Hello,

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

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.
navennaik
 
Posts: 8
Joined: Thu Feb 26, 2009 7:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Usage of 88 level condition variables in occurs clause

 

Re: Usage of 88 level condition variables in occurs clause

Postby dick scherrer » Thu May 28, 2009 12:54 am

Hello,

What happens when you try to compile/run this?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6308
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 90 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post