Figure 5. Defining generic API header data structure

/* Define generic API header data structure--------------------------*/
             DCL        VAR(&ApiHeader) TYPE(*CHAR) STG(*BASED) +
                          LEN(140) BASPTR(&HeaderPtr)
             DCL        VAR(&ListOffseA) TYPE(*CHAR) STG(*DEFINED) LEN(4) +
                          DEFVAR(&ApiHeader 125)
             DCL        VAR(&EntryCounA) TYPE(*CHAR) STG(*DEFINED) LEN(4) +
                          DEFVAR(&ApiHeader 133)
             DCL        VAR(&EntrySizeA) TYPE(*CHAR) STG(*DEFINED) LEN(4) +
                          DEFVAR(&ApiHeader 137)

             DCL        VAR(&ListOffset) TYPE(*INT)
             DCL        VAR(&EntryCount) TYPE(*INT)
             DCL        VAR(&EntrySize) TYPE(*INT)