BPX4UTI (utime) example

The following code changes the access and modification times of /usr/private/workfile.t to the current time. For the callable service, see utime (BPX1UTI, BPX4UTI) — Set file access and modification times. AMODE 31 callers use BPX1UTI (utime) example.
                                              
         MVC   BUFFERA(23),=CL23'/usr/private/workfile.t'               
         MVC   BUFLENA,=F'23'                                           
         MVC   NEWTIMES,=X'FFFFFFFFFFFFFFFF'  Current time              
         SPACE ,                                                        
         CALL  BPX4UTI,              Set file access and modify times  +
               (BUFLENA,             Input: Pathname length            +
               BUFFERA,              Input: Pathname                   +
               NEWTIMES,             Input: Access/Modification time   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               MF=(E,PLIST)          ----------------------------------