RE: Passing parms of len(100) type(*char) from ILE RPG to ILE CL to ILE RPG

[qsrvbas@xxxxxxxxxxxx (Tom Liotta)]

William:

I'm not sure there's any CL restriction that isn't the same for other languages 
as far as 15p5 goes. Even it the target is OPM RPG, the result will be similar.

It isn't so much a CL issue as it is a programmer issue. The problem generally 
appears when a programmer uses the CMD() parm of SBMJOB in a program rather 
than the RQSDTA() parm. What the CMD() parm more or less does is take the parm 
value and convert it into RQSDTA() to make things a bit easier for programmers; 
the coverted RQSDTA() value is what _really_ gets submitted, I believe. But 
this has the most value when the CMD() value is... ummm... a CMD, not just a 
CALL. The CMD() parm provided for command prompting and validation; this is 
generally irrelevant for pure CALLs.

In RQSDTA(), packed values can be included with something like:

  ...&pVar1 *bcat 'x''' *cat &cVar *tcat 'F''' *bcat...

The &cVar in the middle is the *CHAR representation of the packed value with 
characters such as embedded decimal points removed. If the numeric value was 
*DEC (5 2) with a value 23.17, then &cVar could result in '02317'. After the 
concatenations, it could come across as [x'02317F'] in a RQSDTA() string. There 
are often fine-tunings needed, but that's one potential path.

Of course, potentially far better is not submitting a CALL but creating a 
proper CMD object to prototype the CALL and then submitting the command. Then 
the CMD() parm works great -- that's what it was designed for (AFAIK).

Tom Liotta

rpg400-l-request@xxxxxxxxxxxx wrote:

>   2. RE: Passing parms of len(100) type(*char) from ILE RPG to ILE
>      CL to ILE RPG (William Washington III)

>(Now all I do is copy the 100-char parm into a 101-char field with the last 
>character of "*", then use the 101-char field as the parameter when submitting 
>itself.  Now, only if CL could get away from the 15p5 decimal field issues...  
>;-)


-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com



__________________________________________________________________
Introducing the New Netscape Internet Service. 
Only $9.95 a month -- Sign up today at http://isp.netscape.com/register

Netscape. Just the Net You Need. 

New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp