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