Variable de recadrage dans CLLE

Question

Comment pouvez-vous rogner une variable dans CLLE ??

Answer 1

Aucune fonction standard TRIM n'est disponible dans CLLE. Cependant,

• Si vous souhaitez coller deux variables, regardez * TCAT (ou | <). Cette commande supprime les blancs entre (par exemple 'xyz' * TCAT 'uvw' devient 'xyzuvw'
• Si vous voulez vraiment couper, alors essayez '' * TCAT $ YOURVAR * TCAT '' (impossible d'essayer celui-ci
• ILE CL Vous pouvez utiliser la commande CALLPRC pour appeler un module qui peut faire l'affaire! vous avec le module RPG ILE ou COBOL.

Answer 2

Comme toutes les variables CL sont de longueur fixe, il n'y a pas d'exigence logique de couper en soi.

à jo dans deux valeurs sans espaces intermédiaires, utilisez l'opérateur |< et, pour inclure un seul espace, utilisez |>.

Pour trouver la longueur en caractères à l'exclusion des espaces de fin, vous devez faire un bon vieux marche arrière sur la façonné valeur à l'aide% SST (& VAL & POS 1) pour tester chaque position de caractère pour un espace. Quelque chose comme:

DCL &LEN *DEC (15 0) 
DCL &VAL *CHAR 50 VALUE('Some test data') 
DCL &CHR15 *CHAR 15 

CHGVAR &LEN 50 
LOOP: IF (&LEN > 1 & %SST(&VAL &LEN 1)==' ') (DO) 
    CHGVAR &LEN VALUE(&LEN - 1) 
    GOTO LOOP 
    ENDDO 

CHGVAR &CHR15 &LEN 
SNDPGMMSG ('The length is' |> &CHR15) /* Can't concat decimal values */ 

Pour simplement nul mettre fin à une valeur, par exemple, faire un appel à une fonction C:

DCL &VAL *CHAR 50 VALUE('Some test text') 
DCL &VALNUL *CHAR 51 /* +1 for the null */ 
DCL &NULL *CHAR 1 VALUE(X'00') 

CHGVAR &VALNUL VALUE(&VAL |< &NULL) 

EDIT 2012-07-19 *

Dans certains jeux de caractères, ! est utilisé à la place de |. Il existe également l'opération CAT * CCSID indépendante qui peut être utilisée à la place. Voir le site Web d'IBM here et here.

Answer 3

je sais que c'est vieux, mais vous pouvez utiliser% TRIM (& myVariable)

Answer 4

Dans les versions avant% TRIM(),% TRIML() et% TRIMR() étaient disponibles, ILE CL pourrait utiliser le ' fonction de bibliothèque triml 'C:

dcl &lPath  *int   value(0) 

callprc 'triml' (+ 
        &Dir   + 
        (' ' *byval) + 
       ) + 
      rtnval(&lPath) 

La proc se trouve dans * SRVPGM QC2UTIL1.

Dans les deux OPM et ILE CL, je l'ai souvent utilisé:

dcl &lmsgtxt1 *dec ( 5 0) value(0) 

rtvmsg  msgid(cpf9897) msgf(QSYS/QCPFMSG) + 
      msgdta(&SQLStm) + 
      msglen(&lmsgtxt1) 

Dans les deux cas, la longueur obtenue peut ensuite être utilisé dans une expression% SST() pour effectuer le parage réelle.