GETBANNER

Command:

GETBANNER

Syntax:

GETBANNER USING <banner-input> <banner-character-input> <banner-target-variable>.

Description:

GETBANNER places a Unix-style banner into a group item variable. The contents of banner-input are the large characters of the banner; the contents of banner-character-input are the component characters of the banner, which are the small characters used to make the banner letters. If banner-character-input is equal to a single space (` ` or the SPACE keyword), the component character of each large letter will be a smaller version of itself, e.g.,

GETBANNER USING `TEST` SPACE banner_target_variable

will generate the following output for banner-target-variable population:

TTTTTTT EEEEEEE SSSSS TTTTTTT

T E S S T

T E S T

T EEEEE SSSSS T

T E S T

T E S S T

T EEEEEEE SSSSS T

To work properly, GETBANNER requires that the banner-target-variable be defined as a group item with 8 elementary items. See example below.

Example Usage:

1 text_banner_char PIC X VALUE `#`.

1 banner_group.

5 banner_line1 PIC X(35).

5 banner_line2 PIC X(35).

5 banner_line3 PIC X(35).

5 banner_line4 PIC X(35).

5 banner_line5 PIC X(35).

5 banner_line6 PIC X(35).

5 banner_line7 PIC X(35).

5 banner_line8 PIC X(35).

GETBANNER USING `TEST` `#` banner_group.

DISPLAYLF banner_group.

GETBANNER USING text banner_char banner_group.

DISPLAYLF banner_group.

See Also:

BANNER

Sample Program:

GETBAN.CBL