Interested to Buy Any Domain ? << Click Here >> for more details...
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..
- 2 Answers
- 6532 Views
- EDS, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
What is redefines clause in COBOL?
What is link edit in cobol?
How do get the result of your program directly on your pc?
What are the different rules of SORT operation?
Difference between array and sub-script ?
what is difference between cobol and cobol/400
What is the difference between PIC 9.99 and PIC9v99?
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array.
What is inspect in cobol ?
i was faced one question- i have value -00001234.56 Suppress the zeroes and the output should be -1234.56 But Not - 1234.56 spaces should not be available after suppressing the zeroes. logic in jcl and cobol?
how do you reference the printer file formats from cobol programs
Difference between cobol and cobol-ii?
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
What is Pic 9v99 Indicates in COBOL?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
