401 !-------------------------------------------------------------------- & ! & ! & ! COMERR - Error Message Information & ! & ! ERR.CODE% error code returned from the subroutine & ! ERR.ERL% integer number representing the line of the program & ! where the error occurred & ! ERR.ERR% the RSTS error code for the error & ! ERR.PROGNAM$ 13-character program name and revision & ! ERR.CALLNAM$ 13-character name of the calling program & ! ERR.SUBNAM$ 13-character subprogram name and revision & ! ERR.MSG$ 70-character error message & ! & ! ERR_SORT_ERRBUF$ = 8% Error message string from SMSORT & ! (Contains SORT error buffer. & ! Converted to integer data by M11ERR.) & ! & !-------------------------------------------------------------------- 601 & COMMON (COMERR) & & ERR.CODE% & ,ERR.ERL% & ,ERR.ERR% & ,ERR.PROGNAM$ = 13% & ,ERR.CALLNAM$ = 13% & ,ERR.SUBNAM$ = 13% & ,ERR.MSG$ = 70% & ,FILL$ = 1% & ,ERR_SORT_ERRBUF$ = 8% & &