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
- 6327 Views
- EDS, I also Faced
- E-Mail Answers
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 |
For rewrite, why is it mandatory that file needs to be opened?
what is rediffine clause?in what situation it can use?give me real time example?
What is the difference between a DYNAMIC and STATIC call in COBOL?
How do you get the data to code the BMS macro?
Hi................... I have records like this aaaa cccc bbbb And i want output like this bbbb cccc aaaa How can it possible ?. Note:Please make sure records are in unsorted order. somebody plzzz help me.
What does the initialize statement do ?
if you give cylinder(1,1)how many cylinders it will be allocate?
What is the LINKAGE SECTION used for?
What is the difference between SEARCH and SEARCH ALL? What is more efficient?
What is the difference between a binary search and a sequential search?
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?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
COBOL 
