Run an example program to check user routine support:

  $ DEFINE DEMO_USER_ROUTINE DISKN:[USER]DEMO_USER_ROUTINE.EXE

    You must define the logical name to access the user routine image
    if it is not found in SYS$SHARE.

  $ DEFINE LIB$DEBUG PCA$COLLECTOR
  $ RUN PCA$EXAMPLES:PCA$8QUEENS.EXE
  PCAC> SET SERVICES/USER_ROUTINE=(DEMO_USER_ROUTINE,-)
  _PCAC> DEMO_ENTRY$USER_ROUTINE,-
  _PCAC> DEMO_EXIT$USER_ROUTINE
  PCAC> GO

    Using LIB$DEBUG is the preferred method for using the PCA
    collector.