Queue Manager Manual

Appendix B Example: COBOL Application
46517 Tandem Computers Incorporated B–1
IDENTIFICATION DIVISION.
PROGRAM-ID.
WORKOUT.
INSTALLATION.
DATE-COMPILED.
/
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16,
TERMINAL IS T16-6520.
SPECIAL-NAMES.
dim IS DIM
normal IS NORMAL
* bright IS BRIGHT
hidden IS HIDDEN
nothidden IS NOTHIDDEN
blink IS BLINK
noblink IS NOBLINK
reverse IS REVERSE
noreverse IS NOREVERSE
underline IS UNDERLINE
nounderline IS NOUNDERLINE
mdton IS MDTON
mdtoff IS MDTOFF
protected IS PROTECTED
unprotected IS UNPROTECTED
*
* Normal field display attributes:
*
background IS (NORMAL, NOREVERSE, PROTECTED, NOUNDERLINE, NOTHIDDEN)
infield IS (DIM, REVERSE, UNPROTECTED, NOUNDERLINE, NOTHIDDEN)
inpassword IS (DIM, REVERSE, UNPROTECTED, NOUNDERLINE, HIDDEN)