| 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$
|
