Re: cl replacment values.

["Paul Morgan" <pmorgan@xxxxxxxxxxxxxx>]

Tim,

If you're building this command in a CL program use the *TCAT operator right
after the library, member and file variables:

CHGVAR VAR(&COMMAND) VALUE('CRTBNDRPG PGM(' *CAT &LIB *TCAT '/' *CAT &MEMBER
*TCAT ') SRCFILE(' *CAT &LIB *TCAT '/' *CAT &FILE *TCAT ') DBGVIEW(*LIST)')

If you're building the command string in RPG use the %TRIMR built in
function (free format):

Command = 'CRTBNDRPG PGM(' + %TrimR( Lib ) + '/' + %TrimR( Member ) + ')
SRCFILE(' + %TrimR( Lib ) + '/' + %TrimR( File ) + ') DBGVIEW(*LIST)';

Paul

-- 
Paul Morgan
Senior Programmer Analyst - Retail
J. Jill Group
100 Birch Pond Drive, PO Box 2009
Tilton, NH 03276-2009
Phone: (603) 266-2117
Fax:   (603) 266-2333

"Hatzenbeler, Tim" wrote

> I have small script, that I would like to use replacement values...
>
> For example...
>
> SBMJOB CMD(CRTBNDRPG PGM(CGINEW/mysrcmember) SRCFILE(CGINEW/CGISRCPGM)
> DBGVIEW(*LIST)) JOB(CGICOMPILE) JOBD(CGINEW/CGIJOBD) OUTQ(TIMHQ)
> INLLIBL(*JOBD)
>
> And I would like to do this..
>
> SBMJOB CMD(CRTBNDRPG PGM(___LIBR___/__SCRIPT__)
> SRCFILE(___LIBR___/___FILE___)
>
> The problem is this...
>
> The output is :
> SBMJOB CMD(CRTBNDRPG PGM(CGINEW    /source     ) SRCFILE(CGINEW    /CGISRC
> )
>
> The extra spaces, causes the command to fail...  Short of writing a
> procedure to remove spaces within '( )', is there a work around?
>
> Thanks, tim