HP NonStop G-Series - Manual (Page 109)

Defining Custom Counters
Measure User’s Guide — 520560-003
5- 13
Sample COBOL Application
A-00-ERROR.
* MOVE 1 TO fstat-1.
END DECLARATIVES.
MAIN-PROC SECTION.
*
B-00.
PERFORM OPENERS.
PERFORM READ-MESSAGE UNTIL JOB-STATE = "T".
PERFORM CLOSERS.
B-99.
*
STOP RUN.
/
*
OPENERS SECTION.
*
C-00.
OPEN INPUT MESSAGE-FILE.
OPEN OUTPUT REPLY-FILE.
OPEN INPUT PIN-FILE SHARED.
C-99.
EXIT.
/
*
READ-MESSAGE SECTION.
D-00.
READ MESSAGE-FILE AT END MOVE "T" TO JOB-STATE.
*
* For Measure on $RECEIVE access; that is, a busy counter.
*
PERFORM MEAS-SB.
IF JOB-STATE = "T" GO TO D-99.
PERFORM VERIFY-PIN.
ADD 1 TO WS-MEAS-TOTAL-TRANS.
*
D-99.
EXIT.
/
*
VERIFY-PIN SECTION.
*
F-00.
MOVE CUST-NO-A OF MESSAGE-FILE
TO CUST-NO-A OF PIN-RECORD.
MOVE 0 TO REPLY-CODE OF SEC-NAR-REPLY.
MOVE SPACES TO REPLY-MSG OF SEC-NAR-REPLY.
READ PIN-FILE KEY IS CUST-NO-A OF PIN-RECORD.
Example 5-3. COBOL Application Containing User-Defined
Counters (page 4 of 6)