Answer / sruthi

HI Prakash,
your ans is wrong.max limit 7 times,that is max number of
dimentions.not the number of occurs.

Answer / asmara

Hi,
Here u mention it in 01 level so it will give compilation
error and ambiguity occurs so better to give from 02-49
levels will be fine
And where as the max limit for occurs Clause where
OCCURS ON DEPENDING CLAUSE will be 16,711,568 Bytes and the
table size of occurs wont go beyond this limits.
If any update information regarding this, let me inform.

Regards,
Asmara

Answer / leena_kulkarni

01 level is not used for occurs.

N can go upto 32K (32768 bytes).

Answer / sivakumar sekharannair

01 level cannot have occurs clasue. Because 01 level is
used for the entire record of a file. entire record length
can not occur again. I.E. Fields in a file can only occur
again.

Answer / julyo

In Cobol 11 there are a limit of 16,711,568 Bytes and 7 positions of numbers.
For example:
Example 1
05 WTAB-LOTE OCCURS N TIMES
INDEXED BY WIND-LOTE.
10 WTAB-LOTE-REG PIC X(250).

In this case N will be: N=16,711,568/250 , N=66846, and the compiler will accept '99999'

Example 2
05 WTAB-LOTE OCCURS N TIMES
INDEXED BY WIND-LOTE.
10 WTAB-LOTE-REG PIC X(003).

In this case N will be: N=16,711,568/3 , N=55770522, and the compiler will accept '9999999', but this value is less than N and for this second case the limit is related to the number of the positions (7).

But for sure there are the rest of the space in the working section. In the examples was assumed there aren't any other variable in the working.

I hope helped you

Answer / harish

Hi,

maximum occurs we can use in company is 7 occurs

01 level is not used for occurs clause

N can go upto 16,711,568 i think


Harish poomgame shivappa
NIIT Technolgies
Kolkata

Answer / sumanth toom

It probably depends on the Cobol version you are using.
I dont think all cobol versions have the same working-
storage space !

Answer / vijay

in practicle its 3 dimensional only

Answer / ravi patnam

Maximum value for the N is 99999999. For example see below:

$set ans85 comp
IDENTIFICATION DIVISION.
PROGRAM-ID. "test".
AUTHOR. RAVI PATNAM.
DATE-WRITTEN. 20-02-2009.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
WORKING-STORAGE SECTION.
01 N pic 9(9) value 0.
01 test-occurs occurs 0 to 99999999
depending on N.
02 test-no pic 9(2).

PROCEDURE DIVISION.
MAIN.
move 99999999 to N.
move 11 to test-no(N).
display test-no(N).
stop run.

Answer / prakash

01 level is not used for occurs.

MAXIMUM LIMIT IS 7 TIMES IN VS COBOL 11.

MAXIMUM LIMIT IS 3 TIMES IN VS COBOL.

in the TIME parameter we r giving hours r minutes

4 Answers   IBM,

What is 88 level used for ?

2 Answers  

wht is load module and object module ?

2 Answers   DELL, TCS,

What is an in line perform? When would you use it? Anything else you wish to say about it.

0 Answers  

01 a pic s9(5) value -12345, if we disply a , the sign will overpunched with last digit but i need to get the miuns sign in the result?

7 Answers  

can we use the two 01 level in file discription ?

6 Answers  

What is the local-storage section?

0 Answers  

what is subscript in cobol?give realtime example?

2 Answers   Wipro,

There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.

8 Answers   Danske, iGate,

here is my compile and link edit steps in a jcl //COMPILE1 JOB (3CUS,S),'CCDM TEST' //STEPNAME EXEC PGM=IGYCRCTL,PARM='DYNAM,RENT,LIB,OBJECT, // OFFSET,APOST,OPTIMIZE',REGION=4096K //STEPLIB DD DSNAME=PM7351.TEST2.COB,DISP=SHR //SYSIN DD DSNAME=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT3 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT4 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT5 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT6 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT7 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOAD,DISP=(MOD,PASS),UNIT=SYSDA, // SPACE=(10,(10,10)),DCB=BLKSIZE=400 //LKED EXEC PGM=IEWL,REGION=1024K //SYSPRINT DD SYSOUT=A //SYSLIB DD DSN=PM7351.TEST2.LOADLIB,DISP=SHR // DD DSN=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSLMOD DD DSN=PM7351.TEST2.LOADLIB, // DISP=SHR //SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(CYL,(1,1)) //SYSTERM DD SYSOUT=* //SYSLIN DD DSN=&&LOAD,DISP=(OLD,DELETE) //SYSIN DD DUMMY i am getting IEW2013I 0F08 NO MEMBER NAME WAS SPECIFIED. MODULE WAS SAVED USING TEMPNAM1. could any one tell me the resolution for this..?

1 Answers  

Name some of the examples of COBOl 11?

0 Answers   CSC,

What is the difference between copy and include in cobol?

1 Answers