1	  SUB M11LB3 (FLAG$)						      &

2	!******************************************************************** &
	!								      &
	!								      &
	!			       M11LB3				      &
	!								      &
	!             Returns the message for the code supplied.	      &
	!								      &
	!								      &
	!-------------------------------------------------------------------- &
	!
3	!       Subprogram    :     M11LB3				      &
	!       Version       :     1					      &
	!       Programmer    :     Lou Abate				      &
	!       Releaser      :	    Jean Fullerton			      &
	!								      &
	!								      &
	!--------------------------------------------------------------------
11	!								      &
	!								      &
	!                       C O P Y R I G H T			      &
	!								      &
	!								      &
	!--------------------------------------------------------------------
100	!								      &
	!								      &
	!  			Description				      &
	!								      &
	! This subprogram takes an alphanumeric code (FLAG$) and loads the    &
	! corresponding message text into the common data variable	      &
	! M11.MSG$ which is part of COMVAR.				      &
	!								      &
	! Calling module:	M11LB1 					      &
	!								      &
	! Assumptions:							      &
	!								      &
	! *  The input parameter matches one of the encoded messages.         &
	!								      &
	!--------------------------------------------------------------------
200	!								      &
	!								      &
	!  			Interfaces				      &
	!								      &
	!  Common areas:						      &
	!								      &
	!    COMVAR  -  Common system variables 			      &
	!    COMERR  -  error message information			      &
	!    COMCON  -  Common system constants				      &
	!								      &
	!  Arguments:							      &
	!								      &
	!    FLAG$   -  (input) alphanumeric message code.		      &
	!								      &
	!---------------------------------------------------------------------
300	!								      &
	!								      &
	!  			Input / Output				      &
	!								      &
	!								      &
	!   none							      &
	!								      &
	!								
400	!-------------------------------------------------------------------- &
	!								      &
	! 		Variable and Array Definitions			      &
	!								      &
	!  ERL		Line in which error occurred			      &
	!  ERR	        Set to error number after error			      &
	!  MSGALL$	All of error message line			      &
	!  MSGCDE$	Error message code character			      &
	!  MSGSTR$	Error message					      &
	!								      &
	!
600	!-------------------------------------------------------------------- &
	!								      &
	!								      &
	!			COMMON  Declarations			      &
	!								      &
	!								      &
	!--------------------------------------------------------------------
650	!-------------------------------------------------------------------- &
	!								      &
	!								      &
	!			MAP  Statements				      &
	!								      &
	!								      &
	!---------------------------------------------------------------------

651	  MAP (MSGTXT)							      &
									      &
		 MSGALL$  = 66%						      &
									      &
	\ MAP (MSGTXT)							      &
									      &
		 MSGCDE$  =  1%						      &
		,FILL$    =  1%						      &
		,MSGSTR$  = 64%						      &

700	!-------------------------------------------------------------------- &
	!								      &
	! 			Subprograms				      &
	!								      &
	!								      &
	!  none								      &
	!								      &
	!-------------------------------------------------------------------- &
	!
800	! 			Subroutines				      &
	!								      &
	!  none								      &
	!								      &
	!-------------------------------------------------------------------- &
	!								      &
	! 			Functions				      &
	!								      &
	!  none								      &
	!								
1000	!******************************************************************** &
	!								      &
	!								      &
	!       S T A R T    P R O G R A M    L O G I C			      &
	!								      &
	!								      &
	!******************************************************************** &

1010	  ON ERROR GOTO 19000						      &
	\ ERR.SUBNAM$  = "M11LB8 VER:01"				      &
	! Set standard error trap.					      &
	! Set up common for error reporting.				      &

1020	  RESTORE							      &
	\ READ MSGALL$ UNTIL  FLAG$ = MSGCDE$				      &

1021	  DATA   'A Warning - Parameter exceeds highest safe value.'	      &
		,'B Warning - Parameter is less than lowest safe value.'      &
	  	,'C Field #12 may not be less than field #11.'		      &
		,'D Field #10 may not be less than field #9.'		      &
		,'E Parameter is less than MINIMUM value.'		      &
		,'F Parameter is greater than MAXIMUM value.'		      &
		,'G Increment/Decrement by zero is invalid.'		      &
		,'J Label message exceeds char.s between left edges.'	      &
		,'K Total length exceeds output line (Change #7, #8, #9, or #10).' &
		,'L PRESORT banner labels require a minimum of 26 characters.' &

1030	  M11.MSG$ = TRM$ (MSGSTR$)					      &
	! Assign message string to matching error message.		      &

9000	!***************************************************************      &
	!								      &
	!								      &
	!       E N D   O F    P R O C E S S I N G			      &
	!								      &
	!								      &
	!***************************************************************      &

9900	  ERR.SUBNAM$ = ""						      &
	\ GO TO 32767							      &
	! Go to the end of the subprogram.				      &

19000	!***************************************************************      &
	!								      &
	!								      &
	!       S T A N D A R D    E R R O R    H A N D L I N G		      &
	!								      &
	!								      &
	!***************************************************************      &

19900	  ERR.ERL%  = ERL						      &
	\ ERR.ERR%  = ERR						      &
	\ ERR.CODE% = FATAL.ERROR%					      &
	\ ON ERROR GO BACK						      &
	! On a fatal error, set up the error traceback variables,	      &
	! then return to the calling program.				      &
									      &

32767	  SUBEND
 