Cobol - file status 9

   
Vista:

file status 9

Publicado por GASTON (2 intervenciones) el 28/07/2008 17:40:40
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:file status 9

Publicado por SuperIndio (138 intervenciones) el 28/07/2008 18:54:11
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:file status 9

Publicado por GASTON (2 intervenciones) el 28/07/2008 19:55:32
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar