Re: Triming CL stings?

["M. Lazarus" <mlazarus@xxxxxxxx>]

Jason,

 There is no reason to keep testing the string for all blanks.  For 
performance reasons, the code should be modified to look like this:

PGM
DCL    VAR(&STRING)    TYPE(*CHAR)    LEN(50)
CHGVAR VAR(&STRING)    VALUE('    TEST STRING    ')

        IF  COND(&STRING *NE ' ')    THEN(DO)
TRIM:    IF  COND(%SST(&STRING 1 1) *EQ ' ')    THEN(DO)
          CHGVAR        VAR(&STRING)  VALUE(%SST(&STRING 2 49))
          GOTO          CMDLBL(TRIM)
         ENDDO
        ENDDO

SNDPGMMSG   MSG('OUTPUT: "' *CAT &STRING *TCAT '".')
ENDPGM


At 1/14/09 10:25 AM, you wrote:
> The best way to trim leading spaces in CL is a semi-recursive loop.
>
> PGM
> DCL    VAR(&STRING)    TYPE(*CHAR)    LEN(50)
> CHGVAR VAR(&STRING)    VALUE('    TEST STRING    ')
>
> TRIM:  IF   COND(&STRING *NE ' ')    THEN(DO)
>          IF  COND(%SST(&STRING 1 1) *EQ ' ')    THEN(DO)
>           CHGVAR        VAR(&STRING)  VALUE(%SST(&STRING 2 49))
>           GOTO          CMDLBL(TRIM)
>          ENDDO
>         ENDDO
>
> SNDPGMMSG   MSG('OUTPUT: "' *CAT &STRING *TCAT '".')
> ENDPGM
>
>
> --Jason
>
> Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx wrote:
> > you could use varchar in the module then load the resulting string into a
> > fixed length char variable or if you wanted you could have 2 routines one
> > for return fixed length and one for returning a varchar.  but personally i
> > would only write one that returns a fixed length.  it's not going to the
> > that labor-intensive on the system regardless...
> >
> > Thanks,
> > Tommy Holden
> >
> >
> >
> > From:
> > rob@xxxxxxxxx
> > To:
> > Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> > Date:
> > 01/14/2009 08:32 AM
> > Subject:
> > Re: Triming CL stings?
> > Sent by:
> > midrange-l-bounces@xxxxxxxxxxxx
> >
> >
> >
> > Adam,
> >
> > Hey the RPG subprocedure sounds nice but has some implementation issues.
> > For example if I do
> > CALLPRC PRC(Trimmer) PARM((&FROMSTRING)) RTNVAL(&TRIMMED)
> > and Trimmer is a subprocedure in a RPGLE module or service program then it
> >
> > still isn't right because CL doesn't support varying length fields.  At
> > best it would just trim off the leading blanks.  You would have to add
> > further logic after the CALLPRC.
> >
> > Rob Berendt