OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P

[Contents][Index][Back][Next]

6.7.8 CBLDCCLS('EXNCACPT') - Receive a one-way message (for an extended host name)

Organization of this subsection
(1) Form
(2) Purpose
(3) Data area where the UAP sets values
(4) Data area for which a value is returned
(5) Status codes

(1) Form

(a) In a multi-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLS' USING identifier-1 identifier-2 identifier-3
 
DATA DIVISION
 
01  identifier-1.
  02  data-name-A  PIC  X(8)  VALUE 'EXNCACPT'.
  02  data-name-B  PIC  X(5).
  02  FILLER  PIC  X(3).
  02  data-name-C  PIC  S9(9)  COMP VALUE ZERO.
  02  data-name-D  PIC  S9(9)  COMP.
  02  data-name-E  PIC  X(8).
  02  data-name-F  PIC  X(n).
01  identifier-2.
  02  data-name-G  PIC  S9(9)  COMP.
  02  data-name-H  PIC  X(n).
01  identifier-3.
  02  data-name-I  PIC  9(9)  COMP.
 
(b) In a single-thread environment
PROCEDURE DIVISION
 
CALL 'CBLDCCLT' USING identifier-1 identifier-2
 
DATA DIVISION
 
01  identifier-1.
  02  data-name-A  PIC  X(8)  VALUE 'EXNCACPT'.
  02  data-name-B  PIC  X(5).
  02  FILLER  PIC  X(3).
  02  data-name-C  PIC  S9(9)  COMP VALUE ZERO.
  02  data-name-D  PIC  S9(9)  COMP.
  02  data-name-E  PIC  X(8).
  02  data-name-F  PIC  X(n).
01  identifier-2.
  02  data-name-G  PIC  S9(9)  COMP.
  02  data-name-H  PIC  X(n).
 

(2) Purpose

Waits for a message returned by the CBLDCRPC('CLTSEND ') request code issued on the server side. The program stops waiting for the message if a timeout occurs before receiving the message. The timeout is specified in data-name-D. On reception of the message, this program returns the status code, received message, received message length, host name of the message-originating server, and node identifier of the message-originating server, and control returns to the CUP.

Before executing CBLDCCLS('EXNCACPT'), always issue CBLDCCLS('O-NOTIFY').

Use this function when using the host name extension function.

(3) Data area where the UAP sets values

(4) Data area for which a value is returned

(5) Status codes

Status code Meaning
00000 Normal termination
02501 The value specified in the data area is incorrect.
02502 CBLDCCLS('O-NOTIFY') has not been executed.
02504 A necessary amount of buffer could not be allocated.
02506 Network error
02507 A timeout occurred during message reception.
02518 System error
02535 Versions do not match.
02544 The one-way message reception ID specified in data-name-I differs from the one received by CBLDCCLS('O-NOTIFY').
02546 The received message is too large for the CUP-provided area. The excess portion of the message is truncated. Values have already been set for data-name-E and data-name-F.
02548 An invalid message was received.
02549 The one-way message reception status was canceled by CBLDCCLS('CANCEL ') or CBLDCCLS('EXNCANCL'). Values have already been set for data-name-F, data-name-G, and data-name-H.