********************************************************************       
     ********************************************************************       
     *******                                                                    
     ****** QVIRPGCPY,RETURNCODE                                                
      * Manually include this Returncode structure since copy book               
      * contains error in definition of ErrLog field that can cause              
      * intermittent errors, as well as hard failures.                          
      *                                                                         
      * Return Code Information Structure (RCSTRUCT)                            
     DRETCODE          DS                                                       
     DRcStruct                        9B 0                                      
     DRC                              9B 0                                      
     DReserved1                       4B 0                                      
     DParam                           4B 0                                      
     DParam1                          9B 0                                      
     DParam2                          9B 0                                      
     DRcPtrAlign1                    12A                                        
     DParam1PTR                        *                                        
     DParam2PTR                        *                                        
     DExtRC                           9B 0                                      
     DExtReason                       9B 0                                      
     DRcPtrAlign2                     8A                                        
     DApplDataPtr                      *                                        
     DApplData                        9B 0                                      
     DReserved2                       9B 0                                      
     DRcPtrAlign3                     8A                                        
     DErrLog                           *                                        
     **                                                                         
     **********************************************************************