Ponle la “K” en la hoja F como te indica Francisco
Un saludo foo Vicente P No lo imprima si no es necesario. Protejamos el medio ambiente. Este mensaje y sus archivos adjuntos pueden contener información confidencial y están dirigidos exclusivamente a su destinatario. Le informamos que la legislación vigente prohíbe el uso, divulgación o copia del contenido del presente mensaje por persona distinta del destinatario sin autorización previa. Si Ud. no es el destinatario de este mensaje y lo ha recibido por error le agradeceríamos que nos lo comunicara y que procediera a destruirlo. This message can contain confidential information and is directed exclusively to its adressee. We inform you that the legislation prohibits to use, spreading or copy the content of the present message by person different from the adressee without previous authorization. If you are not the adressee of this message or you have received it by error we would be thankful if you notify us and delete it. De: [email protected] [mailto:[email protected]] En nombre de Juan Gutierrez Ruiz Enviado el: jueves, 12 de febrero de 2015 15:43 Para: forum.help400; [email protected] Asunto: Accesar con CHAIN a un archivo definido por programa 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.
