Les micro-patterns ADT et ADC chargent la date système dans une constante et éventuellement une zone indiquée en opérande. Les micro-patterns AD6 et AD8, spécifiques des modules Dialogue et Client/Serveur chargent la date uniquement dans une zone indiquée en opérande.
*!ADX "XXXXXX"
où
:Vous pouvez les insérer dans le code COBOL d'un Programme, Ecran ou Serveur avec l'éditeur de COBOL PDP, ou dans le code d'une Macro avec l'éditeur de Macro.
ADT génère l'appel de la date système sans le siècle. La date sera fournie dans la constante DATOR, et éventuellement dans la zone écrite en opérande.
ADC génère l'appel de la date système avec le siècle. La date sera fournie dans la constante DATCE, et éventuellement dans la zone écrite en opérande.
La zone Position Jour/Mois dans la date sur la Définition de la Bibliothèque précise le format sous lequel se présente la date système.
Après regénération de l'instance, le micro-pattern génère le COBOL correspondant au micro-pattern après la balise de début, et les données date dans la WORKING-STORAGE SECTION
Vous pouvez les insérer dans le code COBOL d'un Ecran ou Serveur avec l'éditeur de COBOL PDP.
Le micro-pattern.AD6 charge la date système dans la zone date de six caractères indiquée en opérande. La date est fournie sous la forme JJMMAA ou MMJJAA, selon la valeur de la zone Position Jour/Mois dans la date sur la Définition de la Bibliothèque.
Le micro-pattern.AD8 charge la date système dans la zone date de huit caractères indiquée en opérande. La date est fournie sous la forme JJ/MM/AA ou MM/JJ/AA, selon la valeur de la zone Position Jour/Mois dans la date sur la Définition de la Bibliothèque.