Pathmaker Programming Guide

Coding Custom Services
Creating Services and Servers
067868 Tandem Computers Incorporated 4–33
Figure 4-9 lists a portion of the COBOL code compile listing for a server that uses this
service.
Figure 4-9. Custom COBOL85 Server Sample Code (Page 1 of 2)
WORKING-STORAGE SECTION.
01 S215-WS-1.
05 S215-TEMP-TOT PIC 9(9).
05 S215-TEMP-AVG PIC 999V999.
01 S215-WS-2.
05 S215-HOLD-ACCESS-CODE PIC X(3).
05 S215-HOLD-PREV-DATE PIC 999999.
01 S215-ERROR-FLAG PIC X
VALUE “N”.
* COPY S215-WS OF $DATA.ACCOUNT.WS.
01 S215-WS.
05 S215-HOLD-CURRENT-J-DT PIC 99999.
05 S215-HOLD-CURRENT-DATE PIC X(6).
05 S215-HOLD-TRNS-J-DT PIC 99999.
05 S215-HOLD-TRNS-DATE PIC X(6).
. . .
PROCEDURE DIVISION.
. . .
S215-CALC.
PERFORM S215-1000-GET-DATE
PERFORM S215-2000-TOTALS
PERFORM S215-3000-AVGS
PERFORM S215-4000-FINISH-UP.
S215-1000-GET-DATE.
*COPY JULIAN-CONV-ROUTINE OF $DATA.ACCOUNT.GLOBALPR.
code to do Julian date conversion
S215-2000-TOTALS.
code to do totals
S215-3000-AVGS.
code to do averages
S215-4000-FINISH-UP.
IF S215-ERROR-FLAG EQUAL “N”
MOVE S215-TEMP-AVG TO AVERAGE OF T9154-REPLY
MOVE T9154-RETURN-SERVICE-REPLY TO T9154-REPLY-FLAG
MOVE “N” TO T9154-TMF-ABORT-FLAG
MOVE “N” TO T9154-ADVISORY-MSG-SEVERITY
MOVE MSG-1 TO T9154-ADVISORY-MSG-TEXT
MOVE ZEROS TO T9154-REASON-CODE