To place a header on the pages of a text message, you point to a block of data in the following format in the HEADER option:
You use the same format for trailer text, but you point to it with the TRAILER option. Here:
When you are building a logical message, you should repeat your HEADER and TRAILER options on each SEND TEXT command, so that they are present when the page breaks occur, and you need to specify the trailer again on the SEND PAGE command that terminates the message.
Here is an example of a COBOL definition for a header that simply numbers the pages, leaving room for a number up to 99.
EXEC CICS SEND TEXT FROM (OUTPUT-AREA)
HEADER(HEADER-TEXT) PAGING ACCUM END-EXEC.
where:
01 HEADER-TEXT
02 HEADER-LL PIC S9(4) COMP VALUE +11.
02 HEADP PIC X VALUE '@'.
02 FILLER PIC X VALUE LOW-VALUE.
02 HEADING PIC X(11) VALUE 'PAGE NO. @@'.
Screens built with SEND TEXT are not designed for extensive input from the terminal operator. However, you can interpret the attention identifier and read simple inputs--such as those used in the CSPG transaction to control the page display--if the field structure on the screen is suitable and the operator knows or can see what is expected. (A new field starts at each line, as well as at the first character of the text sent with each SEND TEXT command that made up the message. The fields defined are unprotected, alphameric and normal intensity, so that the operator can key into them.) Normally a terminal control RECEIVE is used in this situation; you can use RECEIVE MAP only if you can build a map with a field structure matching that of the screen.
[[ Contents Previous Page | Next Page Index ]]