Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Pathway Application Example
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
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
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