‚*--------------------------------------------------------------------*                        
     ‚* Created on: April 27th, 2009.                                      *                        
     ‚* Created by: Robert Hicks                                           *                        
     ‚* Reason    : String type module structures.                         *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚*--------------------------------------------------------------------*                        
     ‚*   COPYRIGHT (C) 2009 ROBERT HICKS.  ALL RIGHTS RESERVED.           *                        
     ‚*   THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS         *                        
     ‚*   AS IS AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING,          *                        
     ‚*   BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF                    *                        
     ‚*   MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE         *                        
     ‚*   DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS        *                        
     ‚*   LIABLE FOR ANY DIRECT,  INDIRECT, INCIDENTAL, SPECIAL,           *                        
     ‚*   EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT          *                        
     ‚*   LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;         *                        
     ‚*   LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)         *                        
     ‚*   HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN        *                        
     ‚*   CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE        *                        
     ‚*   OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS          *                        
     ‚*   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH             *                        
     ‚*   SUCH DAMAGE.                                                     *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚*--------------------------------------------------------------------*                        
     ‚* MODIFICATIONS:                                                     *                        
     ‚*                                                                    *                        
     ‚*    Date     Changed by   Spec. #  Description of changes           *                        
     ‚* ----------  ---------- ---------- -------------------------------- *                        
     ‚*--------------------------------------------------------------------*                        
                                                                                                    
     ‚**                                                                                            
     ‚* Request Control block structure.                                                            
      /IF NOT DEFINED($ReqCB01_t)                                                                   
      /DEFINE $ReqCB01_t                                                                            
     D$ReqCB01_t       DS            22    Based(#ReqCB_t) Qualified                                
     D #ReqType                      10I 0                                                          
     D #CCSID                        10I 0                                                          
     D #CaseReq                      10I 0                                                          
     D $Resv                         10                                                             
      /ENDIF                                                                                        
                                                                                                    
      /IF NOT DEFINED($ReqCB02_t)                                                                   
      /DEFINE $ReqCB02_t                                                                            
     D$ReqCB02_t       DS            28    Based(#ReqCB_t) Qualified                                
     D #ReqType                      10I 0                                                          
     D #DBCS                         10I 0                                                          
     D $TblNameQual                  20                                                             
      /ENDIF                                                                                        
                                                                                                    
      /IF NOT DEFINED($ReqCB03_t)                                                                   
      /DEFINE $ReqCB03_t                                                                            
     D$ReqCB03_t       DS         32783    Based(#ReqCB_t) Qualified                                
     D #ReqType                      10I 0                                                          
     D #DBCS                         10I 0                                                          
     D $Resv                         10I 0                                                          
     D #UsrDfnTblLen                 10I 0                                                          
     D $UsrDfnTbl                 32767                                                             
      /ENDIF                                                                                        
                                                                                                    
     ‚**                                                                                            
     ‚* Error structure work variables.                                                             
      /IF NOT DEFINED($GenErr_t)                                                                    
      /DEFINE $GenErr_t                                                                             
     D$GenErr_t        DS                  Based(#GenErr_t) Qualified                               
     D #BytPrv                       10I 0                                                          
     D #BytAvl                       10I 0                                                          
     D $ErrID                         7                                                             
     D                                1                                                             
     D $ErrDsc                    32756                                                             
      /ENDIF