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
- 6429 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
How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?
Which is not true about evaluate statement
example for sub strings ? and refernce modifications whit output pls
How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?
What is Pic 9v99 Indicates in COBOL?
What is a scope terminator give example?
How to traceback if I am getting SOC7 or SOC4 abend? List down the steps
Can a Search can be done on a table with or without Index?
how to access the file from prodution from changeman tool and to submit a file to production
How do you reference the following file formats from cobol programs?
Define cobol?
In COBOL, what is the different between index and subscript?
Write the code implementing the perform … varying.
What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?
Explain the configuration section of a cobol program with examples of syntax.
