HELPLIB.HLB  —  Lexicals  F$GETJPI  Examples
    1.$ NAME = F$GETJPI("3B0018","USERNAME")
      $ SHOW SYMBOL NAME
        NAME = "JANE        "

      This example shows how to use the F$GETJPI function to return
      the user name for the process number 3B0018. The user name is
      assigned to the symbol NAME.

    2.$ X=F$ENVIRONMENT("MESSAGE")
      $ SHOW SYMBOL X
        X = "/FACILITY/SEVERITY/IDENTIFICATION/TEXT"
      $ X=F$GETJPI("0","MSGMASK")
      $ SHOW SYMBOL X
        X = 15   Hex = 0000000F  Octal = 00000000017
      $ SET MESSAGE /NOFACILITY
      $ X=F$ENVIRONMENT("MESSAGE")
      $ SHOW SYMBOL X
        X = "/NOFACILITY/SEVERITY/IDENTIFICATION/TEXT"
      $ X=F$GETJPI("0","MSGMASK")
      $ SHOW SYMBOL X
        X = 7   Hex = 00000007  Octal = 00000000007
      $ SET MESSAGE /FACILITY
      $ X=F$ENVIRONMENT("MESSAGE")
      $ SHOW SYMBOL X
        X = "/FACILITY/SEVERITY/IDENTIFICATION/TEXT"
      $ X=F$GETJPI("0","MSGMASK")
      $ SHOW SYMBOL X
        X = 15   Hex = 0000000F  Octal = 00000000017
      $

      This example shows the use of the F$GETJPI MSGMASK item.
Close Help