Re: PL/I compile errors

Bruce -
Here are selected lines of code from the program...

33000 DCL QueryString char(32000) varying,
33100 WrkString32k char(32000) varying,
33200 WrkString500 char(500) varying,
[...]
43500 DCL QCMDEXC entry (char(512), decimal(15,5) fixed) options(asm),
43600 CmdString char(512),
43700 CmdLen decimal(15,5) fixed;
[...]
308800 DCL OvrDbfString char(255),
308900 FromFile char(10),
309000 ToFile char(10),
309100 ToMember char(10),
309200 ToLib char(10);
[...]
85100 WrkString32k = BlankCompress(WrkString32k, '_');
213700 WrkString500 = BlankCompress(OutfileLibrary || '/' ||
251200 CmdString = BlankCompress(WrkString500, '¬');
[...]
251400 call QCMDEXC (CmdString, CmdLen);
[...]
310100 OvrDbfString = BlankCompress(OvrDbfString, '¬');
[...]
311500 BlankCompress: PROC(SrcString, xChar) RETURNS(char(32000)
varying);
311600
311700 DCL SrcString char(32000) varying,
311800 xChar char(1),
311900 OutString char(32000) varying,
312000
312100 Idx bin fixed,
312200 SrcStrLen bin fixed;
312300
312400 OutString = '';
312500 SrcStrLen = length(SrcString);
312600
312700 do Idx = 1 to SrcStrLen;
312800 if (substr(SrcString,Idx,1) ¬= ' ') then
312900 OutString = OutString || substr(SrcString,Idx,1);
313000 end;
313100
313200 OutString = translate(OutString,' ', xChar);
313300
313400 return(OutString);
313500 end BlankCompress;



Bruce wrote:
Where is CmdString defined? What are it's attributes?

An empty argument implies that nothing was passed as in:

return = procName();

For some reason, I have a nagging recollection that returns values are
Implemented in PL/I as a hidden parameter. Much like the recent RPG IV
addition of rtnparm.

So it's conceivable that the CmdString is the actual argument that the
compiler is complaining about.