0038.00 TEST FDATTOJDE  O    E             DISK    USROPN
0047.00      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 */

0257.00 EH01 C     CRTSHD        BEGSR
0258.00 TEST C                   OPEN      DATTOJDE
0259.00  |   C                   CLEAR                   SHDTO
0260.00  |   C                   EVAL      CDAT = year + mmdd
0261.00  |   C                   EVAL      CTIM = D1HH + ':' + D1MM + ':' + D1S
0264.00  |   C                   EVAL      ROLLÑ = MCASEÑ
0265.00  |   C                   EVAL      SKU = 'D'+ MSTYLE + MFIN + 'D0'
0266.00  |   C                                   + MCOL + '0000MX'
0267.00  |   C                   EVAL      SHADE = MSHADE
0268.00  |   C                   EVAL      DELTAL = MDELT1
0269.00  |   C                   EVAL      DELTAA = MDELT2
0270.00  |   C                   EVAL      DELTAB = MDELT3
0271.00  |   C                   EVAL      TRSET = 'DNC'
0272.00  |   C                   WRITE     SHDTO
0273.00 TEST C                   CLOSE     DATTOJDE
0274.00      C                   Z-ADD     23            @LNCMD           15 5
0275.00      C                   CALL      'QCMDEXC'
0276.00      C                   PARM                    @OV(01)
0277.00      C                   PARM                    @LNCMD
0278.00 TEST C                   EXSR      NEW_SKU
0279.00 TEST C                   OPEN      DATTOJDE
0280.00      C                   WRITE     SHDTO
0281.00 TEST C                   CLOSE     DATTOJDE
0282.00      C                   Z-ADD     23            @LNCMD           15 5
0283.00      C                   CALL      'QCMDEXC'
0284.00      C                   PARM                    @OV(02)
0285.00      C                   PARM                    @LNCMD
0286.00  |   C                   ENDSR

/* Sección Final del Programa */

0384.00 **
0385.00 ADDLIBLE LIB(TESTLIB)
0386.00 RMVLIBLE LIB(TESTLIB)