Discussion :

[Nombre pi]

Bonjour,

Dans un programme CL je fais un RTVUSRPRF RTNUSRPRF(&USR)
Bien sur &USR est déclaré comme suit : DCL VAR(&USR) TYPE(*CHAR) LEN(10)
La logique que nous utilisons pour définir les utilisateurs est NOM+premièreLettre du prénom, exemple pour John LENNON ce sera LENNONJ et pour Pierre MAC ce sera MACP
Je voudrais récupérer le nom sans la première lettre du prénom.
Comment faire ?

[pwrdwnsys]

Tu trouveras toutes les réponses dans le manuel "CL overview and concept (programming)" sur le site IBM. C'est la fonction %substring (ou %sst) que tu cherches : %SST(&PRENOM 1 1)

[Nombre pi]

Si devait ôter le premier caractère ça aurait été facile. Mais pour le dernier c'est la galère.
Pour utiliser la fonction %Substring ou %SST je devrais faire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHGVAR &X %SST(&X 1 %SIZE(&X)-1)

Mais je ne peux pas empiler deux fonctions avec % alors j'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CHGVAR &S %SIZE(&X)
puis
CHGVAR &X %SST(&X 1 (&S-1))

Mais le problème c'est que %SIZE(&X) ne me donne pas la véritable taille utilisée de &X mais plutôt la taille définie par DCL au début du script.

[Nombre pi]

..en plus le &X provient de RTVUSRPRF RTNUSRPRF(&X) il est donc déclaré préalablement par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DCL *CHAR 10

[Hédhili Jaïdane]

Bonjour.
Regardez plutôt du côté de la built-in function %CHECKR qui renvoie la position du dernier caractère qui n'est pas dans la chaine de comparaison donnée en premier paramètre.
Suivez le lien https://www.ibm.com/docs/en/i/7.2?to...lt-in-function et regardez les exemples.