cobol program to handle files having different LRECL

ABaluchamy · New User Joined: 29 Dec 2006 Posts: 34 Location: INDIA

Hi,

Can any 1 help me regarding this.. i want to write a cobol program to handle files having different LRECL...

Here is a scenario..
thr r 3 input files of LRECL(80,120,400)
If any one is given to input, the program should process thru fine..

Thanks in advance..

Anand B

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

Search for
RECORD CONTAINS 0 CHARACTERS...

P.S.: please don't use SMS style... take your time to write and expose your problem...

William Thompson · Posted: Thu Feb 15, 2007 6:16 pm

OK, we have the LRECL, what is the RECFM and BLKSIZE of each?

Bitneuker · Posted: Thu Feb 15, 2007 7:15 pm

Why not treat them as one file (concatenate) with the largest lrecl defined in the fd. Make sure the largest bklsize is the first in the concatenation.

prav_06 · Posted: Fri Feb 16, 2007 10:40 am

ABaluchamy,

Have u ever heard of muliple record length lay out files, the requirement of your's is pertaining to that, but by this process u can only give input as one file with the maximum record length (400 in your case), u can write the records which has lrecl as 80 an 120 in the same file but in different record structures, but u should be having a common key field which is common for all the three files, say for example

ABaluchamy · New User Joined: 29 Dec 2006 Posts: 34 Location: INDIA

If you test the 'file status' field you can control if the program should abend. I have many programs that read different LRECL files from one DD by doing an open and then testing for a file status of 39. if I get a 39, I close that FD and open it under another FD in the program and so on.(I know that I could possibly read up to X different LRECL files fo I code an FD for each.) used to be a time when you could do a nagative subscribt on the record (start of record minus 4) and get the record length in COBOL.

William Thompson · Posted: Fri Feb 16, 2007 6:24 pm

prav_06 · Posted: Fri Feb 16, 2007 8:41 pm

BaluChamy,
Kindly create the file in the JCL with a lrecl of 404 if ya having 400 bytes of data, I guess the abend would have been S0C4, try these parameters,

dcb=(lrecl=404,blksize=4040,recfm=vb,dsorg=ps)

FS 39 would be for the mismatch lrecl b/w the logical file and the physical file, and that x-tra 4 bytes allocation is for the system to store the length of each and every record.

Thamilzan.

dick scherrer · Posted: Sat Feb 17, 2007 1:42 am

Hello,

If the files already exist and are of fixed length you cannot just specify VB and hope it will work when you try to read them.

Please look at your 3 files and post the actual dcb attributes for each.

How large are these files? If they are not very large, i can offer a workaround.

When you are reading the data, how do you know if the data is from an 80, 120, or 400 byte record. Given that they are of different lengths, the code will have to know which is being processed.

All of the conversation about "file status" will not help you process the file(s) - it may help you know if you had an error.