Pathway/iTS SCREEN COBOL Reference Manual (G06.24+, H06.03+, Pathway/iTS 1.0+)

Pathway Application Example
Compaq NonStop™ Pathway/iTS SCREEN COBOL Reference Manual—426750-001
8-3
SCREEN COBOL Program for Block Mode
SET PATHWAY MAXSERVERPROCESSES 5
SET PATHWAY MAXSTARTUPS 5
SET PATHWAY MAXASSIGNS 5
SET PATHWAY MAXPARAMS 5
SET PATHWAY MAXPATHCOMS 3
SET PATHWAY MAXPROGRAMS 1
START PATHWAY COLD !
RESET TCP
SET TCP CPUS 1:2
SET TCP PROGRAM $SYSTEM.SYSTEM.PATHTCP2
SET TCP PRI 141
SET TCP PROCESS $XTCP
SET TCP TCLPROG pobj
SET TCP MAXTERMS 5
ADD TCP ex-tcp
RESET TERM
SET TERM FILE $term01
SET TERM TCP ex-tcp
SET TERM INITIAL example
SET TERM TMF OFF
ADD TERM t1
RESET TERM
SET TERM LIKE t1
SET TERM FILE $term02
ADD TERM t2
RESET PROGRAM
SET PROGRAM TCP ex-tcp
SET PROGRAM TYPE T16-6520 INITIAL example
SET PROGRAM ERROR-ABORT ON
SET PROGRAM TMF OFF
ADD PROGRAM exprog
RESET SERVER
SET SERVER PROGRAM exserv
SET SERVER CPUS 0:1
SET SERVER NUMSTATIC 1
SET SERVER MAXSERVERS 3
ADD SERVER example-server
START TCP ex-tcp
START TERM *
SCREEN COBOL Program for Block Mode
The SCREEN COBOL programs and an associated COBOL server appear on the
following pages:
IDENTIFICATION DIVISION. (1)
PROGRAM-ID. EXAMPLE. (1)
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16,
TERMINAL IS T16-6520.
SPECIAL-NAMES.
F1-KEY IS F1, F2-KEY IS F2, F3-KEY IS F3,
F4-KEY IS F4, F5-KEY IS F5, F6-KEY IS F6,