Customizing the Copybook to Retrieve Multiple Hexadecimal Records

Here is a sample copybook layout for generic retrieval of hexadecimal records.

*                                                         
 01  WS-ROW-AREA.                                         
   03  WS-ROW-HEADER.                                     
*    API Common request - response area                   
     05 IN-API-KEY                         PIC X(9).      
     05 IN-TABLE-NAME                      PIC X(8).      
     05 IN-VTS-NAME                        PIC X(8).      
     05 IN-OFFSET                          PIC S9(9) COMP.
     05 IN-LIMIT                           PIC S9(9) COMP.
     05 OUT-TOTAL-RECS                     PIC S9(8) COMP.
     05 OUT-RECS-THIS-CALL                 PIC S9(8) COMP.
     05 OUT-REC-SIZE                       PIC S9(8) COMP.
     05 OUT-ERROR-CODE                     PIC S9(8) COMP.
     05 OUT-ERROR-SUB-CODE                 PIC S9(8) COMP.
     05 OUT-RESPONSE-MESSAGE               PIC X(80).     
     05 OUT-FILLER                         PIC X(67).     
*    API SPecific area                                    
   03  WS-ROW-DATA OCCURS 100 TIMES.                      
     05 CA-DATA                            PIC X(32000).