rewriting a variable length record

gneelu · New User Joined: 26 May 2006 Posts: 18

I am facing problem while rewriting a variable length record file.

It has been successfully rewriting the file, but when I open the file in View or Browse mode it is giving I/O reading error.

Regards
Neelu

Anuj Dhawan · Posted: Tue Dec 04, 2007 7:10 pm

Hi,

How are you re-writing, what's the DCB of output file. Please share your JCL with us.

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi Anuj,

THis is my JCL

In cobol program first i am writing header, detail records and trailer into the file. and after that i am rewriting the header record

//PSTEP010.OUTFILE DD DSN=ATG.WORK.OUTFILE,
// DISP=(NEW,CATLG,DELETE),UNIT=(SYSDA,5),
// SPACE=(CYL,(1,1),RLSE),
// DCB=(RECFM=VB,LRECL=504,DSORG=PS)

agkshirsagar · Posted: Wed Dec 05, 2007 11:03 am

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi,

The job is getting executed successfully, and if i open the file in browse mode then i am able to see the header record which i have rewrited, and the remaining records are getting displayed

H!948!00000015!05122007!
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
**************** * * * I/O error detected, I/O terminated * * * ****************
Regards
G Neelaveni

dbzTHEdinosauer · Posted: Wed Dec 05, 2007 12:25 pm

you might try adding a block size equals 0 parm in your dcb.

do you have a blocksize phrase in your cobol program? if so, insure that it is also 0.

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi Dick,

I have tried by adding a block size equals 0 parm in dcb then also i am getting same problem

Regards
G Neelaveni

Anuj Dhawan · Posted: Wed Dec 05, 2007 1:11 pm

Hi,

By the way you didn't answer the Abhijit's question, that might help us to know, what your COBOL program is doing with the o/p file?

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi,

I am writing the records into the file, which contains header,detail records and trailer record. and after that i need to display the count fo the records in the header for that reason i am rewriting the header.

Regards
G Neelaveni

dbzTHEdinosauer · Posted: Wed Dec 05, 2007 1:24 pm

how are you positioning your record pointer in your cobol program to re-write the header?

Select, FD, cobol code for 'all' the I/O for this file, please.

wicked1925 · Posted: Wed Dec 05, 2007 1:26 pm

i think there is something wrong on how you are writing the record. you can post your cobol code here for further investigation.

-wicked

gneelu · New User Joined: 26 May 2006 Posts: 18

Hi,

please find the code

SELECT OGFPFEED ASSIGN TO OGFPFEED
FILE STATUS IS WS-OGFPFEED-STATUS.

FD OGFPFEED
LABEL RECORDS ARE OMITTED
RECORD IS VARYING IN SIZE
FROM 1 TO 660 CHARACTERS
DEPENDING ON WS-CSV-REC-LENGTH
RECORDING MODE IS V
DATA RECORD IS OGFPFEED-REC.
01 OGFPFEED-REC PIC X(660).

FOR REWRITING

READ OGFPFEED INTO WS-OGFPFEED-HDR

IF WS-OGFPFEED-HDR-REC-TYPE = 'H'

MOVE WS-LINE-NUM TO WS-OGFPFEED-HDR-TOT-REC-CNT
STRING WS-OGFPFEED-HDR-REC-TYPE DELIMITED BY SIZE
WS-SYMBOL DELIMITED BY SIZE
WS-OGFPFEED-HDR-PROCESS DELIMITED BY SIZE
WS-SYMBOL DELIMITED BY SIZE
WS-OGFPFEED-HDR-TOT-REC-CNT DELIMITED BY ' '
WS-SYMBOL DELIMITED BY SIZE
WS-OGFPFEED-HDR-FILE-CRE-DT DELIMITED BY SIZE
WS-SYMBOL DELIMITED BY SIZE
INTO WS-RECORD-SEARCH-REC

PERFORM UNTIL WS-CSV-SUB < 1
OR WS-FOUND-SPACE-FLAG = 'Y'
IF WS-RECORD-SEARCH-CHAR (WS-CSV-SUB) NOT = SPACES
MOVE 'Y' TO WS-FOUND-SPACE-FLAG
MOVE WS-CSV-SUB TO WS-CSV-REC-LENGTH
END-IF
SUBTRACT 1 FROM WS-CSV-SUB
END-PERFORM

MOVE WS-RECORD-SEARCH-REC TO WS-OGFPFEED-HDR

REWRITE OGFPFEED-REC FROM WS-OGFPFEED-HDR

Thanks & Regards
G Neelaveni

agkshirsagar · Posted: Thu Dec 06, 2007 2:01 pm