Re: CLP Parm problem

[Scott Klement <klemscot@xxxxxxxxxxxx>]

This is a (very) frequently asked question.

Please check out the following links to the Midrange.com FAQ-o-matic,
they'll explain the problem and how to fix it:

http://faq.midrange.com/data/cache/70.html
http://faq.midrange.com/data/cache/73.html



On Thu, 19 Jul 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
+---