Procedure Problem

["Mark Walter" <mwalter@xxxxxxxxxx>]

All,

 

I have a service program of string handling routines I am trying to develop. I have a procedure called "Center" that receives a string and an output len then centers the text into a field. I defined the parameters as 256 with the CONST and OPTIONS(*varsize) keywords. The problem is when i try to pass a sub-element of a data structure to the procedure, the entire data structure is passed, not just the sub-element. I have included code snippets below.

 

TIA

 

Mark Walter

 

Test program module source

 

    Dshiptods         ds           155                            
    D dsshpnm                       35    OVERLAY(shiptods:1)     
    D dsship1                       35    OVERLAY(shiptods:36)    
    D dsship2                       35    OVERLAY(shiptods:71)    
    D dsship3                       35    OVERLAY(shiptods:106)   
    D dsshpst                        2    OVERLAY(shiptods:141)   
    D dsshpzp                       10    OVERLAY(shiptods:143)   
    D dsshpco                        3    OVERLAY(shiptods:153)   
     *                                                            
    Dlen              s              3p 0 INZ(35)                 
    Doutput           s             35                            
    Dcusno            s              8  0 inz(206800)             
    Dstore            s              8    inz('A1889')            
     *                                                            
    C                   EVAL      shiptods = GetShipto(cusno:store)
                                                                  
    C                   EVAL      output = Center(dsshpnm:len)    
    C   output       DSPLY                                     
    C                   CLEAR                   output            

String handling service program

 

   HNOMAIN                                                                     
    * module prototypes                                                        
   DCenter           PR           256                                          
   D instring                     256    OPTIONS(*varsize) CONST               
   D strlen                         3p 0 CONST                                 
    * Procedure Interface                                                      
   PCenter           B                   EXPORT                                
   DCenter           PI           256                                          
   D instring                     256    OPTIONS(*varsize) CONST               
   D strlen                         3p 0 CONST                                 
    * work fields                                                              
   D outstring       S            256                                          
   Dwork_arr         S              1    DIM(256)                              
   Dx                S              3  0                                       
   Dstrt             S              3  0                                       
     C                   MOVEA     instring      work_arr                         

 

Instring contains the entire data structure