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

C-: 13
CALL CLEANUP_AFTER_WORK
!
PRINT *,
+ "Deduction transactions collected this session = ",
+ NBR_TXN_COLLECTED
!
IF (STOP_NOW.EQ.1) THEN
CALL DISPLAY_SYSTEM_ERROR
END IF
!
STOP
END
$TITLE ' Setup For Work'
!***************************************************************!
! !
! Setup For Work !
! !
!***************************************************************!
!
SUBROUTINE SETUP_FOR_WORK
!
IMPLICIT NONE
!
COMMON /COM01/ GLOBALPAK
COMMON /COM02/ RETURNPAK
COMMON /COM03/ FORMSFILE
COMMON /COM04/ TERMPAK
COMMON /COM07/ MSGFORWINDOW
COMMON /COM10/ UNUSED_PARM
COMMON /COM102/ STOP_NOW
COMMON /COM101/ ERROR_LOCATION
!
SYSTEM INTRINSIC HPDOPENFORMS,
+ HPDENABLETERM
!
INTEGER*4 GLOBALPAK(79)
CHARACTER*8 EXPECTEDVUF
INTEGER*4 CALLPROTOCOL
INTEGER*4 COMAREALEN
INTEGER*4 COMAREA(75)
EQUIVALENCE (GLOBALPAK(1), EXPECTEDVUF),
+ (GLOBALPAK(3), CALLPROTOCOL),
+ (GLOBALPAK(4), COMAREALEN),
+ (GLOBALPAK(5), COMAREA)
!
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNSTATUS
EQUIVALENCE (RETURNPAK(1), RETURNSTATUS)
!
INTEGER*4 FORMSFILE(22)
CHARACTER*88 FFNAME
EQUIVALENCE (FORMSFILE(1), FFNAME)
!
INTEGER*4 TERMPAK (23)
CHARACTER*88 TERMNAME
INTEGER*4 TERMBYPASSFEAT
EQUIVALENCE (TERMPAK(1), TERMNAME),
+ (TERMPAK(23), TERMBYPASSFEAT)
!
INTEGER*4 MSGFORWINDOW(21)
CHARACTER*79 MSGAREA
EQUIVALENCE (MSGFORWINDOW(2), MSGAREA)
!
INTEGER*4 UNUSED_PARM
!
INTEGER*2 STOP_NOW
CHARACTER*70 ERROR_LOCATION