¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Escribir Registros a un Archivo en dos bibliotecas

Categoría : Programación
Autor : Edgardo Hernández
Título : Escribir Registros a un Archivo en dos bibliotecas


Descripción del truco:
Esto puede ser utilizado cuando requerimos generar datos de prueba similares a produccion, para esto el programa normalmente escribe un regitro en prodlib (producción) ,que esta en la lista de bibliotecas, y al mismo tiempo escribe el mismo registro en testlib (pruebas). Espero les ayude


FDATTOJDE  O    E             DISK    USROPN
D @OV             S             38    DIM(2) CTDATA PERRCD(1)
/* Subrutina para escribir el registro, */
/*primero lo hace en producción y despues lo hace en pruebas */ C CRTSHD BEGSR C OPEN DATTOJDE C CLEAR SHDTO C EVAL CDAT = year + mmdd C EVAL CTIM = D1HH + ':' + D1MM + ':' + D1S C EVAL ROLLÑ = MCASEÑ C EVAL SKU = 'D'+ MSTYLE + MFIN + 'D0' C + MCOL + '0000MX' C EVAL SHADE = MSHADE C EVAL DELTAL = MDELT1 C EVAL DELTAA = MDELT2 C EVAL DELTAB = MDELT3 C EVAL TRSET = 'DNC' C WRITE SHDTO C CLOSE DATTOJDE C Z-ADD 23 @LNCMD 15 5 C CALL 'QCMDEXC' C PARM @OV(01) C PARM @LNCMD C EXSR NEW_SKU C OPEN DATTOJDE C WRITE SHDTO C CLOSE DATTOJDE C Z-ADD 23 @LNCMD 15 5 C CALL 'QCMDEXC' C PARM @OV(02) C PARM @LNCMD C ENDSR /* Sección Final del Programa */ ** ADDLIBLE LIB(TESTLIB) RMVLIBLE LIB(TESTLIB)
Ver código
Fecha 23-06-2004


Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344