PROGRAM FTN_TEST_MESSAGES
	IMPLICIT NONE

	!
	!   Program to show how to return statuses back to OS
	!
	INCLUDE '($SYSSRVNAM)'

        INTEGER*4   MEGA_ABEND
        INTEGER*4   MEGA_HRDERR
        INTEGER*4   MEGA_SHRTRPT
        INTEGER*4   MEGA_RTOOLONG
        INTEGER*4   MEGA_SUCCESS

!DEC$ ATTRIBUTES EXTERN :: MEGA_ABEND
!DEC$ ATTRIBUTES EXTERN :: MEGA_HRDERR
!DEC$ ATTRIBUTES EXTERN :: MEGA_SHRTRPT
!DEC$ ATTRIBUTES EXTERN :: MEGA_RTOOLONG
!DEC$ ATTRIBUTES EXTERN :: MEGA_SUCCESS

	INTEGER*4   L_RESP, L_X

 200    PRINT *,' '
    	PRINT *,'Enter a number to select return code:'
    	PRINT *,'     1  MEGA_ABEND'
    	PRINT *,'     2  MEGA_HRDERR'
    	PRINT *,'     3  MEGA_SHRTRPT'
    	PRINT *,'     4  MEGA_RTOOLONG'
    	PRINT *,'     5  MEGA_SUCCESS'
    	PRINT *,' '

	READ (*,'(I)'), L_RESP

	GOTO (500,600,700,800,900)L_RESP

	GOTO 3276

 500 	L_X = SYS$EXIT( MEGA_ABEND)

 600	L_X = SYS$EXIT( MEGA_HRDERR)

 700    L_X = SYS$EXIT( MEGA_SHRTRPT)

 800    L_X = SYS$EXIT( MEGA_RTOOLONG)

 900    L_X = SYS$EXIT( MEGA_SUCCESS)

 3276   STOP 
	END