HNOMAIN COPYRIGHT('AF400 (C) VOLUBIS')
/COPY PROTOTYPES,srv.fcdate
*
P Findemois B EXPORT
* Définition de l'Interface de procédure (PI)
* doit être conforme avec le prototype.
D PI 2P 0
D Datein D DATFMT(*DMY/) CONST
* variables locales
DDATEDS DS
D Wdate D DATFMT(*DMY)
D Wjour 2S 0 OVERLAY(wdate)
D slash1 1 OVERLAY(wdate:3)
D Wmois 2S 0 OVERLAY(wdate:4)
D slash2 1 OVERLAY(wdate:6)
D Wan 2S 0 OVERLAY(wdate:7)
* traitement
C eval wdate = datein
C eval wjour = 1
C ADDDUR 1:*M WDATE
C SUBDUR 1:*D WDATE
C RETURN Wjour
P Findemois E
*****************************************************************
*
P ISDATE B EXPORT
D PI n
D Datein 6 0 CONST
* traitement
C *YMD TEST(D) datein 50
C RETURN not *IN50
P ISDATE E
*****************************************************************
*
P CVTDAT B EXPORT
D PI D DATFMT(*DMY/)
D Datein 6 0 CONST
* VARIABLE DE TRAVAIL
D DATEOUT S D DATFMT(*DMY/)
* traitement
C *YMD MOVE DATEIN DATEOUT
C RETURN DATEOUT
P CVTDAT E
*****************************************************************
|
| 
