CL PROGRAM to parse FIELD eliminating quote's

/* parse log data eliminating quote’s                            */

/* 071603 start */

LOOP:

IF         COND(&POS < 80) THEN(DO)

CHGVAR     VAR(&POS) VALUE(&POS + 1)

CHGVAR     VAR(&POS00) VALUE(&POS00 + 1)

CHGVAR     VAR(%SST(&LOGDATA00 &POS00 1)) +

VALUE(%SST(&LOGDATA &POS 1))

IF         COND(%SST(&LOGDATA &POS 1) = &QUOTE) THEN(DO)

CHGVAR     VAR(&POS00) VALUE(&POS00 + 1)

CHGVAR     VAR(%SST(&LOGDATA00 &POS00 1)) VALUE(&QUOTE)

ENDDO

GOTO       LOOP

ENDDO

/* 071603 end   */