Re: CLP Parm problem

[thomas@xxxxxxxxxxx]

Ron:

It's almost surprising that your other fields work since they contain nothing 
but numeric characters and are not quoted strings. But you're right that your 
specific question is directly related to the 32-char default parm length.

Change the SBMJOB to build a RQSDTA() string with quoted values for your parms 
instead of using CMD(), and the problem should disappear. The CMD() parm was 
added early in OS/400 to provide an interface to the command prompter. For a 
submitted job such as this, you don't want to involve the part of SBMJOB that 
converts the CMD() value into request data.

But as mentioned (by Doug Handy?) a few days ago, the best solution is to 
create a *CMD command definition object to encapsulate the CALL and the parms 
rather than submitting the CALL directly.

Tom Liotta


On Thu, 19 July 2001, Ron.Hudson@ColAik.com wrote:

> 
> We have a clp pgm submitting a second clp pgm in batch.  All variables are
> *CHAR,
> so we are not concerned with the 15,5 rule for *DEC.
> 
> The fifth parameter, &SUBTITL is 40 bytes in length but we are initializing 
>it with 37
> bytes of data.  The problem is the receiving program has an extra character 
>in one of
> the trailing blanks of this parameter.  It appears to be the next parameter 
>repeated.
> 
> We noticed in a manual reference to character parms over 32 bytes, but could 
>not
> understand the solution or if it actually pertained to our problem.
> 
> Program 1
> PGM
> 
> DCL        VAR(&CHBEGDATE) TYPE(*CHAR) LEN(10) VALUE('20010716  ')
> DCL        VAR(&CHENDDATE) TYPE(*CHAR) LEN(10) VALUE('20010719  ')
> DCL        VAR(&BEGDEPT) TYPE(*CHAR) LEN(3) VALUE('   ')
> DCL        VAR(&ENDDEPT) TYPE(*CHAR) LEN(3) VALUE('999')
> DCL        VAR(&SUBTITL) TYPE(*CHAR) LEN(40) +
>               VALUE('THIS A 37 BYTE LONG IN A 40 BYTE FIEL')
> DCL        VAR(&SORT) TYPE(*CHAR) LEN(1) VALUE('1')
> 
> SBMJOB     CMD(CALL PGM(EDSTESTCB) PARM(&CHBEGDATE &CHENDDATE +
>                   &BEGDEPT &ENDDEPT &SUBTITL &SORT)) +
>                   JOB(EDSTEST)
> 
> ENDPGM
> 
> 
> Program 2
> PGM        PARM(&CHBEGDATE &CHENDDATE &BEGDEPT &ENDDEPT +
>                 &SUBTITLE &SORT)
> 
> DCL        VAR(&CHBEGDATE) TYPE(*CHAR) LEN(10)
> DCL        VAR(&CHENDDATE) TYPE(*CHAR) LEN(10)
> DCL        VAR(&BEGDEPT) TYPE(*CHAR) LEN(3)
> DCL        VAR(&ENDDEPT) TYPE(*CHAR) LEN(3)
> DCL        VAR(&SUBTITLE) TYPE(*CHAR) LEN(40)
> DCL        VAR(&SORT)     TYPE(*CHAR) LEN(1)
> 
> CALL       PGM(JUNK) PARM(&CHBEGDATE &CHENDDATE &BEGDEPT +
>             &ENDDEPT &SUBTITLE &SORT)
> 
> ENDPGM
> 
> Calling program junk (which doesn't exist) gives us a dump displaying the
> following data.
> 
> &BEGDEPT           *CHAR             3        '   '
> &CHBEGDATE     *CHAR          10        '20010716  '
> &CHENDDATE     *CHAR          10        '20010719  '
> &ENDDEPT           *CHAR            3        '999'
> &SORT                     *CHAR            1        '1'
> &SUBTITLE            *CHAR          40        'THIS A 37 BYTE LONG IN A '
>                                +26                '40 BYTE FIEL 1 '
> 
> 
> TIA
> Ron Hudson
> Collins & Aikman
> Ron.Hudson@colaik.com
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

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


___________________________________________________
The ALL NEW CS2000 from CompuServe
 Better!  Faster! More Powerful!
 250 FREE hours! Sign-on Now!
 http://www.compuserve.com/trycsrv/cs2000/webmail/




+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---