Write the syntax of a two dimensional array?
Answers were Sorted based on User's Feedback
Answer / praveen
WORKING-STORAGE SECTION.
01 MATA.
05 ROWA OCCURS 2 TIMES.
10 COLA OCCURS 2 TIMES PIC 9.
| Is This Answer Correct ? | 44 Yes | 11 No |
Answer / s
01 grparray.
02 month occurs 12 times index by a1.
03 week pic x(4)occurs 7 times.
| Is This Answer Correct ? | 46 Yes | 19 No |
Answer / varun v
Agree with Ans #1 and #2,
Ans #3 -- Occurs class cannot be at 01 level
| Is This Answer Correct ? | 34 Yes | 10 No |
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..?
| Is This Answer Correct ? | 9 Yes | 2 No |
Answer / jagan
WORKING-STORAGE SECTION.
01 M-GROUP.
02 M OCCURS 6 TIMES.
03 W PIC X(4) OCCURS 4 TIMES.
| Is This Answer Correct ? | 9 Yes | 6 No |
Answer / mic
To Ans # 5 ..
We can initialize an Index By SET INDEX-NAME TO X
| Is This Answer Correct ? | 2 Yes | 2 No |
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).
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / guest
01 items x(10) occurs 10 times
02 sub items pic x(10) 5 times
| Is This Answer Correct ? | 9 Yes | 68 No |
I have dataset DS1 which has records say 1 2 3 4 5 ... ... etc And also I have second dataset DS2 whcih has records 1 3 4 5 6 8 .. ... Both the files are sorted and now I want to compare these files and write it into the third files if the records are matching.
How to execute a set of JCL statements from a COBOL program?
how to transfer the file from pc to mainframe??
Should I use STOP RUN in the sub program??why?
consider the following FD FILE-1 01 REC-1 PIC X(80) ...... WORKING-STORAGE SECTION 01 W-REC PIC X(90) ........ PROCEDURE DIVISION FIRST-PARA ....... READ FILE-1 INTO W-REC AT END MOVE 1 TO EOF-FLAG which of the following is true with respect to the above? a.REC-1 will contain nothing and W-REC will contain the contains of the record read b.REC-1 and W-REC contain the same data c.syntex is invalid and error will occur d.REC-1 and W-REC must be of same size
Can you REWRITE a record in an ESDS file? Can you DELETE a record from it?
6 Answers ABC, IBM, Mphasis, Wipro,
01 var1 pic s9(9)v99. 01 var2 pic x(30). procedure division. move 12345.99 to var1. move12345.99 to var2. display var1. display var2. what is the output?
how we can edit records in vsam data set and non vsam data sets
1)what is use of linkage section? 2)what is difference between comp and comp-3
I have a table with 3 dimensions like this : 01 ws-table 04 ws-page occurs 3 08 ws-column occurs 2. 12 ws-record occurs 20 pic x(40). How to code with PERFORM varying with 3 dimension...I forgot..
What is the significance of the PROGRAM-ID paragraph? If this name doesnt match with the name of the COBOL program, does it make a difference? Is the name specified in the PROGRAM-ID paragraph used as a name for the load module or any such thing?
Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?