*DECK SSIICRH 
USETEXT TEXTATS 
      PROC SSIICRH; 
*CALL COPYRITE
# TITLE SSIICRH - INITIALIZE CSI REQUEST HEADER.                       #
  
      BEGIN                            # SSIICRH                       #
# 
****  SSIICRH - INITIALIZE CSI REQUEST HEADER.
* 
*     THIS PROCEDURE INITIALIZES THE CSI REQUEST HEADER WITH THE
*     REGULAR DATA USED.
* 
*     ENTRY 
* 
*     EXIT     CSI$HDR [REQUEST] INITIALIZED
* 
*     METHOD   PRESET ALL CONSTANT FIELDS IN THE CSI$HDR REQUEST ARRAY. 
# 
  
# 
****  PROC SSIICRH - XREF LIST. 
# 
  
      XREF
        BEGIN 
        PROC IPUMCLR;    # CLEAR MEMORY                                #
        END 
CONTROL EJECT;
  
# 
****  START MAIN PROCEDURE
# 
  
      IPUMCLR (LOC (CSI$HDR [REQUEST$]), HDRSIZE$ * 2); 
  
      CSI$XIDAD1 [REQUEST$]  = SRV$BYTE1 [0]; 
      CSI$XIDAD2 [REQUEST$]  = SRV$BYTE2 [0]; 
      CSI$XIDAD3 [REQUEST$]  = SRV$BYTE3 [0]; 
      CSI$XIDAD4 [REQUEST$]  = SRV$BYTE4 [0]; 
      CSI$XIDAD5 [REQUEST$]  = SRV$BYTE5 [0]; 
      CSI$XIDAD6 [REQUEST$]  = SRV$BYTE6 [0]; 
      CSI$IDENT  [REQUEST$]  = ATSIDENT$; 
      CSI$SYNTAX [REQUEST$]  = CSI$XDR; 
      CSI$PROTOCO [REQUEST$] = CSI$UDP; 
      CSI$CTYPE  [REQUEST$]  = CSI$RPC; 
      CSI$HDLPGM [REQUEST$]  = ATSPROGRAM$; 
      CSI$HDLVER [REQUEST$]  = ATSVERSION$; 
      CSI$HDLPRC [REQUEST$]  = ATSPROC$;
      CSI$SINFAM [REQUEST$]  = AF$INET; 
      CSI$SINPRT [REQUEST$]  = SRV$PORT [0];
      CSI$SINADR [REQUEST$]  = SRV$IPADD [0]; 
  
      END                              # SSIICRH                       #
  
      TERM
