NetBase for MPE Reference Guide

NetBase NFA
6-15
005500*Check status of call - if successful, display recv buffer.
005600 IF STATSINFO NOT= 0 THEN
005700 DISPLAY "NBRPC PROCEDURE FAILED"
005800 ELSE
005900 DISPLAY "RECVBUFF = ",RECVBUFF.
006000
006100 STOP-RUN.
:
001000$CONTROL SUBPROGRAM
001100 IDENTIFICATION DIVISION.
001200*
001300 PROGRAM-ID. rpctest.
001400********************************************************
001500* Sample subroutine for use with NBRPC *
001600********************************************************
001700 ENVIRONMENT DIVISION.
001800 CONFIGURATION SECTION.
001900 SOURCE-COMPUTER. HP-3000.
002000 OBJECT-COMPUTER. HP-3000.
002100*
002200 DATA DIVISION.
002300 WORKING-STORAGE SECTION.
002400 LINKAGE SECTION.
002500*
002600 01 STATUSVAR.
002700 05 STATSINFO PIC S9(4) COMP.
002800 05 STATSSUB PIC S9(4) COMP.
002900 01 SENDBUFF PIC X(80).
003000 01 SENDLEN PIC S9(9) COMP.
003100 01 RECVBUFF PIC X(80).
003200 01 RECVLEN PIC S9(9) COMP.
003300*
003400 PROCEDURE DIVISION USING STATUSVAR, SENDBUFF,SENDLEN,
003500 RECVBUFF, RECVLEN.
003600 MAIN-PROGRAM.
003700
003710 CALL INTRINSIC "PRINT" USING SENDBUFF,80,0.
003800 MOVE "IN THE SUBROUTINE" TO RECVBUFF.
003900 MOVE 80 TO RECVLEN.
004000 MOVE 0 TO STATSINFO.
004100
004200 GO-BACK.
: