[Inherit ('sys$library:starlet', 'sys$library:pascal$lib_routines')]
  Program ipas(input,output);

 BEGIN

(**************************************************************************)
(* The lib$set_symbol is the command which will set the synonynms for the *)
(* various definitions that you want to define                            *)
(**************************************************************************)
lib$set_symbol('asd','show users/full',2);
lib$set_symbol('cl','@disk$user1:[999888]close',2);

         (*the ',2' is the part which specifies the specific table *)
         (* that the synonyms should be set into by the program.   *)

lib$do_command('SHOW USERS/FULL');

         (* The lib Do_command will execute a DCL command from within *)
         (* The pascal program but afterwards the control of the      *)
         (* Process is not transferred back to the Executable image.  *)
  END.