Answer / praveen

WORKING-STORAGE SECTION.
01 MATA.
05 ROWA OCCURS 2 TIMES.
10 COLA OCCURS 2 TIMES PIC 9.

Answer / s

01 grparray.
02 month occurs 12 times index by a1.
03 week pic x(4)occurs 7 times.

Answer / varun v

Agree with Ans #1 and #2,

Ans #3 -- Occurs class cannot be at 01 level

Answer / bhanu

this is actually a question which i got.

How to initialize a two dimensional array with indexes?
can any one kindly show me the syntax..?

Answer / jagan

WORKING-STORAGE SECTION.
01 M-GROUP.
02 M OCCURS 6 TIMES.
03 W PIC X(4) OCCURS 4 TIMES.

Answer / mic

To Ans # 5 ..

We can initialize an Index By SET INDEX-NAME TO X

Answer / siri

TWO DIMENTIONAL ARRAY SYNTAX:-

01 WS-ARRAY
05 A OCCURS 30 TIMES
10 B OCCURS 30 TIMES
15 B1 PIC X(10)
15 B2 PIC X(10).

Answer / guest

01 items x(10) occurs 10 times
02 sub items pic x(10) 5 times

How can we increase the size of an existing PDS to include more no. of modules.

3 Answers  

created cluster using IDCAMS ..that is empty ..when i write a program for read using Input ..wil it open the cluster or gives any error?

2 Answers   HCL,

plz,could any one tell me? what about EBCDIC in cobol?briefly?

1 Answers  

what is the difference between Plan & package

3 Answers   IBM,

What is the difference between a DYNAMIC and STATIC call in COBOL?

2 Answers  

i have two file, each file having : file1 is having 2 fields field1 field2 file2 is having 3 fields field1 field2 field3 my req is to make it one file like: field1 field2 field1 field2 field3 if anyone know please send me syntax, i tried this with DFSORT but could not succeed.

9 Answers   Syntel,

here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?

2 Answers   IBM,

If by mistake we MOVE a working storage variable into LINKAGE area. What will happen??

4 Answers   Accenture,

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  

2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic

0 Answers  

which one is the best of com and com-3.using of real time ?

7 Answers   Cap Gemini,

1.What is the limit of linkage section?

4 Answers