==== 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))\\