MVSFORUMS.com

[issac1029]

Hi,
SELECT xxxASSIGN TO xxx1
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS W-xxx-STS.

If I do not write this 'file status is' W-xxx-STS.can W-xxx-STS get the value from operation of a file?

example,
//OUTA OUTPUT OUTDISP=(WRITE,HOLD)
//BANK OUTPUT OUTDISP=WRITE
//CMPRT01 DD SYSOUT=&OC,OUTPUT=(*.OUTA)
//CMPRT02 DD SYSOUT=&OC,OUTPUT=(*.BANK)
//CMPRT03 DD SYSOUT=&OC,OUTPUT=(*.OUTA)

SELECT PRNFILE1 ASSIGN TO CMPRT01.

OPEN OUTPUT PRNFILE1.
IF NOT(W-PRNFILE1-STS = '00' OR = '97')
MOVE 1 TO W-ERR-CODE
MOVE 'REPORT FILE OPEN ERROR' TO W-ERROR-MSG
PERFORM 1090-ERROR THRU 1090-ERROR-EXIT
GO TO 990-OPEN-EXIT
END-IF.

is this right?I think even it's a printer ,it should be give the status inditor to W-PRNFILE1-STS in select casue,then can use it,am I right?

[pzmohanty]

Hi issac1029,

Before using a FILE-STATUS variable , there are 2 preconditions :-
a) The FILE-STATUS varibale must be made associated with corresponding file in ENVIRONMENT DIVISION using :