Utilisation de SubString dans un CLP.

exemple


...
RTVJOBA USER(&USER)
/* Récupération des 3 premiers caractères de &USER */
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&USER3) TYPE(*CHAR) LEN(3)
CHGVAR VAR(&USER3) VALUE(%SST(&USER 1 3))
IF COND(&USER3 *EQ 'MTV') THEN(DO)
...

Autre exemple :


...
/* Modification du nom du JOB avec le code compagnie sur les 3 derniers car. */
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
DCL VAR(&CMPY) TYPE(*CHAR) LEN(3)
CHGVAR VAR(&JOB) VALUE('VENTES_ ')
CHGVAR VAR(%SST(&JOB 8 3)) VALUE(&CMPY)
...

Print Friendly, PDF & Email