Pathway/iTS SCREEN COBOL Reference Manual (H06.10+, J06.03+)

Procedure Division
HP NonStop Pathway/iTS SCREEN COBOL Reference Manual—426750-003
6-72
IF ... DOUBLEBYTE Statement
NEXT SENTENCE
ELSE
MOVE 1 TO flag.
IF ... DOUBLEBYTE Statement
The IF ... DOUBLEBYTE statement tests for the existence of only double-byte
characters in an alphanumeric data item.
Aligned double spaces are seen as %H2020 and are valid double-byte characters. A
single space or a nonaligned space is not a double-byte character.
IF ... WITHIN Statement
The IF ... WITHIN statement determines whether the cursor, positioned at the row and
column values stored in OLD-CURSOR, NEW-CURSOR, or an appropriate Working-
Storage data item, is within an elementary screen item or an elementary screen
overlay item.
data-item
specifies the OLD-CURSOR or NEW-CURSOR special register or specifies a
Working-Storage data item defined as follows:
01 WS-USER-SAVE-CURSOR.
02 WS-USER-SAVE-ROW PIC 9(4) COMP.
02 WS-USER-SAVE-COL PIC 9(4) COMP.
screen-item
specifies an elementary screen item defined in the Screen Section, or specifies an
elementary screen item within a defined screen overlay item. The screen-item
cannot include an OCCURS clause.
screen-area
specifies the name of a screen overlay item in a base screen definition. You
include screen-area so the compiler can calculate the offset position of the
overlay elementary screen item relative to the base screen.
NOT
specifies negation.
IF data-name [ IS ] [ NOT ] DOUBLEBYTE
IF [ NOT ] data-item [ NOT ] WITHIN screen-item
[ AT screen-area ]