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

C-: 15
TERMNAME = "HPTERM"
TERMBYPASSFEAT = 0
!
CALL HPDENABLETERM (GLOBALPAK,
+ RETURNPAK,
+ TERMPAK,
+ UNUSED_PARM)
!
IF (RETURNSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Setup For Work - Terminal Setup"
CALL UNBLOCK_MSG
END IF
END IF
!
END
$TITLE ' Collect Transactions'
!***************************************************************!
! !
! Collect Transactions !
! !
!***************************************************************!
!
SUBROUTINE COLLECT_TXNS
!
IMPLICIT NONE
!
COMMON /COM01/ GLOBALPAK
COMMON /COM02/ RETURNPAK
COMMON /COM07/ MSGFORWINDOW
COMMON /COM08/ DATADESCRPT
COMMON /COM10/ UNUSED_PARM
COMMON /COM102/ STOP_NOW
COMMON /COM103/ DONE_WITH_TXNS
COMMON /COM104/ NBR_TXN_COLLECTED
COMMON /COM101/ ERROR_LOCATION
COMMON /COM105/ DATA_ENTRY_ERRS
!
SYSTEM INTRINSIC HPDSEND
!
INTEGER*4 GLOBALPAK(79)
!
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNSTATUS
EQUIVALENCE (RETURNPAK(1), RETURNSTATUS)
!
INTEGER*4 MSGFORWINDOW(21)
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 SENDPAK(4)
!
INTEGER*4 FORMPAK(44)