This section describes two methods of handling data with standard CICS object-orientated support through the ECI and secondly using VisualAge InterSpace services.
Let’s look at some extracts taken from the Visual Basic Project module, comsubs.bas, of our sample application. Comsubs.bas is concerned with the connection to the CICS server application by native CICS calls. The data-handling methods used with VisualAge Interspace is discussed Creating the VisualAge Interspace Service for the NACT02 CICS Server Application later in this chapter.
The definitions of the Visual Basic GUI data fields used by NACT05 are shown in Example 13-1.
Example 13-1. Definitions of the Visual Basic GUI Data Fields
'structure of Account Browser (NACT05) commarea Public Const commBRWSlength = 30668 '0 to 30688 total value 30669 ' Byte array for Acct Browse CICS COMMAREA Public cabrws(commBRWSlength) As Byte Public cabrws_version As String * 3 Public cabrws_request As String * 1 Public cabrws_response As String * 4 Public cabrws_reason As String * 4 Public cabrws_function As String * 5 Public cabrws_limit As String * 4 Public cabrws_found As String * 4 Public cabrws_more As String * 4 Public cabrws_matches(80) As AccRecord
Note how nested structures contained within the COMMAREA are handled. The COMMAREA definition contains a datatype AccRecord whose definition includes a datatype of PayHistory. The datatype AccRecord is defined as shown in Example 13-2 ...