BPX4TGC (tcgetcp) example

The following code retrieves information about code page change notification (CPCN) capability and the BPXYTCCP structure. For the callable service, see tcgetcp (BPX1TGC, BPX4TGC) — Get terminal code page names. For the data structure, see BPXYTCCP — Map the terminal control code page structure. AMODE 31 callers use BPX1TGC (tcgetcp) example.
                                              
         CALL  BPX4TGC,              Get code page names               +
               (=A(STDIN_FILENO),    Input: File descriptor            +
               =A(TCCP#LENGTH),      Input: Length of BPXYTCCP         +
               TCCP,                 Output: Termcp structure BPXYTCCP +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------