HDATFMT(*DMY/)
      /COPY PROTOTYPES,SRV.FCDATE
      /COPY PROTOTYPES,joursem
      /COPY PROTOTYPES,libdate
     DDATE             S               D   DATFMT(*DMY/) INZ(D'15/08/96')
     DJOUR             S              2P 0
     Dnumj             S              1  0
     Dlib              S             25
      *
     DDATNUM           S              6  0   INZ(960920)
      **
     C                   EVAL      JOUR = FINDEMOIS(DATE)
      *
     C                   IF        ISDATE(DATNUM)
     C                   EVAL       JOUR = FINDEMOIS(CVTDAT(DATNUM))
     C                   ENDIF
      *
     C                   EVAL      numj = joursem(datnum)
     C                   EVAL      lib  = libdate(datnum)
      *
     C                   EVAL      *INLR = *ON