RSC/MP 7.2 Programming Manual

Language Conversion for RSC/MP Function Calls
HP NonStop Remote Server Call (RSC/MP) Programming Manual—522360-004
B-4
COBOL Function Format
COBOL Function Format
COBOL function definition:
COBOL function syntax:
WORKING-STORAGE SECTION.
01 OPTION-HANDLE PIC 9(8) COMP-5 VALUE 0
01 CONNECTION-HANDLE PIC 9(8) COMP-5.
01 SESSION-HANDLE PIC 9(8) COMP-5.
01 SERVER-NAME. PIC X(12) VALUE"SERVER-NAME"
01 IO-HANDLE PIC S9(4) COMP-5 VALUE -1
01 REQ-READ.
02 MESSAGE-HEADER.
03 MSG-NUMBER PIC S9(4) COMP.
03 MSG-TYPE PIC S9(4) COMP.
02 CUSTOMER.
03 CUSTOMER-ID PIC X(18).
03 CUSTOMER-NAME PIC X(20).
03 CUSTOMER-STREET PIC X(30).
03 CUSTOMER-CITY PIC X(20).
03 CUSTOMER-ZIP PIC X(6).
01 REQ-READ-SIZE PIC S9(4) COMP-5.
CALL"_RSCWR" USING BY VALUE OPTION-HANDLE
BY VALUE CONNECTION-HANDLE
BY VALUE SESSION-HANDLE
SERVER-NAME
BY VALUE IO-HANDLE
REQ-READ
BY VALUE REQ-READ-SIZE
REQ-READ
REQ-READ-SIZE