Programme de Service (2)

* SP010          P r o g r a m m e   d e   S e r v i c e

*(Contient deux fonctions,
* que nous mettons à disposition d'autres pgm)

Hnomain

 /copy sources,sp010k

 * Reçoit une pseudo date en trois zones et en retourne une.

 * Possibilité de vérifier la validité de la date,
 * zéro en retour si nok.

 *   Retour : pseudo date aaaammjj en 8.0

 *   Parm : aaaa 4.0

 *          mm   2.0

 *          jj   2.0

 *          v    1   vérification

Pdt3v1            b                   export

D                 pi             8 0

Daaaa                            4 0 value

Dmm                              2 0 value

Djj                              2 0 value

Dv                               1    value

Dretour           s              8 0

Dmdate            s               d

 /free

  // Les trois zones en une

     retour = (aaaa * 10000) + (mm * 100) + jj;

  // Vérif demandée :  si nok, zéro retrourné.

     if v = 'V';

     monitor;

     mdate = %date(retour);

     on-error;

     retour = 0;

     endmon;

     endif;

     return retour;

 /end-free

P                 e

 * Reçoit une pseudo date en trois zones
 * et en retourne une vraie.

 * Il y a vérification : *loval en retour si nok.

 *   Retour : date

 *   Parm : aaaa 4.0

 *          mm   2.0

 *          jj   2.0

Pdt3v1d           b                   export

D                 pi              d

Daaaa                            4 0 value

Dmm                              2 0 value

Djj                              2 0 value

Dretour           s               d

 /free

  // Les trois zones en une date, *loval si non valide.

     monitor;

     retour = %date((aaaa * 10000) + (mm * 100) + jj);

     on-error;

     retour = *loval;

     endmon;

     return retour;

 /end-free

P                 e