High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C-: 19

! Determine if edit errors detected.

IF (STOP_NOW.EQ.0

+ .AND.DONE_WITH_TXNS.EQ.0) THEN

IF (RETURNSTATUS.EQ.0) THEN

DATA_ENTRY_ERRS = 0

ELSE

DATA_ENTRY_ERRS = 1

END IF

! Do we have a transaction that can be filed?

IF (STOP_NOW.EQ.0

+ .AND.DONE_WITH_TXNS.EQ.0) THEN

IF (DATA_ENTRY_ERRS.EQ.0

+ .AND.LASTITEMTYPE.EQ.0

+ .AND.LASTITEMNUM.EQ.0) THEN

! Write Databuf to Transaction File.

WRITE (UNIT = 10,

+ ERR = 310) DATAAREA

GOTO 320

310 STOP_NOW = 1

ERROR_LOCATION =

+ "**** Routine: Read Edit and File - File Write"

MSGAREA =

+ "**** Write to Transaction File failed!"

320 IF (STOP_NOW.EQ.0) THEN

NBR_TXN_COLLECTED = NBR_TXN_COLLECTED + 1

END IF

! Do we need to prompt the operator to correct errors?

IF (STOP_NOW.EQ.0

+ .AND.DONE_WITH_TXNS.EQ.0) THEN

IF (DATA_ENTRY_ERRS.EQ.1) THEN

IF (LASTITEMTYPE.EQ.0

+ .AND.LASTITEMNUM.EQ.0) THEN

CALL PROMPT_OPERATOR

ELSE

! Operator pressed some key other than ENTER or EXIT so,

! clear data error flag to break loop (display refresh results).

DATA_ENTRY_ERRS = 0

END IF

END