index:programmation:clp:format
Formattage
Nombre
DCL &RCD *DEC 10
DCL &RCDA *CHAR 10
DCL &I *INT
DCL &X *DEC 10
DCL &TOTX *CHAR 10
CHGVAR &RCDA (&RCD)
DOFOR &I FROM( 1 ) TO( 10 )
IF (%SST(&RCDA &I 1) > '0') LEAVE
ENDDO
CHGVAR &X (11 - &I)
CHGVAR VAR(%SST(&TOTX 1 &X)) VALUE(%SST(&RCDA &I &X))
index/programmation/clp/format.txt · Dernière modification : 2025/04/17 22:21 de 127.0.0.1