COMSCPD 
COMMON
          CTEXT  COMSCPD - *CPD* FILE/PARAMETER EQUIVALENCES. 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 COMSCPD  SPACE  4,10 
**        *CPD* DATA FILE DEFINITION. 
* 
*         S. L. KSANDER.     78/12/13.
*         R. M. DESSEL.      81/07/27.
*         J. L. LARSON.      83/04/11.
* 
*         IF *CPD$* IS DEFINED, A DUMMY *MPAR* MACRO WILL BE
*         DEFINED WHICH WILL DEFINE THE LENGTH AND PRECISION
*         OF THE DATA ITEMS BASED ON THE MACRO PARAMETERS.
          SPACE  4,10 
****      ASSEMBLY CONSTANTS. 
  
 CTCUL    EQU    13          CATEGORIES OF CPU USAGE
*                            0 = *CPUMTR* IDLE PACKAGE
*                            1 = *CPUMTR* PROGRAM MODE FUNCTIONS
*                            2 = *CPUMTR* STORAGE MOVE
*                            3 = *CPUMTR* FIELD LENGTH VERIFICATION 
*                            4 = *CPUMTR* PSEUDO-PP 
*                            5 = SUBSYSTEM
*                            6 = SYSTEM ORIGIN JOB (NON-SUBSYSTEM)
*                            7 = USER JOB 
*                           10 = EI 
*                           11 = NOS/VE SYSTEM
*                           12 = NOS/VE USER
 CISU     EQU    5           SUBSYSTEM CPU INDEX
 CI18     EQU    10          LOWEST CPU INDEX FOR 180 MODE CATEGORIES 
 CSNS     EQU    3           NOS/170 CODE SEGMENT 
 CSEI     EQU    5           EI CODE SEGMENT
 CSVU     EQU    37          LOWEST NOS/VE USER CODE SEGMENT
 NPFS     EQU    4           NUMBER OF PFMS ACTIVE SIMULTANEOUSLY 
 FETL     EQU    6           REQUIRED MINIMUM FET LENGTH FOR CPD CALL 
  
****
 VERS     SPACE  4,10 
 VERS     MICRO  1,, 9.6     CPD/ACPD VERSION 
 MPAR     SPACE  4,15 
 CPD$     IF     DEF,CPD$ 
**        MPAR - MULTIPLE PRECISION ARRAY.
* 
* NAME    MPAR   L,P
* 
*         ENTRY  *NAME* = ARRAY NAME. 
*                *L* = ARRAY LENGTH IN ELEMENTS.
*                *P* = ELEMENT PRECISION IN PPU WORDS.
* 
*         EXIT   *P.NAME* = PRECISION OF ELEMENTS.
*                *L.NAME* = ARRAY LENGTH. 
* 
*         WARNING - IF ARRAY LENGTH IS NOT EQUAL TO ONE, THE ELEMENT
*         PRECISION MUST NOT BE GREATER THAN TWO. 
  
  
          PURGMAC MPAR
  
          MACRO  MPAR,NAME,LEN,PREC 
          MACREF  MPAR
 .2       IFC    NE,$NAME$$ 
 .1       IFC    EQ,$PREC$$ 
          ERR                PRECISION NOT SPECIFIED
 .1       ELSE
 P.NAME   EQU    PREC 
 .1       ENDIF 
          IFNE   LEN,1,1
          ERRNG  2-P.NAME    OFFSET CALCULATION ERROR 
 L.NAME   EQU    LEN
 .2       ENDIF 
          ENDM
 CPD$     ENDIF 
          SPACE  4,10 
*         HEADER BUFFER DEFINITIONS.
  
  
*         FIXED DATA IN HEADER RECORD.
  
  
 .C       IFCP
          USE    /MPARHDR/
 .C       ENDIF 
  
 .ICM     SET    1           SINGLE ELEMENT INDICATOR 
  
 BL       SET    0           HEADER BLOCK LENGTH INITIAL VALUE
          LOC    0
  
 .TYPE    SET    0           FLAGS HEADER VARIABLES 
 CPDV     MPAR   1,2         CPD VERSION
 TIME     MPAR   1,1*5       INITIATION TIME
 DATE     MPAR   1,1*5       INITIATION DATE
 SYSV     MPAR   1,6*5       SYSTEM DESIGNATION 
 NCPU     MPAR   1,1         NUMBER OF CPUS 
 NNPP     MPAR   1,1         NUMBER OF PPUS 
 NCPP     MPAR   1,1         NUMBER OF CONCURRENT PPUS
 NCPT     MPAR   1,1         NUMBER OF CONTROL POINTS 
 NPCP     MPAR   1,1         NUMBER OF PSEUDO-CONTROL POINTS
 CMRS     MPAR   1,1         CMR SIZE/100B
 MEMS     MPAR   1,2         MACHINE MEMORY SIZE/100B 
 TRMS     MPAR   1,1         NUMBER OF TERMINAL TABLES
 UECS     MPAR   1,1         USER EM SIZE/*UEBS*
 UESC     MPAR   1,1         USER EM SHIFT COUNT
 MTXS     MPAR   1,1         NUMBER OF TAPE UNITS 
 LIBD     MPAR   1,1         3/LIBDECK, 3/RECOVERY LEVEL
 DLIL     MPAR   1,1         INNER LOOP INTERVAL
 DLML     MPAR   1,1         MIDDLE LOOP INTERVAL 
 DLOL     MPAR   1,1         OUTER LOOP INTERVAL
 DLFW     MPAR   1,1         FILE WRITE INTERVAL
 CON1     MPAR   1,1         CTCUL
 CON2     MPAR   1,1         CTILL
 CON3     MPAR   1,1         MXOT 
 MXMS     MPAR   1,1         NUMBER OF MS EQUIPMENTS IN EST 
 CON7     MPAR   1,1         MXFT 
 CON8     MPAR   1,1         MXRS 
 ESTL     MPAR   1,1         LAST ORDINAL + 1 OF DEFINED EST ENTRIES
 MFNT     MPAR   1,1         MAXIMUM NUMBER OF FNT ENTRIES
 MEJT     MPAR   1,1         MAXIMUM NUMBER OF EJT ENTRIES
 MQFT     MPAR   1,1         MAXIMUM NUMBER OF QFT ENTRIES
 MFOT     MPAR   1,1         MAXIMUM NUMBER OF FOT ENTRIES
 ESTS     MPAR   1,1         SIZE OF EST ENTRY
 FNTS     MPAR   1,1         SIZE OF FNT ENTRY
 EJTS     MPAR   1,1         SIZE OF EJT ENTRY
 QFTS     MPAR   1,1         SIZE OF QFT ENTRY
 MXNS     MPAR   1,1         MAXIMUM NUMBER OF SERVICE CLASSES
 MNJS     MPAR   1,1         MAXIMUM NUMBER OF JOB STATUSES 
 MNCS     MPAR   1,1         MAXIMUM NUMBER OF CONNECTION STATUSES
 MCID     MPAR   1,1         MACHINE ID 
 CPUD     MPAR   1,1         CPU RECALL DELAY 
 PPRD     MPAR   1,1         PP AUTO RECALL DELAY 
 MPSZ     MPAR   1,1         MEMORY PAD SIZE
 ISCI     MPAR   1,1         INPUT FILE SCHEDULING INTERVAL 
 SCIN     MPAR   1,1         SCHEDULER CYCLE INTERVAL 
 MSAA     MPAR   1,MXRS*5    MASS STORAGE ALLOCATION AREA 
 SROT     MPAR   1,1         SECONDARY ROLLOUT THRESHOLD
 TIOB     MPAR   1,1         TOTAL NUMBER OF I/O BUFFERS
 ECPB     MPAR   1,1         NUMBER OF EXTENDED MEMORY PP BUFFERS 
          SPACE  4,10 
*         RESERVED AREAS. 
  
  
 RCD5     MPAR   5*5,1       RESERVED FOR CDC 
 RIN5     MPAR   5*5,1       RESERVED FOR INSTALLATION
  
 HFBL     EQU    BL          HEADER RECORD FIXED BLOCK LENGTH 
          SPACE  4,10 
*         MASS STORAGE DATA IN HEADER RECORD. 
*         HEADER RECORD FIELD *MXMS* CONTAINS THE NUMBER OF 
*         OCCURANCES OF THIS VARIABLE BLOCK.
  
  
 .ICM     SET    2           MULTIPLE ELEMENT INDICATOR 
  
          IFPP
 BL       SET    0           RESET BLOCK LENGTH 
          LOC    0
          ENDIF 
  
 MSUN     MPAR   1,1,MXMS    MASS STORAGE UNIT NUMBER 
 TRKC     MPAR   1,1,MXMS    DEVICE TRACK CAPACITY
  
 HMBL     EQU    BL          HEADER RECORD MASS STORAGE BLOCK LENGTH
          SPACE  4,10 
*         JOB CONTROL BLOCK DATA IN HEADER RECORD.
  
  
 .ICM     SET    1           SINGLE ELEMENT INDICATOR 
  
 JCBA     MPAR   1,MXJC*JCBE*5-JCBE*5  JOB CONTROL BLOCKS 
          SPACE  4,10 
*         EST DATA IN HEADER RECORD.
*         HEADER RECORD FIELD *ESTL* CONTAINS THE NUMBER OF 
*         EST ENTRIES.  EACH EST ENTRY IS OF LENGTH *ESTE* WORDS. 
  
  
 .ICM     SET    1           SINGLE ELEMENT INDICATOR 
  
 ESTB     MPAR   1,ESTE*5,ESTL  EST ENTRY 
          MPAR               END OF RECORD
  
 .D       IFCP
          USE    *
 .D       ENDIF 
          LOC    *O 
 BFDT     SPACE  4,10 
*         FIXED BLOCK IN DATA RECORD. 
  
  
*         FAST LOOP VARIABLES.
  
 .A       IFCP
          USE    /MPARDAT/
 .A       ENDIF 
  
 .ICM     SET    1           SINGLE ELEMENT INDICATOR 
  
 BL       SET    0           DATA BLOCK LENGTH INITIAL VALUE
          LOC    0
  
 .TYPE    SET    1           FLAGS FAST LOOP VARIABLES
 ACCH     MPAR   5*CTALL,1   ACTIVE CHANNELS
 BICA     MPAR   5*CTALL,1   BUFFERED I/O CHANNELS
 CTPP     MPAR   1,2         ACTIVE PPUS
 CTCU     MPAR   2*CTCUL,1   CPU USAGE
 SMRP     MPAR   1,1         STORAGE MOVE REQUEST PENDING 
 RQCH     MPAR   5*CTALL,1   REQUESTED CHANNELS 
 RSCH     MPAR   5*CTALL,1   RESERVED CHANNELS
 NPAV     MPAR   1,1         NO PPUS AVAILABLE
 ECST     MPAR   1,1         ECS TRANSFERS IN PROGRESS
 MNMD     MPAR   2,1         MONITOR MODE 
 MTCT     MPAR   1,2         MTR CYCLE TIME 
 NSJA     MPAR   1,1         JOB SCHEDULER ACTIVE 
 SSCU     MPAR   10000B-LSSI,1  SUBSYSTEM CPU USAGE 
 BILA     MPAR   4,2         BUFFERED I/O LIST ACTIVITIES 
 CNIL     MPAR   1,2         INNER LOOP SAMPLES 
 RCD1     MPAR   5*2,1       RESERVED FOR CDC 
 RIN1     MPAR   5*2,1       RESERVED FOR INSTALLATION
          SPACE  4,10 
*         MEDIUM LOOP VARIABLES.
  
  
 .TYPE    SET    2           FLAGS MEDIUM LOOP VARIABLES
 MMCP     MPAR   MXJC-1,2    MEMORY AT CP-S FOR SERVICE CLASS 
 MPCP     MPAR   MXJC-1,2    MEMORY AT PCP-S FOR SERVICE CLASS
 MMRQ     MPAR   MXJC-1,2    MEMORY IN ROLLOUT QUEUE FOR SERVICE CLASS
 ECRQ     MPAR   MXJC-1,2    ECS MEMORY IN ROLLOUT FOR SERVICE CLASS
 ECCP     MPAR   MXJC-1,2    ECS MEMORY AT CP-S FOR SERVICE CLASS 
 ECPC     MPAR   MXJC-1,2    EM AT PCP-S FOR SERVICE CLASS
 JSSC     MPAR   MXJC*MXJS-MXJS,1  JOB STATUS FOR SERVICE CLASS 
 MMAV     MPAR   1,2         MEMORY AVAILABLE 
 SMCP     MPAR   10000B-LSSI,2  SUBSYSTEM MEMORY AT CONTROL POINTS
 WSCP     MPAR   1,1         CONTROL POINTS IN *W* STATUS 
 XSCP     MPAR   1,1         CONTROL POINTS IN *X* STATUS 
 ARCP     MPAR   1,1         CONTROL POINTS IN *I* STATUS 
 SSMP     MPAR   1,1         SAME STORAGE MOVE REQUEST PENDING
 ECAV     MPAR   1,2         USER ECS AVAILABLE 
 JBCS     MPAR   MXCS,1      JOB CONNECTION STATUS ARRAY
 EJTU     MPAR   1,2         EJT ENTRIES IN USE 
 CTML     MPAR   1,2         MIDDLE LOOP SAMPLES
 RCD2     MPAR   5*2,1       RESERVED FOR CDC 
 RIN2     MPAR   5*2,1       RESERVED FOR INSTALLATION
          SPACE  4,10 
*         SLOW LOOP VARIABLES.
  
  
 .TYPE    SET    3           FLAGS SLOW LOOP VARIABLES
 ANTX     MPAR   1,1         IAF ACTIVE USERS 
 DRES     MPAR   4,1         TAPE DRIVES ASSIGNED 
 PATX     MPAR   1,2         IAF POTS ALLOCATED 
 PUTX     MPAR   1,2         IAF POTS IN USE
 QACP     MPAR   1,1         QUEUE FILES ASSIGNED TO A JOB
 QFTU     MPAR   1,2         QFT ENTRIES IN USE 
 IFSC     MPAR   MXJC-1,1    NUMBER OF INPUT FILES FOR SERVICE CLASS
 LPSC     MPAR   MXJC-1,1    NUMBER OF PRINT FILES FOR SERVICE CLASS
 PFSC     MPAR   MXJC-1,1    NUMBER OF PUNCH FILES FOR SERVICE CLASS
 QNCP     MPAR   MXJC-1,1    QUEUE FILES NOT AT A JOB FOR SERVICE CLASS 
 CTOL     MPAR   1,2         OUTER LOOP SAMPLES 
 CTCP     MPAR   1,2         ACTIVE CONCURRENT PPUS 
 NCPA     MPAR   1,1         NO CONCURRENT PPUS AVAILABLE 
 RCD3     MPAR   20B,1       RESERVED FOR CDC 
 RIN3     MPAR   5*2,1       RESERVED FOR INSTALLATION
          SPACE  4,10 
*         SNAPSHOT LOOP VARIABLES.
  
  
 .TYPE    SET    4           FLAGS SNAPSHOT LOOP VARIABLES
 INSA     MPAR   1,10*5      INSTALLATION AREA
 SDAA     MPAR   1,SDAL*5    STATISTICAL DATA AREA
 PGTM     MPAR   1,1*5       *CPUMTR* PROGRAM MODE FUNCTIONS CPU TIME 
 SMTM     MPAR   1,1*5       STORAGE MOVE CPU TIME
 PSTM     MPAR   1,1*5       PSEUDO-PP CPU TIME 
 I0TM     MPAR   1,1*5       CPU 0 IDLE PACKAGE CPU TIME
 I1TM     MPAR   1,1*5       CPU 1 IDLE PACKAGE CPU TIME
 RLTM     MPAR   1,1*5       REAL TIME CLOCK
 PDTM     MPAR   1,1*5       PACKED DATE AND TIME 
          SPACE  4,10 
*         RESERVED AREAS. 
  
  
 RCD4     MPAR   5*2,1       RESERVED FOR CDC 
 RIN4     MPAR   5*2,1       RESERVED FOR INSTALLATION
  
 DFBL     EQU    BL          DATA RECORD FIXED BLOCK LENGTH 
          SPACE  4,10 
*         MASS STORAGE DATA IN DATA RECORD. 
*         HEADER RECORD FIELD *MXMS* CONTAINS THE NUMBER
*         OF OCCURANCES OF THIS VARIABLE BLOCK. 
  
  
 .ICM     SET    2           MULTIPLE ELEMENT INDICATOR 
  
          IFPP
 BL       SET    0           RESET BLOCK LENGTH 
          LOC    0
          ENDIF 
  
*         FAST LOOP VARIABLES.
  
 .TYPE    SET    1           FLAGS FAST LOOP VARIABLES
 NMSA     MPAR   1,2,MXMS    REQUESTS PENDING ON RMS DEVICE 
  
*         SLOW LOOP VARIABLES.
  
 .TYPE    SET    3           FLAGS SLOW LOOP VARIABLES
 TRES     MPAR   1,2,MXMS    MASS STORAGE TRACKS AVAILABLE
          MPAR               END OF RECORD
  
 DMBL     EQU    BL          DATA RECORD MASS STORAGE BLOCK LENGTH
  
 .B       IFCP
          USE    *
 .B       ENDIF 
          LOC    *O 
          SPACE  4,10 
          BASE   *
          ENDX
