OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCRPS' USING identifier-1 identifier-2 identifier-3
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'CLOSE '. 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 9(9) COMP. 01 identifier-2. 02 FILLER PIC X(1). 01 identifier-3. 02 FILLER PIC X(1).
CALL 'CBLDCRPC' USING identifier-1
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'CLOSE '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC S9(9) COMP VALUE ZERO.
Releases the environment for calling the OpenTP1 SPP or using the TCP/IP communication facility.
When executed, CBLDCRPS('CLOSE ') must be paired with CBLDCRPS('OPEN '). The following programs are available after execution of CBLDCRPS('CLOSE ').
Status code | Meaning |
---|---|
00000 | Normal termination |
02401 | The request code (data-name-A) may be invalid. |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.