       SPL,L,O
!     NAME:   LG..
!     SOURCE: 92067-18245 
!     RELOC:  92067-16185 
!     PGMR:   A.M.G.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
       NAME LG..(8) "92067-16185 REV.1903 780929" 
! 
       LET MESSS BE FUNCTION,EXTERNAL       !SYSTEM MESSG PROCESSOR 
       LET FM.ER BE SUBROUTINE,EXTERNAL     !ERROR PRINTING.
       LET O.BUF,ECH.,                      \TRANSLATED COMMAND 
           S.CAP BE INTEGER,EXTERNAL        !9P - SESSION CAPABILITY
       LET XEQT  BE CONSTANT (1717K)
! 
! 
LG..:  SUBROUTINE GLOBAL
! 
       IF S.CAP THEN                        \IF SESSION, OVERRIDE CAPCK 
          VAL_MESSS(O.BUF,ECH.+ECH.,0,-$($XEQT+32)), \SEND COMMAND TO 
       ELSE VAL_MESSS(O.BUF,ECH.+ECH.)               !SYSTEM
       IF    VAL THEN  FM.ER(2,O.BUF,VAL)   !IF ERROR PRINT IT. 
       RETURN 
       END
       END
       END$ 
                      