16-May-1985 10:02:52	VAX FORTRAN V4.1-45                 Page   1
								 7-Dec-1984 14:53:05	UD0:[VEVLE.SOURCE.UAB.GRADE]MRKERRREC.FOR;1 

0001    	Integer*4 Function Mrk$_ErrRec ( facility, condition_code, append )
0002    c
0003    c *** declarations
0004    c
0005    	Character*(*)	facility,	append
0006    	Character*255	message
0007    	Character*1	cr / 13 /,	lf / 10 /
0008    c
0009    	integer*4	condition_code,	Sys$GetMsg,	msg_stat
0010    c
0011    	Mrk$_ErrRec = Sys$GetMsg ( %VAL( condition_code ),
0012    	1			     message_length,
0013    	1			     message, %VAL( 7 ), )
0014    c
0015    	i = index( message, '!' ) - 1
0016    	If ( i .gt. 0 ) then
0017    	    message = message( : i )
0018    	    message_length = i
0019    	End If
0020    	istat = Lib$Put_Line( cr // lf // facility //
0021    	1		message( 2: message_length ) // append )
0022    c
0023    	return
0024    	end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  167   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                   2   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 352   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  521


ENTRY POINTS

    Address  Type  Name          

  0-00000000  I*4  MRK$_ERRREC   


VARIABLES

    Address  Type  Name                                               Address  Type  Name                            

 AP-0000000C@ CHAR APPEND                                          AP-00000008@ I*4  CONDITION_CODE                  
  2-000000FF  CHAR CR                                              AP-00000004@ CHAR FACILITY                        
      **      I*4  I                                                    **      I*4  ISTAT                           
  2-00000100  CHAR LF                                               2-00000000  CHAR MESSAGE                         
  2-00000108  I*4  MESSAGE_LENGTH                                       **      I*4  MSG_STAT                        

MRK$_ERRREC                    					16-May-1985 10:02:52	VAX FORTRAN V4.1-45                 Page   2
								 7-Dec-1984 14:53:05	UD0:[VEVLE.SOURCE.UAB.GRADE]MRKERRREC.FOR;1 

FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name          

   I*4  LIB$INDEX        I*4  LIB$PUT_LINE     I*4  SYS$GETMSG    


COMMAND QUALIFIERS

  FOR/NODEBUG GRADE,MRKERRREC

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,NOTRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP,NODICTIONARY,SINGLE)
  /WARNINGS=(GENERAL,NODECLARATIONS)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE  /F77
  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE


COMPILATION STATISTICS

  Run Time:           1.24 seconds
  Elapsed Time:       3.56 seconds
  Page Faults:        5
  Dynamic Memory:     341 pages