ATMI COBOL Function Reference
TPGBLKTIME()
- retrieves the blocktime value previously set by TPSBLKTIME
01 TPBLKDEF-REC.
COPY TPBLKDEF.
01 TPSTATUS-REC.
COPY TPSTATUS.
CALL "TPGBLKTIME" USING TPBLKDEF-REC TPSTATUS-REC.
TPGBLKTIME()
retrieves a previously set, per second, blocktime value and places this value in BLKTIME
in TBLKDEF-REC
. If TPGBLKTIME()
specifies a blocktime flag value, and no such flag value has been set, the return value is 0
. A blocktime flag value less than 0
produces an error.
The following is a list of valid TPBLKDEF-REC
flag values:
If TPGBLKTIME()
does not specify a TPBLK-NEXT
or TPBLK-ALL
blocktime flag value, it returns the applicable blocktime value for the next blocking API set due to a previous TPSBLKTIME()
call with the TPBLK-NEXT
or TPBLK-ALL
flag blocktime value, or a system-wide default blocktime value.
Note: When a workstation client calls TPGBLKTIME()
without a TPBLK-NEXT
or TPBLK-ALL
blocktime flag value, the system-wide default blocktime value cannot be returned. A 0
value is returned instead.
Upon successful completion, TPGBLKTIME()
sets TP-STATUS
to [TPOK]
and returns the previously set blocktime, if any, in BLKTIME
in TBLKDEF-REC
. A BLKTIME
0 value indicates that there are no previously set input blocktime values.
Under the following conditions, TPGBLKTIME
fails and sets TP-STATUS
to one of the following values. The failure does not affect transaction timeout values
Invalid arguments were given. For example, a value other than TPBLK-NEXT
or TPBLK-ALL
was specified in TPBLKDEF-REC
.
TPCALL(3cbl), TPCONNECT(3cbl), TPRECV(3cbl), TPSBLKTIME(3cbl), UBBCONFIG(5)