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-2
PATHMON and PATHCOM Process Creation
•
If a configured terminal has a command interpreter, the terminal operator must type
PAUSE to activate the SCREEN COBOL application on the terminal.
The sample SCREEN COBOL requester program for terminals operating in block mode
describes a base screen only that appears as shown in the following example. The
program accepts operator input that consists of a name and address until an appropriate
function key is pressed.
•
If the operator types the name SMITH and presses the F2 key to enter data, the
server returns a reply code of 999 and an error code of 1; this causes the message
SMITH IS ALREADY ON FILE to be displayed in the advisory field of the
terminal.
•
If the operator types the name JONES and presses the F2 key to enter data, the
server returns a reply code of 999 and an error code of 2; this causes the message
JONES IS ALREADY ON FILE to be displayed in the advisory field of the
terminal.
•
If the operator types any other name and presses the F2 key to enter data, the server
returns a reply code of 0 and writes the record; this causes the entered record to be
displayed on the terminal screen.
The sample SCREEN COBOL requester program for terminals operating in
conversational mode describes a base screen only and illustrates the SCREEN COBOL
characteristics for conversational mode programs. The program displays a screen
header, prompts the operator, accepts operator input that consists of a name and an
address. The program also contains a function selection and responds to the input
control characters named in the program, but no server response is provided.
PATHMON and PATHCOM Process Creation
To execute the program use the PATHCOM RUN command.
PATHMON / NAME $PM, CPU 0, NOWAIT /
PATHCOM / IN PWCONFIG / $PM
PWCONFIG contains the following commands:
SET PATHMON BACKUPCPU
SET PATHWAY MAXTCPS 1
SET PATHWAY MAXTERMS 5
SET PATHWAY MAXSERVERCLASSES 5
DEPARTMENT : MKT PASSWORD :
NAME : ______________________________
ADDR : ____________________
MONTH : FEBRUARY DAY : 15 YEAR : 92
REPLY -
F1 - ENTER PASSWORD F5 - BLINK REPLY
F2 - ENTER DATA F6 - RESET ATTR REPLY
F3 - CLEAR INPUT F7 - RESET DATA REPLY
F4 - RESET DATA SCREEN F16 - EXIT PROGRAM