HP NonStop G-Series - Manual (Page 107)

Defining Custom Counters
Measure User’s Guide — 520560-003
5- 11
Sample COBOL Application
FILE-CONTROL.
SELECT MESSAGE-FILE
ASSIGN TO $RECEIVE.
SELECT REPLY-FILE
ASSIGN TO $RECEIVE.
SELECT PIN-FILE
ASSIGN TO PINFILE
ORGANIZATION IS RELATIVE
ACCESS MODE IS RANDOM
RELATIVE KEY IS REL-KEY
ALTERNATE RECORD KEY IS CUST-NO-A
ALTERNATE RECORD KEY IS PIN-NO WITH DUPLICATES
FILE STATUS IS FILE-STATUS.
RECEIVE-CONTROL.
TABLE OCCURS 10 TIMES
REPLY CONTAINS REPLY-FILE RECORD.
/
*
DATA DIVISION.
FILE SECTION.
FD MESSAGE-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 41 CHARACTERS.
COPY CUST-NOS OF COPYLIB.
FD REPLY-FILE
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 1 TO 142 CHARACTERS.
COPY SEC-NAR-REPLY OF COPYLIB.
FD PIN-FILE
LABEL RECORDS ARE OMITTED.
COPY PIN-RECORD OF COPYLIB.
/
*
WORKING-STORAGE SECTION.
*
COPY JOB-STATE OF COPYLIB.
COPY WS-ERROR-LINE OF COPYLIB.
01 FILE-STATUS.
03 fstat-1 PIC 9.
03 fstat-2 PIC 9.
01 REL-KEY PIC 99 VALUE 1.
*
* This is the WORKING-STORAGE required to support Measure
* user-defined counters.
*
Example 5-3. COBOL Application Containing User-Defined
Counters (page 2 of 6)