*COMDECK COMFERR - COMMON DIAGNOSTIC SKELETONS
 COMFERR  CTEXT  COMFERR
          SPACE  4,10 
**        COMMON DIAGNOSTIC SKELETONS 
* 
*         ALL DIAGNOSTICS APPEARING IN DECKS BELOW SHOULD BE PLACED IN
*         THIS COMDECK. 
* 
*         REC, RLINK, PEM, ALLOC, FAS, MAP, LIST
  
  
 E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1) 
 E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN)
  
 .TEST    IFEQ   TEST,ON     IF TESTMODE
 E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK) 
 E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)
 E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL.
,2) 
 E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)
 .TEST    ENDIF 
  
 E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM") 
  
 .T       IFEQ   TEST,ON
 E.TC1    ERROR  DS,*,(TABLE FILL. CRASH) 
 .T       ENDIF 
  
 COMFERR  ENDX
