RE: Copy variable to PF

[David FOXWELL <David.FOXWELL@xxxxxxxxx>]

> -----Message d'origine-----
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Terrence Enger
> It looks like the responses assume that you are working in 
> RPG, but I do not see where you said so.

That's what I thought as well, but I didn't need an RPG solution. Thanks, anyway, guys!


 
> If you were working in QSH, this would be entirely too easy 
> <grin />, so let's see how you might do it from CL.
>
> ï    pgm
>
> ï       dcl            &MyVar      *char    30    +
> ï                      value('Abcd;cdef;ghijk;12345678aa')
> ï       dcl            &MyVarName  *char    10    value('MyVar')
>
> ï       dcl            &cmdstr     *char   300
>
> ï       addenvvar      &MyVarName &MyVar replace(*yes)


OK up to there.


> ï       chgvar         &cmdstr +
> ï                      ( '+
> ï                        db2 "insert into v40lbtxe.filea values( +
> ï                          $( q1="''" IFS='';'' ; +
> ï                             declare -i len=${#MyVar}-1 ; +
> ï                             MyVarTruncated=${MyVar:0:$len} ; +
> ï                             list=$q1 sep='''' ; +
> ï                             for v in $MyVarTruncated ; do +
> ï                               list="$list$sep$v" sep="$q1, $q1" ; +
> ï                            done ; +
> ï                            list="$list$q1" ; +
> ï                            echo $list ; +
> ï                          ) +
>                         ) " +
> ï                      ')

Say what?