Teleprocessing Network Statements › SOCKET › Example: SOCKET

Example: SOCKET

*+ SAMPLE LINE DEFINITION
ADD LINE TCPIP
    TYPE IS SOCKET.

*+ WIRE PROTOCOL DRIVER LISTENER
*+ USING THE CONVENTION
*+ PORT = 3700 + SYSTEM NUMBER
ADD PTERM TCPJSRV
    TYPE IS LISTENER
    PORT IS 3799
    BACKLOG IS 100
    TASK IS RHDCNP3J
    MODE IS SYSTEM
    PARM IS 'TASK=IDMSJSRV'.

ADD LTERM TCLJSRV
    PTERM IS TCPJSRV.

*+ USER IMPLEMENTED LISTENER
ADD PTERM TCPLIS_1
  TYPE IS LISTENER
  TASK IS TSKLIS_1
  MODE IS USER
  PORT IS 12345
  BACKLOG IS 999
  PARM IS 'Parameters for TSKLIS_1'.

ADD LTERM TCPLIS_1
  PTERM TCPLIS_1.
*+ PTERM DEFINITION FOR A REMOTE DDS NODE SYSTEM
ADD PTERM PDDSNOD1
    TYPE IS DDSTCPIP
    TARGET NAME IS 'SYSNODE1'
    TARGET PORT IS 15901
    PORT RANGE IS 15950 THROUGH 15999
    IDLE INTERVAL IS 60
    NUMBER OF PERMANENT CONNECTIONS IS 3.
ADD LTERM LDDSNOD1
    PTERM IS PDDSN0D1.

*+ PTERM DEFINITION FOR 100 SOCKETS
ADD PTERM TCP0001
    TYPE IS BULK
    REPEAT COUNT IS 99.

ADD LTERM TCL0001
    PTERM IS TCP0001.