Queue Manager Manual

Example: COBOL Application
B–2 46517 Tandem Computers Incorporated
markfield IS (NORMAL, NOREVERSE, UNPROTECTED, NOUNDERLINE, NOTHIDDEN)
outfield IS (NORMAL, NOREVERSE, PROTECTED, NOUNDERLINE, NOTHIDDEN)
inoutfield IS (DIM, REVERSE, UNPROTECTED, NOUNDERLINE, NOTHIDDEN)
corriofield IS (NORMAL, NOREVERSE, UNPROTECTED, UNDERLINE, NOTHIDDEN)
bannerfield IS (DIM, REVERSE, PROTECTED, NOUNDERLINE, NOTHIDDEN)
advisefield IS (NORMAL, NOREVERSE, PROTECTED, NOUNDERLINE, NOTHIDDEN)
paramfield IS (DIM, REVERSE, UNPROTECTED, NOUNDERLINE, NOTHIDDEN)
*
* Over-riding field display attributes:
*
errorfield IS (NORMAL, REVERSE)
adviseerror IS (NORMAL, REVERSE)
hideit IS (NORMAL, NOREVERSE, PROTECTED, NOUNDERLINE, HIDDEN)
/
enq-key IS F1,
readq-key IS F5,
deq-key IS F9,
waitq-key IS F10,
return-key IS F16,
exit-key IS SF16.
/
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* WA -- Fields common to all screens
*
*
* A variable used to hold messages displayed in the advice-line.