Publié le :
Macro CREATION_INTERNE

Macros utilitaires AHG de manipulation de chaînes

Ce code est également disponible en : Deutsch English Español
Le script définit trois macros. 'AHGstartwith' vérifie si une chaîne commence par une sous-chaîne donnée en utilisant une macro tierce '%ahgpos'. 'AHGtestANDcut' semble initier une condition basée sur 'AHGstartwith' mais ne contient pas d'action (code vide après le %then). 'AHGmask' initialise des variables locales, met en majuscules les arguments et initie une boucle itérative basée sur une macro tierce '%AHGcount', mais le corps de la boucle est vide.
Analyse des données

Type : CREATION_INTERNE


Traitement purement macro, aucune source de données externe n'est lue.

1 Bloc de code
MACRO
Explication :
Macro fonctionnelle retournant 1 si la variable 'word' commence par 'leadstr', et 0 sinon. Elle s'appuie sur une macro externe '%ahgpos'.
Copié !
1%macro AHGstartwith(word,leadstr);
2 %IF %ahgpos(&word,&leadstr)=1 %THEN 1;
3 %ELSE 0;
4%mend;
2 Bloc de code
MACRO
Explication :
Macro structurelle qui vérifie si 'word' commence par 'leadstr'. Le code actuel ne contient aucune instruction après la condition (instruction nulle), suggérant une implémentation incomplète.
Copié !
1%macro AHGtestANDcut(word,leadstr);
2%IF %AHGstartwith(&word,&leadstr) %THEN ;
3 
4%mend;
5 
3 Bloc de code
MACRO
Explication :
Ebauche de macro pour appliquer un masque. Elle prépare les variables (mise en majuscule) et configure une boucle itérative basée sur le nombre d'éléments dans 'mask' (délimité par ':'), calculé par la macro externe '%AHGcount'. Le corps de la boucle est vide.
Copié !
1%macro AHGmask(word,mask);
2 %local i item;
3 %let mask=%upcase(&mask);
4/* %let mask=%sysfunc(&mask,);*/
5 %let word=%upcase(&word);
6 %DO i=1 %to %AHGcount(&mask,dlm=:);
7
8 %END;
9%mend;
Ce matériel est fourni "tel quel" par We Are Cas. Il n'y a aucune garantie, expresse ou implicite, quant à la qualité marchande ou à l'adéquation à un usage particulier concernant le matériel ou le code contenu dans les présentes. We Are Cas n'est pas responsable des erreurs dans ce matériel tel qu'il existe maintenant ou existera, et We Are Cas ne fournit pas de support technique pour celui-ci.