IBM Mainframe Forum

cannot figure out why I got this error message on an abend:

.START ERROR ON TIN-RATE FILE
.TIN-RATE STATUS = 47

I opened the file with this code and did not get an error so I know the file is open as input:

OPEN INPUT TIN-RATE-FILE

IF TIN-RATE-STATUS NOT = '00' AND '97'
DISPLAY 'OPEN ERROR ON TIN-RATE-FILE'
DISPLAY 'TIN-RATE-STATUS = ' TIN-RATE-STATUS
CALL ABEND200.

But this section of code gives the error.
START TIN-RATE-FILE
KEY NOT < TIN-RATE-KEY.

IF TIN-RATE-STATUS NOT = '00' AND NOT = '23'
DISPLAY 'START ERROR ON TIN-RATE FILE'
DISPLAY 'TIN-RATE STATUS = ' TIN-RATE-STATUS
CALL ABEND200.

Any ideas?

Since you're not posting actual code, does that mean we don't have to provide actual answers?

A 47 means the file is not open when you did the START. This could be due to your program having bad logic, or your program falls through a paragraph and attempts to execute the start after the file is closed, or who knows why -- we simply don't have enough information to provide anything but guesses.

However, believe the computer when it issued the 47 file status code -- the file is not open, period.

Hi there

If you want to ask a question, please start a new topic in an appropriate forum here.