Perdón, pero me había olvidado comentar que en el mismo archivo tengo otro
subfichero definido a 12 líneas por pantalla.


El 30 de septiembre de 2013 12:59, FB FB <[email protected]> escribió:

> Hola chicos, os cuento como me ha ido (al final lo he solucionado).
>
> Jorge.
> Sobre cambiar el ClientAcces, ni me lo planteo porque las versiones
> posteriores (al menos las que tengo), cambian los parámetros de los
> ficheros de spool y pierdo la gestión de los mismos desde el Navigator
> (peta). Además lo he probado con la versión 5.8 y ocurre lo mismo.
>
> Sergio
> Lo que hago es mover el número relativo del registro sobre el que estoy
> trabajando en cada momento, de manera que el subfichero se me posiciona en
> la pantalla donde esté dicho registro.
> Aunque lo he probado (mover 1); y entonces no hace falta darle al
> PageDown, peta diréctamente con el primer pantallazo.
> En cuanto a los campos de posicionamiento, lo hago previamente.
>
> Alex
> Como tenía la palabra PROTECT en el formato de control y los campos del
> mismo protegidos a su vez (ya sé que es redundante, pero me aseguro de que
> no se me escapa ninguno que pueda adicionar con posterioridad), le he
> quitado el PROTECT y no ha mejorado nada.
>
> Entonces, por probar, he definido el subfichero como de 12 líneas por
> pantalla en lugar de 13
> y se ha solucionado. Os aseguro que la línea 13 no se superponía con nada.
> Caía en la línea 21, por lo que tampoco pisaba la línea de mensajes.
>
> En fin, que lo he solucionado y quiero agradeceros a todos el interés.
> Pero si alguien sabe a que puede ser debido, no me importaría saberlo.
>
> Abrazos.
>
>
>
> El 27 de septiembre de 2013 16:21, Alex Martínez <[email protected]>escribió:
>
> Hola
>>
>> Si la lógica del programa es correcta y no hay datos con valor
>> hexadecimal por debajo de X'40' solo se me ocuure que mires lo siguiente:
>>
>> Podría ayudar que realizaras un
>> DSPOBJD OBJ(QWSGET) OBJTYPE(*PGM) DETAIL(*SERVICE)
>> para conocer el nivel de PTF que tiene aplicado
>>
>> He visto que coincide con un problema detectado para V5R2 o V5R3 y puede
>> ser un problema de PTFs tal como indica este APAR
>> http://www-912.ibm.com/n_dir/nas4apar.nsf/ALLAPARS/SE17573
>>
>> Para V5R4 instala la PTF
>> http://www-912.ibm.com/a_dir/as4ptf.nsf/ALLPTFS/SI46161
>>
>>
>>
>> El 27 de septiembre de 2013 14:06, FB FB <[email protected]>escribió:
>>
>>>  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.
>>>
>>
>>
>> ____________________________________________________
>> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
>> Forum.Help400 © Publicaciones Help400, S.L.
>>
>
>
>
> --
> Atentamente.
>
> RP Director Técnico
> Tel. 93 255 31 51
> Fax. 93 255 31 09
>



-- 
Atentamente.

RP Director Técnico
Tel. 93 255 31 51
Fax. 93 255 31 09
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a