Using the file with U format in the CObol program

emonmisra · New User Joined: 10 Jul 2006 Posts: 7 Location: Bangalore

Hi,

I have on CICS journal file (online). There is one job which downloads the file with U format (Sequential) into the GDG. Now my requirement is to read the records from that GDG write a report as per the logic. I don't know how to read the U format file through COBOL program.

Please help me.

premnath.mls · New User Joined: 16 Aug 2006 Posts: 9

HI..

you need to do the same as you do for 'v' format...i.e., you have specify your logical record length(lrecl) in jcl or 'record contains' in the file section of your program as your (larger record length + 4 bytes).

for e.g.,

if you have various record length as 80 and 60..you have to specify like

file section.
fd file1.
record contains 84.

......please correct me if i was wrong

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

Hi,

Format U recs don't use RDWs so there's no extra bytes required. The drawback is that the data in the block can't be accessed individually as recs in FB and VB files.

You must use record is varying from x to y depending on ws-len.
After each read ws-len will contain the length of the block just read.

If you write a U rec put its length in ws-len before the writ.

premnath.mls · New User Joined: 16 Aug 2006 Posts: 9

hi there,

i am sorry for the wrong answer...and thankyou for your right approach...for the problem stated above..

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

No apology required. We're all trying to be of help. Hopefully, with discussion like this we find the solution.