TGAL Manual

ManualsBrandsHP ManualsServerHP NonStop G-Series

SEQ Command

TGAL Commands

2–62 060865 Tandem Computers Incorporated

TGAL produces:

Pathway Application Example

Line 3

This line displays the screen and the initial values, FILL characters, and default values.

Line 5

The value of DEPT-HEADER is moved to the screen at line 3, column 14.

Line 6

When the F1 key is pressed, the field is tested for validity. Data may be keyed into any other

field on the screen; only the PASSWORD field is used.

Lines 11, 12

The UNTIL F2 KEY expects data to be entered before tyhe F2 key is pressed and validity checks

are performed. The ESCAPE series of function keys causes the statement to terminate without

data being entered.

Line 16

The key that was pressed to terminate the ACCEPT statement has a positional value connected

with it from the ACCEPT statement; the key is put into TERMINATION-STATUS.

Line 22

All unprotected fields are cleared.

Line 24

This line resets the fields to the initial values and FILL characters declared.

Line 26

This line causes SERVER RECORD to blink by setting the BLINK attribute.

SERVER RECORD by resetting the attribute to normal.

Pathway Application Example

PROCEDURE DIVISION. 1

A-MAIN. 2

DISPLAY BASE EXAMPLE-SCREEN. 3

MOVE "MKT" TO DEPT-HEADER OF WS. 4

DISPLAY DEPT-HEADER OF EXAMPLE-SCREEN. 5

ACCEPT PASSWORD OF EXAMPLE-SCREEN UNTIL F1-KEY. 6

PERFORM CASE-MANAGER UNTIL EXIT-PROGRAM. 7

PERFORM 900-EXIT. 8

CASE-MANAGER. 10

ACCEPT DATA-IN OF EXAMPLE-SCREEN UNTIL F2-KEY 11

ESCAPE ON F3-KEY F4-KEY F5-KEY F6-KEY F7-KEY F16-KEY 12

PERFORM ONE OF 13

DATA-ENTERED, CLEAR-INPUT, RESET-DATA, BLINK-REPLY, 14

RESET-ATTR-REPLY, RESET-DATA-REPLY, SET-EXIT. 15

DEPENDING ON TERMINATION-STATUS. 16

DATA-ENTERED. 18

MOVE SPACES TO PW-HEADER OF ENTRY-MSG. 19

PERFORM SEND-DATA. 20

CLEAR-INPUT. 21

CLEAR INPUT. 22

RESET-DATA. 23

RESET DATA EXAMPLE-SCREEN. 24

BLINK-REPLY. 25

TURN ATTENTION IN SERVER-RECORD OF EXAMPLE-SCREEN. 26

RESET-ATTR-REPLY. 27

RESET ATTR SERVER-RECORD OF EXAMPLE-SCREEN. 28

RESET-ATTR-REPLY. 29

RESET ATTR SERVER-RECORD OF EXAMPLE-SCREEN. 30

RESET-ATTR-REPLY. 31