NetBase for MPE Reference Guide

Chapter 6
6-14
The following is sample code for NBRPC:
001000 IDENTIFICATION DIVISION.
001100*
001200 PROGRAM-ID. RPCCOB.
001300*****************************************************
001400* Sample main program for use with NBRPC *
001500*****************************************************
001600 ENVIRONMENT DIVISION.
001700 CONFIGURATION SECTION.
001800 SOURCE-COMPUTER. HP-3000.
001900 OBJECT-COMPUTER. HP-3000.
002000*
002100 DATA DIVISION.
002200 WORKING-STORAGE SECTION.
002300*Variables for NBRPC
002400 01 NODENUM PIC S9(9) COMP.
002500 01 STATUSVAR.
002600 05 STATSINFO PIC S9(4) COMP.
002700 05 STATSSUB PIC S9(4) COMP.
002800 01 PROCNAME PIC X(28) VALUE SPACES.
002900 01 XLNAME PIC X(28) VALUE SPACES.
003000 01 SENDBUFF PIC X(80) VALUE SPACES.
003100 01 SENDLEN PIC S9(9) COMP.
003200 01 RECVBUFF PIC X(80) VALUE SPACES.
003300 01 RECVLEN PIC S9(9) COMP.
003400*
003500 PROCEDURE DIVISION.
003600 MAIN-PROGRAM.
003700
003800* Initialize variables for NBRPC call
003900 MOVE 0 TO STATSINFO.
004000 MOVE 0 TO STATSSUB.
004100*
004200 MOVE 7 TO NODENUM.
004300*
004400 MOVE "%RPCTEST%" TO PROCNAME.
004500 MOVE "%XL.RPC.NETBASE%" TO XLNAME.
004600
004700 MOVE "TEST FOR RPC" TO SENDBUFF.
004800 MOVE 80 TO SENDLEN.
004900 MOVE 80 TO RECVLEN.
005000
005100*Call NetBase Remote Procedure
005200 CALL "NBRPC" USING NODENUM, STATUSVAR, PROCNAME, XLNAME,
005300 SENDBUFF,SENDLEN, RECVBUFF, RECVLEN.
005400