&ZPSERVIC

Returns the value of the first four bytes of the PSERVIC field of the BIND for the current terminal.

The PSERVIC fields of the BIND parameters used when the current terminal was connected can be interrogated using the &ZPSERVIC variable. Certain terminal types might have non-standard PSERVIC values indicating particular device characteristics. NCL procedures can use &ZPSERVIC to gain access to these settings.

Example: &ZPSERVIC

&1 = &SUBSTR &ZPSERVIC 3 1 
&IF &1 EQ 10 &THEN +
    &GOSUB .SPECIAL-DEV

Note: The PSERVIC field of the BIND parameters identifies the type of device that is connected, and provides information such as screen sizes. Additional bits within the PSERVIC field can also be used in Fujitsu installations to indicate special terminal attributes, such as DBCS or three-color support.