HDATEDIT(*DMY)                                                          
 *****************************************************************      
 * SISTEMA  : COMPLEMENTO DE IBS (MAESTRO)                       *      
 * PROGRAMA : T47160M                                            *      
 * OBJETIVO : VERIFICA LAPSO DE TIEMPO ENTRE TRANSACCIONES       *      
 * AUTOR    : FERDINANDO D'ASCANIO                               *      
 * FECHA    : 22/10/2002                                         *      
 *****************************************************************      
 *INDICADORES USADOS:                                            *      
 * 01 READ AL T47MTL1                                            *      
 *****************************************************************      
 * ARCHIVO DE MOVIMIENTO/TARJETA/DEBITO                                 
FT47MTL1   IF   E           K DISK                                      
DT47HXX           S               T   TIMFMT(*HMS)                      
DTTHHMM           S               T   TIMFMT(*HMS)                      
 ************************                                               
 ************************                                               
 * DEFINICION DE CLAVES *                                               
 ************************                                               
C     KEY001        KLIST                                               
C                   KFLD                    T47TAX           20 0       
C                   KFLD                    T47HOX            6 0       
 **************************                                             
 * PARAMETROS DE ENTRADAS *                                             
 **************************                                             
C     *ENTRY        PLIST                                               
C                   PARM                    TARJEP           20         
C                   PARM                    HORAP             6         
C                   PARM                    PARM3             1         
 ********************                                                   
 * RUTINA PRINCIPAL *                                                   
 ********************                                                   
C                   MOVE      TARJEP        T47TAX                      
C                   MOVE      HORAP         T47HOX                      
 *                                                                      
C     KEY001        SETLL     T47MTL1                                   
C                   READP     T47MTL1                                01 
 *                                                                      
C                   DOW       *IN01 = '0'                               
 *                                                                      
C                   IF        T47FL2 = *BLANKS AND T47TA2 = T47TAX      
 *                                                                      
C                   Z-ADD     *ZEROS        RESHOR            8 0       
C     *HMS          MOVE      T47HO2        TTHHMM                      
C     *HMS          MOVE      T47HOX        T47HXX                      
C     T47HXX        SUBDUR    TTHHMM        RESHOR:*MN        8 0       
 *                                                                      
C                   IF        RESHOR > 0 AND RESHOR < 10                
C                   MOVEL     1             PARM3                       
C                   LEAVE                                               
C                   ELSE                                                
C                   MOVEL     *BLANKS       PARM3                       
C                   ENDIF                                               
 *                                                                      
C                   ENDIF                                               
 *                                                                      
C     KEY001        READE     T47MTL1                                01 
C                   ENDDO                                               
C                   SETON                                        LR