Export/Import procedures

["Frances Denoncourt" <Frances.Denoncourt@xxxxxxxxxxxxxx>]

I have created some I/O modules that seemed to be working except in this
instance where I am CHAINing to a logical file and have prefixed the
field names. The found indicator is set on, but the data is not passed
back as I expected. I am in debug and can see where the CHAIN worked but
the prefixed field names do not have any values; however the
non-prefixed field names do have expected values.
Other programs that use I/O modules work and pass data back to the
calling program, but this is the first instance where I needed data in
the prefixed fields passed back rather than just the FOUND indicator.
It seems that the export is working in the global portion of the
programs if there is no prefix.
I must be missing something with the prefix.
Thanks
----------------------------------------------------------------------------------------------------------
Calling program:
D  PrclImpExp2  E DS                  ExtName(TxPrcl02) Prefix(C2:2)
Import
....
C                   Eval      FoundCN_Prcl2 = P$Get_Prcl2(S#Action: 
C                                                    S#Found:       
C                                                    S#Errors:      
C                                                    S#EndOfFile:   
C                                                    W48Prc)        
---------------------------------------------------------------------------------------------------------

I/O module
HNOMAIN                                                             
 *****************************************************************  
FTxPrcl02  UF A E           K DISK    UsrOpn Rename(TxPrclR:TxPrcl2))
D  PrclImpExp2  E DS                  ExtName(TxPrcl02) Prefix(C2:2)
Export
 
* ------------------------------------------------------------------ *
  *  Get_Prcl2         Determine what action to take                 * 

  * ------------------------------------------------------------------
*
 PP$Get_Prcl2      B                   Export                          

 DP$Get_Prcl2      PI             1N                                   

 D  Action                       10                                    

 D  PFound                        1N                                   

 D  PErrors                       1N                                   

 D  PEndOfFile                    1N                                   

 D  PCLK2Prcl                    10    const options(*Nopass)          

 D  PCLK2Year                     4  0 const options(*nopass)          

 D  PCLK2Seq                      3  0 const options(*nopass)          

 /copy Qprotosrc,P$IOPrcl2  

...... 
 C                   CallP     P$Chain_Prcl2(PFound  :  
 C                                          PErrors:    
 C                                          PEndOfFile: 
 C                                          PCLK2Prcl)  
 .....
  *                                              
 PP$Chain_Prcl2    B                   Export    
 DP$Chain_Prcl2    PI             1N             
 D  PFound                        1N                         
 D  PErrors                       1N                         
 D  PEndOfFile                    1N                         
 D  PCLK2Prcl                    10    const                 
 D  PCLK2Year                     4  0 const options(*nopass)
 D  PCLK2Seq                      3  0 const options(*nopass)
.....
 C                   When      NumParms = 4 
 C     PrclK2_1      Chain     TxPrcl2      
......
 C                   Eval      PFound  = %Found  
 C                   Eval      PErrors = %Error  
 C                   Return    PFound            


Fran Denoncourt
Pinal County Treasurer's Office
Florence, AZ 85232
(520) 866-6404