COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      95  DEFINE IMAGE NAMES

   (1)     126  DEFINE INTERNAL IMAGE CASE TABLE

   (1)     175  DEFINE PROMPT TABLES

   (1)     200  DEFINE QUALIFIER TEXT TABLE

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   1

01                                                                                                                               (1)



                                     0000     1 	.TITLE	COMDATABL - COMMAND DATA TABLES

                                     0000     2 	.IDENT	/01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ; D. N. CUTLER 30-MAR-77

                                     0000    24 ;

                                     0000    25 ; DCLS COMMAND INTERPRETER DATA BASE

                                     0000    26 ;

                                     0000    27 ; MACRO LIBRARY CALLS

                                     0000    28 ;

                                     0000    29  

                                     0000    30 	DEFERRCOD			;DEFINE ERROR/STATUS VALUES

                                     0000    31 	DEFOPIDCL			;DCL OUTPUT RESULT PARSE INDIACTORS

                                     0000    32  

                                     0000    33 ;

                                     0000    34 ; LOCAL MACROS

                                     0000    35 

                                     0000    36 ;

                                     0000    37 ; DEFINE QUALIFER

                                     0000    38 ;

                                     0000    39  

                                     0000    40 	.MACRO	DEFQUAL QUAL

                                     0000    41 	.IIF B	<QUAL>, .ERROR		;NO QUALIFIER SPECIFIED

                                     0000    42 QUA_K_'QUAL==<.-DCL$AB_QUALTBL>/4

                                     0000    43 	.NCHR	$$$,QUAL

                                     0000    44 	.IIF	GT	$$$-4,	.ERROR	;QUALIFIER TOO LONG

                                     0000    45 	.ASCII	/QUAL/

                                     0000    46 	.REPT	4-$$$

                                     0000    47 	.ASCII	/ /

                                     0000    48 	.ENDR	

                                     0000    49 	.ENDM	DEFQUAL

                                     0000    50  

                                     0000    51 ;

                                     0000    52 ; DEFINE EXTERNAL IMAGE NAME

                                     0000    53 ;

                                     0000    54  

                                     0000    55 	.MACRO	EXTIMAGE IMAGE

                                     0000    56 	.IIF B	<IMAGE>, .ERROR		;NO IMAGENAME SPECIFIED

                                     0000    57 IMG_K_'IMAGE==$EXTIMAGE$

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   2

01                                                                                                                               (1)



                                     0000    58 $EXTIMAGE$=$EXTIMAGE$+1

                                     0000    59 	.ASCIC	\IMAGE\

                                     0000    60 	.ENDM	EXTIMAGE

                                     0000    61  

                                     0000    62 ;

                                     0000    63 ; DEFINE INTERNAL IMAGE NAME

                                     0000    64 ;

                                     0000    65  

                                     0000    66 	.MACRO	INTIMAGE IMAGE

                                     0000    67 	.IIF B	<IMAGE>, .ERROR		;NO ENTRYNAME SPECIFIED

                                     0000    68 IMG_K_'IMAGE==$INTIMAGE$

                                     0000    69 $INTIMAGE$=$INTIMAGE$+1

                                     0000    70 	.WORD	DCL$'IMAGE-INTIMAGEBASE

                                     0000    71 	.ENDM	INTIMAGE

                                     0000    72  

                                     0000    73 ;

                                     0000    74 ; DEFINE PROMPT STRING

                                     0000    75 ;

                                     0000    76  

                                     0000    77 	.MACRO	PROMPTSTR PROMPT,MOREPROMPT

                                     0000    78 	.IIF B	<PROMPT>, .ERROR	;NO PROMPT STRING SPECIFIED

                                     0000    79 PRO_K_'PROMPT==$PROMPTSTR$

                                     0000    80 $PROMPTSTR$=$PROMPTSTR$+1

                                     0000    81 $ZZ$=.

                                     0000    82 	.ASCIC	\PROMPT'MOREPROMPT\

                                     0000    83 	$ZZ$ = . - $ZZ$ - 1

                                     0000    84 	.IIF GT	$ZZ$-$PROMPTPAD, $PROMPTPAD=$ZZ$

                                     0000    85 	.ENDM	PROMPTSTR

                                     0000    86 

                                     0000    87 ;

                                     0000    88 ; LOCAL SYMBOLS

                                     0000    89 ;

                                     0000    90  

                           00000001  0000    91 $DCLDEFQUALBLK$=1			;FORCE GENERATION OF DATA BASE

                           00000001  0000    92 $EXTIMAGE$=1				;EXTERNAL IMAGE NAME INDEX

                           00000080  0000    93 $INTIMAGE$=^X80				;INTERNAL IMAGE NAME INDEX

                           00000000  0000    94 $PROMPTSTR$=0				;PROMPT STRING INDEX NUMBER

                                     0000    95 	.SBTTL	DEFINE IMAGE NAMES

                                 00000000    96 	.PSECT	YDCL$IMAGETBL,BYTE,RD,NOWRT

                                     0000    97 DCL$AB_IMAGETBL::			;BASE ADDRESS OF IMAGE NAME TABLE

                                     0000    98 

                                     0000    99 EXTIMAGE	ANALYZ

                                     0007   100 EXTIMAGE	BACKTRANS

                                     0011   101 EXTIMAGE	BLISS32

                                     0019   102 EXTIMAGE	CANCEL

                                     0020   103 EXTIMAGE	COBOL

                                     0026   104 EXTIMAGE	COPY

                                     002B   105 EXTIMAGE	DELETE

                                     0032   106 EXTIMAGE	DISMOUNT

                                     003B   107 EXTIMAGE	HELP

                                     0040   108 EXTIMAGE	INIT

                                     0045   109 EXTIMAGE	LINK

                                     004A   110 EXTIMAGE	PATCH

                                     0050   111 EXTIMAGE	QUEMAN

                                     0057   112 EXTIMAGE	RMSUTIL

                                     005F   113 EXTIMAGE	RUNDET

                                     0066   114 EXTIMAGE	REPLY

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   3

01              DEFINE IMAGE NAMES                                                                                               (1)



                                     006C   115 EXTIMAGE	REQUEST

                                     0074   116 EXTIMAGE	SET

                                     0078   117 EXTIMAGE	SHOW

                                     007D   118 EXTIMAGE	SORT32

                                     0084   119 EXTIMAGE	SUBMIT

                                     008B   120 EXTIMAGE	TYPE

                                     0090   121 EXTIMAGE	VMOUNT

                                     0097   122 EXTIMAGE	_ZZ_			;NOP IMAGE

                                     009C   123  

                                 80  009C   124 	.BYTE	128			;MARKER BYTE

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   4

01              DEFINE INTERNAL IMAGE CASE TABLE                                                                                 (1)



                                     009D   126 	.SBTTL	DEFINE INTERNAL IMAGE CASE TABLE

                                 00000000   127 	.PSECT	YDCL$ZCODE,BYTE,RD,NOWRT

                                     0000   128 DCL$INTIMAGE::				;ADDRESS OF INTERNAL IMAGE CASE TABLE

            00            53     8F  0000   129 	CASEB	R3,#0,#<INTIMAGETOP-INTIMAGEBASE>/2-1

                       27'8F         0003       

                                     0005   130 INTIMAGEBASE:				;BASE ADDRESS OF CASE TABLE

                                     0005   131 INTIMAGE	ALLOCATE

                                     0007   132 INTIMAGE	ASSIGN

                                     0009   133 INTIMAGE	CLOSE

                                     000B   134 INTIMAGE	CONTINUE

                                     000D   135 INTIMAGE	DEALLOCAT

                                     000F   136 INTIMAGE	DEASSIGN

                                     0011   137 INTIMAGE	DEBUG

                                     0013   138 INTIMAGE	DECK

                                     0015   139 INTIMAGE	DEFINE

                                     0017   140 INTIMAGE	DEPOSIT

                                     0019   141 INTIMAGE	DELSYM

                                     001B   142 INTIMAGE	EOD

                                     001D   143 INTIMAGE	EXAMINE

                                     001F   144 INTIMAGE	EXIT

                                     0021   145 INTIMAGE	EXTIMAGE

                                     0023   146 INTIMAGE	GOTO

                                     0025   147 INTIMAGE	IF

                                     0027   148 INTIMAGE	INQUIRE

                                     0029   149 INTIMAGE	LOGOUT

                                     002B   150 INTIMAGE	MCR

                                     002D   151 INTIMAGE	ON

                                     002F   152 INTIMAGE	OPEN

                                     0031   153 INTIMAGE	READ

                                     0033   154 INTIMAGE	RUN

                                     0035   155 INTIMAGE	SETCTLY

                                     0037   156 INTIMAGE	SETDEFALT

                                     0039   157 INTIMAGE	SETON

                                     003B   158 INTIMAGE	SETPROT

                                     003D   159 INTIMAGE	SETUIC

                                     003F   160 INTIMAGE	SETVERIFY

                                     0041   161 INTIMAGE	SHOWDEF

                                     0043   162 INTIMAGE	SHOWLOG

                                     0045   163 INTIMAGE	SHOWPROT

                                     0047   164 INTIMAGE	SHOWSTAT

                                     0049   165 INTIMAGE	SHOWSYMBL

                                     004B   166 INTIMAGE	SHOWTIME

                                     004D   167 INTIMAGE	SHOWTRAN

                                     004F   168 INTIMAGE	STOP

                                     0051   169 INTIMAGE	WAIT

                                     0053   170 INTIMAGE	WRITE

                                     0055   171 INTIMAGETOP:				;TOP ADDRESS OF CASE TABLE

            50       0000'8F     3C  0055   172 	MOVZWL	#SS$_ILLSER,R0		;SET SERVICE ERROR

                                 05  005A   173 	RSB				;

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   5

01              DEFINE PROMPT TABLES                                                                                             (1)



                                     005B   175 	.SBTTL	DEFINE PROMPT TABLES

                                 00000000   176 	.PSECT	YDCL$PROMPTBL,BYTE,RD,NOWRT

                           00000000  0000   177 $PROMPTPAD=0

                                     0000   178 DCL$AB_PROMPTBL::			;BASE ADDRESS OF PROMPT TABLE

                                     0000   179 

                                     0000   180 PROMPTSTR	<Device>

                                     0007   181 PROMPTSTR	<Equ_Name>

                                     0010   182 PROMPTSTR	<File>

                                     0015   183 PROMPTSTR	<Fil>,<e 1>

                                     001C   184 PROMPTSTR	<Fi>,<le 2>

                                     0023   185 PROMPTSTR	<From>

                                     0028   186 PROMPTSTR	<Label>

                                     002E   187 PROMPTSTR	<Library>

                                     0036   188 PROMPTSTR	<Log_Name>

                                     003F   189 PROMPTSTR	<Option>

                                     0046   190 PROMPTSTR	<Proc_name>

                                     0050   191 PROMPTSTR	<Queue>

                                     0056   192 PROMPTSTR	<Symbol>

                                     005D   193 PROMPTSTR	<To>

                                     0060   194 PROMPTSTR	<What>

                                     0065   195 PROMPTSTR	<Output>

                                     006C   196  

                                 80  006C   197 	.BYTE	128			;MARKER BYTE

                           0000000D  006D   198 DCL$K_PROMPTPAD == $PROMPTPAD+4

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   6

01              DEFINE QUALIFIER TEXT TABLE                                                                                      (1)



                                     006D   200 	.SBTTL	DEFINE QUALIFIER TEXT TABLE

                                 00000000   201 	.PSECT	YDCL$QUALTBL,BYTE,RD,NOWRT

                                     0000   202 DCL$AB_QUALTBL::			;BASE ADDRESS OF QUALIFIER TABLE

                                     0000   203  

                                     0000   204 DEFQUAL		ABOR

                                     0004   205 DEFQUAL		ACCE

                                     0008   206 DEFQUAL		ACCO

                                     000C   207 DEFQUAL		AFTE

                                     0010   208 DEFQUAL		ALIG

                                     0014   209 DEFQUAL		ALL

                                     0018   210 DEFQUAL		ALLO

                                     001C   211 DEFQUAL		ANSI

                                     0020   212 DEFQUAL		ASCI

                                     0024   213 DEFQUAL		AST_

                                     0028   214 DEFQUAL		AUDI

                                     002C   215 DEFQUAL		AUTH

                                     0030   216 DEFQUAL		BACK

                                     0034   217 DEFQUAL		BADB

                                     0038   218 DEFQUAL		BATC

                                     003C   219 DEFQUAL		BINA

                                     0040   220 DEFQUAL		BLAN

                                     0044   221 DEFQUAL		BLOC

                                     0048   222 DEFQUAL		BRIE

                                     004C   223 DEFQUAL		BROA

                                     0050   224 DEFQUAL		BUCK

                                     0054   225 DEFQUAL		BUFF

                                     0058   226 DEFQUAL		BURS

                                     005C   227 DEFQUAL		BYTE

                                     0060   228 DEFQUAL		CARD

                                     0064   229 DEFQUAL		CHAN

                                     0068   230 DEFQUAL		CHEC

                                     006C   231 DEFQUAL		CLUS

                                     0070   232 DEFQUAL		COBO

                                     0074   233 DEFQUAL		CODE

                                     0078   234 DEFQUAL		COLU

                                     007C   235 DEFQUAL		COMM

                                     0080   236 DEFQUAL		COMP

                                     0084   237 DEFQUAL		CONC

                                     0088   238 DEFQUAL		COND

                                     008C   239 DEFQUAL		CONT

                                     0090   240 DEFQUAL		COPI

                                     0094   241 DEFQUAL		COPY

                                     0098   242 DEFQUAL		CREA

                                     009C   243 DEFQUAL		CROS

                                     00A0   244 DEFQUAL		DATA

                                     00A4   245 DEFQUAL		DAYT

                                     00A8   246 DEFQUAL		DEBU

                                     00AC   247 DEFQUAL		DECI

                                     00B0   248 DEFQUAL		DEFA

                                     00B4   249 DEFQUAL		DELA

                                     00B8   250 DEFQUAL		DELE

                                     00BC   251 DEFQUAL		DENS

                                     00C0   252 DEFQUAL		DEVI

                                     00C4   253 DEFQUAL		DIRE

                                     00C8   254 DEFQUAL		DISA

                                     00CC   255 DEFQUAL		DISK

                                     00D0   256 DEFQUAL		DOLL

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   7

01              DEFINE QUALIFIER TEXT TABLE                                                                                      (1)



                                     00D4   257 DEFQUAL		DOS1

                                     00D8   258 DEFQUAL		DRIV

                                     00DC   259 DEFQUAL		DUPL

                                     00E0   260 DEFQUAL		D_LI

                                     00E4   261 DEFQUAL		EBCD

                                     00E8   262 DEFQUAL		EDI

                                     00EC   263 DEFQUAL		ENAB

                                     00F0   264 DEFQUAL		END_

                                     00F4   265 DEFQUAL		ENTR

                                     00F8   266 DEFQUAL		ERRO

                                     00FC   267 DEFQUAL		EXAC

                                     0100   268 DEFQUAL		EXEC

                                     0104   269 DEFQUAL		EXIT

                                     0108   270 DEFQUAL		EXPE

                                     010C   271 DEFQUAL		EXTE

                                     0110   272 DEFQUAL		EXTR

                                     0114   273 DEFQUAL		FEED

                                     0118   274 DEFQUAL		FILE

                                     011C   275 DEFQUAL		FLAG

                                     0120   276 DEFQUAL		FORE

                                     0124   277 DEFQUAL		FORM

                                     0128   278 DEFQUAL		FORT

                                     012C   279 DEFQUAL		FORW

                                     0130   280 DEFQUAL		FULL

                                     0134   281 DEFQUAL		GENE

                                     0138   282 DEFQUAL		GLOB

                                     013C   283 DEFQUAL		GROU

                                     0140   284 DEFQUAL		HASH

                                     0144   285 DEFQUAL		HEAD

                                     0148   286 DEFQUAL		HEXA

                                     014C   287 DEFQUAL		HOLD

                                     0150   288 DEFQUAL		I4

                                     0154   289 DEFQUAL		IDEN

                                     0158   290 DEFQUAL		IGNO

                                     015C   291 DEFQUAL		IMAG

                                     0160   292 DEFQUAL		INCL

                                     0164   293 DEFQUAL		INCR

                                     0168   294 DEFQUAL		INDE

                                     016C   295 DEFQUAL		INPU

                                     0170   296 DEFQUAL		INSE

                                     0174   297 DEFQUAL		INTE

                                     0178   298 DEFQUAL		ISAV

                                     017C   299 DEFQUAL		JOB_

                                     0180   300 DEFQUAL		JOUR

                                     0184   301 DEFQUAL		KEEP

                                     0188   302 DEFQUAL		KEY

                                     018C   303 DEFQUAL		LABE

                                     0190   304 DEFQUAL		LIBR

                                     0194   305 DEFQUAL		LIMI

                                     0198   306 DEFQUAL		LINE

                                     019C   307 DEFQUAL		LINK

                                     01A0   308 DEFQUAL		LIST

                                     01A4   309 DEFQUAL		LOCA

                                     01A8   310 DEFQUAL		LOG

                                     01AC   311 DEFQUAL		LOGI

                                     01B0   312 DEFQUAL		LONG

                                     01B4   313 DEFQUAL		LOWE

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   8

01              DEFINE QUALIFIER TEXT TABLE                                                                                      (1)



                                     01B8   314 DEFQUAL		MACH

                                     01BC   315 DEFQUAL		MACR

                                     01C0   316 DEFQUAL		MAGT

                                     01C4   317 DEFQUAL		MAIL

                                     01C8   318 DEFQUAL		MAP

                                     01CC   319 DEFQUAL		MATC

                                     01D0   320 DEFQUAL		MAXI

                                     01D4   321 DEFQUAL		MERG

                                     01D8   322 DEFQUAL		MODE

                                     01DC   323 DEFQUAL		MOUN

                                     01E0   324 DEFQUAL		MULT

                                     01E4   325 DEFQUAL		NAME

                                     01E8   326 DEFQUAL		NEGA

                                     01EC   327 DEFQUAL		NEST

                                     01F0   328 DEFQUAL		NEW_

                                     01F4   329 DEFQUAL		NEXT

                                     01F8   330 DEFQUAL		NUMB

                                     01FC   331 DEFQUAL		OBJE

                                     0200   332 DEFQUAL		OCTA

                                     0204   333 DEFQUAL		ON

                                     0208   334 DEFQUAL		OPTI

                                     020C   335 DEFQUAL		OUTP

                                     0210   336 DEFQUAL		OVER

                                     0214   337 DEFQUAL		OWNE

                                     0218   338 DEFQUAL		PAGE

                                     021C   339 DEFQUAL		PARA

                                     0220   340 DEFQUAL		PASS

                                     0224   341 DEFQUAL		PEND

                                     0228   342 DEFQUAL		PLIN

                                     022C   343 DEFQUAL		POSI

                                     0230   344 DEFQUAL		PRIN

                                     0234   345 DEFQUAL		PRIO

                                     0238   346 DEFQUAL		PRIV

                                     023C   347 DEFQUAL		PROC

                                     0240   348 DEFQUAL		PROT

                                     0244   349 DEFQUAL		QUEU

                                     0248   350 DEFQUAL		QUIC

                                     024C   351 DEFQUAL		QUOT

                                     0250   352 DEFQUAL		READ

                                     0254   353 DEFQUAL		RECO

                                     0258   354 DEFQUAL		RELA

                                     025C   355 DEFQUAL		RELE

                                     0260   356 DEFQUAL		REMO

                                     0264   357 DEFQUAL		REPL

                                     0268   358 DEFQUAL		REPO

                                     026C   359 DEFQUAL		RESO

                                     0270   360 DEFQUAL		RMS_

                                     0274   361 DEFQUAL		RSX1

                                     0278   362 DEFQUAL		RT11

                                     027C   363 DEFQUAL		RUN

                                     0280   364 DEFQUAL		SAVE

                                     0284   365 DEFQUAL		SCHE

                                     0288   366 DEFQUAL		SEGM

                                     028C   367 DEFQUAL		SELE

                                     0290   368 DEFQUAL		SEPA

                                     0294   369 DEFQUAL		SEQU

                                     0298   370 DEFQUAL		SERV

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page   9

01              DEFINE QUALIFIER TEXT TABLE                                                                                      (1)



                                     029C   371 DEFQUAL		SHAR

                                     02A0   372 DEFQUAL		SHOW

                                     02A4   373 DEFQUAL		SLP

                                     02A8   374 DEFQUAL		SOS

                                     02AC   375 DEFQUAL		SOUR

                                     02B0   376 DEFQUAL		SPAC

                                     02B4   377 DEFQUAL		SPEC

                                     02B8   378 DEFQUAL		SQUE

                                     02BC   379 DEFQUAL		STAR

                                     02C0   380 DEFQUAL		STAT

                                     02C4   381 DEFQUAL		STEP

                                     02C8   382 DEFQUAL		SUBP

                                     02CC   383 DEFQUAL		SUBS

                                     02D0   384 DEFQUAL		SUPE

                                     02D4   385 DEFQUAL		SUPR

                                     02D8   386 DEFQUAL		SWAP

                                     02DC   387 DEFQUAL		SYMB

                                     02E0   388 DEFQUAL		SYSL

                                     02E4   389 DEFQUAL		SYST

                                     02E8   390 DEFQUAL		TAB_

                                     02EC   391 DEFQUAL		TERM

                                     02F0   392 DEFQUAL		TIME

                                     02F4   393 DEFQUAL		TO

                                     02F8   394 DEFQUAL		TOP_

                                     02FC   395 DEFQUAL		TRAC

                                     0300   396 DEFQUAL		TRAI

                                     0304   397 DEFQUAL		TRAN

                                     0308   398 DEFQUAL		TRUN

                                     030C   399 DEFQUAL		TYPE

                                     0310   400 DEFQUAL		UIC

                                     0314   401 DEFQUAL		UNIT

                                     0318   402 DEFQUAL		UNLO

                                     031C   403 DEFQUAL		UPDA

                                     0320   404 DEFQUAL		UPPE

                                     0324   405 DEFQUAL		USER

                                     0328   406 DEFQUAL		VARI

                                     032C   407 DEFQUAL		VERB

                                     0330   408 DEFQUAL		VERI

                                     0334   409 DEFQUAL		VISU

                                     0338   410 DEFQUAL		VOLU

                                     033C   411 DEFQUAL		WARN

                                     0340   412 DEFQUAL		WIDT

                                     0344   413 DEFQUAL		WIND

                                     0348   414 DEFQUAL		WORD

                                     034C   415 DEFQUAL		WORK

                                     0350   416 DEFQUAL		WORL

                                     0354   417 DEFQUAL		WRIT

                                     0358   418 DEFQUAL		ZZZZ

                                     035C   419  

                                     035C   420 	.END

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (1)



$$$            = 00000004            CLI$_NULFIL    = 000380E0            DCL$SETDEFALT    ********   X   04   

$DCLDEFQUALBLK$= 00000001            CLI$_NUMBER    = 000380E8            DCL$SETON        ********   X   04   

$EXTIMAGE$     = 00000019            CLI$_ONCOMD    = 000380F0            DCL$SETPROT      ********   X   04   

$INTIMAGE$     = 000000A8            CLI$_ONERR     = 000380F8            DCL$SETUIC       ********   X   04   

$PROMPTPAD     = 00000009            CLI$_ONEVAL    = 00038158            DCL$SETVERIFY    ********   X   04   

$PROMPTSTR$    = 00000010            CLI$_ONLEVL    = 00038100            DCL$SHOWDEF      ********   X   04   

$ZZ$           = 00000006            CLI$_ONOVF     = 00038108            DCL$SHOWLOG      ********   X   04   

BIT...         = FFFFFFFD            CLI$_OVRFLW    = 00038160            DCL$SHOWPROT     ********   X   04   

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            DCL$SHOWSTAT     ********   X   04   

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            DCL$SHOWSYMBL    ********   X   04   

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            DCL$SHOWTIME     ********   X   04   

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            DCL$SHOWTRAN     ********   X   04   

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            DCL$STOP         ********   X   04   

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            DCL$WAIT         ********   X   04   

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            DCL$WRITE        ********   X   04   

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            GBL...         = 00000000            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            IMG_K_ALLOCATE = 00000080  G         

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            IMG_K_ANALYZ   = 00000001  G         

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            IMG_K_ASSIGN   = 00000081  G         

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            IMG_K_BACKTRANS= 00000002  G         

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            IMG_K_BLISS32  = 00000003  G         

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            IMG_K_CANCEL   = 00000004  G         

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            IMG_K_CLOSE    = 00000082  G         

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            IMG_K_COBOL    = 00000005  G         

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            IMG_K_CONTINUE = 00000083  G         

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            IMG_K_COPY     = 00000006  G         

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            IMG_K_DEALLOCAT= 00000084  G         

CLI$_INSFPRM   = 00038048            DCL$AB_IMAGETBL  00000000 RG    03   IMG_K_DEASSIGN = 00000085  G         

CLI$_INVKEY    = 00038178            DCL$AB_PROMPTBL  00000000 RG    05   IMG_K_DEBUG    = 00000086  G         

CLI$_INVQUAL   = 0003880A            DCL$AB_QUALTBL   00000000 RG    06   IMG_K_DECK     = 00000087  G         

CLI$_INVQUALNUM= 0003881A            DCL$ALLOCATE     ********   X   04   IMG_K_DEFINE   = 00000088  G         

CLI$_INVREQTYP = 00038822            DCL$ASSIGN       ********   X   04   IMG_K_DELETE   = 00000007  G         

CLI$_INVRSP    = 00038180            DCL$CLOSE        ********   X   04   IMG_K_DELSYM   = 0000008A  G         

CLI$_INVUIC    = 000381A8            DCL$CONTINUE     ********   X   04   IMG_K_DEPOSIT  = 00000089  G         

CLI$_IVCHAR    = 00038050            DCL$DEALLOCAT    ********   X   04   IMG_K_DISMOUNT = 00000008  G         

CLI$_IVDEVTYPE = 0003886A            DCL$DEASSIGN     ********   X   04   IMG_K_EOD      = 0000008B  G         

CLI$_IVFNAM    = 000381C0            DCL$DEBUG        ********   X   04   IMG_K_EXAMINE  = 0000008C  G         

CLI$_IVKEYW    = 00038060            DCL$DECK         ********   X   04   IMG_K_EXIT     = 0000008D  G         

CLI$_IVOPER    = 00038068            DCL$DEFINE       ********   X   04   IMG_K_EXTIMAGE = 0000008E  G         

CLI$_IVPROT    = 00038070            DCL$DELSYM       ********   X   04   IMG_K_GOTO     = 0000008F  G         

CLI$_IVQLOC    = 00038078            DCL$DEPOSIT      ********   X   04   IMG_K_HELP     = 00000009  G         

CLI$_IVSYMB    = 00038080            DCL$EOD          ********   X   04   IMG_K_IF       = 00000090  G         

CLI$_IVVALU    = 00038088            DCL$EXAMINE      ********   X   04   IMG_K_INIT     = 0000000A  G         

CLI$_IVVERB    = 00038090            DCL$EXIT         ********   X   04   IMG_K_INQUIRE  = 00000091  G         

CLI$_MAXPARM   = 00038098            DCL$EXTIMAGE     ********   X   04   IMG_K_LINK     = 0000000B  G         

CLI$_MULKEY    = 000381A0            DCL$GOTO         ********   X   04   IMG_K_LOGOUT   = 00000092  G         

CLI$_NOATFIL   = 000380A0            DCL$IF           ********   X   04   IMG_K_MCR      = 00000093  G         

CLI$_NOCCAT    = 000380A8            DCL$INQUIRE      ********   X   04   IMG_K_ON       = 00000094  G         

CLI$_NOCOMD    = 000380B0            DCL$INTIMAGE     00000000 RG    04   IMG_K_OPEN     = 00000095  G         

CLI$_NOKEYW    = 000380B8            DCL$K_PROMPTPAD= 0000000D  G         IMG_K_PATCH    = 0000000C  G         

CLI$_NOLIST    = 000380C0            DCL$LOGOUT       ********   X   04   IMG_K_QUEMAN   = 0000000D  G         

CLI$_NOOPTPRS  = 00038842            DCL$MCR          ********   X   04   IMG_K_READ     = 00000096  G         

CLI$_NOQUAL    = 000380C8            DCL$ON           ********   X   04   IMG_K_REPLY    = 00000010  G         

CLI$_NORMAL    = 00030001            DCL$OPEN         ********   X   04   IMG_K_REQUEST  = 00000011  G         

CLI$_NOTNEG    = 000380D8            DCL$READ         ********   X   04   IMG_K_RMSUTIL  = 0000000E  G         

CLI$_NOVALU    = 000380D0            DCL$RUN          ********   X   04   IMG_K_RUN      = 00000097  G         

CLI$_NOVALUE   = 0003882A            DCL$SETCTLY      ********   X   04   IMG_K_RUNDET   = 0000000F  G         

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (1)



IMG_K_SET      = 00000012  G         QUA_K_BATC     = 0000000E  G         QUA_K_FLAG     = 00000047  G         

IMG_K_SETCTLY  = 00000098  G         QUA_K_BINA     = 0000000F  G         QUA_K_FORE     = 00000048  G         

IMG_K_SETDEFALT= 00000099  G         QUA_K_BLAN     = 00000010  G         QUA_K_FORM     = 00000049  G         

IMG_K_SETON    = 0000009A  G         QUA_K_BLOC     = 00000011  G         QUA_K_FORT     = 0000004A  G         

IMG_K_SETPROT  = 0000009B  G         QUA_K_BRIE     = 00000012  G         QUA_K_FORW     = 0000004B  G         

IMG_K_SETUIC   = 0000009C  G         QUA_K_BROA     = 00000013  G         QUA_K_FULL     = 0000004C  G         

IMG_K_SETVERIFY= 0000009D  G         QUA_K_BUCK     = 00000014  G         QUA_K_GENE     = 0000004D  G         

IMG_K_SHOW     = 00000013  G         QUA_K_BUFF     = 00000015  G         QUA_K_GLOB     = 0000004E  G         

IMG_K_SHOWDEF  = 0000009E  G         QUA_K_BURS     = 00000016  G         QUA_K_GROU     = 0000004F  G         

IMG_K_SHOWLOG  = 0000009F  G         QUA_K_BYTE     = 00000017  G         QUA_K_HASH     = 00000050  G         

IMG_K_SHOWPROT = 000000A0  G         QUA_K_CARD     = 00000018  G         QUA_K_HEAD     = 00000051  G         

IMG_K_SHOWSTAT = 000000A1  G         QUA_K_CHAN     = 00000019  G         QUA_K_HEXA     = 00000052  G         

IMG_K_SHOWSYMBL= 000000A2  G         QUA_K_CHEC     = 0000001A  G         QUA_K_HOLD     = 00000053  G         

IMG_K_SHOWTIME = 000000A3  G         QUA_K_CLUS     = 0000001B  G         QUA_K_I4       = 00000054  G         

IMG_K_SHOWTRAN = 000000A4  G         QUA_K_COBO     = 0000001C  G         QUA_K_IDEN     = 00000055  G         

IMG_K_SORT32   = 00000014  G         QUA_K_CODE     = 0000001D  G         QUA_K_IGNO     = 00000056  G         

IMG_K_STOP     = 000000A5  G         QUA_K_COLU     = 0000001E  G         QUA_K_IMAG     = 00000057  G         

IMG_K_SUBMIT   = 00000015  G         QUA_K_COMM     = 0000001F  G         QUA_K_INCL     = 00000058  G         

IMG_K_TYPE     = 00000016  G         QUA_K_COMP     = 00000020  G         QUA_K_INCR     = 00000059  G         

IMG_K_VMOUNT   = 00000017  G         QUA_K_CONC     = 00000021  G         QUA_K_INDE     = 0000005A  G         

IMG_K_WAIT     = 000000A6  G         QUA_K_COND     = 00000022  G         QUA_K_INPU     = 0000005B  G         

IMG_K_WRITE    = 000000A7  G         QUA_K_CONT     = 00000023  G         QUA_K_INSE     = 0000005C  G         

IMG_K__ZZ_     = 00000018  G         QUA_K_COPI     = 00000024  G         QUA_K_INTE     = 0000005D  G         

INTIMAGEBASE     00000005 R     04   QUA_K_COPY     = 00000025  G         QUA_K_ISAV     = 0000005E  G         

INTIMAGETOP      00000055 R     04   QUA_K_CREA     = 00000026  G         QUA_K_JOB_     = 0000005F  G         

OPI_K_FSTPRM   = FFFFFFFF            QUA_K_CROS     = 00000027  G         QUA_K_JOUR     = 00000060  G         

OPI_K_SCNPRM   = FFFFFFFE            QUA_K_DATA     = 00000028  G         QUA_K_KEEP     = 00000061  G         

PRO_K_DEVICE   = 00000000  G         QUA_K_DAYT     = 00000029  G         QUA_K_KEY      = 00000062  G         

PRO_K_EQU_NAME = 00000001  G         QUA_K_DEBU     = 0000002A  G         QUA_K_LABE     = 00000063  G         

PRO_K_FI       = 00000004  G         QUA_K_DECI     = 0000002B  G         QUA_K_LIBR     = 00000064  G         

PRO_K_FIL      = 00000003  G         QUA_K_DEFA     = 0000002C  G         QUA_K_LIMI     = 00000065  G         

PRO_K_FILE     = 00000002  G         QUA_K_DELA     = 0000002D  G         QUA_K_LINE     = 00000066  G         

PRO_K_FROM     = 00000005  G         QUA_K_DELE     = 0000002E  G         QUA_K_LINK     = 00000067  G         

PRO_K_LABEL    = 00000006  G         QUA_K_DENS     = 0000002F  G         QUA_K_LIST     = 00000068  G         

PRO_K_LIBRARY  = 00000007  G         QUA_K_DEVI     = 00000030  G         QUA_K_LOCA     = 00000069  G         

PRO_K_LOG_NAME = 00000008  G         QUA_K_DIRE     = 00000031  G         QUA_K_LOG      = 0000006A  G         

PRO_K_OPTION   = 00000009  G         QUA_K_DISA     = 00000032  G         QUA_K_LOGI     = 0000006B  G         

PRO_K_OUTPUT   = 0000000F  G         QUA_K_DISK     = 00000033  G         QUA_K_LONG     = 0000006C  G         

PRO_K_PROC_NAME= 0000000A  G         QUA_K_DOLL     = 00000034  G         QUA_K_LOWE     = 0000006D  G         

PRO_K_QUEUE    = 0000000B  G         QUA_K_DOS1     = 00000035  G         QUA_K_MACH     = 0000006E  G         

PRO_K_SYMBOL   = 0000000C  G         QUA_K_DRIV     = 00000036  G         QUA_K_MACR     = 0000006F  G         

PRO_K_TO       = 0000000D  G         QUA_K_DUPL     = 00000037  G         QUA_K_MAGT     = 00000070  G         

PRO_K_WHAT     = 0000000E  G         QUA_K_D_LI     = 00000038  G         QUA_K_MAIL     = 00000071  G         

QUA_K_ABOR     = 00000000  G         QUA_K_EBCD     = 00000039  G         QUA_K_MAP      = 00000072  G         

QUA_K_ACCE     = 00000001  G         QUA_K_EDI      = 0000003A  G         QUA_K_MATC     = 00000073  G         

QUA_K_ACCO     = 00000002  G         QUA_K_ENAB     = 0000003B  G         QUA_K_MAXI     = 00000074  G         

QUA_K_AFTE     = 00000003  G         QUA_K_END_     = 0000003C  G         QUA_K_MERG     = 00000075  G         

QUA_K_ALIG     = 00000004  G         QUA_K_ENTR     = 0000003D  G         QUA_K_MODE     = 00000076  G         

QUA_K_ALL      = 00000005  G         QUA_K_ERRO     = 0000003E  G         QUA_K_MOUN     = 00000077  G         

QUA_K_ALLO     = 00000006  G         QUA_K_EXAC     = 0000003F  G         QUA_K_MULT     = 00000078  G         

QUA_K_ANSI     = 00000007  G         QUA_K_EXEC     = 00000040  G         QUA_K_NAME     = 00000079  G         

QUA_K_ASCI     = 00000008  G         QUA_K_EXIT     = 00000041  G         QUA_K_NEGA     = 0000007A  G         

QUA_K_AST_     = 00000009  G         QUA_K_EXPE     = 00000042  G         QUA_K_NEST     = 0000007B  G         

QUA_K_AUDI     = 0000000A  G         QUA_K_EXTE     = 00000043  G         QUA_K_NEW_     = 0000007C  G         

QUA_K_AUTH     = 0000000B  G         QUA_K_EXTR     = 00000044  G         QUA_K_NEXT     = 0000007D  G         

QUA_K_BACK     = 0000000C  G         QUA_K_FEED     = 00000045  G         QUA_K_NUMB     = 0000007E  G         

QUA_K_BADB     = 0000000D  G         QUA_K_FILE     = 00000046  G         QUA_K_OBJE     = 0000007F  G         

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (1)



QUA_K_OCTA     = 00000080  G         QUA_K_SYST     = 000000B9  G         

QUA_K_ON       = 00000081  G         QUA_K_TAB_     = 000000BA  G         

QUA_K_OPTI     = 00000082  G         QUA_K_TERM     = 000000BB  G         

QUA_K_OUTP     = 00000083  G         QUA_K_TIME     = 000000BC  G         

QUA_K_OVER     = 00000084  G         QUA_K_TO       = 000000BD  G         

QUA_K_OWNE     = 00000085  G         QUA_K_TOP_     = 000000BE  G         

QUA_K_PAGE     = 00000086  G         QUA_K_TRAC     = 000000BF  G         

QUA_K_PARA     = 00000087  G         QUA_K_TRAI     = 000000C0  G         

QUA_K_PASS     = 00000088  G         QUA_K_TRAN     = 000000C1  G         

QUA_K_PEND     = 00000089  G         QUA_K_TRUN     = 000000C2  G         

QUA_K_PLIN     = 0000008A  G         QUA_K_TYPE     = 000000C3  G         

QUA_K_POSI     = 0000008B  G         QUA_K_UIC      = 000000C4  G         

QUA_K_PRIN     = 0000008C  G         QUA_K_UNIT     = 000000C5  G         

QUA_K_PRIO     = 0000008D  G         QUA_K_UNLO     = 000000C6  G         

QUA_K_PRIV     = 0000008E  G         QUA_K_UPDA     = 000000C7  G         

QUA_K_PROC     = 0000008F  G         QUA_K_UPPE     = 000000C8  G         

QUA_K_PROT     = 00000090  G         QUA_K_USER     = 000000C9  G         

QUA_K_QUEU     = 00000091  G         QUA_K_VARI     = 000000CA  G         

QUA_K_QUIC     = 00000092  G         QUA_K_VERB     = 000000CB  G         

QUA_K_QUOT     = 00000093  G         QUA_K_VERI     = 000000CC  G         

QUA_K_READ     = 00000094  G         QUA_K_VISU     = 000000CD  G         

QUA_K_RECO     = 00000095  G         QUA_K_VOLU     = 000000CE  G         

QUA_K_RELA     = 00000096  G         QUA_K_WARN     = 000000CF  G         

QUA_K_RELE     = 00000097  G         QUA_K_WIDT     = 000000D0  G         

QUA_K_REMO     = 00000098  G         QUA_K_WIND     = 000000D1  G         

QUA_K_REPL     = 00000099  G         QUA_K_WORD     = 000000D2  G         

QUA_K_REPO     = 0000009A  G         QUA_K_WORK     = 000000D3  G         

QUA_K_RESO     = 0000009B  G         QUA_K_WORL     = 000000D4  G         

QUA_K_RMS_     = 0000009C  G         QUA_K_WRIT     = 000000D5  G         

QUA_K_RSX1     = 0000009D  G         QUA_K_ZZZZ     = 000000D6  G         

QUA_K_RT11     = 0000009E  G         SS$_ILLSER       ********   X   04   

QUA_K_RUN      = 0000009F  G         

QUA_K_SAVE     = 000000A0  G         

QUA_K_SCHE     = 000000A1  G         

QUA_K_SEGM     = 000000A2  G         

QUA_K_SELE     = 000000A3  G         

QUA_K_SEPA     = 000000A4  G         

QUA_K_SEQU     = 000000A5  G         

QUA_K_SERV     = 000000A6  G         

QUA_K_SHAR     = 000000A7  G         

QUA_K_SHOW     = 000000A8  G         

QUA_K_SLP      = 000000A9  G         

QUA_K_SOS      = 000000AA  G         

QUA_K_SOUR     = 000000AB  G         

QUA_K_SPAC     = 000000AC  G         

QUA_K_SPEC     = 000000AD  G         

QUA_K_SQUE     = 000000AE  G         

QUA_K_STAR     = 000000AF  G         

QUA_K_STAT     = 000000B0  G         

QUA_K_STEP     = 000000B1  G         

QUA_K_SUBP     = 000000B2  G         

QUA_K_SUBS     = 000000B3  G         

QUA_K_SUPE     = 000000B4  G         

QUA_K_SUPR     = 000000B5  G         

QUA_K_SWAP     = 000000B6  G         

QUA_K_SYMB     = 000000B7  G         

QUA_K_SYSL     = 000000B8  G         

COMDATABL       - COMMAND DATA TABLES                            22-AUG-1978 01:05:36   VAX-11 MACRO X0.3-11               Page  13

PROGRAM SECTION SYNOPSIS                                                                                                         (1)







PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

$ABS$            00000000      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

YDCL$IMAGETBL    0000009D      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  

YDCL$ZCODE       0000005B      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  

YDCL$PROMPTBL    0000006D      05     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  

YDCL$QUALTBL     0000035C      06     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

17610. BYTES LEFT IN FREE MEMORY POOL.

EXE$:COMDATABL,LIS$:COMDATABL/-SP=EXECML$/ML,LIB$:DCL/ML,SRC$:COMDATABL

15 MLB DIR RDS - 155 GETS TO DEFINE 9 MACROS. 39 INTER. FILE WRITES. 

