Interested to Buy Any Domain ? << Click Here >> for more details...
How do you define a table/array in COBOL?
- 5 Answers
- 31264 Views
- Hexaware, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / dipak chowdhury
01 tab
02 OC-TAB.
05 FILLER PIC 9(10) VALUE 0102001002.
05 FILLER PIC 9(10) VALUE 0202001002.
05 FILLER PIC 9(10) VALUE 0302001073.
05 FILLER PIC 9(10) VALUE 0402001002.
05 FILLER PIC 9(10) VALUE 0502001002.
05 FILLER PIC 9(10) VALUE 0602001002.
05 FILLER PIC 9(10) VALUE 0702001002.
05 FILLER PIC 9(10) VALUE 1004301024.
05 FILLER PIC 9(10) VALUE 1102001002.
05 FILLER PIC 9(10) VALUE 1202001002.
05 FILLER PIC 9(10) VALUE 1302001002.
05 FILLER PIC 9(10) VALUE 1602001002.
05 FILLER PIC 9(10) VALUE 3101899012.
05 FILLER PIC 9(10) VALUE 4102001002.
05 FILLER PIC 9(10) VALUE 4402001002.
05 FILLER PIC 9(10) VALUE 5002001002.
05 FILLER PIC 9(10) VALUE 5102001002.
05 FILLER PIC 9(10) VALUE 5302101020.
05 FILLER PIC 9(10) VALUE 5502101003.
05 FILLER PIC 9(10) VALUE 5402101001.
05 FILLER PIC 9(10) VALUE 5602001029.
05 FILLER PIC 9(10) VALUE 5702001017.
05 FILLER PIC 9(10) VALUE 5902001021.
05 FILLER PIC 9(10) VALUE 6302001029.
05 FILLER PIC 9(10) VALUE 6502101001.
05 FILLER PIC 9(10) VALUE 6902001029.
05 FILLER PIC 9(10) VALUE 7402001002.
05 FILLER PIC 9(10) VALUE 9902001002.
02 OC-TABR REDEFINES OC-TAB OCCURS 28 TIMES
indexed by t.
05 OC-CDT PIC 99.
05 OC-FCD-AAA PIC 9(5).
05 OC-FCD-BB PIC 999.
| Is This Answer Correct ? | 34 Yes | 8 No |
Answer / anil prajapati
Table/array can be defined in cobol by using occurs with
times clause
like
working-=storage section.
01 tab1 value 'anilkumarprajapati'.
03 tab2 pic x(3) occurs 6 times indexed by i.
procedure division.
display tab2(i).
stop run.
output will be dsiplayed like
ani
lku
....
| Is This Answer Correct ? | 23 Yes | 9 No |
Answer / thaya
To define a table use occur clause ..
01 WT-TABLE-DATA.
03 WT-TAB-PARM OCCURS 99 TIMES
INDEXED BY WT-TAB-IDX.
05 WT-TAB-PARMREC.
10 TBL-PARM-UPDT-CD PIC X(02).
10 FILLER PIC X(01).
10 TBL-STATUS-FLAG PIC X(01).
10 FILLER PIC X(76).
we can use "depending on" keyword with occure clause to
limit our occurences in output.
| Is This Answer Correct ? | 17 Yes | 3 No |
Answer / sudheer
To define a table use occur clause ..
01 WT-TABLE-DATA.
03 WT-TAB-PARM OCCURS 99 TIMES
INDEXED BY WT-TAB-IDX.
05 WT-TAB-PARMREC.
10 TBL-PARM-UPDT-CD PIC X(02).
10 FILLER PIC X(01).
10 TBL-STATUS-FLAG PIC X(01).
10 FILLER PIC X(76).
| Is This Answer Correct ? | 10 Yes | 2 No |
Answer / mojib khan
To define a table using occurs clause..
working -storage section.
01 table.
*for one dimensional array
02 table-name pic size() occurs n times.
03 field1-name pic size.
03 field2-name pic size.
.......
........
........
03 fieldn-name pic size.
| Is This Answer Correct ? | 7 Yes | 2 No |
how do u link sub pgm to main pgm ?
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
diffrence between renames and redifnes with examples
OCCURS clause is used in the DATA DIVISION on data names at (a) 01 level (b) 77 level (c) 88 level (d) any level from 02 to 49
How can you pass values from COBOL program to non-COBOL programs?
What will happen if we move SPACES to numeric field and ZEROES to alphabetic field?
How do get the result of your program directly on your pc?
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 are difference organizations in cobol and access mode in cobol? can you expalin what organization means while declaring for ksds,esds,rrds?
01 x pic s9(8) comp. How will the following value be internally allocated '18787'
what is sort? whis is internal & external sort ?when do u go for inter sort & external sort? tell about some sort utilites?
I want to declare a field with data type Double in my COBOL program. how shall i do that ?
COBOL 
