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..
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
can you please let me know if there is any walkins for COBOL/PLI/DB2/IMS/JCL in pune other than IBM and ITC infotech
Write down the divisions of cobol program?
What is a SSRANGE and NOSSRANGE?
If you are current on the owner of a set, what is the difference between an obtain next and obtain first? Actually in which topic will we use dis???Plz explain it clearly
i made it to stage 3 of an interview process wednessday they will quiz my knowledge again face to face for an analyst role recruiter said it will be based on Business requirements system is cobol and good ideas what they might ask etc
Write a program to explain size error.
how do you reference the esds vsam file formats from cobol programs
What is the difference between a binary search and a sequential search? What are the pertinent cobol commands?
how do you reference the variable unblock file formats from cobol programs
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?
can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
Is it possible that the redefines clause has different picture clauses compared to the one it redefined?
What are the pertinent COBOL commands?
Have you used comp and comp-3 in your project? And how?