CLP Parm problem

[Ron.Hudson@xxxxxxxxxx]

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
+---