Temando un párrafo que yo uso, aunque no es completo pero sí lo mas usual.
ESTADO-W es la variable asignada al FILE STATUS, ARCHIVO-W es el nombre
del archivo que estoy usando en ese momento:
MUESTRO-ERROR.
MOVE SPACES TO LEYENDA.
MOVE "ERROR NO DEFINIDO" TO CARTEL-1.
IF ESTADO-W = "99"
MOVE "REGISTRO EN USO" TO CARTEL-1.
IF ESTADO-W = "30"
MOVE "ERROR PERMANENTE " TO CARTEL-1.
IF ESTADO-W = "35"
MOVE "ARCHIVO NO EXISTE " TO CARTEL-1.
IF ESTADO-W = "37"
MOVE "MODO OPEN NO EXACTO" TO CARTEL-1.
IF ESTADO-W = "38"
MOVE "CERRADO CON LOCK " TO CARTEL-1.
IF ESTADO-W = "39"
MOVE "ATRIBUTOS INCOMPAT." TO CARTEL-1.
IF ESTADO-W = "41"
MOVE "ARCHIVO YA ABIERTO " TO CARTEL-1.
IF ESTADO-W = "42"
MOVE "ARCHIVO NO ABIERTO " TO CARTEL-1.
IF ESTADO-W = "43"
MOVE "FALTA READ PREVIO " TO CARTEL-1.
IF ESTADO-W = "44"
MOVE "LONGITUD REGISTRO " TO CARTEL-1.
IF ESTADO-W = "46"
MOVE "LECTURA IMPOSIBLE " TO CARTEL-1.
IF ESTADO-W = "47"
MOVE "LECTURA NO PERMITIDA" TO CARTEL-1.
IF ESTADO-W = "48"
MOVE "GRABACION NO PERMIT." TO CARTEL-1.
IF ESTADO-W = "49"
MOVE "DEBE ABRIRSE EN I-O" TO CARTEL-1.
IF ESTADO-W = "93"
MOVE "ARCHIVO LOCKEADO " TO CARTEL-1.
IF ESTADO-W = "94"
MOVE "MEMORIA INSUFICIENTE" TO CARTEL-1.
IF ESTADO-W = "98"
MOVE "ARCHIVO DA¥ADO " TO CARTEL-1.
MOVE ARCHIVO-W TO CARTEL-2.
DISPLAY LEYENDA LINE 24 POSITION 20 CONTROL COLOR-4.
ACCEPT LETRA LINE 24 POSITION 79.
DISPLAY SPACES LINE 24 POSITION 20 SIZE 40
CONTROL COLOR-1.
END DECLARATIVES.
