Pathway/iTS TCP and Terminal Programming Guide

Designing Your Application
Compaq NonStop™ Pathway/iTS TCP and Terminal Programming Guide—426751-001
2-14
SCREEN COBOL Requesters
Example 2-1. Sample SCREEN COBOL Requester Program
Structure (page 1 of 2)
IDENTIFICATION DIVISION. Declares program unit name.
PROGRAM-ID. ORDER
ENVIRONMENT DIVISION. Defines type of terminals
this program unit will
OBJECT COMPUTER. control.
TERMINAL IS T16-6530
SPECIAL NAMES. Defines special names for:
ENTER F1,. . . 1. Function key names
BRIGHT IS BRIGHT 2. Video attributes
PROTECTED IS PROTECTED 3. Flow control data
attributes
DATA DIVISION.
WORKING-STORAGE SECTION. Declares structure of
01 WS-ORD-MSG server messages, variables
. passed to called program
. units, and local variables
. used to manage screens and
server communication.
01 SERVER-REQ-FUNCTION-CODE
.
.
.
LINKAGE SECTION. Declares structure of
01 LOGON-INFO variables passed from
. calling program units.
.
.
SCREEN SECTION. Declares format of all
01 ORDER-SCREEN screens managed by this
. program unit, including
. screen fields and video
. attributes of fields.