COMSMSC 
COMMON
          CTEXT  COMSMSC - MISCELLANEOUS SYSTEM CONSTANTS.
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 MSC      SPACE  4,10 
***       COMSMSC - MISCELLANEOUS SYSTEM CONSTANTS. 
*         R. M. YASUHARA.    76/08/11.
 MSC      SPACE  4,10 
***              COMSMSC DEFINES MISCELLANEOUS SYSTEM CONSTANTS, WHICH
*         ARE REFERENCED BY SEVERAL DECKS AND YET NOT REFERENCED
*         EXTENSIVELY ENOUGH TO BE DEFINED IN *SYSTEXT*.
 MSC      SPACE  4,10 
 DDFW     EQU    PPFW+5*42   FIRST WORD ADDRESS OF *1DD*
 DDLW     EQU    2205        LAST WORD USED BY *1DD*
 DFDS     EQU    330         DAYFILE DUMP BUFFER SIZE 
 EPRL     EQU    777B        ERROR PROCESSING LIMIT (7777B = UNLIMITED) 
 PPSA     EQU    400         LENGTH OF PP SAVE AREA 
 EXDF     EQU    4           NUMBER OF EXCESS DAYFILES
 MXML     EQU    6+2         MAXIMUM PP MESSAGE LENGTH
 MBML     EQU    76          MAXIMUM BINARY MESSAGE LENGTH
 MCML     EQU    13          MAXIMUM CODED MESSAGE LENGTH 
 MXSY     EQU    5           MAXIMUM NUMBER OF SYSTEM DEVICES 
 JDBL     EQU    100+MCML+1  JOB DAYFILE BUFFER LENGTH
  
 RPTAS    EQU    2           SHIFT FOR RING PORT TABLE ADDRESS
 RPTSM    DECMIC RPTAS,1
 RPTL     EQU    1S"RPTSM"   RING PORT TABLE ENTRY LENGTH 
  
 MSDY     EQU    0           MASTER DAYFILE 
 ACDY     EQU    1           ACCOUNT DAYFILE
 ELDY     EQU    2           ERROR LOG DAYFILE
 MLDY     EQU    3           MAINTENANCE LOG DAYFILE
  
 MCBL     EQU    10B         LENGTH OF MONITOR COMMUNICATION BUFFER 
 NMCB     EQU    3           NUMBER OF MONITOR COMMUNICATION BUFFER 
 MXDB     EQU    1000        MAXIMUM DAYFILE BUFFER SIZE
 MXWF     EQU    40          MAXIMUM WEIGHTING FACTOR - QUEUE PRIORITY
  
 PLLA     EQU    265         LOCATION OF PROGRAM NAME IN *PPR*
 PLLB     EQU    270         SECOND AND THIRD CHARACTERS OF NAME
 PPIL     EQU    10          LENGTH OF PP IDLE LOOP (CM WORD COUNT) 
  
 TC       EQU    13          TAPE CONTROLLER CHANNEL
  
 SCDCL    EQU    1400        *SCD* DISPLAY BUFFER LENGTH
  
 SYSDEF   EQU    50000/100   SYSTEM DEFAULT JOB STEP FIELD LENGTH 
  
 FLMAX    EQU    400000B     FL MAXIMUM FOR A CONTROL POINT 
  
 MXTT     EQU    10D         MAXIMUM TERMINATION TIME 
          SPACE  4,10 
**        SYSTEM SOFTWARE LOG THRESHOLD SIZE SYMBOLS. 
*         THRESHOLD SIZES IN PRU-S. 
  
  
 AFDL     EQU    20000       ACCOUNT THRESHOLD SIZE 
 BLTL     EQU    1000        BINARY MAINTENANCE LOG THRESHOLD SIZE
 DFDL     EQU    20000       DAYFILE THRESHOLD SIZE 
 ELDL     EQU    1000        ERRLOG THRESHOLD SIZE
  
*         *HRTL* IS THE MAXIMUM NUMBER OF TIMES THAT A JOB CAN
*         BE RERUN DUE TO A HARDWARE ERROR. 
  
  
 CPTL     EQU    20B         STOP BML MESSAGES ABOVE THIS LIMIT 
  
 UPTL     EQU    10B         INFORM OPERATOR ABOVE THIS LIMIT 
  
 HRTL     EQU    2           MAXIMUM HARDWARE RERUN COUNT 
  
 MSER     EQU    2           MAXIMUM SOFTWARE ERROR RERUN COUNT 
          SPACE  4,10 
**        *QAC*/*1RI* *ALTER* FUNCTIONS.
  
 SSSF     EQU    0           SET SENSE SWITCHES 
 CSSF     EQU    1           CLEAR SENSE SWITCHES 
 GOSF     EQU    2           PROCESS *GO* COMMAND 
 DYSF     EQU    3           ISSUE DAYFILE MESSAGE
 CFSF     EQU    4           PROCESS *CFO* COMMAND
 EMSF     EQU    5           ISSUE ERROR MESSAGE
 PASF     EQU    6           PROCESS *PAUSE* COMMAND
          SPACE  4,10 
**        PP BREAKPOINT SYMBOLS.
  
  
 PBK0     MICRO  1,, 0BK     NAME OF ZERO LEVEL OVERLAY 
 PBK7     MICRO  1,, 7BK     NAME OF BREAKPOINT ROUTINE 
 PBKL     EQU    4           LENGTH OF TABLE PRECEDING PLD
  
*         PP BREAKPOINT FUNCTIONS.
  
 PBRF     EQU    0           CLEAR BREAKPOINT AND GO (PPN.G.) 
 PBCF     EQU    1           DISPLAY BREAKPOINT PP MEMORY (PPN.C,XXXX.) 
 PBGF     EQU    2           CLEAR/SET BREAKPOINT AND GO (PPN.G,XXXX.)
 PBSF     EQU    3           SET (XXXX) = YYYY (PPN.C,XXXX,YYYY.) 
 PBAF     EQU    4           SET (A) = XXXXXX (PPN.A,XXXXXX.) 
 PBPF     EQU    5           SET (P) = XXXX (PPN.P,XXXX.) 
 PBFM     EQU    6           MAXIMUM FUNCTION + 1 
  
*         LOCATIONS IN PP MEMORY REFERENCED BY *DSD*. 
  
 PBK4     EQU    7742        MB+4 SAVED IN *7BK*
 PBK5     EQU    PBK4+5      MB+5 SAVED IN *7BK*
 PBKE     EQU    471         *EXR* TRAP IN PPR
 PBKF     EQU    166         *FTN* TRAP IN PPR
          SPACE  4,10 
**        DEFINE DEFAULT CHARGE NUMBER FOR SYSTEM ORIGIN JOBS.
  
  
 SYSCHG   MICRO  1,,*SYSTEM*
 MSC      SPACE  4,10 
          BASE   *
          ENDX
