problem with control card

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1474

Hi All,

I'm having a bit of trouble following this thread, so I'll just make my stmts and maybe Prasad can try it.

Don't know why it's giving you an 0C1/0C4, but if you don't code "BLOCK CONTAINS 0" the compiler assumes unblocked recs (BLKSIZE=LRECL). If your input is blocked your pgm abends. If you're using a "community" PDS, chances are it's blocked. I think that's your problem.

To fix it, code "BLOCK CONTAINS 0".

Regards, Jack.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1474

I forgot to mention that the compiler uses the BLKSIZE from the JCL/Catalog for the file when "BLOCK CONTAINS 0" is used.

Jack.

prasadrachuri · New User Joined: 19 Aug 2003 Posts: 20 Location: kolkata

Hi Jack & Mayuresh,
I'm very Thankful to you both for the effort you are paying to solve my problem.This is looks to be small problem but I need to change all my programs.

Mayuresh I think your right some times it's working fine(very less chances)..But still I'm in confusion why it is not reading the data in the member...???...you have any solution to this...???..I hope I'm not eating your brain..

but Mr.Jack has made me confused ...if u don't mind Mr.Jack can you tell me what is actually "community" PDS means...

Prasad Rachuri

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1474

Hi Prasad,

By "community" I meant any PDS that's used by a group in your shop (application pgmrs, for example) and is usually created by your systems people.

BTW, I may have had it wrong about BLKSIZE = 0 for input files. Since the file already exists, the DCB info is taken from the catalog or label.

The best thing for you to do is show us the JCL, select/assign, FD, OPEN and READ stmts you use to process the file. This might give one of us an insight as to what is going wrong. You may have a rec description that conflicts with the length of the IP rec. It could be anything. That's why the info is important.

BTW2, a U4039 abend in LE Cobol indicates a Return Code 39 after an OPEN. the result of a conflict between the DCB info supplied by your JCL and the DCB info supplied by your pgm. Do you specify a FILE-STATUS for that file?

Jack.