Re: iSeries COBOL Linkage section/PARM problem

Adrienne,

It appears that you linkage area is getting corrupted.

Check the calling program (CL, RPG, etc.) and ensure
that it is using the same number of bytes for the 
parameter -AND- that the parameter area is being 
initialized properly before being populated with 
data prior to the call to your program.

Terry Winchester 
Programmer/Analyst
________________________________
The Raymond Corporation
terry.winchester@xxxxxxxxxxxxxxx 

-----Original Message-----
From: 
cobol400-l-bounces+terry.winchester=raymondcorp.com@xxxxxxxxxx
om 
[mailto:cobol400-l-bounces+terry.winchester=raymondcorp.com@mi
drange.com] On Behalf Of Adrienne McConnon
Sent: Friday, August 18, 2006 9:11 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] iSeries COBOL Linkage section/PARM problem

Hello all!
 
I am experiencing a problem passing a parameter to a COBOL 
program.  It
appears that the linkage buffer not only contains the parm I 
specified,
but 'STATUS    00' as well.  Below is a section of muy code 
and then the
DSPJOBLOG displays.  I do not understand why that 'STATUS' 
appears after
the 08/15/06 display below.  What am I missing?
 
Thanks,
 
Adrienne McConnon
 
 
 
 
  LINKAGE SECTION.                                                
                                                                  
  01  L-INPUT-PARM         PIC X(1000).                           
                                                                  
  PROCEDURE DIVISION USING L-INPUT-PARM.                          

  0000-BEGIN.                                                     
      DISPLAY '0000-BEGIN'.                                       
                                                                  
      DISPLAY 'L-INPUT-PARM=', L-INPUT-PARM.                      
      PERFORM I000-INIT-RTN THRU I000-END.                        
                                                                  
      PERFORM 0100-PROCESS-PARM THRU                              
              0100-EXIT.                                          
                                                                  
      GO TO 9999-EOJ-RTN.                                         
 

**************************************************************
**********
*****
 
      Display All Messages                              
                                                             System:
MSSAS400 
 Job . . :   QPADEV000C    User . . :   AMCCONNO      Number . . . :
242854   
 

     Member TSTATUS in file ZZB/CBLLE is in use.

     Error found on STRSEU command.

 4 > DSPMSG

 4 > WRKSPLF

 6 > DSPMSG

 6 > call z13work/jstatus parm('DATE-FR=08/03/06 DATE-TO=08/15/06')

     Object PDSPLOG in Z13WORK type *FILE deleted.

     File PDSPLOG created in library Z13WORK.

     Member PDSPLOG added to file PDSPLOG in Z13WORK.

     Object WSTATUS in Z13WORK type *FILE deleted.

     File WSTATUS created in library Z13WORK.

     Member WSTATUS added to file WSTATUS in Z13WORK.

     0000-BEGIN

     L-INPUT-PARM=DATE-FR=08/03/06 DATE-TO=08/15/06 STATUS

 
More... 
     0100-PROCESS-PARM

     LPARM-IN-DATA-REC=DATE-FR=08/03/06 DATE-TO=08/15/06 STATUS

                               00

      PARM-IN-DATA-REC-TABLE=DATE-FR=08/03/06    DATE-TO=08/15/

     06    STATUS

         00

      PARM-IN-DATA (1)=DATE-FR=08/03/06

      PARM-IN-DATA (2)=DATE-TO=08/15/06

      PARM-IN-DATA (3)=STATUS

      PARM-IN-DATA (4)=

      PARM-IN-DATA (5)=

      PARM-IN-DATA (6)=

      PARM-IN-DATA (7)=

 
More... 
 Press Enter to continue.

 

 F3=Exit   F5=Refresh   F12=Cancel   F17=Top   F18=Bottom

Confidentiality Notice:

The preceding e-mail message (including any attachments) contains information 
that may be confidential, protected by applicable legal privileges, or 
constitute non-public information. It is intended to be conveyed only to the 
designated recipient(s). If you are not an intended recipient of this message, 
please notify the sender by replying to this message and then delete it from 
your system. Use, dissemination, distribution or reproduction of this message 
by unintended recipients is 
not authorized and may be unlawful.