COMUCPD 
COMMON
                                                                       #
          CTEXT  COMUCPD - *ACPD* SYMBOL AND TABLE DEFINITIONS. 
                                                                       #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
  
                                                                       #
****      *COMUCPD* - *ACPD* SYMBOL AND TABLE DEFINITIONS.
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*         *COMUCPD* CONTAINS THE SYMPL/COMPASS SYMBOL AND TABLE 
*         DEFINITIONS FOR THE PROGRAM *ACPD*. 
* 
*         COMPASS PROGRAMS CALLING THIS COMMON DECK MUST LOCALLY
*         DEFINE MACROS *DDSC*, *DSPT*, *SMGT*, AND *DEF*.
* 
*         THIS COMMON DECK IS INTENDED FOR USE WITH COMMON DECK 
*         *COMSCPD*.
* 
*         TO ADD A NEW REPORT ELEMENT, THE FOLLOWING MUST BE DONE 
*         IN THE SPECIFIED ORDER. 
* 
*         1. CREATE A NEW ENTRY IN THE *MPAR* TABLE. THE ELEMENT NAME 
*         MUST BE UNIQUE. 
* 
*         2. CREATE A NEW ENTRY IN THE *DDSC* TABLE AT THE
*         CORRESPONDING POSITION. 
* 
*         3. DEFINE THE ORDINAL OF THE NEW DATA ELEMENT. THE ORDINAL
*         HAS TO BE THE SAME AS THE ORDINAL IN THE *MPAR* TABLE.
* 
*         4. CREATE A NEW ENTRY IN THE *DSPT* TABLE AT THE DESIRED
*         POSITION. THIS POSITION INDICATES THE ORDER IN WHICH THIS 
*         ELEMENT WILL BE REPORTED. 
* 
*         5. IF THIS ELEMENT HAS NEW SUB-ELEMENTS, CREATE A NEW 
*         ENTRY(S) IN THE *SMGT* TABLE. 
* 
*         TO DELETE A REPORT ELEMENT, IT IS NECESSARY TO DO EITHER
*         OF THE FOLLOWING :  
* 
*         1. DESELECT THE ELEMENT IN TABLE *DDSC* TO TEMPORARILY
*         SUPPRESS THE REPORT OF THIS ELEMENT.
* 
*         OR
* 
*         2. DELETE THE ELEMENT IN TABLES *MPAR*, *DDSC*, *DSPT*, 
*         AND THE ORDINAL OF THE ELEMENT FOR PERMANENT DELETION.
* 
*         3. IF THE ELEMENT HAS SUB-ELEMENTS, AND THE SUB-ELEMENTS
*         ARE USED ONLY BY THE ELEMENT, DELETE THE SUB-ELEMENTS IN
*         TABLE *SMGT*. 
          SPACE  4,10 
**        *ACPD* CONSTANT DEFINITIONS.
                                                                       #
                                                                       #
**        HEADER BLOCK ELEMENT ORDINALS.
                                                                       #
          DEF    CPDV#0#;       # ORDINAL OF *CPDV* ELEMENT # 
          DEF    TIME#CPDV+1#;  # ORDINAL OF *TIME* ELEMENT # 
          DEF    DATE#TIME+1#;  # ORDINAL OF *DATE* ELEMENT # 
          DEF    SYSV#DATE+1#;  # ORDINAL OF *SYSV* ELEMENT # 
          DEF    NCPU#SYSV+1#;  # ORDINAL OF *NCPU* ELEMENT # 
          DEF    NNPP#NCPU+1#;  # ORDINAL OF *NNPP* ELEMENT # 
          DEF    NCPP#NNPP+1#;  # ORDINAL OF *NCPP* ELEMENT # 
          DEF    NCPT#NCPP+1#;  # ORDINAL OF *NCPT* ELEMENT # 
          DEF    NPCP#NCPT+1#;  # ORDINAL OF *NPCP* ELEMENT # 
          DEF    CMRS#NPCP+1#;  # ORDINAL OF *CMRS* ELEMENT # 
          DEF    MEMS#CMRS+1#;  # ORDINAL OF *MEMS* ELEMENT # 
          DEF    TRMS#MEMS+1#;  # ORDINAL OF *TRMS* ELEMENT # 
          DEF    UECS#TRMS+1#;  # ORDINAL OF *UECS* ELEMENT # 
          DEF    UESC#UECS+1#;  # ORDINAL OF *UESC* ELEMENT # 
          DEF    MTXS#UESC+1#;  # ORDINAL OF *MTXS* ELEMENT # 
          DEF    LIBD#MTXS+1#;  # ORDINAL OF *LIBD* ELEMENT # 
          DEF    DLIL#LIBD+1#;  # ORDINAL OF *DLIL* ELEMENT # 
          DEF    DLML#DLIL+1#;  # ORDINAL OF *DLML* ELEMENT # 
          DEF    DLOL#DLML+1#;  # ORDINAL OF *DLOL* ELEMENT # 
          DEF    DLFW#DLOL+1#;  # ORDINAL OF *DLFW* ELEMENT # 
          DEF    CON1#DLFW+1#;  # ORDINAL OF *CON1* ELEMENT # 
          DEF    CON2#CON1+1#;  # ORDINAL OF *CON2* ELEMENT # 
          DEF    CON3#CON2+1#;  # ORDINAL OF *CON3* ELEMENT # 
          DEF    MXMS#CON3+1#;  # ORDINAL OF *MXMS* ELEMENT # 
          DEF    CON7#MXMS+1#;  # ORDINAL OF *CON7* ELEMENT # 
          DEF    CON8#CON7+1#;  # ORDINAL OF *CON8* ELEMENT # 
          DEF    ESTL#CON8+1#;  # ORDINAL OF *ESTL* ELEMENT # 
          DEF    MFNT#ESTL+1#;  # ORDINAL OF *MFNT* ELEMENT # 
          DEF    MEJT#MFNT+1#;  # ORDINAL OF *MEJT* ELEMENT # 
          DEF    MQFT#MEJT+1#;  # ORDINAL OF *MQFT* ELEMENT # 
          DEF    MFOT#MQFT+1#;  # ORDINAL OF *MFOT* ELEMENT # 
          DEF    ESTS#MFOT+1#;  # ORDINAL OF *ESTS* ELEMENT # 
          DEF    FNTS#ESTS+1#;  # ORDINAL OF *FNTS* ELEMENT # 
          DEF    EJTS#FNTS+1#;  # ORDINAL OF *EJTS* ELEMENT # 
          DEF    QFTS#EJTS+1#;  # ORDINAL OF *QFTS* ELEMENT # 
          DEF    MXNS#QFTS+1#;  # ORDINAL OF *MXNS* ELEMENT # 
          DEF    MNJS#MXNS+1#;  # ORDINAL OF *MNJS* ELEMENT # 
          DEF    MNCS#MNJS+1#;  # ORDINAL OF *MNCS* ELEMENT # 
          DEF    MCID#MNCS+1#;  # ORDINAL OF *MCID* ELEMENT # 
          DEF    CPUD#MCID+1#;  # ORDINAL OF *CPUD* ELEMENT # 
          DEF    PPRD#CPUD+1#;  # ORDINAL OF *PPRD* ELEMENT # 
          DEF    MPSZ#PPRD+1#;  # ORDINAL OF *MPSZ* ELEMENT # 
          DEF    ISCI#MPSZ+1#;  # ORDINAL OF *ISCI* ELEMENT # 
          DEF    SCIN#ISCI+1#;  # ORDINAL OF *SCIN* ELEMENT # 
          DEF    MSAA#SCIN+1#;  # ORDINAL OF *MSAA* ELEMENT # 
          DEF    SROT#MSAA+1#;  # ORDINAL OF *SROT* ELEMENT # 
          DEF    TIOB#SROT+1#;  # ORDINAL OF *TIOB* ELEMENT # 
          DEF    ECPB#TIOB+1#;  # ORDINAL OF *ECPB* ELEMENT # 
          DEF    RCD5#ECPB+1#;  # ORDINAL OF *RCD5* ELEMENT # 
          DEF    RIN5#RCD5+1#;  # ORDINAL OF *RIN5* ELEMENT # 
          DEF    MSUN#RIN5+1#;  # ORDINAL OF *MSUN* ELEMENT # 
          DEF    TRKC#MSUN+1#;  # ORDINAL OF *TRKC* ELEMENT # 
          DEF    JCBA#TRKC+1#;  # ORDINAL OF *JCBA* ELEMENT # 
          DEF    ESTB#JCBA+1#;  # ORDINAL OF *ESTB* ELEMENT # 
                                                                       #
**        DATA BLOCK ELEMENT ORDINALS.
* 
*         FAST LOOP ELEMENT ORDINALS. 
                                                                       #
          DEF    ACCH#0#;       # ORDINAL OF *ACCH* ELEMENT # 
          DEF    BICA#ACCH+1#;  # ORDINAL OF *BICA* ELEMENT # 
          DEF    CTPP#BICA+1#;  # ORDINAL OF *CTPP* ELEMENT # 
          DEF    CTCU#CTPP+1#;  # ORDINAL OF *CTCU* ELEMENT # 
          DEF    SMRP#CTCU+1#;  # ORDINAL OF *SMRP* ELEMENT # 
          DEF    RQCH#SMRP+1#;  # ORDINAL OF *RQCH* ELEMENT # 
          DEF    RSCH#RQCH+1#;  # ORDINAL OF *RSCH* ELEMENT # 
          DEF    NPAV#RSCH+1#;  # ORDINAL OF *NPAV* ELEMENT # 
          DEF    ECST#NPAV+1#;  # ORDINAL OF *ECST* ELEMENT # 
          DEF    MNMD#ECST+1#;  # ORDINAL OF *MNMD* ELEMENT # 
          DEF    MTCT#MNMD+1#;  # ORDINAL OF *MTCT* ELEMENT # 
          DEF    NSJA#MTCT+1#;  # ORDINAL OF *NSJA* ELEMENT # 
          DEF    SSCU#NSJA+1#;  # ORDINAL OF *SSCU* ELEMENT # 
          DEF    BILA#SSCU+1#;  # ORDINAL OF *BILA* ELEMENT # 
          DEF    CNIL#BILA+1#;  # ORDINAL OF *CNIL* ELEMENT # 
          DEF    RCD1#CNIL+1#;  # ORDINAL OF *RCD1* ELEMENT # 
          DEF    RIN1#RCD1+1#;  # ORDINAL OF *RIN1* ELEMENT # 
                                                                       #
*         MEDIUM LOOP ELEMENT ORDINALS. 
                                                                       #
          DEF    MMCP#RIN1+1#;  # ORDINAL OF *MMCP* ELEMENT # 
          DEF    MPCP#MMCP+1#;  # ORDINAL OF *MPCP* ELEMENT # 
          DEF    MMRQ#MPCP+1#;  # ORDINAL OF *MMRQ* ELEMENT # 
          DEF    ECRQ#MMRQ+1#;  # ORDINAL OF *ECRQ* ELEMENT # 
          DEF    ECCP#ECRQ+1#;  # ORDINAL OF *ECCP* ELEMENT # 
          DEF    ECPC#ECCP+1#;  # ORDINAL OF *ECPC* ELEMENT # 
          DEF    JSSC#ECPC+1#;  # ORDINAL OF *JSSC* ELEMENT # 
          DEF    MMAV#JSSC+1#;  # ORDINAL OF *MMAV* ELEMENT # 
          DEF    SMCP#MMAV+1#;  # ORDINAL OF *SMCP* ELEMENT # 
          DEF    WSCP#SMCP+1#;  # ORDINAL OF *WSCP* ELEMENT # 
          DEF    XSCP#WSCP+1#;  # ORDINAL OF *XSCP* ELEMENT # 
          DEF    ARCP#XSCP+1#;  # ORDINAL OF *ARCP* ELEMENT # 
          DEF    SSMP#ARCP+1#;  # ORDINAL OF *SSMP* ELEMENT # 
          DEF    ECAV#SSMP+1#;  # ORDINAL OF *ECAV* ELEMENT # 
          DEF    JBCS#ECAV+1#;  # ORDINAL OF *JBCS* ELEMENT # 
          DEF    EJTU#JBCS+1#;  # ORDINAL OF *EJTU* ELEMENT # 
          DEF    CTML#EJTU+1#;  # ORDINAL OF *CTML* ELEMENT # 
          DEF    RCD2#CTML+1#;  # ORDINAL OF *RCD2* ELEMENT # 
          DEF    RIN2#RCD2+1#;  # ORDINAL OF *RIN2* ELEMENT # 
                                                                       #
*         SLOW LOOP ELEMENT ORDINALS. 
                                                                       #
          DEF    ANTX#RIN2+1#;  # ORDINAL OF *ANTX* ELEMENT # 
          DEF    DRES#ANTX+1#;  # ORDINAL OF *DRES* ELEMENT # 
          DEF    PATX#DRES+1#;  # ORDINAL OF *PATX* ELEMENT # 
          DEF    PUTX#PATX+1#;  # ORDINAL OF *PUTX* ELEMENT # 
          DEF    QACP#PUTX+1#;  # ORDINAL OF *QACP* ELEMENT # 
          DEF    QFTU#QACP+1#;  # ORDINAL OF *QFTU* ELEMENT # 
          DEF    IFSC#QFTU+1#;  # ORDINAL OF *IFSC* ELEMENT # 
          DEF    LPSC#IFSC+1#;  # ORDINAL OF *LPSC* ELEMENT # 
          DEF    PFSC#LPSC+1#;  # ORDINAL OF *PFSC* ELEMENT # 
          DEF    QNCP#PFSC+1#;  # ORDINAL OF *QNCP* ELEMENT # 
          DEF    CTOL#QNCP+1#;  # ORDINAL OF *CTOL* ELEMENT # 
          DEF    CTCP#CTOL+1#;  # ORDINAL OF *CTCP* ELEMENT # 
          DEF    NCPA#CTCP+1#;  # ORDINAL OF *NCPA* ELEMENT # 
          DEF    RCD3#NCPA+1#;  # ORDINAL OF *RCD3* ELEMENT # 
          DEF    RIN3#RCD3+1#;  # ORDINAL OF *RIN3* ELEMENT # 
                                                                       #
*         SNAPSHOT LOOP ELEMENT ORDINALS. 
                                                                       #
          DEF    INSA#RIN3+1#;  # ORDINAL OF *INSA* ELEMENT # 
          DEF    SDAA#INSA+1#;  # ORDINAL OF *SDAA* ELEMENT # 
          DEF    PGTM#SDAA+1#;  # ORDINAL OF *PGTM* ELEMENT # 
          DEF    SMTM#PGTM+1#;  # ORDINAL OF *SMTM* ELEMENT # 
          DEF    PSTM#SMTM+1#;  # ORDINAL OF *PSTM* ELEMENT # 
          DEF    I0TM#PSTM+1#;  # ORDINAL OF *I0TM* ELEMENT # 
          DEF    I1TM#I0TM+1#;  # ORDINAL OF *I1TM* ELEMENT # 
          DEF    RLTM#I1TM+1#;  # ORDINAL OF *RLTM* ELEMENT # 
          DEF    PDTM#RLTM+1#;  # ORDINAL OF *PDTM* ELEMENT # 
          DEF    RCD4#PDTM+1#;  # ORDINAL OF *RCD4* ELEMENT # 
          DEF    RIN4#RCD4+1#;  # ORDINAL OF *RIN4* ELEMENT # 
                                                                       #
*         FAST LOOP ELEMENT ORDINAL.
                                                                       #
          DEF    NMSA#RIN4+1#;  # ORDINAL OF *NMSA* ELEMENT # 
                                                                       #
*         SLOW LOOP ELEMENT ORDINAL.
                                                                       #
          DEF    TRES#NMSA+1#;  # ORDINAL OF *TRES* ELEMENT # 
                                                                       #
          SPACE  4,10 
*         MISCELLANOUS CONSTANT DEFINITIONS.
                                                                       #
          DEF    FENL#7#;       # *CIO* FET LENGTH #
          DEF    WSAL#2049#;    # *CIO* BUFFER LENGTH # 
          DEF    EORC#17#;      # EOR STATUS CODE # 
          DEF    EOFC#245785#;  # EOF STATUS CODE # 
          DEF    EOIC#246297#;  # EOI STATUS CODE # 
  
          DEF    SHFC#262144#;  # SHIFT COUNT, 1000000B # 
          DEF    Y30C#122880#;  # YEAR GQ 2000, BIAS+30, 360000B #
          DEF    Y70C#286720#;  # YEAR LQ 1999, BIAS-70, 1060000B # 
          DEF    MXDC#258847#;  # MAXIMUM DATE, 33/12/31, 771437B # 
          DEF    MXTC#98043#;   # MAXIMUM TIME, 23.59.59, 277373B # 
  
          DEF    DCDC#10#;      # NUMBER OF INTERVALS PER PAGE #
          DEF    NULL#0#;       # ZERO VALUE PARAMETER #
          DEF    LFDC#0#;       # LINE FEED # 
          DEF    NLFC#1#;       # NO LINE FEED #
  
          DEF    SELC#1#;       # SELECT FLAG # 
          DEF    NSLC#0#;       # NO SELECT FLAG #
  
          DEF    WGFC#0#;       # WEIGHT FACTOR # 
          DEF    NWFC#1#;       # NO WEIGHT FACTOR #
          DEF    CWFC#2#;       # CONSTANT WEIGHT FACTOR #
          DEF    SPAC#3#;       # SPECIAL # 
          DEF    IWFC#4#;       # INDIRECT WEIGHT FACTOR #
  
          DEF    CHRC#0#;       # CHARACTER TYPE #
          DEF    FLPC#1#;       # REAL TYPE # 
          DEF    INTC#2#;       # INTEGER TYPE #
          DEF    OC1C#3#;       # OCTAL TYPE #
          DEF    OC2C#4#;       # OCTAL, NO *B* POSTFIXED # 
          DEF    OC3C#5#;       # OCTAL, ZERO FILLED #
          DEF    OC4C#6#;       # OCTAL ALLOWING FOR UEBS # 
  
          DEF    BCLC#25#;      # BEGIN COLUMN TO PRINT # 
  
          DEF    CACHE#0#;      # CACHE READ #
          DEF    EXEC#1#;       # EXECUTIVE STATE # 
          DEF    PAGE#2#;       # PAGE READ # 
          DEF    SEGMENT#3#;    # SEGMENT READ #
                                                                       #
  
*         ERROR CODE DEFINITIONS. 
                                                                       #
          DEF    ERM1#1#;       # ACPD ARGUMENT ERROR - XX #
          DEF    ERM2#2#;       # DATA ELEMENT NAME UNDEFINED - XXXX #
          DEF    ERM3#3#;       # BT/BD NOT FOUND # 
          DEF    ERM4#4#;       # DATA BLOCKS MISSING # 
          DEF    ERM5#5#;       # DATA FILE EMPTY # 
          DEF    ERM6#6#;       # DATA FILE CONTENT ERROR # 
          DEF    ERM7#7#;       # DATA FILE NOT AT BEGINNING OF FILE #
          DEF    ERM8#8#;       # DATA FILE NOT IN CHRONOLOGICAL
                                  ORDER # 
          DEF    ERM9#9#;       # N EXCEEDS NUMBER OF FILES # 
          DEF    ERM10#10#;     # IN LESS THAN FILE WRITE TIME #
          DEF    ERM11#11#;     # DATA FILE NOT FOUND # 
          DEF    ERM12#12#;     # DATA FILE POSITIONED AT EOI # 
          DEF    ERM13#13#;     # ACPD/CPD VERSIONS MISMATCH #
          DEF    ERM14#14#;     # IN AND IC PARAMETER CONFLICT #
  
          DEF    ERMSC#14#;     # NUMBER OF ERROR MESSGAES #
  
          DEF    FATAL#0#;      # FATAL ERROR # 
          DEF    INFOM#1#;      # INFORMTIVE ERROR #
                                                                       #
          COL    12 
                                                                       #
           DEF  FASTFOR  # CONTROL FASTLOOP; FOR #; 
           DEF  SLOWFOR  # CONTROL SLOWLOOP; FOR #; 
  
  
                                                                       #
          COL    30 
          SPACE  4,10 
**        COMMON BLOCK /DDSCHDR/. 
* 
*         HEADER BLOCK DATA ITEM DESCRIPTION. 
  
 .FW      SET    0
          USE    /DDSCHDR/
  
 CPDV     DDSC   SELC,CHRC,NWFC,0   *CPD* VERSION 
 TIME     DDSC   SELC,CHRC,NWFC,0   INITIATION TIME 
 DATE     DDSC   SELC,CHRC,NWFC,0   INITIATION DATE 
 SYSV     DDSC   SELC,CHRC,NWFC,0   SYSTEM DESIGNATION
 NCPU     DDSC   SELC,INTC,NWFC,0   NUMBER OF CPU-S 
 NNPP     DDSC   SELC,INTC,NWFC,0   NUMBER OF PPU-S 
 NCPP     DDSC   SELC,INTC,NWFC,0   NUMBER OF CONCURRENT PPU-S
 NCPT     DDSC   SELC,OC1C,NWFC,0   NUMBER OF CONTROL POINTS
 NPCP     DDSC   SELC,OC1C,NWFC,0   NUMBER OF PSEUDO-CONTROL POINTS 
 CMRS     DDSC   SELC,OC1C,NWFC,0   CMR SIZE/100B 
 MEMS     DDSC   SELC,OC1C,NWFC,0   MACHINE MEMORY SIZE/100B
 TRMS     DDSC   SELC,OC1C,NWFC,0   NUMBER OF TERMINAL TABLES 
 UECS     DDSC   SELC,OC4C,NWFC,0   USER EM SIZE/*UEBS* 
 UESC     DDSC   SELC,OC1C,NWFC,0   USER EM SHIFT COUNT 
 MTXS     DDSC   SELC,INTC,NWFC,0   NUMBER OF TAPE UNITS
 LIBD     DDSC   SELC,INTC,NWFC,0   3/LIBDECK, 3/RECOVERY LEVEL 
 DLIL     DDSC   SELC,INTC,NWFC,0   FAST LOOP INTERVAL
 DLML     DDSC   SELC,INTC,NWFC,0   MEDIUM LOOP INTERVAL
 DLOL     DDSC   SELC,INTC,NWFC,0   SLOW LOOP INTERVAL
 DLFW     DDSC   SELC,INTC,NWFC,0   FILE WRITE INTERVAL 
 CON1     DDSC   SELC,OC1C,NWFC,0   CPU USAGE CATEGORIES
 CON2     DDSC   SELC,OC1C,NWFC,0   CHANNEL TABLE LENGTH
 CON3     DDSC   SELC,OC1C,NWFC,0   MAXIMUM ORIGIN TYPES
 MXMS     DDSC   SELC,OC1C,NWFC,0   NUMBER OF MS EQUIPMENT IN EST 
 CON7     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF FILE TYPES
 CON8     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF *MSAL* CATEGORIES 
 ESTL     DDSC   SELC,OC1C,NWFC,0   LENGTH OF DEFINED EST 
 MFNT     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF FNT ENTRIES 
 MEJT     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF EJT ENTRIES 
 MQFT     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF QFT ENTRIES 
 MFOT     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF FOT ENTRIES 
 ESTS     DDSC   SELC,OC1C,NWFC,0   SIZE OF EST ENTRY 
 FNTS     DDSC   SELC,OC1C,NWFC,0   SIZE OF FNT ENTRY 
 EJTS     DDSC   SELC,OC1C,NWFC,0   SIZE OF EJT ENTRY 
 QFTS     DDSC   SELC,OC1C,NWFC,0   SIZE OF QFT ENTRY 
 MXNS     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF SERVICE CLASSES 
 MNJS     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF JOB STATUSES
 MNCS     DDSC   SELC,OC1C,NWFC,0   MAXIMUM NUMBER OF CONNECTION STATS. 
 MCID     DDSC   SELC,CHRC,NWFC,0   MACHINE ID
 CPUD     DDSC   SELC,OC1C,NWFC,0   CPU RECALL DELAY
 PPRD     DDSC   SELC,OC1C,NWFC,0   PP AUTO RECALL DELAY
 MPSZ     DDSC   SELC,OC1C,NWFC,0   MEMORY PAD SIZE 
 ISCI     DDSC   SELC,OC1C,NWFC,0   INPUT FILE SCHEDULING INTERVAL
 SCIN     DDSC   SELC,OC1C,NWFC,0   SCHEDULER CYCLE INTERVAL
 MSAA     DDSC   SELC,OC1C,NWFC,0   MASS STORAGE ALLOCATION AREA
 SROT     DDSC   SELC,OC1C,NWFC,0   SECONDARY ROLLOUT THRESHOLD 
 TIOB     DDSC   SELC,OC1C,NWFC,0   TOTAL NUMBER OF I/O BUFFERS 
 ECPB     DDSC   SELC,OC1C,NWFC,0   NUMBER OF *EM*/PP BUFFERS 
 RCD5     DDSC   NSLC               RESERVED FOR CDC
 RIN5     DDSC   NSLC               RESERVED FOR INSTALLATION 
          SPACE  4,10 
*         VARIABLE BLOCKS IN HEADER RECORD. 
  
 MSUN     DDSC   SELC,OC1C,NWFC,0   MASS STORAGE UNIT NUMBER
 TRKC     DDSC   SELC,OC1C,NWFC,0   DEVICE TRACK CAPACITY 
 JCBA     DDSC   SELC,OC1C,NWFC,0   JOB CONTROL BLOCK AREA
 ESTB     DDSC   SELC,OC1C,NWFC,0   EST ENTRIES 
  
 L.HDR    EQU    .FW+1              DECODE HEADER BLOCK LENGTH
  
          USE    *
          SPACE  4,10 
**        COMMON BLOCK /DDSCDAT/. 
* 
*         DATA BLOCK DATA ITEM DESCRIPTION. 
  
 .FW      SET    0
  
          USE    /DDSCDAT/
  
*         FAST LOOP VARIABLES.
  
 ACCH     DDSC   SELC,FLPC,CWFC,1     ACTIVE CHANNELS 
 BICA     DDSC   SELC,FLPC,CWFC,1     BUFFERED I/O CHANNELS 
 CTPP     DDSC   SELC,FLPC,WGFC,NNPP  ACTIVE PPU-S
 CTCU     DDSC   SELC,FLPC,CWFC,1     CPU USAGE 
 SMRP     DDSC   SELC,FLPC,CWFC,1     STORAGE MOVE REQUEST PENDING
 RQCH     DDSC   SELC,FLPC,CWFC,1     REQUESTED CHANNELS
 RSCH     DDSC   SELC,FLPC,CWFC,1     RESERVED CHANNELS 
 NPAV     DDSC   SELC,FLPC,CWFC,1     NO PPU-S AVAILABLE
 ECST     DDSC   SELC,FLPC,CWFC,1     *EM* TRANSFER IN PROGRESS 
 MNMD     DDSC   SELC,FLPC,CWFC,1     MONITOR MODE
 MTCT     DDSC   SELC,FLPC,CWFC,100   *MTR* CYCLE TIME
 NSJA     DDSC   SELC,FLPC,CWFC,1     JOB SCHEDULER ACTIVE
 SSCU     DDSC   SELC,FLPC,CWFC,1     SUBSYSTEM CPU USAGE 
 BILA     DDSC   SELC,FLPC,SPAC,1     BUFFERED I/O LIST ACTIVITIES
 CNIL     DDSC   SELC,INTC,NWFC,0     INNER LOOP SAMPLES
 RCD1     DDSC   NSLC                 RESERVED FOR CDC
 RIN1     DDSC   NSLC                 RESERVED FOR INSTALLATION 
  
*         MEDIUM LOOP VARIABLES.
  
 MMCP     DDSC   SELC,OC1C,SPAC,0     MEMORY AT CONTROL POINTS
 MPCP     DDSC   SELC,OC1C,SPAC,0     MEMORY AT CONTROL POINTS
 MMRQ     DDSC   SELC,OC1C,SPAC,0     MEMORY IN ROLLOUT QUEUE 
 ECRQ     DDSC   SELC,OC4C,WGFC,UECS  *EM* IN ROLLOUT QUEUE 
 ECCP     DDSC   SELC,OC4C,WGFC,UECS  *EM* AT CONTROL POINTS
 ECPC     DDSC   SELC,OC4C,WGFC,UECS  EM FL AT PCP-S
 JSSC     DDSC   SELC,FLPC,WGFC,MEJT  JOB STATUS BY SERVICE CLASS 
 MMAV     DDSC   SELC,OC1C,SPAC,0     MEMORY AVAILABLE
 SMCP     DDSC   SELC,OC1C,SPAC,0     SUBSYSTEM MEMORY AT CONTRL POINTS 
 WSCP     DDSC   SELC,FLPC,WGFC,NCPT  CONTROL POINTS IN *W* STATUS
 XSCP     DDSC   SELC,FLPC,WGFC,NCPT  CONTROL POINTS IN *X* STATUS
 ARCP     DDSC   SELC,FLPC,WGFC,NCPT  CONTROL POINT IN *I* STATUS 
 SSMP     DDSC   SELC,FLPC,CWFC,1     SAME STORAGE MOVE REQUEST PENDING 
 ECAV     DDSC   SELC,OC4C,WGFC,UECS  USER *EM* AVAILABLE 
 JBCS     DDSC   SELC,FLPC,WGFC,MEJT  JOB CONNECTION STATUS ARRAY 
 EJTU     DDSC   SELC,FLPC,WGFC,MEJT  EJT ENTRIES IN USE
 CTML     DDSC   SELC,INTC,NWFC,0     MIDDLE LOOP SAMPLES 
 RCD2     DDSC   NSLC                 RESERVED FOR CDC
 RIN2     DDSC   NSLC                 RESERVED FOR INSTALLATION 
  
*         SLOW LOOP VARIABLES.
  
 ANTX     DDSC   SELC,FLPC,WGFC,TRMS  IAF ACTIVE USERS
 DRES     DDSC   SELC,FLPC,WGFC,MTXS  TAPE DRIVES ASSIGNED
 PATX     DDSC   SELC,FLPC,NWFC,0     IAF POTS ALLOCATED
 PUTX     DDSC   SELC,FLPC,IWFC,PATX  IAF POTS IN USE 
 QACP     DDSC   SELC,FLPC,WGFC,MQFT  QUEUE FILES ASSIGNED TO A JOB 
 QFTU     DDSC   SELC,FLPC,WGFC,MQFT  QFT ENTRIES IN USE
 IFSC     DDSC   SELC,FLPC,WGFC,MQFT  NUMBER OF INPUT FILES 
 LPSC     DDSC   SELC,FLPC,WGFC,MQFT  NUMBER OF PRINT FILES 
 PFSC     DDSC   SELC,FLPC,WGFC,MQFT  NUMBER OF PUNCH FILES 
 QNCP     DDSC   SELC,FLPC,WGFC,MQFT  QUEUE FILES NOT ASSIGNED TO A JOB 
 CTOL     DDSC   SELC,INTC,NWFC,0     SLOW LOOP SAMPLES 
 CTCP     DDSC   SELC,FLPC,WGFC,NCPP  ACTIVE CONCURRENT PPU-S 
 NCPA     DDSC   SELC,FLPC,CWFC,1     NO CPP-S AVAILABLE
 RCD3     DDSC   NSLC                 RESERVED FOR CDC
 RIN3     DDSC   NSLC                 RESERVED FOR INSTALLATION 
  
*         SNAPSHOT LOOP VARIABLES.
  
 INSA     DDSC   SELC,OC1C,SPAC,0     INSTALLATION AREA 
 SDAA     DDSC   SELC,OC1C,SPAC,0     STATISTICAL DATA AREA 
 PGTM     DDSC   SELC,OC1C,SPAC,0     PROGRAM MODE FUNCTIONS CPU TIME 
 SMTM     DDSC   SELC,OC1C,SPAC,0     STORAGE MOVE CPU TIME 
 PSTM     DDSC   SELC,OC1C,SPAC,0     PSEUDO-PP CPU TIME
 I0TM     DDSC   SELC,OC1C,SPAC,0     CPU 0 IDLE PACKAGE CPU TIME 
 I1TM     DDSC   SELC,OC1C,SPAC,0     CPU 1 IDLE PACKAGE CPU TIME 
 RLTM     DDSC   SELC,OC1C,SPAC,0     REAL TIME CLOCK 
 PDTM     DDSC   SELC,OC1C,SPAC,0     PACKED DATE AND TIME
 RCD4     DDSC   NSLC                 RESERVED FOR CDC
 RIN4     DDSC   NSLC                 RESERVED FOR INSTALLATION 
          SPACE  4,10 
**        VARIABLE BLOCKS IN DATA RECORD. 
  
*         FAST LOOP.
  
 NMSA     DDSC   SELC,FLPC,CWFC,100   REQUESTS PENDING ON RMS DEVICES 
  
*         SLOW LOOP.
  
 TRES     DDSC   SELC,OC1C,WGFC,TRKC  MASS STORAGE TRACKS AVAILABLE 
  
 L.DAT    EQU    .FW+1                DECODED DATA BLOCK LENGTH 
  
          USE    *
          SPACE  4,10 
**        COMMON BLOCK /SMGSCOM/. 
* 
*         SUBBLOCK REPORT TITLES. 
  
          USE    /SMGSCOM/
  
*         CHANNEL TABLE.
  
 .SM      SET    0
 CHNN     EQU    .SM
  
          SMGT   (*CH *),MXNC+5,0 
          SMGT   (*CCH *),MXCH-MXNC-1,0 
          SMGT   (*   *)
  
*         CPU USAGE TABLE.
  
 CPUN     EQU    .SM
  
          SMGT   (*IDLE *)
          SMGT   (*PR MD FTN*)
          SMGT   (*STOR MOVE*)
          SMGT   (*FL VER*) 
          SMGT   (*PSEUDO-PP*)
          SMGT   (*SUBSYSTEM*)
          SMGT   (*SYS ORG *) 
          SMGT   (*USER *)
          SMGT   (*EI*) 
          SMGT   (*VE SYSTEM*)
          SMGT   (*VE USER*)
          SMGT   (*     *)
  
*         SUBSYSTEM CPU USAGE TABLE.
  
 SSUN     EQU    .SM
  
          SMGT   (*IRSI *)
          SMGT   (*ATF *) 
          SMGT   (*CYB *) 
          SMGT   (*NJF *) 
          SMGT   (*TLF *) 
          SMGT   (*MSE *) 
          SMGT   (*SSF *) 
          SMGT   (*SMF *) 
          SMGT   (*MSM *) 
          SMGT   (*STM *) 
          SMGT   (*MAG *) 
          SMGT   (*BIO *) 
          SMGT   (*RBF *) 
          SMGT   (*MSS *) 
          SMGT   (*RDF *) 
          SMGT   (*MCS *) 
          SMGT   (*CDC *) 
          SMGT   (*NVE *) 
          SMGT   (*NAM *) 
          SMGT   (*MAP *) 
          SMGT   (*TAF *) 
          SMGT   (*IN2 *) 
          SMGT   (*IN1 *) 
          SMGT   (*RHF *) 
          SMGT   (*IAF *) 
          SMGT   (*DST *) 
          SMGT   (*    *) 
  
*         TAPE DRIVE TYPE TABLE.
  
 TDTN     EQU    .SM
  
          SMGT   (*MT*) 
          SMGT   (*CT*) 
          SMGT   (*NT*) 
          SMGT   (*AT*) 
          SMGT   (*    *) 
  
*         *INSL* SNAPSHOT WORDS.
  
 INWD     EQU    .SM
  
          SMGT   (*(IN0L) =*) 
          SMGT   (*(IN1L) =*) 
          SMGT   (*(IN2L) =*) 
          SMGT   (*(IN3L) =*) 
          SMGT   (*(IN4L) =*) 
          SMGT   (*(IN5L) =*) 
          SMGT   (*(IN6L) =*) 
          SMGT   (*(IN7L) =*) 
          SMGT   (* *)
  
*         *SDAL* SNAPSHOT WORDS.
  
 SDWD     EQU    .SM
  
          SMGT   (*(SD0L) =*) 
          SMGT   (*(SD1L) =*) 
          SMGT   (*(SD2L) =*) 
          SMGT   (*(SD3L) =*) 
          SMGT   (*(SD4L) =*) 
          SMGT   (*(SD5L) =*) 
          SMGT   (*(SD6L) =*) 
          SMGT   (*(SD7L) =*) 
          SMGT   (*   *)
  
*         BUFFERED I/O LISTS TABLE. 
  
 BILT     EQU    .SM
  
          SMGT   (*EMPTY *) 
          SMGT   (*WRITTEN *) 
          SMGT   (*READ *)
          SMGT   (*WRITE *) 
  
*         SERVICE CLASS TABLE.
  
 SVCN     EQU    .SM
  
 .SCL     SET    3           BEGIN CHARACTER POSITION 
          DUP    MXJC-1      LOOP FOR SERVICE CLASS WITH JOB
 .SRV     MICRO  .SCL,2,+"NMSC"+
          CON    10H".SRV"
 .SCL     SET    .SCL+2      GET NEXT SERVICE CLASS 
 .SM      SET    .SM+1
          ENDD
          CON    10H
  
*         MASS STORAGE EQUIPMENT TABLE. 
  
 EQTN     EQU    .SM+1
  
          BSSZ   MSMX 
  
          USE    *
          SPACE  4,10 
**        COMMON BLOCKS /DSPTENT/ AND /DSPTTXT/.
* 
*         REPORT POSITION AND REPORT TITLE DEFINITIONS. 
  
*         HEADER REPORT TITLES. 
  
 .EC      SET    0
  
 DATE     DSPT   (*START DATE*) 
 TIME     DSPT   (*START TIME*) 
  
 L.APPM   EQU    .EC         BEGIN *ACPD* PARAMETER HEADERS 
  
 CPDV     DSPT   (*CPD VERSION*)
 DLIL     DSPT   (*FAST LOOP INTERVAL (MSECS)*) 
 DLML     DSPT   (*MEDIUM LOOP INTERVAL (MSECS)*) 
 DLOL     DSPT   (*SLOW LOOP INTERVAL (MSECS)*) 
 DLFW     DSPT   (*SNAPSHOT LOOP INTERVAL (SECS)*)
  
 L.HWCF   EQU    .EC         BEGIN HARDWARE CONFIGURATION HEADERS 
  
 NCPU     DSPT   (*NUMBER OF CPUS*) 
 NNPP     DSPT   (*NUMBER OF PPUS*) 
 NCPP     DSPT   (*NUMBER OF CPPS*) 
 MEMS     DSPT   (*MEMORY SIZE / 100B*) 
 UECS     DSPT   (*USER EM / 1000B*)
  
 L.CMCF   EQU    .EC         BEGIN CMR CONFIGURATION HEADERS
  
 MTXS     DSPT   (*MAGNETIC TAPE UNITS*)
 ESTL     DSPT   (*NUMBER OF EST ENTRIES*)
 MFNT     DSPT   (*NUMBER OF FNT ENTRIES*)
 MEJT     DSPT   (*NUMBER OF EJT ENTRIES*)
 MQFT     DSPT   (*NUMBER OF QFT ENTRIES*)
 MFOT     DSPT   (*NUMBER OF FOT ENTRIES*)
 NCPT     DSPT   (*NUMBER OF CONTROL POINTS*) 
 NPCP     DSPT   (*NUMBER OF PCP-S*)
 CMRS     DSPT   (*CMRSIZE / 100B*) 
 LIBD     DSPT   (*LIBDECK NUMBER*),,0,48,6 
 LIBD     DSPT   (*RECOVERY LEVEL*),,0,58,2 
 TRMS     DSPT   (*NUMBER OF IAF TERMINALS*)
 MCID     DSPT   (*MACHINE ID*) 
  
 L.SASC   EQU    .EC         BEGIN SYSTEM ASSEMBLY CONSTANT HEADERS 
  
 CON1     DSPT   (*CPU USAGE CATEGORIES (CTCUL)*) 
 CON2     DSPT   (*CHANNEL TABLE LENGTH (CTALL)*) 
 ESTS     DSPT   (*LENGTH OF AN EST ENTRY (ESTE)*)
 FNTS     DSPT   (*LENGTH OF AN FNT ENTRY (FNTE)*)
 EJTS     DSPT   (*LENGTH OF AN EJT ENTRY (EJTE)*)
 QFTS     DSPT   (*LENGTH OF A QFT ENTRY (QFTE)*) 
 MXNS     DSPT   (*NUMBER OF SERVICE CLASSES (MXSC)*) 
 MNJS     DSPT   (*NUMBER OF JOB STATUSES (MXJS)*)
 MNCS     DSPT   (*NUMBER OF CONNECTION STATUSES (MXCS)*) 
 CON7     DSPT   (*NUMBER OF FILE TYPES (MXFT)*)
 CON3     DSPT   (*MAXIMUM ORIGIN TYPES (MXOT)*)
 MXMS     DSPT   (*NUMBER OF MASS STORAGE DEVICES*) 
 CON8     DSPT   (*LENGTH OF MSAL TABLE (MXRS)*)
  
 L.SDLP   EQU    .EC         BEGIN SYSTEM DELAY PARAMETER HEADERS 
  
 CPUD     DSPT   (*CPU RECALL DELAY*) 
 PPRD     DSPT   (*PP AUTO RECALL DELAY*) 
 MPSZ     DSPT   (*MEMORY PAD SIZE*)
 ISCI     DSPT   (*INPUT FILE SCHEDULING INTERVAL*) 
 SCIN     DSPT   (*SCHEDULER CYCLE INTERVAL*) 
  
 L.BFIO   EQU    .EC         BEGIN BUFFERS HEADERS
  
 TIOB     DSPT   (*HIGH SPEED DISK BUFFERS*)
 ECPB     DSPT   (*EM/PP BUFFERS*)
  
 L.HDM    EQU    .EC         HEADER MESSAGE TABLE LENGTH
  
*         FAST LOOP TITLES. 
  
 .EC      SET    0
  
 CNIL     DSPT   (*FAST LOOP SAMPLES*)
 CTPP     DSPT   (*PPUS ACTIVE*)
 SMRP     DSPT   (*MOVE REQUEST PENDING*) 
 NPAV     DSPT   (*NO PPU AVAILABLE*) 
 ECST     DSPT   (*EM TRANSFER IN PROG*)
 MTCT     DSPT   (*MTR CYCLE TIME*) 
 MNMD     DSPT   (*MONITOR MODE - CPU 0*) 
 MNMD     DSPT   (*MONITOR MODE - CPU 1*) 
 NSJA     DSPT   (*SCHEDULER ACTIVE*) 
 RSCH     DSPT   (*CHANNEL RESERVED*),CHNN
 ACCH     DSPT   (*CHANNEL ACTIVE*),CHNN
 RQCH     DSPT   (*CHANNEL REQUESTED*),CHNN 
 NMSA     DSPT   (*REQUESTS PENDING*),EQTN
 BILA     DSPT   (*BUFFERED I/O LISTS*),BILT
 BICA     DSPT   (*BUFFERED I/O CH BUSY*),CHNN
 CTCU     DSPT   (*CPU USAGE - CPU 0*),CPUN 
 CTCU     DSPT   (*CPU USAGE - CPU 1*),CPUN 
 SSCU     DSPT   (*SUBSYSTEM CPU USAGE*),SSUN 
  
 L.FSM    EQU    .EC         FAST LOOP MESSAGE TABLE LENGTH 
  
*         MEDIUM LOOP TITLES. 
  
 .EC      SET    0
  
 CTML     DSPT   (*MEDIUM LOOP SAMPLES*)
 WSCP     DSPT   (*CPS IN W STATUS*)
 XSCP     DSPT   (*CPS IN X STATUS*)
 ARCP     DSPT   (*CPS IN I STATUS*)
 SSMP     DSPT   (*SAME MOVE REQUEST*)
 MMAV     DSPT   (*FL AVAILABLE*) 
 ECAV     DSPT   (*USER EM AVAILABLE*)
 JBCS     DSPT   (*NON INTERACTIVE JOBS*) 
 JBCS     DSPT   (*DETACHED JOBS*)
 JBCS     DSPT   (*ON-LINE JOBS*) 
 JSSC     DSPT   (*PRE-INITIAL JOB STEP*),SVCN
 JSSC     DSPT   (*EXECUTING*),SVCN 
 JSSC     DSPT   (*SCHEDULER ROLLOUT*),SVCN 
 JSSC     DSPT   (*SCP ROLLIN*),SVCN
 JSSC     DSPT   (*SCP ROLLOUT*),SVCN 
 JSSC     DSPT   (*TIMED/EVENT ROLLOUT*),SVCN 
 JSSC     DSPT   (*INTERACTIVE ROLLOUT*),SVCN 
 JSSC     DSPT   (*DISABLED ROLLOUT*),SVCN
 JSSC     DSPT   (*SUSPENDED ROLLOUT*),SVCN 
 JSSC     DSPT   (*PSEUDO-ROLLOUT*),SVCN
 JSSC     DSPT   (*ROLLOUT FILE ERROR*),SVCN
 JSSC     DSPT   (*NVE ENTRY*),SVCN 
 JSSC     DSPT   (*PRE-INITIAL WAIT STATUS*),SVCN 
 JSSC     DSPT   (*SERVICE LIMIT WAIT*),SVCN
 EJTU     DSPT   (*EJT ENTRIES IN USE*) 
 MMCP     DSPT   (*FL AT CNTL POINTS*),SVCN 
 MPCP     DSPT   (*FL AT PCP-S*),SVCN 
 MMRQ     DSPT   (*FL IN ROLLOUT QUEUE*),SVCN 
 ECCP     DSPT   (*EM FL AT CP-S*),SVCN 
 ECPC     DSPT   (*EM FL AT PCP-S*),SVCN
 ECRQ     DSPT   (*EM IN ROLLOUT QUEUE*),SVCN 
 SMCP     DSPT   (*SUBSYSTEM FL*),SSUN
  
 L.MDM    EQU    .EC         MIDDLE LOOP MESSAGE TABLE LENGTH 
  
*         SLOW LOOP TITLES. 
  
 .EC      SET    0
  
 CTOL     DSPT   (*SLOW LOOP SAMPLES*)
 ANTX     DSPT   (*IAF USERS*)
 PATX     DSPT   (*IAF POTS ALLOCATED*) 
 PUTX     DSPT   (*IAF POTS IN USE*)
 QACP     DSPT   (*QUEUE FILES ASSIGNED*) 
 IFSC     DSPT   (*INPUT FILES*),SVCN 
 LPSC     DSPT   (*PRINT FILES*),SVCN 
 PFSC     DSPT   (*PUNCH FILES*),SVCN 
 QNCP     DSPT   (*OTHER QUEUE FILES*),SVCN 
 QFTU     DSPT   (*QFT ENTRIES IN USE*) 
 DRES     DSPT   (*TAPE DRIVES IN USE*),TDTN
 TRES     DSPT   (*TRACKS AVAILABLE*),EQTN
 CTCP     DSPT   (*CPPS ACTIVE*)
 NCPA     DSPT   (*NO CPPS AVAILABLE*)
  
 L.SLM    EQU    .EC         SLOW LOOP MESSAGE TABLE LENGTH 
  
*         SNAPSHOT TITLES.
  
 .EC      SET    0
  
 INSA     DSPT   (*SNAP SHOT OF INSL*),INWD 
 SDAA     DSPT   (*MTR MXN TIME*),,5,24,12
 SDAA     DSPT   (*WORST CASE MTR CYCLE TIME*),,5,36,12 
 SDAA     DSPT   (*MISSED CLOCK UPDATES*),,5,12,12
 SDAA     DSPT   (*EM MOVES*),,7,12,48
 SDAA     DSPT   (*CM MOVES*),,6,12,48
 SDAA     DSPT   (*DIRECT MOVES*),,8,12,48
 SDAA     DSPT   (*ROLLOUTS TO MS*),,11,12,48 
 SDAA     DSPT   (*PSEUDO-ROLLOUTS*),,12,12,48
 SDAA     DSPT   (*PCP JOB ROLLOUTS*),,13,12,48 
 SDAA     DSPT   (*SECONDARY ROLLOUTS*),,14,12,48 
 SDAA     DSPT   (*SECTORS ROLLED TO MS*),,15,12,48 
 SDAA     DSPT   (*SECONDARY SEC ROLLED*),,16,12,48 
 SDAA     DSPT   (*ROLLOUTS/USER LIMITS*),,4,12,24
 SDAA     DSPT   (*TIME SLICES*),,4,36,24 
 SDAA     DSPT   (*PP PRIORITY EXCHANGES*),,10,12,48
 SDAA     DSPT   (*NO COMM BUFFER AVAIL*),,9,12,48
 SDAA     DSPT   (*NO PCP AVAILABLE*),,17,12,48 
 SDAA     DSPT   (*EJT SCANS*),,0,0,24
 SDAA     DSPT   (*SCHEDULABLE JOBS*),,0,24,36
 SDAA     DSPT   (*JOBS PREEMPTED*),,1,12,24
 SDAA     DSPT   (*JOBS SCHEDULED*),,1,36,24
 SDAA     DSPT   (*SCHEDULED NO CONSTRAINTS*),,2,12,24
 SDAA     DSPT   (*INSUFFICIENT CM SCANS*),,2,36,24 
 SDAA     DSPT   (*INSUFFICIENT EM SCANS*),,3,12,24 
 SDAA     DSPT   (*NO CONTROL POINT SCANS*),,3,36,24
 SDAA     DSPT   (*CURRENT BRT ENTRIES*),,18,0,12 
 SDAA     DSPT   (*WORST CASE BRT ENTRIES*),,18,12,12 
 SDAA     DSPT   (*BRT ENTRIES REJECTED*),,18,24,12 
 SDAA     DSPT   (*TOTAL BRT ENTIRES CREATED*),,18,36,24
 SDAA     DSPT   (*CURRENT MTE CYCLE TIME*),,19,0,12
 SDAA     DSPT   (*WORST CASE MTE CYCLE TIME*),,19,12,12
 SDAA     DSPT   (*BATI INTERLOCKS ABANDONED*),,19,24,12
 SDAA     DSPT   (*TOTAL BAT REQUESTS*),,19,36,24 
 PGTM     DSPT   (*PRG MD FUNCTIONS TIME*)
 SMTM     DSPT   (*STORAGE MOVE TIME*)
 PSTM     DSPT   (*PSEUDO-PP TIME*) 
 I0TM     DSPT   (*CPU 0 IDLE TIME*)
 I1TM     DSPT   (*CPU 1 IDLE TIME*)
 RLTM     DSPT   (*SNAP SHOT OF RTCL*)
 PDTM     DSPT   (*SNAP SHOT OF PDTL*)
          DSPT   (**) 
  
 L.SNM    EQU    .EC-1       SNAP SHOT MESSAGE TABLE LENGTH 
          SPACE  4,10 
**        COMMON BLOCK /JCICOMM/. 
* 
*         SERVICE CLASS NAME DEFINITION.
  
          USE    /JCICOMM/
  
 .A       SET    1           BEGIN CHARACTER POSITION 
          DUP    MXJC        LOOP FOR SERVICE CLASSES WITH JCB-S
 .AA      MICRO  .A,2,+"NMSC"+
          CON    2L".AA"     SERVICE CLASS
 .A       SET    .A+2        GET NEXT SERVICE CLASS 
          ENDD
  
          USE    *
          SPACE  4,10 
**        COMMON BLOCK /DSPTLEN/. 
* 
*         NUMBERS OF REPORT TITLES AND MISCELLANOUS LENGTH DEFINITION.
  
          USE    /DSPTLEN/
  
          BSS    1           CURRENT FIELD LENGTH 
          VFD    60/L.DAT    DECODED DATA BLOCK LENGTH
          VFD    60/L.HDR    DECODED HEADER BLOCK LENGTH
          VFD    60/EQTN     *FWA* OF MST SUBBLOCK TITLES 
          VFD    60/L.FSM    NUMBER OF FAST LOOP TITLES 
          VFD    60/L.HDM    NUMBER OF HEADER TITLES
          BSS    1           HIGHEST ADDRESS
          VFD    60/L.MDM    NUMBER OF MEDIUM LOOP TITLES 
          VFD    60/L.SLM    NUMBER OF SLOW LOOP TITLES 
          VFD    60/L.SNM    NUMBER OF SNAPSHOT TITLES
          VFD    60/L.APPM   BEGIN *ACPD* PARAMETER HEADERS 
          VFD    60/L.HWCF   BEGIN HARDWARE CONFIGURATION HEADERS 
          VFD    60/L.CMCF   BEGIN CMR CONFIGURATION HEADERS
          VFD    60/L.SASC   BEGIN SYSTEM ASSEMBLY CONSTANT HEADERS 
          VFD    60/L.SDLP   BEGIN SYSTEM DELAY PARAMETER HEADERS 
          VFD    60/L.BFIO   BEGIN BUFFERS HEADERS
  
          USE    *
          SPACE  4,10 
**        COMMON BLOCK /ACPDPAR/. 
* 
*         *ACPD* PARAMETER VALUES.
  
          USE    /ACPDPAR/
  
 FN       DATA   0LSAMPLE    DEFAULT INPUT FILE NAME
 L        DATA   0LOUTPUT    DEFAULT REPORT FILE NAME 
 S        DATA   0           DEFAULT SUMMARY FILE NAME
 LO       DATA   0           DEFAULT REPORT OPTION
 IN       DATA   0           DEFAULT INTERVAL LENGTH (MINUTES)
 IC       DATA   0           DEFUALT INTERVAL RECORD COUNT
 N        DATA   0L1         DEFAULT NUMBER OF FILES TO PROCESS 
 BT       DATA   0           DEFAULT BEGINNING TIME 
 ET       DATA   0           DEFAULT ENDING TIME
 BD       DATA   0           DEFAULT BEGINNING DATE 
 ED       DATA   0           DEFAULT ENDING DATE
          DATA   10H"VERS"
  
          USE    *
          SPACE  4,10 
**        DECODED DATA BUFFERS (BLANK COMMON).
* 
*         EXPANDABLE BUFFERS USED TO STORE DECODED DATA.
  
          USE    // 
  
          BSS    L.HDR       DECODED HEADER BUFFER
          BSS    L.DAT*DCDC*2  DECODED DATA BUFFER
          BSS    L.DAT*8     TOTAL REPORT BUFFER
 RFL=     EQU    *           FIELD LENGTH NEEDED TO LOAD
          USE    *
          COL    12 
          EJECT 
**         TABLE DEFINITIONS FOR *SYMPL*. 
                                                                       #
  
                                                                       #
**         *ACPD* PARAMETER VALUES. 
                                                                       #
           COMMON ACPDPAR;
             BEGIN  # ACPDPAR # 
             ITEM P$FN       C(10);  # DATA FILE NAME # 
             ITEM P$L        C(10);  # REPORT FILE NAME # 
             ITEM P$S        C(10);  # SUMMARY FILE NAME #
             ITEM P$LO       C(01);  # LIST OPTION #
             ITEM P$IN       I;      # REPORT INTERVAL LENGTH # 
             ITEM P$IC       I;      # REPORT INTERVAL RECORD COUNT # 
             ITEM P$N        I;      # NUMBER OF FILES REQUESTED #
             ITEM P$BT       U;      # BEGINNING TIME # 
             ITEM P$ET       U;      # ENDING TIME #
             ITEM P$BD       U;      # BEGINNING DATE # 
             ITEM P$ED       U;      # ENDING DATE #
             ITEM P$VERS     C(04);  # *ACPD* VERSION # 
             END  # ACPDPAR # 
  
  
                                                                       #
**         *FET* AND MISCELLANOUS DATA DEFINITIONS. 
                                                                       #
           COMMON CIOCOMM;
             BEGIN  # CIOCOMM # 
             ITEM ACNS       I;      # TOTAL SAMPLES #
             ITEM IBNW       I;      # NUMBER OF WORDS READ # 
             ITEM IBWA       U;      # INPUT BUFFER ADDRESS # 
             ITEM NIPP       I;      # NUMBER OF INTERVALS PER PAGE # 
             ITEM OFFA       U;      # OUTPUT FET ADDRESS # 
             ITEM TCOL       I;      # TOTAL COLUMNS #
             ITEM TLFG       U;      # TITLE TYPE # 
  
             ARRAY SPLA [1:3] P(1);  # SAMPLE TIME ADDRESS #
               BEGIN  # ARRAY SPLA #
               ITEM SPLA$WD    U(00,00,60);  # SAMPLE TIME #
               END  # ARRAY SPLA #
  
           ARRAY FETI [0:FENL];;     # INPUT FET #
  
           ARRAY FETO [0:FENL];;     # OUTPUT FET # 
  
           ARRAY FETS [0:FENL];;     # SUMMARY FILE FET # 
  
           ARRAY WSAI [0:WSAL] P(1);  # INPUT FILE BUFFER # 
               BEGIN  # ARRAY WSAI #
               ITEM WSAI$WD    U(00,00,60);  # WSA WORD # 
               ITEM WSAI$CD    C(00,00,10);  # IN CHARACTER # 
               ITEM WSAI$VS    C(00,00,04);  # *CPD* VERSION #
               END  # ARRAY WSAI #
  
           ARRAY WSAS [0:WSAL];;     # SUMMARY FILE BUFFER #
  
             END  # CIOCOMM # 
  
  
                                                                       #
**         NUMBERS OF REPORT TITLES AND MISCELLANOUS LENGTHS. 
                                                                       #
           COMMON DSPTLEN;
             BEGIN  # DSPTLEN # 
             ITEM CRFL       I;      # CURRENT FIELD LENGTH # 
             ITEM DCDL       I;      # DECODED DATA BLOCK LENGTH #
             ITEM DCHL       I;      # DECODED HEADER BLOCK LENGTH #
             ITEM EQTN       I;      # FWA OF MST SUBBLOCK TITLES # 
             ITEM FSML       I;      # NUMBER OF FAST LOOP TITLES # 
             ITEM HDML       I;      # NUMBER OF HEADER TITLES #
             ITEM HGAD       I;      # HIGHEST ADDRESS #
             ITEM MDML       I;      # NUMBER OF MEDIUM LOOP TITLES # 
             ITEM SLML       I;      # NUMBER OF SLOW LOOP TITLES # 
             ITEM SNML       I;      # NUMBER OF SNAPSHOT TITLES #
             ITEM APPM       I;      # BEGIN *ACPD* PARAMETER 
                                       HEADERS #
             ITEM HWCF       I;      # BEGIN HARDWARE CONFIGURATION 
                                       HEADERS #
             ITEM CMCF       I;      # BEGIN CMR CONFIGURATION
                                       HEADERS #
             ITEM SASC       I;      # BEGIN SYSTEM ASSEMBLY
                                       CONSTANT HEADERS # 
             ITEM SDLP       I;      # BEGIN SYSTEM DELAY 
                                       PARAMETER HEADERS #
             ITEM BFIO       I;      # BEGIN BUFFERS HEADERS #
             END  # DSPTLEN # 
  
  
                                                                       #
**         *MPAR* TABLE FOR HEADER BLOCK. 
                                                                       #
           COMMON MPARHDR;
             BEGIN  # MPARHDR # 
             ARRAY HDTR [0:0];;      # *CPD* DATA DESCRIPTOR #
             END  # MPARHDR # 
  
  
                                                                       #
**         *MPAR* TABLE FOR DATA BLOCK. 
                                                                       #
           COMMON MPARDAT;
             BEGIN  # MPARDAT # 
             ARRAY DATT [0:0];;      # *CPD* DATA DESCRIPTOR #
             END  # MPARDAT # 
  
  
                                                                       #
**         *DDSC* TABLE FOR HEADER BLOCK. 
                                                                       #
           COMMON DDSCHDR;
             BEGIN  # DDSCHDR # 
             ARRAY DDHD [0:0];;      # *ACPD* DATA DESCRIPTOR # 
             END  # DDSCHDR # 
  
  
                                                                       #
**         *DDSC* TABLE FOR DATA BLOCK. 
                                                                       #
           COMMON DDSCDAT;
             BEGIN  # DDSCDAT # 
             ARRAY DDDT [0:0];;      # *ACPD* DATA DESCRIPTOR # 
             END  # DDSCDAT # 
  
  
                                                                       #
**         SUBBLOCK TITLES. 
                                                                       #
           COMMON SMGSCOM;
             BEGIN  # SMGSCOM # 
             ARRAY SMGT [0:0] P(1);  # SUBBLOCK TITLES #
               BEGIN  # ARRAY SMGT #
               ITEM SMGT$TX    C(00,00,10);  # SUBMESSAGE # 
               END  # ARRAY SMGT #
  
             END  # SMGSCOM # 
  
  
                                                                       #
**         SERVICE CLASS NAMES. 
                                                                       #
           COMMON JCICOMM;
             BEGIN  # JCICOMM # 
             ARRAY JCST [0:0] P(1);  # SERVICE CLASS TABLE #
               BEGIN  # ARRAY JCST #
               ITEM JCST$SC    C(00,00,02);  # SERVICE CLASS #
               END  # ARRAY JCST #
  
             END  # JCICOMM # 
  
  
                                                                       #
*          REPORT POSITION DESCRIPTOR.
                                                                       #
           COMMON DSPTENT;
             BEGIN  # DSPTENT # 
             ARRAY DSPT [0:0] P(1);  # REPORT TITLE DESCRIPTOR #
               BEGIN  # ARRAY DSPT #
               ITEM DSPT$WD    U(00,00,60);  # *DSPT *ENTRY # 
               ITEM DSPT$PT    U(00,00,09);  # POINT TO *DDHD*/*DDDT* # 
               ITEM DSPT$WC    U(00,09,06);  # WORD COUNT # 
               ITEM DSPT$BT    U(00,15,06);  # BIT POSITION # 
               ITEM DSPT$BL    U(00,21,06);  # BIT LENGTH # 
               ITEM DSPT$ST    U(00,27,09);  # POINT TO *SMGT* #
               ITEM DSPT$LN    U(00,36,06);  # LENGTH IN CHARACTER #
               ITEM DSPT$BC    U(00,42,18);  # BEGIN CHARACTER OF 
                                               TITLE IN *DSTX* #
               END  # ARRAY DSPT #
  
             END  # DSPTENT # 
  
  
                                                                       #
**         REPORT TITLES. 
                                                                       #
           COMMON DSPTTXT;
             BEGIN  # DSPTTXT # 
             ARRAY DSTX [0:0] P(1);  # REPORT TITLES #
               BEGIN  # ARRAY DSTX #
               ITEM DSTX$TX    C(00,00,10);  # DUMMY ENTRY #
               END  # ARRAY DSTX #
  
             END  # DSPTTXT # 
  
  
                                                                       #
**         DECODED DATA BUFFERS.
                                                                       #
           COMMON;                   # DECODED DATA BUFFER #
             BEGIN  # BLANK COMMON #
             ARRAY DBUF [0:0];;      # TO BE OVERLAID # 
             END  # BLANK COMMON #
  
                                                                       #
**         *SYMPL* BASED ARRAY DEFINITIONS. 
                                                                       #
  
           BASED
           ARRAY MPAR [0:0] P(1);    # *MPAR* ENTRY DESCRIPTOR #
             BEGIN  # ARRAY MPAR #
             ITEM MPAR$WD    U(00,00,60);    # *MPAR* ENTRY # 
             ITEM MPAR$NM    C(00,00,04);    # DATA ELEMENT NAME #
             ITEM MPAR$TP    U(00,24,03);    # BLOCK TYPE # 
             ITEM MPAR$LMP   U(00,27,06);    # LENGTH MULTIPLIER #
             ITEM MPAR$IC    U(00,33,04);    # INCREMENTOR #
             ITEM MPAR$PR    U(00,37,11);    # PRECISION #
             ITEM MPAR$LN    U(00,48,12);    # NUMBER OF ENTRIES #
             END  # ARRAY MPAR #
  
  
           BASED
           ARRAY DDSC [0:0] P(1);    # *DDSC* ENTRY DESCRIPTOR #
             BEGIN  # ARRAY DDSC #
             ITEM DDSC$SD    B(00,00,01);    # SELECT BIT # 
             ITEM DDSC$TY    U(00,01,03);    # DATA TYPE #
             ITEM DDSC$WA    U(00,04,03);    # WEIGHT FACTOR
                                               INFORMATION #
             ITEM DDSC$WP    U(00,07,13);    # WEIGHT FACTOR #
             ITEM DDSC$IC    U(00,20,04);    # INCREMENTOR #
             ITEM DDSC$LN    U(00,24,18);    # NUMBER OF ENTRIES #
             ITEM DDSC$FW    U(00,42,18);    # POINT TO DECODED 
                                               BUFFER # 
             END  # ARRAY DDSC #
  
  
                                                                       #
**         HEADER BLOCK DECODED DATA DESCRIPTOR.
* 
*          OVERLAY ON *DBUF* BLANK COMMON BLOCK.
                                                                       #
           BASED
           ARRAY DCHD [0:0] P(1);    # DBUF[0] #
             BEGIN  # ARRAY DCHD #
             ITEM DCHD$WD    I(00,00,60);    # DECODED HEADER ELEMENT # 
             ITEM DCHD$CW    C(00,00,10);    # IN CHARACTER # 
             END  # ARRAY DCHD #
  
  
                                                                       #
**         DATA BLOCK DECODED DATA DESCRIPTOR.
                                                                       #
           BASED
           ARRAY DCDT [0:0] P(1);    # DBUF[DCHL] # 
             BEGIN  # ARRAY DCDT #
             ITEM DCDT$WD    I(00,00,60);    # DECODED DATA ELEMENT # 
             ITEM DCDT$CW    C(00,00,10);    # IN CHARACTER # 
             ITEM DCDT$SM    R(00,00,60);    # SUM #
             ITEM DCDT$SQ    R(00,00,60);    # SUM SQUARE # 
             ITEM DCDT$ET    U(00,00,30);    # INTERVAL END TIME #
             ITEM DCDT$BT    U(00,30,30);    # INTERVAL BEGIN TIME #
             END  # ARRAY DCDT #
  
  
                                                                       #
**         TOTAL REPORT DATA. 
                                                                       #
           BASED
           ARRAY DDSM [0:0] S(8);    # DBUF[DCHL*DCDC*2] #
             BEGIN  # ARRAY DDSM #
             ITEM DDSM$IM    I(00,00,60);    # INTEGER TOTAL #
             ITEM DDSM$SM    R(00,00,60);    # REAL TOTAL # 
             ITEM DDSM$ET    U(00,00,60);    # TOTAL ENDING TIME #
             ITEM DDSM$BT    U(01,00,60);    # TOTAL BEGINNING TIME # 
             ITEM DDSM$IQ    I(01,00,60);    # INTEGER SUM SQUARE # 
             ITEM DDSM$SQ    R(01,00,60);    # REAL SUM SQUARE #
             ITEM DDSM$AX    R(02,00,60);    # MAXIMUM AVERAGE #
             ITEM DDSM$AN    R(03,00,60);    # MINIMUM AVERAGE #
             ITEM DDSM$SX    R(04,00,60);    # MAXIMUM STANDARD 
                                               DEVIATION #
             ITEM DDSM$SN    R(05,00,60);    # MINIMUM STANDARD 
                                               DEVIATION #
             ITEM DDSM$PX    R(06,00,60);    # MAXIMUM PERCENTAGE # 
             ITEM DDSM$PN    R(07,00,60);    # MINIMUM PERCENTAGE # 
             END  # ARRAY DDSM #
                                                                       #
**         STATUS DEFINITION. 
* 
*          THIS STATUS LIST DEFINES THE STATISTICS
*          REPORTED BY *ACPD*.
                                                                       #
           STATUS STVAL              # STATISTICS REPORTED BY *ACPD* #
                  PCST,              # PERCENTAGE # 
                  SDST,              # STANDARD DEVIATION # 
                  AVST,              # AVERAGE #
                  ENDST;             # END OF *STVAL* # 
                                                                       #
          COL    30 
          ENDX
                                                                       #
                                               CONTROL LIST;
