PROC TUPPCR
  CHATA,EOS='}',SA=DISCARD,CFC=OFF
PROCEND TUPPCR
PROC PASSIN

" TUP for use on the 'pass-in' side of a passthrough line."
" For use on lines which support EIA flow control.  Parity=NONE to "
" match the 'pass_out' port parity.  Use only on 'pass-in' line where "
" the parity of the connected 'pass-out' line is NONE. "

change_terminal_attributes ..
  character_flow_control = off ..
  parity = none

PROCEND PASSIN
PROC CLSH_PASS

" TUP for passthrough service to the CLSH network from the COE network. "

" CHARACTER_FLOW_CONTROL=OFF AND PARITY=NONE IN ORDER TO SUPPORT "
" FULL 8-BIT DATA TRANSMISSION.  USE THIS TUP ONLY ON LINES WHICH "
" SUPPORT EIA FLOW CONTROL.  PARITY ON 'PASS-IN' PORT MUST ALSO BE "
" NONE. "

  CHANGE_TERMINAL_ATTRIBUTES RESPONSE_ACTION=DISCARD STATUS_ACTION=DISCARD
  CREATE_CONNECTION SERVICE_NAME=PASSTHROUGH
  PUT_STRING STRING='DEFPT T=CLSH_PASS' DESTINATION=CONNECTION

PROCEND CLSH_PASS
PROC VE_TELNET_TUP
  create_connection sn=nve
PROCEND VE_TELNET_TUP
