Pathmaker Programming Guide

Coding Custom Services
Creating Services and Servers
4–32 067868 Tandem Computers Incorporated
Custom Source File COBOL85 Example
Figure 4-8 is an example of custom service code in a Custom Source File.
Figure 4-8. Custom Source File COBOL85 Sample Code
?SECTION T9WS-S215-CALC
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.
?SECTION T9PR-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.
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
ELSE
MOVE T9154-RETURN-ADVISORY-ONLY TO T9154-REPLY-FLAG
MOVE “N” TO T9154-TMF-ABORT-FLAG
MOVE “W” TO T9154-ADVISORY-MSG-SEVERITY
MOVE MSG-2 TO T9154-ADVISORY-MSG-TEXT
MOVE 2 TO T9154-REASON-CODE
ENDIF.