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

C-: 21
END
$TITLE ' Cleanup After Work'
!***************************************************************!
! !
! Cleanup After Work !
! !
!***************************************************************!
!
SUBROUTINE CLEANUP_AFTER_WORK
!
IMPLICIT NONE
!
COMMON /COM01/ GLOBALPAK
COMMON /COM02/ RETURNPAK
COMMON /COM03/ FORMSFILE
COMMON /COM04/ TERMPAK
COMMON /COM10/ UNUSED_PARM
!
SYSTEM INTRINSIC HPDCLOSEFORMS,
+ HPDDISABLETERM
!
INTEGER*4 GLOBALPAK(79)
INTEGER*4 RETURNPAK(79)
INTEGER*4 FORMSFILE(22)
INTEGER*4 TERMPAK(23)
INTEGER*4 UNUSED_PARM
!
! Note that this routine unconditionally attempts to close
! the Forms File and Terminal
!
CLOSE (UNIT = 10)
!
CALL HPDCLOSEFORMS (GLOBALPAK,
+ RETURNPAK,
+ FORMSFILE)
!
! Function keys were not save thus not restored here.
!
CALL HPDDISABLETERM (GLOBALPAK,
+ RETURNPAK,
+ TERMPAK,
+ UNUSED_PARM)
!
END
$TITLE ' Unblock Message'
!***************************************************************!
! !
! Unblock Message !
! !
!***************************************************************!
!
SUBROUTINE UNBLOCK_MSG
!
IMPLICIT NONE
!
COMMON /COM02/ RETURNPAK
COMMON /COM07/ MSGFORWINDOW
!
INTEGER*4 RETURNPAK(79)
INTEGER*4 RETURNMSGLEN
CHARACTER*1 RETURNMSG(254)
EQUIVALENCE (RETURNPAK(3), RETURNMSGLEN),
+ (RETURNPAK(4), RETURNMSG)
!
INTEGER*4 MSGFORWINDOW(21)