Micro-patterns de conditionnement des traitements en fonction des dates

Ces micro-patterns conditionnent l'exécution des traitements associés à un niveau fonction ou sous-fonction ou à un niveau COBOL 99 à partir de tests sur des dates. Vous pouvez les insérer dans le code d'un Programme, d'un Ecran, d'un Serveur ou d'une Macro.

Comparaison de dates

Les micro-patterns DCF et DCD conditionnent l'exécution des traitements à la vérification d'une comparaison entre deux dates. Si la comparaison est vraie (par exemple, si la première date est supérieure à la deuxième date), alors le traitement est effectué. Le micro-pattern DCF s'applique à un niveau fonction ou sous-fonction. Le micro-pattern DCD s'applique à un niveau COBOL 99.

Le format de saisie est identique pour les deux micro-patterns, excepté l'identifiant du micro-pattern :
      *!DCD "xy ffnn-date1 ope ffnn-date2"
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.
  • DCD (ou DCF) est l'identifiant du micro-pattern.
  • " " doit encadrer les opérandes.
  • 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.
  • ffnn-date1 et ffnn-date2 sont les deux dates de la comparaison.
  • ope est le type de comparaison, parmi les types suivants : >, <, >=, <=, NOT>, NOT<, NOT=.
La regénération du Programme, de l'Ecran ou du Serveur prend en compte le micro-pattern. Les dates sont transformées pour pouvoir être comparées. De plus, la ligne suivante est générée uniquement pour le micro-pattern DCF :
NEXT SENTENCE ELSE GO TO Fffss-FN.

ffss représente la fonction ou sous-fonction sur laquelle le micro-pattern s'applique.

Validité d'une date

Les micro-patterns DVF et DVD conditionnent l'exécution des traitements à la validité d'une date. Si la date est valide, alors le traitement est effectué. Le micro-pattern DVF s'applique à un niveau fonction ou sous-fonction. Le micro-pattern DVD s'applique à un niveau COBOL 99.

Le format de saisie est identique pour les deux micro-patterns, excepté l'identifiant du micro-pattern :
      *!DVD "x ffnn-date1"
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.
  • DVD (ou DVF) est l'identifiant du micro-pattern.
  • " " doit encadrer les opérandes.
  • 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.
  • ffnn-date1 est la Rubrique date à contrôler.

La regénération du Programme, de l'Ecran ou du Serveur prend en compte le micro-pattern. La sous-fonction F95ER est générée pour les erreurs.

De plus, d'autres lignes sont générées pour que les traitements dépendants soient exécutés :
  • Pour le micro-pattern DVD, la ligne suivante est générée :
    IF EN-PRE=’1’
  • Pour le micro-pattern DVF, les lignes suivantes sont générées :
    IF EN-PRE=’1’
    NEXT SENTENCE ELSE GO TO Fffss-FN

    ffss représente la fonction ou sous-fonction sur laquelle le micro-pattern s'applique.

Invalidité d'une date

Les micro-patterns DIF et DID conditionnent l'exécution des traitements à l'invalidité d'une date. Si la date est invalide, alors le traitement est effectué. Le micro-pattern DIF s'applique à un niveau fonction ou sous-fonction. Le micro-pattern DID s'applique à un niveau COBOL 99.

Le format de saisie est identique pour les deux micro-patterns, excepté l'identifiant du micro-pattern :
      *!DID "x ffnn-date1"
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.
  • DID (ou DIF) est l'identifiant du micro-pattern.
  • " " doit encadrer les opérandes.
  • 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.
  • ffnn-date1 est la Rubrique date à contrôler.

La regénération du Programme, de l'Ecran ou du Serveur prend en compte le micro-pattern. La sous-fonction F95ER est générée pour les erreurs.

De plus, d'autres lignes sont générées pour que les traitements dépendants soient exécutés :
  • Pour le micro-pattern DID, la ligne suivante est générée :
    IF EN-PRE>’1’
  • Pour le micro-pattern DIF, les lignes suivantes sont générées :
    IF EN-PRE>’1’
    NEXT SENTENCE ELSE GO TO Fffss-FN

    ffss représente la fonction ou sous-fonction sur laquelle le micro-pattern s'applique.


Vos commentaires