Vous pouvez insérer ces micro-patterns dans le code d'un Programme, d'un Ecran, d'un Serveur ou d'une Macro.
Les micro-patterns AD, AD0, AD1 et AD2 permettent de transformer une date générée sous un format ("an, mois, jour" par exemple) en une date générée sous un autre format ("jour/mois/an" par exemple).
*{ADn "xy date1 date2" *}où :
Valeurs du format | Formats générés |
---|---|
I | An, mois, jour (AAMMJJ) |
D | Jour, mois, an (JJMMAA) ou Mois, jour, an (MMJJAA) selon le type de format demandé dans la zone Position Jour/Mois dans la date de la Définition de la Bibliothèque |
E | Jour/mois/an (JJ/MM/AA) ou Mois/jour/an (MM/JJ/AA) selon le type de format demandé dans la zone Position Jour/Mois dans la date de la Définition de la Bibliothèque Ces dates ont un format étendu. |
S | Siècle, an, mois, jour (SSAAMMJJ) |
G | Siècle an - mois - jour (SSAA-MM-JJ) |
C | Jour, mois, siècle, an (JJMMSSAA) ou Mois, jour, siècle, an (MMJJSSAA) selon le type de format demandé dans la zone Position Jour/Mois dans la date de la Définition de la Bibliothèque |
M | Jour/mois/siècle an (JJ/MM/SSAA) ou Mois/jour/siècle an (MM/JJ/SSAA) selon le type de format demandé dans la zone Position Jour/Mois dans la date de la Définition de la Bibliothèque |
Vous pouvez demander l'inversion d'une date, ou sa mise en forme avec des barres obliques.
Identifiant du micro-pattern | Fonction du micro-pattern et contenu des opérandes |
---|---|
ADI | Inversion des deux premiers et derniers caractères
d'une date de six caractères. Une date JJMMAA devient AAMMJJ et
inversement. Indiquez :
"date1 date2"où date1 et date2 sont deux Rubriques date de six caractères. date2 n'est pas obligatoire. Dans ce cas, date1 récupère la date inversée. |
ADS | Inversion d'une date avec le siècle. Une
date SSAAMMJJ devient JJMMSSAA,
et inversement. Indiquez :
"date1 date2"où date1 et date2 sont deux Rubriques date de huit caractères. date2 n'est pas obligatoire. Dans ce cas, date1 récupère la date inversée. |
ADE | Mise en forme d'une date de six caractères par
insertion de barres obliques ('/'). Une date JJMMAA,
par exemple, devient JJ/MM/AA. Indiquez :
"date1 date2"où date1 est une Rubrique date de six caractères et date2 une Rubrique date de huit caractères. |
ADM | Mise en forme d'une date avec siècle par insertion
de barres obliques ('/'). Une date JJMMSSAA, par
exemple, devient JJ/MM/SSAA. Indiquez :
"date1 date2"où date1 est une Rubrique date de huit caractères et date2 une Rubrique date de dix caractères. |
Identifiant du micro-pattern | Fonction du micro-pattern et contenu des opérandes |
---|---|
DAD | Calcul du nombre de jours entre deux dates. Indiquez
:
"xy ffnn-date1 ssnn-date2"où : x est le format de date1 (facultatif). Si vous n'indiquez aucun format, il sera extrait du référentiel si la Rubrique a un format date. y est le format de date2 (facultatif). Si vous n'indiquez aucun format, il sera extrait du référentiel si la Rubrique a un format date. Le résultat de la comparaison est mis dans la zone NUM-DAYS, qui est automatiquement déclarée dans la WORKING-STORAGE SECTION. |
DAO | Addition ou soustraction de jours à une date. Indiquez
:
"x snumber ffnn-date1 ffnn-date2"où : x est le format de date1 (facultatif). Si vous n'indiquez aucun format, il sera extrait du référentiel si la Rubrique a un format date. s est le signe (+ pour une addition ou - pour une soustraction). number est le nombre à ajouter ou retrancher à la date. Il peut être un entier ou une zone de travail. ffnn-date1 est la zone date en entrée. ffnn-date2 est la zone date résultat (facultative). |
Identifiant du micro-pattern | Fonction du micro-pattern et contenu des opérandes |
---|---|
TIM | Fournit l'heure sous la forme HHMMSS à
partir de la zone EIBTIME pour CICS, et TIME pour
les autres matériels. Indiquez :
"CORUB1"où CORUB1 est une Rubrique de six caractères. |
TIF | Transforme le format de l'heure HHMMSS en HH:MM:SS. Indiquez
:
"CORUB1 CORUB2"où CORUB1 est une Rubrique sur six caractère et CORUB2 est une Rubrique de huit caractères |