*DECK     GETHD 
          IDENT  GETHD
          ENTRY  GETHD
          TITLE  GET HOST IDENTIFIER
 GETHD    SPACE  4,20 
*CALL     COMCMAC 
 GETHD    SPACE  4,20 
**        GETHD   - GET HOST ID.
* 
*         FOR NOS - 
*           GETHD GETS MAINFRAME ID, PREFIX IT WITH *PIDPC* AND 
*           RETURN AS HOST ID.
*         FOR NOBE -
*           CALL GETHID TO RETURN PID.
* 
*         THE FORMAT IS 
* 
*         I = GETHD;
* 
*         ENTRY  NONE.
* 
*         EXIT   (X6) = 18/MID,42/0.
* 
*         USES   X - 2, 6.
*                A - 2. 
* 
*         MACROS - MACHID, GETHID.
  
  
 GETHD    SUBR               ENTRY/EXIT 
          BX6    X6-X6       INITIALIZE TEMPORARY STORAGE 
          SA6    GETHDA 
 .NOS     IFEQ   OS$NOS 
          MACHID GETHDA      GET MAINFRAM ID
          SA2    GETHDA 
          SX6    1R"PIDPC"   GET PID PREFIX 
          LX6    59-5 
          LX2    53-11
          BX6    X2+X6
 .NOS     ELSE
          GETHID GETHDA      GET HOST MAINFRAM PID
          SA1    GETHDA 
          LX1    59-17
          BX6    X1 
 .NOS     ENDIF 
          EQ     GETHDX      RETURN 
  
 GETHDA   BSS    1           MAINFRAM ID RETURN AREA
          END 
