*DECK     PHT 
          IDENT  PHT
          TITLE  PHT - PROCESS HOST TYPE PARAMETER. 
          SST 
          SYSCOM B1 
  
  
          ENTRY  PHT
  
          COMMENT  PROCESS HOST TYPE PARAMETER. 
          COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1994. 
          SPACE  4,10 
**        PHT - PROCESS HOST TYPE PARAMETER.
* 
*         J. G. CLARK        80/05/27.
          SPACE  4,10 
**        COMMON DECKS. 
  
  
*CALL COMCMAC 
*CALL COMCAPR 
*CALL COMCCAE 
*CALL COMCPTF 
 PHT      SPACE  4,10 
**        PHT - PROCESS HOST TYPE PARAMETER.  SAVE HOST TYPE
*         AT MEMORY LOCATION HOSTYP.
* 
*         ENTRY  (A1) IS THE PARAMETER LIST ADDRESS.
* 
*         PARAMETER LIST FORMAT 
*         ATTR   - THE PARAMETER ATTRIBUTE. 
*         QUAL   - THE PARAMETER QUALIFIER. 
*         TXTL   - THE PARAMETER TEXT LENGTH. 
*         TEXT   - THE TEXT CONTAINING THE HOST TYPE. 
* 
*         EXIT - HOSTYP IS SET TO HOST TYPE 
* 
*         USES   A - 1,2,3,6. 
*                B - NONE.
*                X - 1,2,3,6. 
* 
*         CALLS  DDC. 
  
  
 PHT      SUBR               ENTRY/EXIT 
          SA4    A1+3 
          SA4    X4          GET REMOTE HOST TYPE 
          BX6    X4 
          SA6    HOSTYP      SAVE HOST TYPE 
          MX1    0
          EQ     PHTX        EXIT 
          SPACE  4
          END 
