BPX1TSC (tcsetcp) example

The following code sets code page names and Code Page Change Notification (CPCN) capability. For the callable service, see tcsetcp (BPX1TSC, BPX4TSC) — Set terminal code page names. For the data structure, see BPXYTCCP — Map the terminal control code page structure. AMODE 64 callers use BPX4TSC (tcsetcp) example.
                                              
         XC    TCCP(TCCP#LENGTH),TCCP  Clear area                       
         OI    TCCPFLAGB4,TCCPFASTP  Set local translation              
         MVC   TCCPSRCNAME(8),=CL8'IBM-1047'  Set source code page name 
         MVC   TCCPTRGNAME(9),=CL9'ISO8859-1' Set target code page name 
         SPACE ,                                                        
         CALL  BPX1TSC,              Set code page names               +
               (=A(STDIN_FILENO),    Input: File descriptor            +
               =A(TCCP#LENGTH),      Input: Length of BPXYTCCP         +
               TCCP,                 Termcp structure, BPXYTCCP        +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------