× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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-2024 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 [javascript protected email address].

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