
  PROCEDURE [XREF] avp$change_password
    (    old_password: avt$password;
         new_password: avt$password;
         expiration_date: ^ost$date_time;
         expiration_interval: ^pmt$time_increment;
         update_batch_job_passwords: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc avt$password
*copyc ost$date_time
*copyc ost$status
*copyc pmt$time_increment
?? POP ??
