BPX1GPT (grantpt) example

The following code grants access to the slave pseudoterminal device that is identified by the file descriptor. For the callable service, see grantpt (BPX1GPT, BPX4GPT) — Grant access to the slave pseudoterminal. AMODE 64 callers use BPX4GPT (grantpt) example.
                                              
         CALL  BPX1GPT,              Grant access to slave pty         +
               (MASTER_FD,           Input: File descriptor            +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------