Not getting file status for sequential files in easytrieve
Posted: Wed May 25, 2016 7:42 pm
Not getting thefile status for the sequential files in easytrieve?
below is my code
//STEP1 EXEC PGM=EZTPA00,COND=(0,NE)
//STEPLIB DD DSN=EZTP.CAILIB,DISP=SHR
//PDS DD DSN=AVPS.PROD.EZT.CPYLIB,DISP=SHR
//NEW DD DSN=AVPS.AY.VOUOUT.SE,DISP=SHR
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD *
*
FILE NEW
NEW-SEQ 1 154 A
NEW-MAIL-CODE 1 3 A
*
WS-CHECK W 1 A
JOB INPUT NEW
IF NEW:FILE-STATUS NE 0
DISPLAY 'NEW FILE IS NOT ABLE TO OPEN'
ELSE
DISPLAY 'WS-CHECK....' WS-CHECK
END-IF
STOP
below is my code
//STEP1 EXEC PGM=EZTPA00,COND=(0,NE)
//STEPLIB DD DSN=EZTP.CAILIB,DISP=SHR
//PDS DD DSN=AVPS.PROD.EZT.CPYLIB,DISP=SHR
//NEW DD DSN=AVPS.AY.VOUOUT.SE,DISP=SHR
//EZTVFM DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSIN DD *
*
FILE NEW
NEW-SEQ 1 154 A
NEW-MAIL-CODE 1 3 A
*
WS-CHECK W 1 A
JOB INPUT NEW
IF NEW:FILE-STATUS NE 0
DISPLAY 'NEW FILE IS NOT ABLE TO OPEN'
ELSE
DISPLAY 'WS-CHECK....' WS-CHECK
END-IF
STOP