Cobol - file status 9

hola tengo un problema al evaluar el file status 09 (no existe el directorio)

el problema es que en el file status no me aparece como 09 sino como 9□ ¿como hago para avaluarlo ? ya que si es eso tengo que mandar un mensaje diciendo que ingrese bien el directorio

desde ya gracias

Es que en realidad no es 09 sino 9X en donde X puede ser 'A', 'B' etc etc
el mas conocido es 9A que ocurre cuando queres abrir un archivo corrupto o
en directorio inaccesible. Sugiero 2 formas

(1)
EVALUATE FILESTATUS
WHEN 00 SET IS-OK TO TRUE
WHEN 35 SET IS-FILE-NOT-EXISTE TO TRUE
WHEN 37 SET IS-OPEN-BAD-MODE TO TRUE
WHEN 38 SET IS-FILE-LOCKED TO TRUE
WHEN OTHERWISE
SET IS-CRITICAL-ERROR TO TRUE (SALDRA POR AQUI)
PERFORM MESSAGE-TO-SREEN
END-EVALUATE

(2) Esta es la mejor
01 FileStatus PIC X(02) VALUE "00".
01 R-FileStatus REDEFINES FileStatus
03 R-Status-Parte1 PIC X(01).
03 R-Status-Parte2 PIC X(01).

Luego cuando Ocurre FileStatus=9X pregunto:

IF R-Status-Parte1='9'
SET IS-DIR-NOT-EXIST TO TRUE
PERFORM MESSAGE-TO-SREEN
END-IF

Saludos

gracias me funciono bien, pero habia que tener en cuenta que si venia otro error que empezaba con 9 me entraba ahi, pero lo solucione
gracias