CL Parm issue

[Ron Harvey <ron.harvey2@xxxxxxxxxxx>]

A programmer at one of my clients just showed me this.
I have bumped into CLP and CLLE parameter issues before, but this is really 
weird.

When the job is submitted, the P#TITLE and P#CREDITS fields are:

&P#TITLE = 50 blanks
&P#CREDITS = 'Y'


After the job begins to execute (no missing code in-between)


&P#TITLE = 33 blanks, a 'Y', 16 blanks  
&P#CREDITS = 'Y'

This has to be a memory overlap issue, but this is pretty straightforward.

Anyone have any ideas. The is a CLLE and running on 5.2

Thanks

Ron

-----------------------------------------------------------

PGM PARM(&P#RPNAME &P#TITLE &P#CREDITS &P#COPIES + 
          &P#OUTQ &P#HOLD &P#SAVE &FDATE &TDATE +   
          &OPT2 &OPT3 &OPT4)                        
                                                    
DCL VAR(&BATCH)     TYPE(*CHAR) LEN(1)             
DCL VAR(&P#CALL)    TYPE(*CHAR) LEN(10)            
DCL VAR(&C)         TYPE(*CHAR) LEN(1) VALUE('C')  
DCL VAR(&P#RPNAME)  TYPE(*CHAR) LEN(50)            
DCL VAR(&P#CFNAME)  TYPE(*CHAR) LEN(50)            
DCL VAR(&P#TITLE)   TYPE(*CHAR) LEN(50)            
DCL VAR(&P#VPROG)   TYPE(*CHAR) LEN(10)            
DCL VAR(&P#CREDITS) TYPE(*CHAR) LEN(1)             
DCL VAR(&P#COPIES)  TYPE(*CHAR) LEN(2)             
DCL VAR(&P#OUTQ)    TYPE(*CHAR) LEN(10)            
DCL VAR(&P#HOLD)    TYPE(*CHAR) LEN(4)             
DCL VAR(&P#SAVE)    TYPE(*CHAR) LEN(4)             
DCL VAR(&FDATE )    TYPE(*CHAR) LEN(8)                       
DCL VAR(&TDATE)     TYPE(*CHAR) LEN(8)                       
DCL VAR(&OPT2)      TYPE(*CHAR) LEN(1)                       
DCL VAR(&OPT3)      TYPE(*CHAR) LEN(1)                       
DCL VAR(&OPT4)      TYPE(*CHAR) LEN(1)                       
DCL VAR(&DOALL)     TYPE(*CHAR) LEN(1)                       
                                                             
        RTVJOBA TYPE(&BATCH)                                 
                                                             
/*  Submit Job  */                                           
                                                             
        IF COND(&BATCH = '1') THEN(DO)                       
          SBMJOB CMD(CALL PGM(VL0120C) +                     
          PARM(&P#RPNAME &P#TITLE &P#CREDITS &P#COPIES +     
               &P#OUTQ &P#HOLD &P#SAVE &FDATE &TDATE +       
               &OPT2 &OPT3 &OPT4)) +                         
          JOB(VELOCITY) +                                    
                                                             
           JOBQ(QSAISGL) +               
           LOGCLPGM(*YES) +              
           LOG(*JOBD *JOBD *SECLVL)      
                                         
           GOTO END                      
         ENDDO                           
                                         
/*  Run Job  */        
                       
    CLRPFM VLSAHIST    
    CLRPFM VLHISTPL