BPX4TDR (tcdrain) example

The following code waits until all output sent to the standard output file has been transmitted. For the callable service, see tcdrain (BPX1TDR, BPX4TDR) — Wait until output has been transmitted. AMODE 31 callers use BPX1TDR (tcdrain) example.

                                              
         CALL  BPX4TDR,              Wait for output transmittal       +
               (=A(STDOUT_FILENO),   Input: File descriptor            +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------