!
! IMP equivalent of $PSIDEF macro
!
%const %integer -
      PSI C ERR BAD PVCNAME          = 16_15,
      PSI C ERR BADNAME              = 16_12,
      PSI C ERR BADPARM              = 16_04,
      PSI C ERR CONFLICT             = 16_03,
      PSI C ERR FACLNG               = 16_01,
      PSI C ERR INVITEM              = 16_02,
      PSI C ERR INVNUM               = 16_07,
      PSI C ERR L3ERR                = 16_13,
      PSI C ERR MANYICI              = 16_09,
      PSI C ERR NOICI                = 16_08,
      PSI C ERR NOL3                 = 16_11,
      PSI C ERR NOLINES              = 16_0B,
      PSI C ERR NOLOCAL              = 16_0F,
      PSI C ERR NONONPAG             = 16_10,
      PSI C ERR NOSUCHLINE           = 16_0C,
      PSI C ERR NOSUCHNET            = 16_0E,
      PSI C ERR NOSUCHPVC            = 16_0D,
      PSI C ERR NOTIMP               = 16_0A,
      PSI C ERR NOTRANS              = 16_05,
      PSI C ERR PVCALRACC            = 16_14,
      PSI C ERR RECURLMT             = 16_06,
      PSI C ERR UNKNOWN              = 16_00

%const %integer -
      PSI C INTACK                   = 16_02,
      PSI C INTERRUPT                = 16_01

%const %integer -
      PSI C L3 CALCOL                = 16_0A,
      PSI C L3 LNKDWN                = 16_06,
      PSI C L3 LNKRRT                = 16_08,
      PSI C L3 LNKRST                = 16_05,
      PSI C L3 LNKUP                 = 16_07,
      PSI C L3 LOCAL                 = 16_01,
      PSI C L3 LOCERR                = 16_04,
      PSI C L3 LOCMGT                = 16_09,
      PSI C L3 NETERR                = 16_03,
      PSI C L3 NETTIM                = 16_0B,
      PSI C L3 NETWRK                = 16_02

%const %integer -
      PSI C NCB ACCOUNT              = 16_21,
      PSI C NCB CAUSE                = 16_13,
      PSI C NCB CUG                  = 16_11,
      PSI C NCB CUGN                 = 16_1C,
      PSI C NCB CUGNB                = 16_1D,
      PSI C NCB DIAGCODE             = 16_12,
      PSI C NCB ENDTOEND             = 16_08,
      PSI C NCB ENDTOENDR            = 16_09,
      PSI C NCB FSEL                 = 16_0E,
      PSI C NCB FSEL RES             = 16_0F,
      PSI C NCB GATEWAY              = 16_0A,
      PSI C NCB ICI                  = 16_0B,
      PSI C NCB LCN                  = 16_1B,
      PSI C NCB LINE                 = 16_19,
      PSI C NCB LOCDTE               = 16_03,
      PSI C NCB LOCFAC               = 16_17,
      PSI C NCB LOCFACR              = 16_0D,
      PSI C NCB LOCNET               = 16_1E,
      PSI C NCB LOCSUBADR            = 16_04,
      PSI C NCB NETWORK              = 16_1E,
      PSI C NCB NULL                 = 16_00,
      PSI C NCB OBJNAME              = 16_07,
      PSI C NCB PASSWORD             = 16_20,
      PSI C NCB PKTSIZE              = 16_15,
      PSI C NCB PVCNAM               = 16_18,
      PSI C NCB PVCSET               = 16_1A,
      PSI C NCB REASON               = 16_14,
      PSI C NCB REMDTE               = 16_01,
      PSI C NCB REMSUBADR            = 16_02,
      PSI C NCB RESPDATA             = 16_06,
      PSI C NCB REVCHG               = 16_0C,
      PSI C NCB THRUCLS              = 16_10,
      PSI C NCB USERDATA             = 16_05,
      PSI C NCB USERID               = 16_1F,
      PSI C NCB WINSIZE              = 16_16

%const %integer -
      PSI C NTD ACCLVL               = 16_01,
      PSI C NTD DATMSK               = 16_07,
      PSI C NTD PRIORITY             = 16_08,
      PSI C NTD REMDTE               = 16_04,
      PSI C NTD SAHI                 = 16_03,
      PSI C NTD SALO                 = 16_02,
      PSI C NTD USRDATA              = 16_06,
      PSI C NTD USRGRP               = 16_05

%const %integer -
      PSI C READPAD                  = 16_05,
      PSI C RESET                    = 16_03,
      PSI C RESTART                  = 16_07,
      PSI C SETPAD                   = 16_04,
      PSI C SETREADPAD               = 16_06

%const %integer -
      PSI C X29 READ PARAM           = 16_0A,
      PSI C X29 READ SIZE            = 16_0B,
      PSI C X29 SET PARAM            = 16_09,
      PSI C X29 TEMP NOHANG          = 16_08

%const %integer -
      PSI K INTACK                   = 16_02,
      PSI K INTERRUPT                = 16_01,
      PSI K READPAD                  = 16_05,
      PSI K RESET                    = 16_03,
      PSI K RESTART                  = 16_07,
      PSI K SETPAD                   = 16_04,
      PSI K SETREADPAD               = 16_06

%const %integer -
      PSI K X29 READ PARAM           = 16_0A,
      PSI K X29 READ SIZE            = 16_0B,
      PSI K X29 SET PARAM            = 16_09,
      PSI K X29 TEMP NOHANG          = 16_08

%const %integer -
      PSI M MOREDATA                 = 16_01,
      PSI M QUALIFIED                = 16_02,
      PSI M STS LOCDTELNG            = 16_02,
      PSI M STS PKTBAD               = 16_20,
      PSI M STS PVC                  = 16_01,
      PSI M STS REMDTELNG            = 16_04,
      PSI M STS THRBAD               = 16_40,
      PSI M STS USERLNG              = 16_08,
      PSI M STS WINBAD               = 16_10

%const %integer -
      PSI V MOREDATA                 = 16_00,
      PSI V QUALIFIED                = 16_01

%const %integer -
      PSI V STS LOCDTELNG            = 16_01,
      PSI V STS PKTBAD               = 16_05,
      PSI V STS PVC                  = 16_00,
      PSI V STS REMDTELNG            = 16_02,
      PSI V STS THRBAD               = 16_06,
      PSI V STS USERLNG              = 16_03,
      PSI V STS WINBAD               = 16_04
