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

C- 18
INTEGER*4 MSGLEN
CHARACTER*79 MSGAREA
EQUIVALENCE (MSGFORWINDOW(1), MSGLEN),
+ (MSGFORWINDOW(2), MSGAREA)
!
INTEGER*4 DATADESCRPT(3)
!
INTEGER*4 UNUSED_PARM
!
INTEGER*2 STOP_NOW
INTEGER*2 DONE_WITH_TXNS
INTEGER*2 NBR_TXN_COLLECTED
CHARACTER*70 ERROR_LOCATION
INTEGER*2 DATA_ENTRY_ERRS
!
INTEGER*4 READPAK(3)
INTEGER*4 ENABLEREFORMAT
EQUIVALENCE (READPAK(2), ENABLEREFORMAT)
!
INTEGER*4 DATABUF(50)
CHARACTER*200 DATAAREA
EQUIVALENCE (DATABUF(1), DATAAREA)
!
! Enable data finishing.
!
ENABLEREFORMAT = 1
!
! No other special Read instructions.
!
READPAK(1) = 0
READPAK(3) = 0
!
! Indicate that all data in form, up to 200 bytes, is to
! be copied into application work space.
!
DATADESCRPT(1) = 10
DATADESCRPT(2) = 200
!
! Read form.
!
CALL HPDREAD (GLOBALPAK,
+ RETURNPAK,
+ READPAK,
+ UNUSED_PARM,
+ UNUSED_PARM,
+ DATADESCRPT,
+ DATABUF,
+ UNUSED_PARM)
!
IF (RETURNSTATUS.LT.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Read Edit and File - Terminal Read"
CALL UNBLOCK_MSG
END IF
!
! Determine if operator wants to stop transaction collection.
!
IF (STOP_NOW.EQ.0
+ .AND.RETURNSTATUS.EQ.0) THEN
IF (LASTITEMTYPE.EQ.0
+ .AND.LASTITEMNUM.EQ.8) THEN
DONE_WITH_TXNS = 1
END IF
END IF
!