raise de errores por el usuario

Todo lo relacionado al CICS .
Responder
Cantero
Usuario
Usuario
Mensajes: 1
Registrado: 05 Jul 2014, 15:34
País: ecuador
Ciudad: guayaquil
Ocupación: Analista de desarrollo

raise de errores por el usuario

Mensaje por Cantero » 05 Jul 2014, 17:37

Necesito generar de manera controlada errores como notfnd, dupkey, etc. Algo similar al exec cics abend..
Tengo una versión de la solución usando archivos y provocando las condiciones. Pero me gustaría hacerlo con comandos.
Gracias.

Avatar de Usuario
Vicente
Colaborador avanzado
Colaborador avanzado
Mensajes: 543
Registrado: 21 Jul 2011, 04:52
País: España
Ciudad: Malaga
Ocupación: Técnico en Sistemas

Re: raise de errores por el usuario

Mensaje por Vicente » 07 Jul 2014, 06:43

Hola:
Si está programando en Cobol puedes utilizar el FILE STATUS y analizar la STATUS KEY.
Saludos
Varios días probando, equivocandote y volviendo a probar
pueden ahorrarte quince minutos de lectura de un manual.

jmhuerta
Usuario
Usuario
Mensajes: 11
Registrado: 20 Mar 2012, 21:18
País: mexico
Ciudad: mexico
Ocupación: Ingeniero de procesos

Re: raise de errores por el usuario

Mensaje por jmhuerta » 12 Jul 2014, 10:12

Con un ejemplo de lo que necesitas te podríamos entender mejor.

Avatar de Usuario
maiz2005
Colaborador
Colaborador
Mensajes: 182
Registrado: 14 Sep 2005, 17:51
País: España
Ciudad: Barcelona
Ocupación: System Programmer
Ubicación: Barcelona, España

Re: raise de errores por el usuario

Mensaje por maiz2005 » 16 Jul 2014, 04:51

Hola, por lo poco que entiendo a lo que pides es validar errores en Cobol, pero si es BATCH el programa tienes
que usar algo parecido:

ID DIVISION.
PROGRAM-ID. xxxxxxxxx.

INPUT-OUTPUT SECTION.
FILE-CONTROL.

SELECT fichero1 ASSIGN TO SYS004-DA-3390-SOCIOS
FILE STATUS is STATUS-fichero1
ORGANIZATION IS ..
ACCESS MODE IS ...
RECORD KEY IS ...

SELECT fichero2 ASSIGN TO SYS005-DA-3390-VENTAS.
SELECT fichero2 ASSIGN TO SYS006-UR-3203-S.

DATA DIVISION.
FILE SECTION.

FD fichero1
LABEL RECORDS ARE ...
RECORD CONTAINS ....
BLOCK CONTAINS ...
DATA RECORD IS ...

WORKING STORAGE SECTION.
01 STATUS-fichero1 PICTURE 99 VALUE ZEROS.

PROCEDURE DIV..

OPEN I-O fichero1
INPUT fichero2
OUTPUT fichero3.

IF STATUS-fichero1 EQUAL = xx THEN
....
ELSE
...
END

...
...
..

STOP RUN

SAludos
Mario Izaguirre
Tecnico de Sistemas
IBM z/Series

Responder