Buenos Días Foro estos tratando de acceder con un chain a un archivo definido por programa
el archivo tiene una longitud de registro 400
y la claves es de 3 caracteres alfabéticos
el archivo es MFUSCC es un archivo de clientes donde las 3 primeras posiciones
es de 3 caracteres alfabéticas y el resto la razón social y demás, este fue
credo en un ambiente 36
el problema es que al darle chain con el dato de entrada de 3 caracteres el
compilador me manda error
*RNF7055 30 1 El Factor 1 no es válido para la operación especificada.
Causa . . . . . : El operando de Factor 1 no es válido
para la operación especificada.
-- Para el proceso de número de registro relativo, el
operando de Factor 1 debe ser numérico con cero
posiciones decimales.
-- Para el acceso aleatorio por clave, el operando de
Factor 1 debe ser compatible con el tipo de dirección
de registro (posición 34 de la especificación de
Archivo) del archivo.
La especificación se pasa por alto.
Recuperación . : Corrija la definición del operando de
Factor 1. Vuelva a compilar.
* * F I N D E R E S U M E N D E M E N S A J E S * *
estos compilando en un RPGILE
la tabla CONDATOS es igual, sin embargo este lo leo secuencialmente sin
problema
pero al archivo MFUSCC al encadenarlo me manda error
alguien me puede echar una mano ??
gracias
FCONDATOSX IF F 43 DISK
FMFUSCC IF F 400 DISK
FLCLIEN1 UF A E K DISK
FLPOLDDS1 O A E K DISK
*
ICONDATOSX NS 01
I P 1 3 0LLAVE
I 5 5 MA
I 6 11 0NUMAUX
I 12 17 0FECHA
I 18 18 0CP
I 19 23 0NP
I P 24 31 2IMP
I 32 32 CA
IMFUSCC XX 02 1 CC
I 1 3 CLIENTE
I 4 45 NOMBRE
I 46 400 DEMAS
C* ==============================================================
C* | RECEPCION Y MANEJO DE PARAMETROS. DEF. DE CAMPOS DE TRAB. |
C* ==============================================================
C *ENTRY PLIST
C PARM WCTE 3
C* ==============================================================
C* | B L O Q U E P R I N C I P A L D E L P R O G R A M A |
C* ==============================================================
C EXSR SRDATOS
C EXSR SRCLIEN
C EVAL *INLR = *ON
C* ==============================================================
C* | SRDATOS: Genera DDS TPOLDD de COMDATOSX |
C* ==============================================================
C SRDATOS BEGSR
C READ CONDATOSX 80
C DOW *IN80 = *off
C* MOVEL 'YYY' CLIECVE
C MOVEL WCTE CLIECVE
C Z-ADD LLAVE POLAIDD
C Z-ADD LLAVE POLAIDD
C Z-ADD NUMAUX POLAAUX
C Z-ADD FECHA POLAFEC
C Z-ADD CP POLACLP
C Z-ADD NP POLANUP
C Z-ADD IMP POLAIMP
C MOVEL CA POLAMOV
C WRITE TPOLDDSF
C READ CONDATOSX 80
C ENDDO
C ENDSR
C* ==============================================================
C* | SRCLIEN : CREA EL REGISRO DEL CLIENTE DE MFUSCC A TCLIEN |
C* ==============================================================
C SRCLIEN BEGSR
C WCTE CHAIN MFUSCC 99
C IF *IN99 = *OFF
C WCTE CHAIN TCLIENF
C IF %FOUND
C MOVEL CLIENTE CLIECVE
C MOVEL NOMBRE CLIERAZ
C WRITE TCLIENF
C ENDIF
C ENDIF
C ENDSR
Archivo . . . . : QPDSPFD
Control . . . . . +1
Buscar. . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7..
Vía de acceso . . . . . . . . . . . . . . . : Por clave
Tamaño de vía de acceso . . . . . . . . . . : ACCPTHSIZ *MAX4GB
Longitud máxima de clave. . . . . . . . . . : 3
Longitud máxima de registro . . . . . . . . : 400
Volátil . . . . . . . . . . . . . . . . . . : No
Archivo actualmente registrándose por diario: No
Descripción de Vía de Acceso
Mantenimiento vía de acceso . . . . . . . . : MAINT *IMMED
Valores claves exclusivas requeridos. . . . : UNIQUE Sí
Vía de acceso registrada por diario . . . . : No
Vía de acceso . . . . . . . . . . . . . . . : Por clave
Tipo de Restricción . . . . . . . . . . . . : NONE
Número de campos de clave . . . . . . . . . : 1
Formato de registro . . . . . . . . . . . . . : MFUSCCXX
Campo de clave . . . . . . . . . . . . . . . : K00001
Secuencia . . . . . . . . . . . . . . . : Ascendente
Signo especificado. . . . . . . . . . . : UNSIGNED
Zona/dígito especificado. . . . . . . . : *NONE
Orden de clasificación alternativo . . : No
Lista de Formatos de Registro
Regist Identificador
Formato Campos Longit Identificador
MFUSCCXX 2 400 3141689B15D70
Texto . . . . . . . . . . . . . . . . . . :
Número total de formatos . . . . . . . . . . : 1
Número total de campos . . . . . . . . . . . : 2
Longitud total de registro . . . . . . . . . : 400
Lista de Miembros____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
