*DECK COMMONS 
          IDENT  COMMONS     COMPILE-TIME PRESET OF COMMON BLOCKS 
 COMMONS  TITLE  COMMONS - ASSEMBLY-TIME PRESET OF COMMON BLOCKS
          COMMENT  ASSEMBLY-TIME PRESET OF COMMON BLOCKS
*CALL COPYRHT 
          USE    /ENVIRON/
 START    BSS    0
*         COPYRIGHT INFO IS PRESET IN CBASIC - SEE LATER IN THIS ROUTINE
          EJECT 
*CALL MACRO 
*CALL NUMOPT
          SPACE  5
          NOREF  L.B
CLEAR     MACRO  COMNAME     MACRO TO PRESET A COMMON BLOCK TO 0
          USE    /_COMNAME/ 
L.B       SET    *L          SAVE LAST WORD ADDRESS OF COMMON BLOCK 
          ORG    COMNAME           SET BACK COUNTER TO BLOCK ORIGIN 
          BSSZ   L.B-COMNAME       SET ENTIRE BLOCK TO 0
          ENDM
          EJECT 
*CALL ENVIRON 
          SPACE  2
          ENTRY  PRIMARY,SECONDY
          ENTRY  SECONDA     ALTERNATE 7 CHAR NAME FOR SECONDARY
          ENTRY  BASEX0,BASE1X
          ENTRY  INDEX       JUMP INDEX TO PROC TO EXECUTE
          ENTRY  VERAREA
          SPACE  2
          CLEAR  ENVIRON
          ORG    CURRSES     INITIALIZE CURRENT-SESSION TO BLANKS 
          DATA   10H
          ORG    FLAGS
          VFD    1/0         LIBRARY BIT
          VFD    1/INTERCOM  INTERCOM INSTALLED BIT 
          VFD    3/0         RESERVED 
          VFD    6/OS$LEVEL  OPERATING SYSTEM LEVEL 
          ORG    OLDTYPE
          DATA   7777B             OLDTYPE
          ORG    CURSEAT
          VFD    18/0,18/CURRSES,6/24,18/6
          VFD    30/0,12/6,18/0 
          VFD    18/0,18/DATE,24/0        DATEATT 
          VFD    30/0,12/10,18/0
          VFD    18/0,18/TIME,24/0        TIMEATT 
          VFD    30/0,12/10,18/0
          BSS    0
          ORG    CURRSOU
          VFD    60/FMTLINE 
          ORG    OLDKEY 
          VFD    60/7777776B      SIGNAL 1ST TIME 1,4 LOADED
          ORG    USERID 
          DATA   10HQU
          ORG    UIATTR 
          VFD    18/0,18/USERID,12/0,12/10
          VFD    4/0,11/10,15/0,12/10,18/0
          EJECT 
*CALL BASIC 
          SPACE  3
          CLEAR  CBASIC 
          ORG    CBASIC 
          DATA   C* COPYRIGHT CONTROL DATA CORPORATION - 1971, 1974, 197
,5, 1976, 1977, 1978.*
*         THE PRECEDING COPYRIGHT INFO IS CLEARED AT RUN-TIME BY
*         QUERY UPDATE*S INITIALIZATION. ALL CELLS ARE SET TO ZERO
          SPACE  4,10 
**        COMMON BLOCK CLFN.
  
  
*CALL CCLFN 
  
          ORG    RPTFIT 
 RPTFIT   FILE   FO=SQ,BT=C,RT=Z,BFS=1025,FL=8500,EFC=3 
          USE 
          EJECT 
*CALL CREPCMP 
          CLEAR  CREPORT
          ORG    CREPTLG
          VFD    60/CREPORT.-CREPORT
          ORG    BLK
          DATA   10H
          ORG    CURPGAT
          VFD    12/0,6/1,18/PAGENUM,6/30,18/5  ATTRIBUTE TABLE 
          VFD    30/0,12/5,18/0 
          ORG    XLINEAT
          VFD    18/2,18/XLINE,24/10
          VFD    15/3,15/0,12/3,18/0
          ORG    CURRPTA
          VFD    18/0,18/CURREPT,24/7 
          VFD    30/0,12/7,18/0 
          SPACE  5
          USE    /SORTBL/ 
SORTBL    DATA   0                 POINTER TO DYNAMIC SORT KEY BUFFER 
          USE    0
          SPACE  5
          SPACE  5
          END 
