OpenTP1 Version 7 TP1/Client User's Guide TP1/Client/W, TP1/Client/P
CALL 'CBLDCCLS' USING identifier-1
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'CLTOUT '. 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.
CALL 'CBLDCCLT' USING identifier-1
01 identifier-1. 02 data-name-A PIC X(8) VALUE 'CLTOUT '. 02 data-name-B PIC X(5). 02 FILLER PIC X(3). 02 data-name-C PIC S9(9) COMP VALUE ZERO.
Releases the client user authentication and rejects OpenTP1 services afterwards.
Be sure to execute CBLDCCLS('CLTOUT ') before termination of a CUP. When executed, CBLDCCLS('CLTOUT ') must be paired with CBLDCCLS('CLTIN ').
Status code | Meaning |
---|---|
00000 | Normal termination |
02501 | The request code (data-name-A) may be invalid. |
All Rights Reserved. Copyright (C) 2006, 2009, Hitachi, Ltd.