ITIM1        DS
     I                                        1   20HH
     I                                        3   40MM
     I                                        5   60SS
     I                                        1   60WTIM
     C           *ENTRY    PLIST
     C                     PARM           NBSEC   60
     C                     PARM           TOTIM   60
     C                     TIME           WTIME   60
     C                     Z-ADDWTIME     WTIM
     C                     Z-ADDHH        WHH     30
     C                     Z-ADDMM        WMM     50
     C           SS        ADD  NBSEC     WSS     90
     C           WSS       IFGE 0
      * NB DE SECONDES POSITIF
     C           WSS       DOWGT60
     C                     SUB  60        WSS
     C                     ADD  1         WMM
     C                     END
     C           WMM       DOWGT60
     C                     SUB  60        WMM
     C                     ADD  1         WHH
     C                     END
     C           WHH       DOWGT24
     C                     SUB  24        WMM
     C                     END
      * NB DE SECONDES NEGATIF
     C           WSS       DOWLT0
     C                     ADD  60        WSS
     C                     SUB  1         WMM
     C                     END
     C           WMM       DOWLT0
     C                     ADD  60        WMM
     C                     SUB  1         WHH
     C                     END
     C           WHH       DOWLT0
     C                     ADD  24        WMM
     C                     END
     C                     END
     C                     Z-ADDWHH       HH
     C                     Z-ADDWMM       MM
     C                     Z-ADDWSS       SS
     C                     Z-ADDWTIM      TOTIM      LR  LR
     C                     RETRN