Micro-patterns d'appel de la date système

Les micro-patterns ADT et ADC chargent la date système dans une constante et éventuellement dans une zone indiquée en opérande. Les micro-patterns AD6 et AD8, spécifiques des Ecrans ou Serveurs chargent la date uniquement dans une zone indiquée en opérande.

Format de saisie

Vous devez respecter le format de saisie suivant :
      *!ADX "XXXXXX"
où :
  • *! est la balise de début du micro-pattern, obligatoire. Le * doit être saisi en colonne 7, réservée aux commentaires dans le code COBOL, et le ! doit être saisi en colonne 8.
    Remarque : Si vous appuyez sur CTRL + barre d'espacement dans l'éditeur COBOL PDP, l'assistant de contenu affiche la liste des micro-patterns adaptés à l'entité et à la position dans le COBOL (WORKING-STORAGE SECTION ou PROCEDURE DIVISION). Les micro-patterns relatifs à la reprise des données Pacbase ne font pas partie de la liste. Chaque micro-pattern de la liste est documenté. Si vous double-cliquez sur l'un d'eux, la balise de début et l'identifiant du micro-pattern sont insérés dans le code. Vous devez alors complétez la déclaration.
  • ADX est l'identifiant du micro-pattern : ADT, ADC, .AD6 ou AD8.
  • " " doit encadrer les opérandes.
  • XXXXXX est l'opérande, représentant une zone récupérant la date système. Cette opérande est optionnelle pour ADT et ADC.

Micro-patterns ADT et ADC

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

Remarque : En COBOL II et COBOL 85, si l'année est inférieure à 61, la zone CENTUR est automatiquement initialisée à 20.

Micro-patterns AD6 et AD8

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.

Indentation des lignes générées d'un micro-pattern

Vous pouvez indenter les lignes générées d'un micro-pattern en indiquant indent=nn (où nn est un nombre) n'importe où sur la ligne de déclaration du micro-pattern. La nouvelle indentation est prise en compte après une regénération.

L'indentation s'applique à la première ligne générée du micro-pattern. Le décalage avec les lignes suivantes, s'il existe, est conservé par rapport à la première ligne nouvellement indentée. Par exemple, si la première ligne générée a une indentation initiale de 11 et si vous indiquez indent=20 et regénérez, la première ligne aura une indentation de 20 et commencera donc en position 21. L'indentation des lignes suivantes sera décalée de 9 pour conserver le décalage initial.

Les contrôles suivants sont effectués sur les lignes nouvellement indentées lors de la regénération :
  • Elles ne doivent pas se situer au-delà de la colonne 72.
  • Elles doivent commencer en marge B du COBOL si elles se situent en PROCEDURE DIVISION ou proviennent d'un micropattern WI, WE ou WS.
  • Les niveaux 01 et 77 des lignes générées à partir du micro-pattern WF doivent se situer en marge A du COBOL.

Si au moins une ligne générée ne peut pas être indentée avec l'indentation demandée, toutes les lignes générées sont positionnées avec l'indentation par défaut. L'indication indent=nn est donc ignorée et l'avertissement Valeur indentation erronée apparaît sur la ligne de déclaration du micropattern dans l'éditeur COBOL PDP et dans la vue Erreurs.


Vos commentaires