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.
*!DCD "xy ffnn-date1 ope ffnn-date2"
- *! 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=.
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.
*!DVD "x ffnn-date1"
- *! 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.
- 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.
*!DID "x ffnn-date1"
- *! 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.
- 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.