BPX1STE (set_timer_event) example

The following code sets a timer event, which when it expires will post the ECB represented by THLITIMERECB. For the callable service, see set_timer_event (BPX1STE, BPX4STE) — Set DIE-mode timer event. AMODE 64 callers use BPX4STE (set_timer_event) example.
                                              
         CALL  BPX1STE,              Set timer event                   +
               (=A(2),               Input: Number of seconds          +
               =A(500000000),        Input: Number of nanoseconds      +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------