COMKIPR 
COMMON
          CTEXT  COMKIPR - *TAF* INSTALLATION PARAMETERS. 
          SPACE  4,10 
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       IPR - *TAF* INSTALLATION PARAMETERS.
*         A. SROKA           80/04/01.
          SPACE  4,10 
***       THIS COMDECK DEFINES INSTALLATION AND TUNING PARAMETERS 
*         FOR *TAF* AND *TAF/CRM* DATA MANAGER, ONLY THE
*         MOST OFTEN USED PARAMETERS ARE DEFINED IN THIS DECK AT THE
*         PRESENT TIME. 
*         THIS COMDECK WILL BE USED BY THE FOLLOWING PRODUCTS:  
*                *TAF*
*                *AAMI* 
*                *DMREC*
*         NOT ALL PARAMETERS DEFINED IN HERE ARE USED BY ALL THE
*         PRODUCTS LISTED.
          SPACE  4,10 
***       DEFINITION OF *TAF* VALIDATION PARAMETERS.
          SPACE  4,10 
***       CGNM - TRANSACTION SUBSYSTEM CHARGE NUMBER. 
* 
*         THIS CHARGE NUMBER IS USED BY *TAF* IN A DUMP JOB SUBMITTED 
*         BY IT. IF CGNM IS NULL, NO CHARGE STATEMENT IS USED, AND
*         THE USER NUMBER SPECIFIED BY *USNM* MUST NOT REQUIRE
*         A CHARGE STATEMENT. 
  
 CGNM     MICRO  1,,//       CHARGE NUMBER FOR *TAF*
  
***       DTYM - DEFAULT DEVICE TYPE. 
* 
*         DEFAULT DEVICE TYPE USED BY *TAF* FOR JOURNAL FILES.
  
 DTYM     MICRO  1,2,/DI/    DEFAULT DEVICE TYPE
  
***       FMLY - TRANSACTION SUBSYSTEM FAMILY.
* 
*         FAMILY WHERE *TAF*-S *XXJ* FILES RESIDE.  *FMLY* IS USED
*         BY *DMREC* TO LOCATE TAF-S *XXJ* FILES.  *FMLY* MUST BE SET 
*         TO THE FAMILY THAT CONTAINS *TAF*-S *XXJ* FILES ONLY IF 
*         DATABASES ARE DEFINED ON FAMILIES THAT ARE DIFFERENT FROM THE 
*         FAMILY THAT CONTAINS THE *XXJ* FILES.  IF ALL DATABASES AND 
*         *XXJ* FILES ARE DEFINED ON THE SAME FAMILY, THEN *FMLY* MAY 
*         REMAIN AT THE DEFAULT VALUE OF NULL.
  
 FMLY     MICRO  1,,//       FAMILY WHERE *TAF*-S *XXJ* FILES RESIDE
  
***       PJNM - TRANSACTION SUBSYSTEM PROJECT NUMBER.
* 
  
 PJNM     MICRO  1,,//       PROJECT NUMBER FOR *TAF* 
  
***       TRUI - TRANSACTION SUBSYSTEM USER INDEX.
  
 TRUI     EQU    16B         USER INDEX FOR *TAF* 
  
***       USNM - TRANSACTION SUBSYSTEM USER NUMBER. 
* 
*         *TAF* WILL RUN UNDER THIS USER NUMBER.
  
 USNM     MICRO  1,7,/KB100DC/ USER NUMBER FOR *TAF*
          SPACE  4,10 
***       DEFINE DEFAULT VALUES FOR OPTIONS WHICH MAY BE SPECIFIED
*         AT *TAF* INITIALIZATION VIA THE K-DISPLAY INTERFACE.
          SPACE  4,10 
***       CMMBFL - STARTING FIELD LENGTH. 
* 
*         *CMMBFL* IS THE STARTING AND MINIMUM FIELD LENGTH ALLOCATED 
*         BY *TAF* TO *CRM*.  *TAF* NEVER REDUCES THE *CMM* FIELD 
*         LENGTH BELOW THIS VALUE.
  
 CMMBFL   EQU    70000B      *CMM* STARTING FIELD LENGTH
  
***       CMMEFL - MAXIMUM FIELD LENGTH FOR *CMM*.
* 
*         CMMEFL IS THE MAXIMUM ADDITIONAL CM FIELD LENGTH MADE 
*         AVAILABLE TO *CRM* FOR BUFFERS AND CAPSULES.  THIS SPACE
*         IS MANAGED BY *CMM* EXCLUSIVELY.
  
 CMMEFL   EQU    0B 
  
***       CMMTFL - TARGET FIELD LENGTH FOR *CMM*. 
*         *CMMTFL* IS THE UPPER BOUND ON THE TARGET FIELD LENGTH FOR
*         *CMM*.  *CMMTFL* WILL BE STORED IN ENTRY POINT *AAM$BL*.
*         THIS VALUE IS USED BY *AAM* TO SET THE UPPER BOUND ON THE 
*         AMOUNT OF *CMM* SPACE USED FOR DATA BLOCK BUFFERS FOR THE 
*         FILES CURRENTLY OPEN. 
*         SEE APPENDIX G OF CRM AAM REFERENCE MANUAL (60499300) FOR 
*         OPTIMAL TARGET FIELD LENGTH.
  
 CMMTFL   EQU    30000B      TARGET FIELD LENGTH FOR *CMM*
  
***       ECSFL - ECS FIELD LENGTH. 
* 
*         THIS IS THE ECS FL/1000 FOR USE BY TAF. 
*         THE VALUE OF THIS PARAMETER CAN BE CHANGED
*         BY THE K.ECS COMMAND DURING INITIALIZATION. ECSFL CAN NOT 
*         BE LESS THAN *MINECS* NOR GREATER THAN *MAXECS*.
  
 ECSFL    EQU    0           DEFAULT ECS FIELD LENGTH 
  
***       NCMB - NUMBER OF COMMUNICATION BLOCKS.
* 
*         SETS THE MAXIMUM NUMBER OF COMMUNICATION BLOCKS TO
*         BE USED BY TAF. 
*         COMMUNICATION BLOCKS ARE USED TO HOLD INCOMING
*         MESSAGES. 
*         THE VALUE OF THIS PARAMETER CAN BE CHANGED BY THE 
*         K.CMB COMMAND DURING INITIALIZATION. NCMB CAN NOT 
*         BE LESS THAN *MINCMB* NOR GREATER THAN *MAXCMB*.
  
 NCMB     EQU    40          NUMBER OF COMMUNICATION BLOCKS 
  
***       NSCP - NUMBER OF SUBCONTROL POINTS. 
* 
*         SETS THE MAXIMUM NUMBER OF SUBCONTROL POINTS
*         *TAF* WILL USE. USER AND SYSTEM TASKS RUN AT SUBCONTROL 
*         POINTS. NSCP IS THE NUMBER OF TASKS WHICH CAN RESIDE IN 
*         CENTRAL MEMORY SIMULTANEOUSLY, AT *TAF* CONTROL POINT.
*         THE VALUE OF THIS PARAMETER CAN BE CHANGED BY THE 
*         K.NCP COMMAND DURING INITIALIZATION. NSCP CAN NOT 
*         BE LESS THAN *MINSCP* NOR GREATER THAN *MAXSCP*.
  
 NSCP     EQU    31          NUMBER OF SUBCONTROL POINTS
  
  
***       TLFM - TASK LIBRARY FILE NAME.
* 
*         SETS THE PERMANENT FILE NAME OF THE SYSTEM TASK LIBRARY.
*         THE VALUE OF THIS PARAMETER CAN BE CHANGED BY THE K.TLF 
*         COMMAND DURING INITIALIZATION.
  
 TLFM     MICRO  1,,/TASKLIB/  DEFAULT SYSTEM TASK LIBRARY FILE NAME
***       RSCMB - NONTERMINAL COMMUNICATION BLOCKS. 
* 
*         SETS THE NUMBER OF COMMUNICATION BLOCKS *TAF* USES
*         FOR NONTERMINAL COMMUNICATION. THIS NUMBER IS 
*         INCLUDED IN *NCMB*. 
  
 RSCMB    EQU    2           NONTERMINAL COMMUNICATION BLOCKS 
  
***       SCMFL - MAXIMUM FIELD LENGTH FOR TAF. 
* 
*         MAXIMUM FIELD LENGTH USED BY *TAF* IS SET BY
*         THIS PARAMETER. 
*         THE VALUE OF THIS PARAMETER CAN BE CHANGED BY K.SCM 
*         COMMAND DURING INITIALIZATION. SCMFL CAN NOT BE LESS
*         THAN *MINMFL* NOR GREATER THAN *MAXMFL*.
  
 MINMFL   EQU    40000B      MINIMUM RUNNING *TAF* FL 
 MAXMFL   EQU    377700B-MNFL*100B  MAXIMUM RUNNING *TAF* FL
 SCMFL    EQU    MAXMFL      MAXIMUM DEFAULT *TAF* FL 
  
          SPACE  4,10 
***       *TAF* SCHEDULING PARAMETERS.
* 
*         THE FOLLOWING PARAMETERS ARE USED BY THE *TAF*
*         SCHEDULER.
  
***       DMMTL - DATA MANAGER CALL RATE. 
* 
*         THIS PARAMETER SETS THE MAXIMUM DURATION BETWEEN
*         CALLS TO THE DATA MANAGER(S). THE DURATION IS IN
*         MILLISECONDS. 
  
 DMMTL    EQU    4           MAXIMUM MILLISECOND BETWEEN D.M. CALLS 
  
***       RRTTL - RATE AT WHICH REUSABLE TASKS ARE EVICTED. 
* 
*         *TAF* EVICTS ONE REUSABLE TASK (THE ONE WITH THE
*         HIGHEST RA) EVERY RRTTL MILLISECOND(S). 
  
 RRTTL    EQU    1*1000      TIME INTERVAL TO EVICT REUSEABLE TASKS 
  
***       TSKTL - TASK TIME SLICE.
* 
*         TASK CPU TIME SLICE IN MILLISECOND(S).
  
 TSKTL    EQU    120         TASK TIME SLICE
          SPACE  4,10 
***       DEFINITION OF FIELD LENGTH CONTROL PARAMETERS.
* 
*         THE FOLLOWING PARAMETERS ARE USED BY *TAF* IN ITS 
*         FIELD LENGTH MANAGEMENT.
          SPACE  4,10 
***       CORTL - FIELD LENGTH REDUCTION RATE.
* 
*         TIME DURATION BETWEEN CHECKS FOR FIELD LENGTH 
*         REDUCTION. CORTL IS IN MILLISECOND(S).
  
 CORTL    EQU    1*1000      MILLISECONDS BETWEEN FL REDUCTIONS 
  
***       DEFINITION OF *TAF/CRM* INSTALLATION PARAMETERS.
* 
*         THE PARAMETERS BELOW ARE *TAF/CRM* INSTALLATION PARAMETERS. 
          SPACE  4,10 
***       AIBFL - *TAF/CRM* INPUT QUEUE LENGTH. 
* 
*         AIBFL SETS THE MAXIMUM NUMBER OF TASKS MAKING 
*         CONCURRENT REQUESTS TO *TAF/CRM* DATA MANAGER.
  
 AIBFL    EQU    31 
          ERRNG  AIBFL-1     IF INPUT QUEUE LENGTH ZERO 
  
***       AOBFL - *TAF/CRM* OUTPUT QUEUE LENGTH.
* 
*         AOBFL SETS THE MAXIMUM NUMBER OF COMPLETED
*         *TAF/CRM* DATA MANAGER REQUESTS THAT CAN BE 
*         QUEUED. 
  
 AOBFL    EQU    31 
          ERRNG  AOBFL-1     IF OUTPUT QUEUE LENGTH ZERO
  
***       CMDM - NUMBER OF CONCURRENT *TAF/CRM* REQUESTS. 
* 
*         THE MAXIMUM NUMBER OF CRM DATA MANAGER REQUESTS BEING 
*         PROCESSED CONCURRENTLY IS DEFINED BY THIS PARAMETER.
*         THIS PARAMETER ALSO DEFINES THE NUMBER OF SEGMENTS IN 
*         EACH QUICK RECOVERY FILE BELONGING TO THIS *TAF/CRM*
*         DATA MANAGER. IF THIS PARAMETER IS CHANGED, DATA BASE 
*         RECOVERY WILL NOT BE POSSIBLE USING EXISTING QRFS, AND THE
*         QUICK RECOVERY FILES MUST BE RECREATED. 
  
 CMDM     EQU    31 
          ERRNG  CMDM-1      IF NO REQUESTS ALLOWED 
  
***       CRMARB - NUMBER OF AFTER IMAGE RECORDS CM BUFFERED. 
* 
*         CRMARB IS THE MAXIMUM NUMBER OF AFTER IMAGE RECORDS 
*         WHICH WILL BE BUFFERED IN CM BUFFER FOR FILE BEFORE BEING 
*         FLUSHED TO DISK. IT ALSO ESTABLITHES THE MAXIMUM BLOCK
*         LENGTH FOR LONG RECOVERY FILES. 
*         IF THIS PARAMETER IS CHANGED ALL LRFS MUST BE DUMPED AND
*         RECREATED.
  
 CRMARB   EQU    15          AFTER IMAGE RECOVERY FILE BUFFER 
          ERRNG  CRMARB-1    NO BUFFER LENGTH SPECIFIED 
  
***       CRMARFN - LENGTH OF AFTER IMAGE RECOVERY FILES. 
* 
*         CRMARFN IS THE LENGTH OF ALL THE AFTER IMAGE RECOVERY FILES 
*         IN PRU-S.  WHEN PREALLOCATED BY TAF OR *DMREC* CRMARFN
*         PRU-S WILL BE ASSIGNED TO THE FILES EXCLUDING THE HEADER. 
  
 CRMARFN  EQU    35000       AFTER IMAGE RECOVER FILE LENGTH
          ERRNG  CRMARFN-1   ZERO AFTER IMAGE RECOERY FILE LENGTH 
  
***       CRMUPM - MAXIMUM NUMBER OF UPDATES ALLOWED. 
* 
*         THIS IS THE MAXIMUM NUMBER OF UPDATES ALLOWED FROM A
*         SINGLE BEGIN/COMMIT SEQUENCE. UPDATES ONLY TO 
*         RECOVERABLE FILES ARE COUNTED.
*         IT ALSO DEFINES THE NUMBER OF BEFORE IMAGE RECORDS
*         IN EACH SEGMENT OF THE BEFORE IMAGE RECOVERY FILES. 
  
 CRMUPM   EQU    15          MAXIMUM NUMBER OF UPDATES ALLOWED
          ERRNG  CRMUPM-1    IF NO UPDATES ALLOWED
  
***       BMAX - MAXIMUM NUMBER OF BEFORE IMAGE RECOVERY FILES. 
* 
*         BMAX IS THE MAXIMUM NUMBER OF BEFORE IMAGE RECOVERY FILES 
*         WHICH CAN BE SPECIFIED FOR ONE *TAF/CRM* DATA BASE (ON ONE
*         BRF STATEMENT).  BMAX CANNOT EXCEED 63. 
  
 BMAX     EQU    8           NUMBER OF BEFORE IMAGE RECOVERY FILES
          ERRNG  63-BMAX     MORE THAN 63 BEFORE IMAGE RECOVERY FILES 
  
***       RMDM - NUMBER OF MAINFRAMES FOR TAF.
* 
*         RMDM IS THE MAXIMUM NUMBER OF MAINFRAMES RUNNING *TAF/CRM*
*         AT THE SITE. WHERE AT SOME TIME THIS MAINFRAME MAY BE 
*         REQUIRED TO RECOVER *TAF/CRM* DATA BASES FROM ONE OR ALL
*         OF THE OTHER MAINFRAMES.
  
 RMDM     EQU    1           NUMBER OF *TAF/CRM* MAINFRAMES 
          ERRNG  RMDM-1      IF NO MAINFRAMES RUNNING *TAF/CRM* 
          SPACE  4,10 
***       DEFINITION OF *TAF* BATCH RECOVERY PARAMETERS.
* 
*         THE FOLLOWING PARAMETERS ARE USED BY *DMREC*
*         TO MAINTAIN DATA BASE AND LONG RECOVERY FILE DUMPS. 
          SPACE  4,10 
***       CMAXDB - NUMBER OF CRM DATA BASES.
* 
*         THIS IS THE MAXIMUM NUMBER OF DATA BASES
*         ALLOWED UNDER *TAF/CRM* DATA MANAGER. 
  
 CMAXDB   EQU    31          MAXIMUM NUMBER OF CRM DATA BASES 
  
***       DTTP - DUMP DEVICE TYPE.
* 
*         THIS DEFINES THE TYPE OF TAPE DRIVE TO USE
*         FOR DUMPING DATA BASE AND LONG RECOVERY FILES.
*         DTTP SHOULD BE: 
*                0 FOR SEVEN TRACK TAPES. 
*                1 FOR NINE  TRACK TAPES. 
  
 DTTP     EQU    1           SET DUMP DEVICE TO 9-TRACK TAPES 
 .A       IFEQ   DTTP,0 
          ERRPL  TDEN-4      *DTTP* AND *TDEN* HAVE CONFLICTING VALUES
 .A       ENDIF 
 .B       IFEQ   DTTP,1 
          ERRNG  TDEN-3      *DTTP* AND *TDEN* HAVE CONFLICTING VALUES
 .B       ENDIF 
  
***       NCPY - NUMBER OF BACKUP DUMPS.
* 
*         THIS DEFINES THE NUMBER OF BACKUP COPIES OF 
*         AFTER IMAGE DUMPS TO RETAIN.
  
 NCPY     EQU    2           NUMBER OF BACKUP COPIES
  
***       TDEN - DUMP DEVICE DENSITY. 
* 
*         THIS SETS THE DENSITY AT WHICH THE DUMP TAPES 
*         WILL BE CREATED.
*         TDEN SHOULD BE ONE OF THE FOLLOWING:  
*                1 - FOR 556 BPI. 
*                2 - FOR 200 BPI. 
*                3 - FOR 800 BPI. 
*                4 - FOR 1600 CPI.
*                5 - FOR 6250 CPI.
  
 TDEN     EQU    4           SET DENSITY TO 1600 CPI
          SPACE  4,10 
***       NCBC - NUMBER OF COMMUNICATION BLOCKS.
* 
*         *NCBC* SETS THE MAXIMUM NUMBER OF COMMUNICATION 
*         BLOCKS ALLOWED PER TRANSACTION.  IF THIS VALUE IS 
*         EXCEEDED *ITASK* WILL GET NOTIFIED WITH AN INPUT
*         TOO LARGE SYSTEM MESSAGE. 
  
 NCBC     EQU    4           COMMUNICATION BLOCKS PER TRANSACTION 
          SPACE  4,10 
***       NLIN - MAXIMUM LARGE INPUT USERS. 
* 
*         *NLIN* GIVES THE NUMBER OF USERS THAT CAN BE ALLOWED
*         TO DO LARGE TRANSACTION INPUT SIMULATANUOUSLY.
*         *TAF* WILL RESERVE (NCMB-NLIN*NCBC-RSCMB) COMMUNICATION 
*         BLOCKS FOR ONE COMMUNICATION BLOCK TRANSACTION USERS. 
  
 NLIN     EQU    4           USERS ALLOWED LARGE INPUT AT ONE TIME
          ERRNG  NLIN-4      NOT ENOUGH LARGE INPUT USERS DEFINED 
          ERRNG  NCMB-NLIN*NCBC-RSCMB  NOT ENOUGH C.B.-S DEFINED
          SPACE  4,10 
***       IPTAR - INSTALLATION PARAMETER *TAF* AUTOMATIC RECOVERY.
* 
*         *IPTAR* SET EQUAL TO ONE ENABLES *TAF* AUTOMATIC RECOVERY.
*         IF *IPTAR* EQUALS ZERO AUTOMATIC RECOVERY IS DISABLED.
  
 IPTAR    EQU    1           AUTOMATIC RECOVERY INSTALLED 
          SPACE  4,10 
***       IPTST - INSTALLATION PARAMETER NUMBER *TST* ENTRIES.
* 
*         SETS THE MAXIMUM NUMBER OF TERMINAL DEFINITION
*         STATEMENTS IN ALL NETWORK FILES.  IPTST MUST BE GREATER 
*         THAN 0 AND LESS THAN 4096.
  
 IPTST    EQU    500         DEFAULT NUMBER OF TERMINALS DEFINITION 
  
***       NCTL - MAXIMUM NUMBER OF TERMINALS IN NCT.
* 
*         THIS VALUE MAY BE LESS THAN THE TOTAL NUMBER OF TERMINALS 
*         IN THE NETWORK FILE(S) TO REDUCE CORE STORAGE REQUIREMENTS. 
*         *NCTL* SHOULD BE .GE. TO THE MAXIMUM NUMBER OF TERMINALS
*         LOGGED IN AT ONE TIME.  IF *NCTL* IS EXCEEDED, THE
*         TERMINAL WILL BE REJECTED UPON LOG IN.
  
 NCTL     EQU    250         NUMBER OF TERMINALS FOR NETWORK
          SPACE  4,10 
***       MAXWS - MAXIMUM WORDS FOR *SEND*. 
* 
*         *MAXWS* SETS THE MAXIMUM NUMBER OF WORDS PER *SEND* REQUEST.
  
  
 MAXWS    EQU    409+1       MAXIMUM WORDS FOR TERMINAL *SEND* + 1
          SPACE  4,10 
***       MAXMS - MAXIMUM STORAGE FOR *RGET* AND *RPUT*.
* 
*         *MAXMS* SETS THE MAXIMUM NUMBER OF WORDS USED FOR 
*         *RGET* AND *RPUT* FUNCTIONS.
  
 MAXMS    EQU    MAXWS       MAXIMUM STORAGE FOR *RGET* AND *RPUT*
          SPACE  4,10 
***       MAXTO - MAXIMUM WORDS OF TERMINAL OUTPUT. 
* 
*         *MAXTO* SETS THE MAXIMUM NUMBER OF WORDS PLUS ONE THAT
*         ONE TASK CAN SEND TO THE COMMUNICATION SUBSYSTEM. 
*         EQUALLING OR EXCEEDING THIS VALUE 
*         CAUSES THE TASK TO ABORT. 
  
 MAXTO    EQU    6*MAXWS     MAXIMUM WORDS FOR TERMINAL OUTPUT
          SPACE  4,10 
***       RECDF - DEFAULT USER RECOVERY.
* 
*         SETS THE DEFAULT USER RECOVERY FLAG.
  
 RECDF    EQU    0           DEFAULT USER RECOVERY FLAG 
          SPACE  4
***       TYPEAH - TYPE-AHEAD FLAG. 
* 
*         TYPEAH = 0, TYPE-AHEAD IS ENABLED.
*                = 1, TYPE-AHEAD IS DISABLED.  *CCP* WILL DISCARD 
*                  ALL INPUT TYPED IN BEFORE OUTPUT IS COMPLETE.
  
 TYPEAH   EQU    0           ENABLE/DISABLE TAF TYPE-AHEAD
          SPACE  4,10 
**        *K-DISPLAY* INITIALIZATION PARAMETERS.
  
 MINSCP   EQU    2           MINIMUM NUMBER OF SUB CONTROL POINTS 
 MAXSCP   EQU    31          MAXIMUM NUMBER OF SUB CONTROL POINTS 
 NSCPM    DECMIC  NSCP
 MINSCPM  DECMIC  MINSCP
 MAXSCPM  DECMIC  MAXSCP
          ERRNG  MAXSCP-NSCP *NSCP* MUST BE .LE. *MAXSCP* 
          ERRNG  NSCP-MINSCP *NSCP* MUST BE .GE. *MINSCP* 
 MINCMB   EQU    1+NLIN*NCBC+RSCMB  MINIMUM NUMBER OF C.B.-S
 MAXCMB   EQU    40          MAXIMUM NUMBER OF COMMUNICATION BLOCKS 
 NCMBM    DECMIC  NCMB
 MINCMBM  DECMIC  MINCMB
 MAXCMBM  DECMIC  MAXCMB
          ERRNG  MAXCMB-NCMB *NCMB* MUST BE .LE. *MAXCMB* 
          ERRNG  NCMB-MINCMB *NCMB* MUST BE .GE. *MINCMB* 
          ERRNG  MAXCMB-MINCMB  *MINCMB* MUST BE .LE. *MAXCMB*
 SCMFLM   OCTMIC  SCMFL 
 MINMFLM  OCTMIC  MINMFL
 MAXMFLM  OCTMIC  MAXMFL
          ERRNG  SCMFL-MINMFL  *SCMFL* LESS THAN 40000B 
          ERRPL  SCMFL-MAXMFL-1  *SCMFL* GREATER THAN 300000B 
 MINECS   EQU    0           MINIMUM ECS FL/1000B 
 MAXECS   EQU    400B        MAXIMUM ECS FL/1000B 
 ECSFLM   OCTMIC  ECSFL 
 MINECSM  OCTMIC  MINECS
 MAXECSM  OCTMIC  MAXECS
          ERRPL  ECSFL-MAXECS-1  *ECSFL* GREATER THAN 400B
 MINCMM   EQU    20000B      MINIMUM FL FOR CMM 
 MAXCMM   EQU    200000B     MAXIMUM VALUE FOR *CMMBFL* 
 CMMBFLM  OCTMIC CMMBFL      CMM BASE FL
 MINCMMM  OCTMIC MINCMM      MINIMUM CMM BASE FL
 MAXCMMM  OCTMIC MAXCMM      MAXIMUM CMM BFL AND EFL
          ERRNG  MAXCMM-CMMBFL  *CMMBFL* EXCEEDS LIMIT
          ERRNG  CMMBFL-MINCMM  *CMMBFL* LESS THAN MINIMUM
 MAXCME   EQU    100000B     MAXIMUM CMM EFL
 CMMEFLM  OCTMIC CMMEFL      EXPANDABLE CMM FL
 MAXCMEM  OCTMIC MAXCME      MAXIMUM CMM EFL
          ERRNG  MAXCME-CMMEFL  *CMMEFL* EXCEEDS LIMIT
          ERRNG  CMMEFL      *CMMEFL* LESS THAN ZERO
 MAXCMT   EQU    100000B     MAXIMUM TARGET FIELD LENGTH
 MINCMT   EQU    10000B      MINIMUM TARGET FIELD LENGTH
 MAXTMEM  OCTMIC MAXCMT      MAXIMUM TARGET FIELD LENGTH
 CMMTFLM  OCTMIC CMMTFL      TARGET CMM FIELD LENGTH
 MINTMEM  OCTMIC MINCMT      MINIMUM TARGET FIELD LENGTH
          ERRNG  MAXCMT-CMMTFL *CMMTFL* EXCEEDS LIMIT 
          ERRNG  CMMTFL-MINCMT *CMMTFL* LESS THAN MINIMUM 
          SPACE  4,10 
          BASE   *
          ENDX
