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
Our issue is there seems to be a disconnect, or no link, between our SELECT statement and our SD. We had SELECT SORT-FILE and SELECT SORT-FILE ASSIGN TO SORTWRK. ASSIGN TO SORTWRK1 SORTWRK2 SORTWRK3 SORTWRK4. with SD SORT_FILE RECORD CONTAINS 7833 CHARACTERS. In either case, at run time, the system ignored our SORTWRK# DD statements and allocated 16 sort works with the SORTWK## naming convention. Any ideas why the system does not recognize the connection? We do not even need the SORTWRK DD statements. Thanks
how do you reference the fixed unblock file formats from cobol programs
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
HOw can I get the negative sign while deduct high value from low value
Name the divisions, which are available in a cobol program?
How to use the same COBOL program in Batch and CICS on lines? explain with an example
what happens if parmparameter passes zero bytes to the program
what are decleratives in cobol?
What is the difference between Global and External Variables?
What is amode(31)
Difference between array and sub-script ?
What are the different rules for performing sort operation?
What is rmode(any) ?
i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this