/image%2F1025633%2F20151122%2Fob_b0e74c_pam007i.png)
pdt80
-- Retourne une pseudo date samj 8 0 à partir d'une vraie date -- 0001-01-02 si erreur -- select pdt80(datenaiss) from personne create function milan/pdt80 (vdate1 date) returns dec(8, 0) language sql deterministic no external action contains sql set...
/http%3A%2F%2Fimg.youtube.com%2Fvi%2FvRwTvy8kd6U%2F0.jpg)
vdate
-- Retourne une vraie date à partir d'une pseudo date 8 0 samj -- 0001-01-02 si la pseudo date fournie est invalide -- Ex : select vdate(19981225) from sysibm/sysdummy1 create function vdate (zn80 dec(8, 0)) returns date language sql deterministic no...
dt8u dt8i
Encore une histoire de date "legacy"... Un pgm de service, deux fonctions, et le pgm de test. ******* Prototype PSDT01CP **************************** D dt8u pr 8 0 D dt8ix 8 0 value D dt8i pr 8 0 D dt8ux 8 0 value ******* Programme de Service PSDT01 *******************...
/http%3A%2F%2Fimg.youtube.com%2Fvi%2FrnLTj4ps2nQ%2F0.jpg)
