After compiling a program in V5R2 it gives me an error CPF5035 . The
program wrked in V5R1.  Below I copied the "help" for my error messsage.

The file has less than 150 000 records, and "FH_ENTRA" does not allow nulls.

_____________________________________________________________________________________________________

                       Informaci�n Adicional de Mensaje

ID de mensaje  . . . . :   CPF5035       Gravedad . . . . . . . :   10
Tipo de mensaje  . . . :   Diagn�stico
Fecha env�o  . . . . . :   27/12/02      Hora env�o . . . . . . :
10:19:32

Mensaje . . . . :   Error de correlaci�n de datos en el miembro HORARIO.
Causa . . . . . :   Se produjo un error de correlaci�n de datos en el campo
  FH_ENTRA del registro n�mero 4294967295, formato de registro HOR1,
n�mero de
  miembro 1, del miembro HORARIO del archivo HORARIO de la biblioteca
SALARY,
  debido al c�digo de error 19. Los c�digos de error y sus significados son
  los siguientes:
    1 -- Datos no v�lidos en campo decimal.
    2 -- Se trunc� un d�gito significativo.
    3 -- Un valor de coma flotante > que el valor representable m�ximo.
    4 -- Un valor de coma flotante < que el valor representable m�nimo.
    5 -- Un valor de coma flotante que no es n�mero no pudo
correlacionarse de
  precisi�n doble a simple o viceversa.

M�s...
Pulse Intro para continuar.

F3=Salir   F6=Imprimir   F9=Visualizar detalles de mensajes   F12=Cancelar
F21=Seleccionar nivel ayuda
____________________________________________________________________

                       Informaci�n Adicional de Mensaje

ID de mensaje  . . . . :   CPF5035       Gravedad . . . . . . . :   10
Tipo de mensaje  . . . :   Diagn�stico

    14 -- Longitud no v�lida de campo de longitud variable o datos no
v�lidos
  en una variable de subserie.
    15 -- Un valor de fecha > que el m�ximo permitido.
    16 -- Un valor de fecha < que el m�nimo permitido.
    17 -- Formato no v�lido de datos de campo fecha, hora o indicaci�n de
  hora.
    18 -- Datos no v�lidos en campo fecha, hora o indicaci�n de hora.
    19 -- Se hall� un campo nulo inesperado.
    20 -- No pudo establecerse un valor nulo en campo que no lo admite.
    21 -- Los datos se convirtieron de un CCSID a otro. Pero se utilizaron
  caracteres de sustituci�n en alguno que no pudo convertirse.
    22 -- Se hall� un car�cter de desplazamiento a teclado ideogr�fico al
  convertir a CCSID de byte �nico o mixto o se hall� un car�cter de

M�s...
Pulse Intro para continuar.

F3=Salir   F6=Imprimir   F9=Visualizar detalles de mensajes   F12=Cancelar
F21=Seleccionar nivel ayuda

__________________________________________________________________

The line 0001400 is in this segment:

___________________________________________________________________
0005.00 DFechaDia         S                   Like(FH_entra) inz(*sys)
0006.00 DFechaHasta       S                   Like(fh_entra)
0007.00 DFechaDesde       S                   Like(fh_entra)
0008.00 D fh_entra_new    S                   Like(fh_entra)
0009.00

0010.00  *  Consigue todos los horarios del mismo dia, semana anterior
0011.00 C/free
0012.00   fechadesde = fechadia - %days(7);
0013.00   fechahasta = fechadia - %days(5);
0014.00   setll fechadesde hor1;
<--------------------------
0015.00
0016.00   dou fh_entra > fechahasta or %eof(horario_fh);
0017.00     read hor1;
0018.00     if not %eof(horario_fh);

KEY field description..

0002.59       1  HORARIO_FH
0002.60            HOR1
0002.61                         FH_ENTRA                TMSP       26
0002.62                         NCLIE                   PACK      7,0 SIGNED
0002.63  * *  F I N   D E   I N F O R M A C I O N   C A M P O S   D E
C L A V E   * *


_____________________________________________________________________________________________
I know the official lenguage for this list is english, but it is not so
easy to translate the output from the AS/400

TIA

Raul.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.