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..
Answers were Sorted based on User's Feedback
Answer / lu
you have coding like this :
Working Storage Section.
77 I-page pic 99 value zero.
77 J-col pic 99 value zeroes.
77 K-record pic 99 value zeroes.
Procedure Division.
Perform 1000-move varying I-page from 1 by 1 until
I-page > 3
after J-col from 1 by 1 until
J-col > 2
after K-record from 1 by 1 until
K-record > 20.
1000-move.
move a-field to ws-record (I-page, J-col, K-record).
| Is This Answer Correct ? | 12 Yes | 0 No |
what is the minimum number of lines a Cobol program should have to successfully compile and run
11 Answers ABC, Societe Generale,
How to remove the spaces at the end of each record in the output file of variable length, via cobol program?
If I want to increase the Limit in GDG. What should I do?
i friends greetings to the day...!!! I face a quation like"while runnig the programe every day i have to access the previous day updates only...!! Ex:- Let last day 100 customers took bank account i have to select those customers only.."
can we print comp 3 stmts how ?
How do you do in-line PERFORM?
9(2).99 how many bytes take? Why . consider as a byte?
can we read in input the file with a variable length ? please , how ..could you help me ?
What is the difference between comp and comp-3 usage?
how do you define single dimensional array and multidimensional array in your cobol?
WHY LRECL NEEDS TO BE 4 EXTRA THEN THE COBOL FILE LENGTH & WHAT IT CONTAIN IN THAT LENGTH
How to use the same COBOL program in Batch and CICS on lines? explain with an example