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

C- 22
INTEGER*4 MSGLEN
CHARACTER*1 MSGAREA(79)
EQUIVALENCE (MSGFORWINDOW(1), MSGLEN),
+ (MSGFORWINDOW(2), MSGAREA)
!
!
INTEGER*2 ARRAY_INDEX
!
ARRAY_INDEX = 1
DO WHILE (ARRAY_INDEX.LE.RETURNMSGLEN)
MSGAREA(ARRAY_INDEX) = RETURNMSG(ARRAY_INDEX)
ARRAY_INDEX = ARRAY_INDEX + 1
END DO
!
MSGLEN = RETURNMSGLEN
!
END
$TITLE ' Display System Error'
!***************************************************************!
! !
! Display System Error !
! !
!***************************************************************!
!
SUBROUTINE DISPLAY_SYSTEM_ERROR
!
IMPLICIT NONE
!
COMMON /COM07/ MSGFORWINDOW
COMMON /COM101/ ERROR_LOCATION
!
INTEGER*4 MSGFORWINDOW(21)
CHARACTER*79 MSGAREA
EQUIVALENCE (MSGFORWINDOW(2), MSGAREA)
!
CHARACTER*70 ERROR_LOCATION
!
PRINT *,
+ "**** Transaction entry facility detected system error at:"
PRINT *, ERROR_LOCATION
PRINT *,
+ "**** The error message returned is:"
PRINT *, MSGAREA
!
END