High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)
C-: 17
!
CALL HPDSEND (GLOBALPAK,
+ RETURNPAK,
+ SENDPAK,
+ FORMPAK,
+ UNUSED_PARM,
+ MSGFORWINDOW,
+ DATADESCRPT,
+ UNUSED_PARM,
+ UNUSED_PARM,
+ UNUSED_PARM)
!
IF (RETURNSTATUS.NE.0) THEN
STOP_NOW = 1
ERROR_LOCATION =
+ "**** Routine: Collect Transactions - Form display"
CALL UNBLOCK_MSG
END IF
!
! Setup and loop on transaction until it can be filed.
!
DATA_ENTRY_ERRS = 1
!
DO WHILE (DATA_ENTRY_ERRS.EQ.1
+ .AND.STOP_NOW.EQ.0
+ .AND.DONE_WITH_TXNS.EQ.0)
!
CALL READ_EDIT_AND_FILE
!
END DO
!
END
$TITLE ' Read Edit and File'
!***************************************************************!
! !
! Read Edit and File !
! !
!***************************************************************!
!
SUBROUTINE READ_EDIT_AND_FILE
!
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 HPDREAD
!
INTEGER*4 GLOBALPAK(79)
!
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNSTATUS
INTEGER*4 LASTITEMTYPE
INTEGER*4 LASTITEMNUM
EQUIVALENCE (RETURNPAK(1), RETURNSTATUS),
+ (RETURNPAK(68), LASTITEMTYPE),
+ (RETURNPAK(69), LASTITEMNUM)
!
INTEGER*4 MSGFORWINDOW(21)