Storing data in cobol array

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Hi,

I have to read an inpu file and need to put some fields in an array. Later I have to read this array and write it to some other file.

I am not how many records will come on dialy basis.

Could some one tell me how to give code to store values in an array?

Bill O'Boyle · Posted: Thu Aug 06, 2009 3:35 pm

What is the LRECL of each record and what would be your estimate of the absolute maximum number of records in the file, also known as a SWAG (Scientific Wild A$$ Guess)?

Bill

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Thanks for reply Bill

LRECL is 133 and record count not more than 1000

Bill O'Boyle · Posted: Thu Aug 06, 2009 3:55 pm

Then you would need an array which has an OCCURS 1000 with each OCCURS (Entry) defined as PIC X(133). You should also define two indices to the array, one for your normal use and one which will contain the maximum number of records.

First, you must set your normal index to zero. To accomplish this in COBOL, set it to one then set it down by one. Now, you're ready to go.

As you read the file and before moving the record to an array-entry occurence, you set the normal index up by one.

When you reach EOF, set the maximum-index to your normal counting-index.

Before reading a record from the array, you must first reset your normal index to one.

After reading the record from the array, when the normal index equals the maximum index, then you're done.

Keep in mind when you're storing each record in the array, if the counting index has exceeded 1000, then you can't continue, because you've run of of array space and you need to modify the program, increasing the OCCURS to a higher value of your choice.

Not too difficult....

Bill

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Thank you for your nice explanation.

If want to read this array and write it to another out file, how can I proceed?

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Bill,

Can you provide any sample code which functions like your explanation.

I am new to development.

Bill O'Boyle · Posted: Thu Aug 06, 2009 4:48 pm

I understand the fact that you are new, but going forward, it would not be a good foundation for you if someone provides code.

This is something that you need to jump into, get your feet wet, learn by your mistakes and work your way through all what is programming.

We all had to do it this way.

Is there a more Senior colleague with whom you can consult with?

Bill

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

No. I was the only guy working on this item.

Thanks for your help. I like your energy.

Terry Heinze · Posted: Thu Aug 06, 2009 9:34 pm

As Bill suggests, jumping in and learning by mistakes is oftentimes the most effective way of learning. Since you are new, here's some pseudocode to get you started in transfering your COBOL table (array) to your output file:

Ketan Varhade · Posted: Fri Aug 07, 2009 8:39 am

Hi
SET ix TO 1

PERFORM 0000-para until EOF-IP

0000-para
READ ip-file INTO ip-rec

MOVE ip-rec TO array[IX]

Do this in the loop

While writing just process them and then simply write the records.

Hope this help

Ketan

dick scherrer · Posted: Fri Aug 07, 2009 8:45 am

Hello,

If this suggestion is followed, only 1 entry in the array will receive data. . .

Ketan Varhade · Posted: Fri Aug 07, 2009 8:56 am

Sorry I forgot to inccrement the counter .

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Thank you for your suggestions

I will try doing this

dick scherrer · Posted: Fri Aug 07, 2009 9:33 am

Hello,

If there are questions/problems while working on the code, reply here and someone will be able to help.

Good luck

Terry Heinze · Posted: Fri Aug 07, 2009 9:38 am

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Hello,

My array is succesfully working.

While doing that I obsereved a new thing.

0130-WRITE-AFILE.
MOVE FLFR-IN-REC TO FLFR-DMV-OUT-REC.
WRITE FLFR-DMV-OUT-REC.

my code is like this. When I tried to display 'FLFR-DMV-OUT-REC', in spool nothing is coming but records are written to output file.
But display FLFR-IN-REC is diplaying the whole record properly.

How come this?

Binop B · Posted: Fri Aug 07, 2009 12:35 pm

Hi Prasad,

From my part... Welcoming you to the forum...

Could you be a little more specific on what your clarification is ?

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

FILE SECTION.
.
.
.
DATA RECORDS ARE FLFR-IN-REC.
01 FLFR-IN-REC.
COPY FLFRREC.

0130-WRITE-AFILE.
MOVE FLFR-IN-REC TO FLFR-DMV-OUT-REC.
WRITE FLFR-DMV-OUT-REC.
PERFORM 0140-STORE-FLFRFL-IN-ARRAY.
DISPLAY 'PRASAD=' FLFR-DMV-OUT-REC.

This is not working

DISPLAY 'PRASAD=' FLFR-IN-REC.

This working

Working means, in either of the cases output file is updated properly, but problem is with dislay

dbzTHEdinosauer · Posted: Fri Aug 07, 2009 1:33 pm

had you bothered to search this forum or RTFM you would have know that
after a WRITE, the FD record area nolonger points to the same address as before the WRITE.

and before you ask, 'duh, what do you mean', suggest that you do a little research.

Terry Heinze · Posted: Fri Aug 07, 2009 6:35 pm

As Dick mentioned, the record area in your FD is no longer available to you after the WRITE statement. If you relocate your DISPLAY statement from after the WRITE to before the WRITE, your DISPLAY statement should work okay. It will pay in the long run to become intimately familiar with both the Language Reference Manual and Programing Guide.

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

Yes Terry and Dick, I saw it's working

Thank you

Bill O'Boyle · Posted: Fri Aug 07, 2009 7:15 pm

Sometime in the future, if you are feeling more confident with your skills -

www.ibmmainframes.com/viewtopic.php?p=176368&highlight=#176368

Bill

PPRASAD2 · New User Joined: 06 Aug 2009 Posts: 21 Location: chennai

hey

Is any thing wrong in my code?
FD REPORT-FILE
RECORD CONTAINS 149 CHARACTERS
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
DATA RECORDS ARE REPORT-RECORD.
01 REPORT-RECORD.
05 MOBIUS-DETAIL-LINE.
.
.
.
.

SET AI TO 1.
PERFORM 0180-PRINT-HEADING.
PERFORM 0170-READ-ARRAY VARYING AI FROM 1 BY 1 UNTIL
AI > 1000.
.
.
.
.
0170-READ-ARRAY.

MOVE FILING-DETAILS-TABLE(AI) TO REPORT-RECORD.
MOVE REPORT-DETAIL-LINE-CC(AI) TO MOBIUS-DETAIL-LINE.
MOVE REPORT-DETAIL-SYMBOL(AI) TO MOBIUS-DETAIL-SYMBOL.
MOVE REPORT-DETAIL-NUMBER(AI) TO MOBIUS-DETAIL-NUMBER.
WRITE REPORT-RECORD.

when I display array contents , it is displaying properly but in out put records are not coming

Terry Heinze · Posted: Sat Aug 08, 2009 1:12 am

You need to show us the definition of your COBOL table and tell us whether or not you are checking the file status of all file I-O including the WRITE statement and what you mean by

sasikumar1984 · Posted: Sun Aug 09, 2009 7:31 am

Prasad,

I doubt with your array declaration for the above problem. Can you post the array declaration here...?

Also your performing the loop until AI reaches 1001 (atleast 1000 times). since your loading the array using your input file, load the array until end of file and keep increament some counter(declare some counter variable) for each read of your i/p file, then at end of last recod your counter will be having total number of record that your i/p file have. Then you can perform the array as below

PERFORM 0170-READ-ARRAY VARYING AI FROM 1 BY 1 UNTIL
AI > 1000 or AI > your-counter-variable

or

PERFORM 0170-READ-ARRAY VARYING AI FROM 1 BY 1 UNTIL
AI > your-counter-variable