Re: How to do %LEN(%TRIM(&myStringVariable)) in CL program?

[Ken Sims <mr2087@xxxxxxxxx>]

Hi Reggie -

> The CPP source:
>  RTVSTRLEN:  PGM        PARM(&STRING &STRLEN)
>              DCL        VAR(&STRING) TYPE(*CHAR) LEN(5002)
>              DCL        VAR(&STRLENA) TYPE(*CHAR) LEN(2)
>              DCL        VAR(&STRLEN) TYPE(*DEC) LEN(4 0)
>
>              CHGVAR     VAR(&STRLENA) VALUE(%SST(&STRING 1 2))
>              CHGVAR     VAR(&STRLEN) VALUE(%BIN(&STRLENA))

You can simplify this by defining &STRING with a length of two and not 
using &STRLENA.  Since the caller owns the storage, there is no need to 
define it any longer than what you need to use.

If you really want to keep the length of &STRING matching the command 
definition, you can still eliminate &STRLENA since %BIN accepts a starting 
position and length parameter:

             CHGVAR     VAR(&STRLEN) VALUE(%BIN(&STRLENA 1 2))

Ken
http://www.ke9nr.net/
Opinions expressed are my own and do not necessarily represent the views of 
my employer or anyone in their right mind.