ADC Micropattern

We have evaluated this request and determined that it works as design.

Here is the explanantion in french ...

Definition : Fournit la date machine sous la forme SSAAMMJJ où ’SS’ représente le siècle.
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.

Definition DATCE en working :
01 DATCE.
05 CENTUR PICTURE XX VALUE '20'.
05 DATOR.
10 DATOA PICTURE XX.
10 DATOM PICTURE XX.
10 DATOJ PICTURE XX.
Remarque : en COBOL II et COBOL 85, si on utilise un opérateur de récupération de la date du jour (ADC), et si l’année est inférieure à ’61’, la zone ’CENTUR’ est automatiquement initialisé à ’20’.

Le géneré dépend des options de genération de date présentes sur la fiche de la bibliothèque: “siècle date système” et “Année du fenêtrage”
Option siècle/date système :N (Valeur par défaut à la création de la Bibliothèque) ou W.
Si l'annee est inferieure à la valeur saisie dans la zone ANNEE DU FENETRAGE, elle est préfixée par 20.
Si elle est superieure, elle est préfixée par 19.
C : Récupération directe de la Date Système incluant le siècle suivant les possibilites du COBOL.


>>> Si option siècle = N ou W :
ACCEPT DATOR FROM DATE
IF DATOA < DAT-CTYD MOVE ‘20’ TO CENTUR END-IF
MOVE DATCE TO date
DATCE contient bien la date (DATOR) sur 6 caractères complétée du siècle( CENTUR)
>>> Si option siècle = C
MOVE FUNCTION CURRENT-DATE TO DATCE
MOVE DATCE TO date
DATCE contient bien la date directement avec le siècle inclu.
Conclusion : le généré est correct ,dans tous les cas la zone DATCE récupère bien la date machine sous la forme SSAAMMJJ

A preliminary evaluation of this request indicates that it is consistent with our business strategy. Further evaluation of this RFE is underway.

What about "language" option used ? "C" ou "D" ?
"D" generate "MOVE FUNCTION-DATE() TO DATCE" instead of "ACCEPT FROM DATE".