Hola foro,

os envío los mensajes que me está dando un "poltergeist" que tengo desde
hace un par de días y que soy incapaz de encontrarle la causa.

El error se produce al paginar un subarchivo. Inicialmente se me posiciona
en la pantalla del último registro grabado, corréctamente, y al pulsar
RetrocesoPágina es cuando se produce el error.

SFLSIZ(9999)
SFLPAG(0013)
Se graban 48 líneas. Por lo que se posiciona el la cuarta pantalla, y
"peta" cuando retrocedo a la tercera.
(Después de contestar el mensaje, se ve medio segundo la tercera pantalla)

La gestión del Avance/Retroceso Página la dejo al sistema. No utilizo
ROLLUP.

Como dato curioso os diré que solo me pasa con la emulación ClientAccess.
Si ejecuto el programa con Mocha no se produce. (?)

Trabajo en V4R5, pero también se produce en V5R4.

La pantalla está compilada con RSTDSP(*YES)
No tengo ni de lejos 256 campos en el archivo, y mucho menos en los
formatos de control/subarchivo.

He revisado todos los campos de los formatos de control y subarchivo, así
como como el SFLRCDNBR y la variable de programa que lo actualiza. No hay
ninguna variable numérica con datos no numéricos, ni alfanumérica con
caracteres no alfanuméricos.

He quitado algunos colores que tenía supeditados a indicador.


ID de mensaje  . . . . :   CPF5192

Fecha de envío . . . . :   27/09/13      Hora de envío  . . . . :
13:30:16


Mensaje . . . . :   Los datos enviados al dispositivo SCDEV03 no son
válidos.
  El código de respuesta negativo es 10050129.



Causa . . . . . :   La condición se debe a que los datos de salida del

  programa contienen valores menores que hex 40 o demasiados campos de

  entrada. Se puede encontrar más información sobre códigos de respuesta

  negativos en la publicación IBM 5494 Remote Control Unit Functions
Reference
  (bajo el apartado respuestas negativas) o en el Manual de Formatos SNA
(bajo
  los códigos SENSE o LUSTAT). Pueden haberse producido datos no válidos

  (inferiores a hex 40) de una de las siguientes formas:

    Se han pasado datos de parámetro no válidos en una variable al programa
de
  lenguaje de control. La variable se utiliza en el mandato SNDPGMMSG. Se

  produce un error en el mandato al visualizar los datos.

    Se han entrado caracteres hexadecimales inferiores al hex 40 en el

  parámetro TEXT del mandato crear. Se produce un error en el mandato para

  visualizar el objeto al tratar de visualizar los parámetros del objeto.

    El programa de aplicación visualiza un registro de base de datos que

  contiene datos no válidos.

    No se ha especificado RSTDSP(*YES) cuando se alternan pantallas de más
de
  un archivo para el dispositivo, donde ambos archivos tienen campos de

  entrada.

Recuperación. . :   Corrija el programa o los datos de salida. Vuelva a

  intentar el mandato. Si el problema se produce de nuevo, introduzca el

  mandato ANZPRB para ejecutar el análisis del problema.


**************************************************************************************

ID de mensaje  . . . . :   LBE7200

Fecha de envío . . . . :   27/09/13      Hora de envío  . . . . :
13:30:17


Mensaje . . . . :   Mensaje CPF5192 en CRAITPRC en AMODPTF (C D F G).



Causa . . . . . :   Se detectó el mensaje CPF5192 en la instrucción COBOL
.GET
  (instrucción MI 32D5) en el programa CRAITPRC de AMODPTF.

Recuperación. . :   Introduzca una G para continuar el programa en la

  siguiente instrucción MI, o una C si no se desea vuelco, una D si se
desea
  un vuelco de los identificadores COBOL, o una F para volcar los

  identificadores COBOL y las variables generadas por el compilador. Este
es
  el texto de mensaje para CPF5192: Los datos enviados al dispositivo
SCDEV03
  no son válidos. El código de respuesta negativo es 10050129.

Elecciones posibles de respuesta al mensaje. . . . . . . . . . . . . . :

  C -- No se da ningún vuelco con formato

  D -- Se da un vuelco de los identificadores COBOL





Aunque mi religión me lo prohíbe, prometo rezar por el alma inmortal de
quien sepa de que va esto.

Saludos
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a