O'Reilly logo

Designing and Programming CICS Applications by Members of the CICS Development Team at IBM Hursley, John Horswill

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Accessing Applications on the CICS Server

This section describes two methods of handling data with standard CICS object-orientated support through the ECI and secondly using VisualAge InterSpace services.

Handling Data

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 ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required