; UPD ID= 3474 on 4/2/81 at 9:25 AM by WRIGHT                           
TITLE	BTREE	FOR COBOL V12B
SUBTTL	IDENTIFICATION & ENVIRONMENT DIVISION SYNTAX TREES	W.NEELY/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION

	SEARCH	P
	%%P==:%%P
	RPW==:RPW
	EBCMP.==EBCMP.

;EDITS
;V10*****************
;NAME	DATE		COMMENTS
;EHM	3-JUN-77	[501] ENFORCE NO PRINTER CHANNELS GREATER THAN 8
;ACK	12-JAN-75	ADDED SYNTAX FOR:
;			1.  RECORDING MODE IS STANDARD-ASCII/F/V.
;			2.  RECORDING DENSITY IS 1600
;			3.  I/O ERROR RECOVERY.
;********************


; EDIT 323 ALLOW "ALL" TO BE A DEVICE IN A SELECT STATEMENT.
; EDIT 175 FIXES ERROR RECOVERY FOR SELECT STATEMENTS ERRORS
; EDIT 153 FIXES NUMERIC DATA IN DATE-WRITTEN SKIPPING NEXT PARA.


TWOSEG
SALL
.HWFRMT
RELOC	400000

ENTRY	BTREE

BTREE:

;THIS TREE IS BUILT FROM THE NODE MACRO DEFINED IN P.MAC - THE FORM IS
;$ (NAME,ACTION,ITEM-TYPE,PUSHDOWN-FLAG,MARGIN-TYPE,<SON1,SON2,...>
;THE ACTIONS ARE IA0., IA1., ETC.
;THE ERRORS ARE BE1., BE2., ETC.
;THE TREE IS TRACED BY SQUIRL.MAC
;SQUIRL PROCEEDS AS FOLLOWS:
;	(1) EXECUTE THE ACTION AT THE CURRENT NODE
;	(2) IF THERE IS ONLY 1 SON, MAKE IT THE CURRENT NODE & GO TO 1
;	(3) GET THE NEXT SOURCE ITEM
;	(4) AIM AT FIRST SON
;	(5) IF LAST SON, MAKE IT THE NEXT NODE, TURN ON REGET FLAG & GO TO 1
;	(6) OTHERWISE COMPARE SOURCE-ITEM-TYPE WITH SON'S TYPE
;	(7) IF NO MATCH, AIM AT NEXT SON & GO TO 4
;	(8) IF MATCH, MAKE THIS SON THE NEXT NODE & GO TO 1
SUBTTL	IDENTIFICATION DIVISION SYNTAX TREE

;IDENTIFICATION DIVISION.
$ ID0.,0,0,0,0,<ID1.,ID1E.,ID1S.,ID2.>		;ENTER SYNTAX TREE
$68 ID1.,0,ID.,0,1,<<ID4.,ID5.>>		;IDENTIFICATION
$74 ID1.,IA0.ID,ID.,0,1,<<ID4.,ID5.>>		;IDENTIFICATION
$ ID1S.,IA0S1.,INTGR.,0,0,ID0.			;ASSUME SEQUENCED BUT NO /S
$ ID1E.,E.341,ID.,0,0,<ID4.,ID5.>		;IDENT: ?NOT AT A-MARG
$ ID2.,IA0E1.,0,0,0,ID7.			;NO ID..: FLAG & LOOK AT ITM AGAIN
$ ID4.,0,DIVIS.,0,0,<ID6.,ID6A.>		;DIVISION
$ ID5.,E.137,0,0,0,<ID6.,ID6A.>			;NO DIVISION: FLAG IT BUT GO ON
$ ID6.,0,PRIOD.,0,0,ID7.			;PERIOD AFTER ID-DIV
$ ID6A.,BE125.,0,0,0,ID7.			;NO "." AFTER DIV..: FLAG & GO ON

;OPTIONAL ITEMS IN IDENTIFICATION DIVISION.
;WHEN ENVIRONMENT SEEN, GO TO ED TREE (ED0.)
$68 ID7.,0,0,0,0,<<ID8.,ID9.,ID10.,ID11.,ID12.,ID13.,ED0.,ID15.,ID16.,ID17.,ID18.,ID19.>>
$74 ID7.,0,0,0,0,<<ID8.,ID9.,ID10.,ID11.,ID12.,ED0.,ID15.,ID16.,ID17.,ID18.,ID19.>>
$ ID8.,IA2.,PGMID.,0,1,ID7.			;PROGRAM-ID: GET THE NAME
$ ID9.,IA0A.,AUTHR.,0,1,ID7.			;AUTHOR: PASS COMMENTS TO LISTING
$ ID10.,IA0A.,INSTA.,0,1,ID7.			;INSTALLATION
$ ID11.,IA0A.,DATEW.,0,1,ID7.			;DATE-WRITTEN
$ ID12.,IA0A.,SECUR.,0,1,ID7.			;SECURITY
IFE FT68274,<
$68 ID13.,IA0A.,REMAR.,0,1,ID7.			;REMARKS
>
IFN FT68274,<
$68 ID13.,IA0B.,REMAR.,0,1,ID7.			;REMARKS, TURN INTO COMMENT
>
$ ID15.,IA63E.,DATA.,0,1,0			;DATA: NO ENVIRON & GOTO COBOLC
$ ID16.,IA63E.,PROC.,0,1,0			;PROCEDURE: DITTO
$ ID17.,IA63E.,ENDIT.,0,0,0			;END-OF-FILE: DITTO
$ ID18.,IA1.,DATEC.,0,1,<ID27.,ID28.>		;DATE-COMPILED: SUPPRESS LISTING
$ ID19.,IA0E7.,0,0,0,ID7.			;ILL. PAR. NAME: FLAG & SKIP PARA.

;DATE-COMPILED PARAGRAPH
$ ID27.,IA4.,PRIOD.,0,0,ID7.			;".": CLR D-C PARA. & PUT IN TODAY
$ ID28.,BE125.,0,0,0,ID27.			;NO "." AFTER DATE-C..
SUBTTL	ENVIRONMENT DIVISION SYNTAX TREE

;ENVIRONMENT DIVISION.
$ ED0.,IA67.,ENVIR.,0,1,<ED1.,ED2.>		;ENVIRONMENT: SET UP ED
$ ED1.,0,DIVIS.,0,0,<ED3.,ED4.>			;DIVISION
$ ED2.,E.137,0,0,0,<ED3.,ED4.>			;NO DIV..: FLAG & GO ON
$ ED3.,0,PRIOD.,0,0,ED5.			;"." AFTER ED-DIV
$ ED4.,BE125.,0,0,0,ED5.			;NO "." AFTER DIV: FLAG & GO ON

;SECTION NAMES
$ ED5.,0,0,0,0,<ED256.,ED261.,ED16.,ED19.,ED20.,ED18.>
$ ED16.,IA63.,DATA.,0,1,0			;DATA: CLEAN UP B & GOTO C
$ ED19.,IA63F.,PROC.,0,0,0			;PROCEDURE: FLAG MISSING DATA DIV.
$ ED20.,IA63F.,ENDIT.,0,0,0			;END-OF-FILE: WORSE
$ ED18.,IA0E43,0,0,0,ED5.			;ILL. SECT. NAME: FLAG & SKIP PARA.

;CONFIGURATION SECTION.
$ ED256.,0,CONFG.,0,1,<ED257.,ED258.>		;CONFIGURATION
$ ED257.,0,SECT.,0,0,<ED259.,ED260.>		;SECTION
$ ED258.,E.140,0,0,0,<ED259.,ED260.>		;NO SECTION: FLAG & GO ON
$ ED259.,0,PRIOD.,0,0,ED269.			;"."
$ ED260.,BE125.,0,0,0,ED269.			;NO ".": FLAG & GO ON

;OPTIONS IN CONFIGURATION SECTION
$ ED269.,0,0,0,0,<ED6.,ED10.,ED15.,ED256.,ED261.,ED16.,ED19.,ED20.,ED269A>
$ ED269A,IA0E7.,0,0,0,ED269.			;ILL PAR NAME: FLAG & SKIP PARA

;INPUT-OUTPUT SECTION.
$ ED261.,0,IO.,0,1,<ED262.,ED263.>		;INPUT-OUTPUT
$ ED262.,0,SECT.,0,0,<ED264.,ED265.>		;SECTION
$ ED263.,E.140,0,0,0,<ED264.,ED265.>		;NO SECTION: FLAG & GO ON
$ ED264.,0,PRIOD.,0,0,ED270.			;"."
$ ED265.,BE125.,0,0,0,ED270.			;NO ".": FLAG & GO ON

;OPTIONS IN INPUT-OUTPUT SECTION
$ ED270.,0,0,0,0,<ED11.,ED14.,ED256.,ED261.,ED16.,ED19.,ED20.,ED270A>
$ ED270A,IA0E7.,0,0,0,ED270.			;ILL PAR NAME: FLAG & SKIP PARA
;SOURCE-COMPUTER.
$ ED6.,0,SOURC.,0,1,<ED8.,ED7.>			;SRC-COMP:
$ ED7.,BE125.,0,0,0,ED8.			;NO ".": FLAG & GO ON
$ ED8.,0,PRIOD.,0,0,<ED8A.,ED8B.,ED8C.>		;"."

;SOURCE-COMPUTER NAME
$ ED8A.,0,PDP10.,0,0,ED9.			;DECSYSTEM-10
$ ED8B.,0,DEC20.,0,0,ED9.			;DECSYSTEM-20
$ ED8C.,IA0E5.,USERN.,0,0,ED9.			;NO, WARN & GO ON
IFE CSTATS,<
$68 ED9.,0,0,0,0,<<ED9D.,ED9E.>>
$74 ED9.,0,0,0,0,<<ED9A.,ED9B.,ED9D.,ED9E.>>
$74 ED9A.,0,WITH.,0,0,<<ED9B.,ED9D.>>
$74 ED9B.,IA7.,DEBUG.,0,0,<<ED9C.,ED9D.>>
$74 ED9C.,0,MODE.,0,0,<<ED9D.,ED9E.>>
>;END IFE CSTATS
IFN CSTATS,<
$68 ED9.,0,0,0,0,<<ED9A.,ED9F.,ED9D.,ED9E.>>
$74 ED9.,0,0,0,0,<<ED9A.,ED9B.,ED9F.,ED9D.,ED9E.>>
$68 ED9A.,0,WITH.,0,0,<<ED9F.,ED9D.>>
$74 ED9A.,0,WITH.,0,0,<<ED9B.,ED9F.,ED9D.>>
$74 ED9B.,IA7.,DEBUG.,0,0,<<ED9C.,ED9D.>>
$74 ED9C.,0,MODE.,0,0,<<ED9D.,ED9E.>>
$ ED9F.,IA6.,METNG.,0,0,ED9D.
>;END IFN CSTATS
$ ED9D.,0,PRIOD.,0,0,ED269.
$ ED9E.,BE125.,0,0,0,ED269.

;OBJECT-COMPUTER.
$ ED10.,0,OBJEC.,0,1,<ED23.,ED22.>		;OBJECT-COMPUTER
$ ED23.,0,PRIOD.,0,0,ED24.			;"."
$ ED22.,BE125.,0,0,0,ED24.			;NO ".": FLAG & GO ON

;OBJECT COMPUTER NAME
$ ED24.,0,0,0,0,<ED25.,ED25A.,ED28.>
$ ED25.,0,PDP10.,0,0,<ED29.,ED31A.>		;PDP-10, DECSYSTEM-10
$ ED25A.,0,DEC20.,0,0,<ED29.,ED31A.>		;DECSYSTEM-20
$ ED28.,IA0E5.,0,0,0,<ED29.,ED31A.>		;NO, WARN & GO ON
$ ED29.,0,PRIOD.,0,0,ED31.			;"."

;OPTIONS IN OBJECT-COMPUTER PARAGRAPH
$68 ED31.,0,0,0,0,<<ED32.,ED127.,ED420.,ED269.>>
$74 ED31.,0,0,0,0,<<ED32.,ED127.,ED420.,ED400.,ED401.,ED402.,ED269.>>
$68 ED31A.,0,0,0,0,<<ED32.,ED127.,ED420.,ED31B.>>
$74 ED31A.,0,0,0,0,<<ED32.,ED127.,ED420.,ED400.,ED401.,ED402.,ED31B.>>
$ ED31B.,BE125.,0,0,0,ED269.

;MEMORY SIZE IS N <ITEM-TYPE>
$ ED32.,IA62.,MEMOR.,0,0,<ED33.,ED34.,ED35.,ED36.>  ;MEMORY: RESET SAVE LIST
$ ED33.,0,SIZE.,0,0,<ED34.,ED35.,ED36.>		;SIZE
$ ED34.,0,IS.,0,0,<ED35.,ED36.>			;IS
$ ED35.,IA16.,INTGR.,0,0,ED38.			;INTEGER: SAVE VALUE
$ ED36.,IA54E.,0,0,0,ED38.			;NO INTEGER: ASSUME 0

;CHARACTERS, WORDS, OR MODULES
$ ED38.,0,0,0,0,<ED39.,ED40.,ED41.,ED42.>
$ ED39.,IA8.,WORDS.,0,0,<ED29.,ED31.>		;WORDS: OBJSIZ=INTEGER OFF SAVLST
$ ED40.,IA9.,MODUL.,0,0,<ED29.,ED31.>		;MODULES: OBJSIZ=N*1K
$ ED41.,IA10.,CHARA.,0,0,<ED29.,ED31.>		;CHARACTERS: OBJSIZ=N/6
$ ED42.,IA10.,0,0,0,<ED29.,ED31.>		;ASSUME CHARACTERS

;SEGMENT-LIMIT IS N
$ ED127.,TST.H,SEGME.,0,0,<ED145.,ED146.,ED147.>  	;SEG-LIM
$ ED145.,0,IS.,0,0,<ED146.,ED147.>		;IS
$ ED146.,IA35.,INTGR.,0,0,<ED29.,ED31.>		;INTEGER: VALUE TO SEGLIM
$ ED147.,E.25,0,0,0,<ED29.,ED31.>		;POSITIVE INTEGER REQUIRED

;[74] PROGRAM COLLATING SEQUENCE IS ALPHABET-NAME
$74 ED400.,0,PGM.,0,0,<<ED401.,ED402.,ED410.>>	;PROGRAM
$74 ED401.,0,COLLA.,0,0,<<ED402.,ED410.>>		;COLLATING
$74 ED402.,0,SEQCE.,0,0,<<ED403.,ED404.,ED405.,ED406.,ED407.,ED408.,ED411.>>	;SEQUENCE
$74 ED403.,0,IS.,0,0,<<ED404.,ED405.,ED406.,ED407.,ED408.,ED411.>>	;IS
$74 ED404.,IA201S,STND1.,0,0,<<ED29.,ED31.>>		;STANDARD-1
$74 ED405.,IA201N,NATIV.,0,0,<<ED29.,ED31.>>		;NATIVE
$74 ED406.,IA201S,ASCII.,0,0,<<ED29.,ED31.>>		;ASCII
$74 ED407.,IA201E,EBCDC..,0,0,<<ED29.,ED31.>>		;EBCDIC
$74 ED408.,IA200.,USERN.,0,0,<<ED29.,ED31.>>		;ALPHABET-NAME

$74 ED410.,E.711,0,0,0,<<ED29.,ED31.>>		;SEQUENCE REQUIRED
$74 ED411.,E.709,0,0,0,<<ED29.,ED31.>>		;ILLEGAL ALPHABET-NAME

;DISPLAY IS DISPLAY-6/7/9
$ ED420.,TST.NS,DISPL.,0,0,<ED421.,ED422.,ED423.,ED424.,ED425.>	;DISPLAY
$ ED421.,0,IS.,0,0,<ED422.,ED423.,ED424.,ED425.>	;IS
$ ED422.,IA106.,DSPL6.,0,0,<ED29.,ED31.>		;DISPLAY-6
$ ED423.,IA107.,DSPL7.,0,0,<ED29.,ED31.>		;DISPLAY-7
$ ED424.,IA109.,DSPL9.,0,0,<ED29.,ED31.>		;DISPLAY-9
$ ED425.,E.611,0,0,0,<ED29.,ED31.>
;SPECIAL-NAMES.
$ ED15.,IA56.,SPECI.,0,1,<ED182.,ED183.>	;SPCL-NAMS: SET PARA SEEN FLAG
$ ED182.,0,PRIOD.,0,0,<ED183A,ED184.>		;"."
$ ED183.,BE125.,0,0,0,<ED183A,ED184.>		;NO "."
$ ED183A,0,0,0,0,ED184.				;

;OPTIONS IN SPECIAL NAMES PARAGRAPH
$68 ED184.,0,0,0,0,<<ED304.,ED185.,ED186.,ED187.,ED188.,ED189.,ED183A,ED191.>>
$74 ED184.,0,0,0,0,<<ED304.,ED185.,ED186.,ED187.,ED188.,ED189.,ED307.,ED191.>>

;CONSOLE IS <MNEMONIC-NAME>
$ ED185.,0,CONSL.,0,0,<ED193.,ED196.,ED194.,ED195.>  ;CONSOLE
$ ED193.,0,IS.,0,0,<ED196.,ED194.,ED195.>	;IS
$ ED196.,IA44.,USERN.,0,0,<ED182.,ED184.>	;ACCEPTABLE MNEMONIC: GET IT
$ ED194.,E.28,MNEMO.,0,0,ED197.			;MNEMONIC-NAME ALREADY IN USE
$ ED195.,E.24,0,0,0,ED197.			;ILLEGAL MNEMONIC-NAME

;CHANNEL (N) IS <MNEMONIC-NAME>
$ ED186.,IA62.,CHANN.,0,0,<ED199.,ED186A>	;CHANNEL: CLR SAVLST
$ ED199.,0,LPREN.,0,0,<ED201.,ED200.>		;"("
$ ED186A,E.287,0,0,0,<ED201.,ED200.>		;LEFT PARENTHESIS EXPECTED
$ ED201.,IA16C.,INTGR.,0,0,<ED202.,ED203.>	;[501] INTEGER: SAVE VALUE
$ ED200.,E.25,0,0,0,ED197.			;POSITIVE INTEGER REQUIRED
$ ED202.,0,RPREN.,0,0,<ED204.,ED205.,ED208.,ED206.>  ;")"
$ ED203.,E.84,0,0,0,<ED204.,ED205.,ED208.,ED206.>  ;RIGHT PARIN EXPECTED
$ ED204.,0,IS.,0,0,<ED205.,ED208.,ED206.>	;IS
$ ED208.,IA46.,USERN.,0,0,<ED182.,ED184.>	;ACCEPTABLE MNEMONIC: GET IT
$ ED205.,E.28,MNEMO.,0,0,ED207.			;MNEMONIC-NAME ALREADY IN USE
$ ED206.,E.24,0,0,0,ED207.			;ILLEGAL MNEMONIC-NAME
$ ED207.,IA57.,0,0,0,ED197.			;CLEAN UP SAVLST

;CURRENCY SIGN IS <LITERAL>
$ ED188.,0,CURR.,0,0,<ED212.,ED213.,ED214.,ED215.>  ;CURRENCY
$ ED212.,0,SIGN.,0,0,<ED213.,ED214.,ED215.>  	;SIGN
$ ED213.,0,IS.,0,0,<ED214.,ED215.>		;IS
$ ED214.,IA51.,LITER.,0,0,<ED182.,ED184.>	;LITERAL: GET THE CHARACTER
$ ED215.,E.27,0,0,0,ED197.			;MUST BE A 1 CHAR LITERAL

;DECIMAL-POINT IS COMMA
$ ED189.,0,DECPN.,0,0,<ED209.,ED210.,ED211.>  	;DECIMAL-POINT
$ ED209.,0,IS.,0,0,<ED210.,ED211.>		;IS
$ ED210.,IA52.,COMMA,0,0,<ED182.,ED184.>	;COMMA: SWITCH "," & "."
$ ED211.,E.18,0,0,0,ED197.			;IMPROPER CLAUSE
;REPORT CODES: "<LITERAL> IS <MNEMONIC-NAME>"
IFN RPW,<
$ ED304.,IA78.,LITER.,0,0,<ED305.,ED305.>	;LITERAL
$ ED305.,0,IS.,0,0,<ED306.,ED194.,ED195.>	;IS
$ ED306.,IA79.,USERN.,0,0,<ED182.,ED184.>	;MNEMONIC-NAME
>
IFE RPW,<
$ ED304.,E.18,LITER.,0,0,ED191.
>

;[74] <ALPHABET-NAME> IS STANDARD-1, NATIVE, ASCII, EBCDIC, LITERAL
$74 ED307.,IA202.,USERN.,0,0,<<ED307A,ED307B,ED307C,ED307D,ED307E,ED307F,ED307I,ED307L,ED307Z>>
$74 ED307A,0,IS.,0,0,<<ED307B,ED307C,ED307D,ED307E,ED307F,ED307I,ED307L,ED307Z>>	;IS
$74 ED307B,IA203S,STND1.,0,0,<<ED182.,ED184.>>		;STANDARD-1
$74 ED307C,IA203N,NATIV.,0,0,<<ED182.,ED184.>>		;NATIVE
$74 ED307D,IA203S,ASCII.,0,0,<<ED182.,ED184.>>		;ASCII
$74 ED307E,IA203E,EBCDC.,0,0,<<ED182.,ED184.>>		;EBCDIC
$74 ED307F,IA203F,FIGCN.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307I,IA203I,INTGR.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307L,IA203L,LITER.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307K,IA204I,INTGR.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307M,IA204.,LITER.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307S,IA204F,FIGCN.,0,0,<<ED307M,ED307K,ED307S,ED307N,ED307Q,ED182.,ED184.>>
$74 ED307N,0,THRU.,0,0,<<ED307P,ED307O,ED307Z>>
$74 ED307O,IA205I,INTGR.,0,0,<<ED307M,ED307K,ED307S,ED182.,ED184.>>
$74 ED307P,IA205.,LITER.,0,0,<<ED307M,ED307K,ED307S,ED182.,ED184.>>
$74 ED307Q,0,ALSO.,0,0,<<ED307R,ED307T,ED307U,ED307Z>>
$74 ED307R,IA206.,LITER.,0,0,<<ED307M,ED307K,ED307S,ED307Q,ED182.,ED184.>>
$74 ED307U,IA206I,INTGR.,0,0,<<ED307M,ED307K,ED307S,ED307Q,ED182.,ED184.>>
$74 ED307T,IA206F,FIGCN.,0,0,<<ED307M,ED307K,ED307S,ED307Q,ED182.,ED184.>>
$74 ED307Z,E.709,0,0,0,ED197.				;ILLEGAL

;SWITCH (N)
IFE FT68274,<
$ ED187.,IA62.,SWTCH.,0,0,<ED216.,ED187A>	;SWITCH
>
IFN FT68274,<
$ ED187.,IA62A.,SWTCH.,0,0,<ED216.,ED187A>	;SWITCH
>
$ ED216.,0,LPREN.,0,0,<ED218.,ED217.>		;"("
$ ED187A,E.287,0,0,0,<ED218.,ED217.>		;LEFT PARENTHESIS REQUIRED
$ ED218.,IA16.,INTGR.,0,0,<ED219.,ED220.>	;INTEGER: SAVE VALUE
$ ED217.,E.25,0,0,0,ED197.			;POSITIVE INTEGER REQUIRED
$ ED219.,0,RPREN.,0,0,ED221.			;")"
$ ED220.,E.84,0,0,0,ED221.			;RIGHT PARIN. REQUIRED

;OPTIONS AFTER SWITCH (N)
$ ED221.,0,0,0,0,<ED222.,ED223.,ED224.,ED232.,ED233.,ED234.>

;SWITCH (N) IS <MNEMONIC-NAME>
$ ED224.,0,IS.,0,0,<ED232.,ED233.,ED234.>		;IS
$ ED232.,IA47.,USERN.,0,0,<ED222.,ED223.,ED182.,ED184.>	;OK MNEMONIC: GET IT
$ ED233.,E.28,MNEMO.,0,0,<ED222.,ED223.,ED182.,ED184.>	;MNEMONC ALREADY USED
$ ED234.,E.24,0,0,0,<ED222.,ED223.,ED182.,ED184.>	;ILLEGAL MNEMONIC

;ON/OFF STATUS IS <MNEMONIC-NAME>
$ ED222.,IA48.,ON.,0,0,<ED225.,ED226.,ED227.,ED229.,ED228.>	;ON: SET FLAG
$ ED223.,IA49.,OFF.,0,0,<ED225.,ED226.,ED227.,ED229.,ED228.>	;OFF: SET FLAG
$ ED225.,0,STATU.,0,0,<ED226.,ED227.,ED229.,ED228.>		;STATUS
$ ED226.,0,IS.,0,0,<ED227.,ED229.,ED228.>			;IS
$ ED227.,IA50.,USERN.,0,0,<ED222.,ED223.,ED182.,ED184.>		;OK MNEMONIC: GET IT
$ ED229.,E.85,CONDI.,0,0,ED197.			;CONDITION-NAME ALREADY IN USE
$ ED228.,E.26,0,0,0,ED197.			;ILLEGAL CONDITION-NAME

;SPECIAL-NAMES PARAGRAPH ERROR RECOVERY
$ ED191.,0,0,0,0,<ED6.,ED10.,ED15.,ED256.,ED16.,ED19.,ED20.,ED261.,ED192.>
$ ED192.,E.18,0,0,0,ED197.			;IMPROPER CLAUSE
$68 ED197.,0,0,0,0,<<ED185.,ED186.,ED187.,ED188.,ED189.,ED183A,ED198.>>
$74 ED197.,0,0,0,0,<<ED185.,ED186.,ED187.,ED188.,ED189.,ED307.,ED198.>>
$ ED198.,0,0,0,0,<ED6.,ED10.,ED15.,ED256.,ED16.,ED19.,ED20.,ED261.,ED272.>
$ ED272.,IA0.G,0,0,0,ED197.			;ADVANCE TO NEXT WORD
;FILE-CONTROL.
$ ED11.,0,FILEC.,0,1,<ED12.,ED13.>		;FILE-CONTROL
$ ED12.,0,PRIOD.,0,0,<ED45.,ED47.>		;"."
$ ED12A.,0,PRIOD.,0,0,<ED45.,ED47A.>		;[175] "."
$ ED13.,BE125.,0,0,0,ED12.			;NO "."
$ ED47.,0,0,0,0,<ED11.,ED14.,ED256.,ED16.,ED19.,ED20.,ED261.,ED48.>
$ ED47A.,0,0,0,0,<ED11.,ED14.,ED256.,ED16.,ED19.,ED20.,ED261.,ED49.> ; [175]
$ ED48.,E.18,0,0,0,ED49.			;IMPROPER CLAUSE
$ ED49.,IA0.A,0,0,0,ED12A.			;[175] ADVANCE TO NEXT WORD AT ED12

;SELECT [OPTIONAL] <FILE-NAME> ASSIGN TO <DEVICE-NAME>
$ ED45.,IA12.,SELEC.,0,0,<ED51.,ED53.,ED54.,ED52.>  ;SELECT: CLR OPTNL FLG
$ ED51.,IA13.,OPTIO.,0,0,<ED53.,ED54.,ED52.>	;OPTIONAL: SET FLAG
$68 ED54.,IA14.,USERN.,0,0,<<ED55.,ED56.>>	;OK FILE-NAME: GET IT
$74 ED54.,IA14.,USERN.,0,0,<<ED55.,ED271.>>	;OK FILE-NAME: GET IT
$ ED53.,E.9,FILEN.,0,0,ED47A.			;[175] FILE-NAME ALREADY IN USE
$ ED52.,E.21,0,0,0,ED47A.			;[175] ILLEGAL FILE-NAME

$68 ED55.,0,ASSGN.,0,0,<<ED57.,ED58.,ED58A.,ED58B.,ED60.>>	; [323] ASSIGN
$74 ED55.,IA17A.,ASSGN.,0,0,<<ED57.,ED58.,ED58A.,ED58B.,ED60.>>	;ASSIGN
$68 ED56.,E.10,0,0,0,ED47A.			;[175] ASSIGN CLAUSE REQUIRED
$ ED57.,0,TO.,0,0,<ED58.,ED58A.,ED58B.,ED60.>		; [323] TO
$ ED58.,IA18.,USERN.,0,0,<ED58.,ED58A.,ED12.,ED271.>	; [323] DEVICE-NAME: GET IT
$ ED58A.,IA18.,ALL.,0,0,<ED58.,ED58A.,ED12.,ED271.>	; [323] "ALL" IS A LEGAL DEVICE
$ ED58B.,IA18.,LITER.,0,0,<ED58.,ED58A.,ED12.,ED271.>	;MAKE LITERAL LEGAL
$ ED60.,E.83,0,0,0,<ED58.,ED58A.,ED12.,ED271.>	; [323] IMPROPER DEVICE-NAME

;OPTIONS AFTER SELECT-ASSIGN CLAUSE
IFE FT68274,<
$68 ED271.,0,0,0,0,<<ED12.,ED61.,ED62.,ED66.,ED67.,ED68.,ED68A.,ED70.,ED71.,ED72.,ED73.,ED289.,ED310.,ED311.,ED311A,ED271E>>
SYN ED271.,ED271A				;SIMPLIFY THE CODE
>
IFN FT68274,<
$68 ED271.,CV1.,0,0,0,<<ED12.,ED61.,ED62.,ED66.,ED67.,ED68.,ED68A.,ED70.,ED71.,ED72.,ED73.,ED289.,ED310.,ED311.,ED311A,ED271E>>
$68 ED271A,CV2.,0,0,0,ED271.		;BACKUP TO PREVIOUS WORD
>
$74 ED271.,0,0,0,0,<<ED12.,ED62.,ED66.,ED67.,ED70.,ED71.,ED289.,ED310.,ED311.,ED311A,ED500.,ED55.,ED271E>>
$ ED271E,E.18,0,0,0,ED271F
$ ED271F,0,0,0,0,<ED45.,ED11.,ED14.,ED256.,ED16.,ED19.,ED20.,ED261.,ED271G>
$ ED271G,IA0.G,0,0,0,ED271H			;ADVANCE TO NEXT WORD
$68 ED271H,0,0,0,0,<<ED12.,ED61.,ED62.,ED66.,ED67.,ED68.,ED68A.,ED70.,ED71.,ED72.,ED73.,ED289.,ED271F>>
$74 ED271H,0,0,0,0,<<ED12.,ED62.,ED66.,ED67.,ED70.,ED71.,ED289.,ED271F>>

;[68] ACCESS MODE IS <MODE>
$68 ED66.,IA21.,ACCES.,0,0,<<ED92.,ED93.,ED94.,ED96.,ED96X.,ED97.>>  ;ACCESS: SEEN BEF?
IFE FT68274,<
$68 ED92.,0,MODE.,0,0,<<ED93.,ED94.,ED96.,ED96X.,ED97.>>  ;MODE
>
IFN FT68274,<
$68 ED92.,CV3.,MODE.,0,0,<<ED93.,ED94.,ED96.,ED96X.,ED97.>>  ;MODE, delete from cvt file
>
$68 ED93.,0,IS.,0,0,<<ED94.,ED96.,ED96X.,ED97.>>	;IS
$68 ED94.,IA25.,SEQU.,0,0,<<ED95W.,ED95C.,ED271.>>	;SEQUENTIAL: SET FLAG
$68 ED96.,IA27.,RAND.,0,0,<<ED95W.,ED95C.,ED271.>>	;RANDOM: SET FLAG
$68 ED96X.,IA26.,INDXD.,0,0,<<ED95X.,ED95.,ED95C.,ED271.>>	;INDEXED: SET FLAG

;[74] ORGANIZATION IS [RMS] <FILE ORGANIZATION>
$74 ED66.,IA21.,ORGAN.,0,0,<<ED93.,ED93R.,ED94.,ED96.,ED96X.,ED97.>>  ;ORGANIZATION: SEEN BEF?
$74 ED93.,0,IS.,0,0,<<ED93R.,ED94.,ED96.,ED96X.,ED97.>>	;IS
$74 ED93R.,IA26R.,RMS.,0,0,<<ED96X.,ED97.>>		;RMS
$74 ED94.,IA25.,SEQU.,0,0,<<ED95W.,ED95C.,ED271.>>	;SEQUENTIAL: SET FLAG
$74 ED96.,IA27.,RELAT.,0,0,<<ED95W.,ED95C.,ED271.>>	;RELATIVE: SET FLAG
$74 ED96X.,IA26.,INDXD.,0,0,<<ED95X.,ED95.,ED95C.,ED95R.,ED271.>>	;INDEXED: SET FLAG

$ ED95W.,0,WITH.,0,0,<ED95.,ED271.>			;WITH
$ ED95X.,0,WITH.,0,0,<ED95.,ED95C.,ED271.>		;WITH

$ ED95.,IA80.,DEFER.,0,0,<ED95A.,ED271.>		;DEFERRED
$ ED95A.,0,OUTPU.,0,0,ED271.				;OUTPUT

$ ED95C.,IA82.,CHKPT.,0,0,<ED95D.,ED95E.,ED95F.,ED271.>	;CHECKPOINT
$ ED95D.,0,OUTPU.,0,0,<ED95E.,ED95F.,ED271.>		;OUTPUT
$ ED95E.,0,EVERY.,0,0,<ED95F.,ED271.>			;EVERY
$ ED95F.,IA83.,INTGR.,0,0,<ED95G.,ED271.>		;INTEGER
$ ED95G.,0,REC.,0,0,ED271.				;RECORDS

$74 ED95R.,IA26W.,RMS.,0,0,<<ED95.,ED95C.,ED271.>>	;RMS - WARN USER ABOUT CHANGE OF SYNTAX
$ ED97.,E.15,0,0,0,ED271.			;ILLEGAL ACCESS/ORGANIZATION MODE

;[68] PROCESSING MODE IS SEQUENTIAL
IFE FT68274,<
$68 ED70.,0,PRCSS.,0,0,<<ED88.,ED89.,ED90.,ED91.>>	;PROCESSING
>
IFN FT68274,<
$68 ED70.,CV0.,PRCSS.,0,0,<<ED88.,ED89.,ED90.,ED91.>>	;PROCESSING
>
$68 ED88.,0,MODE.,0,0,<<ED89.,ED90.,ED91.>>		;MODE
$68 ED89.,0,IS.,0,0,<<ED90.,ED91.>>			;IS
$68 ED90.,0,SEQU.,0,0,ED271.				;SEQUENTIAL
$68 ED91.,E.14,0,0,0,ED271.				;PROCESSING MODE MUST BE SEQUENTIAL

;[68] FOR MULTIPLE REEL/UNIT
IFE FT68274,<
$68 ED72.,0,FOR.,0,0,<<ED73.,ED76.>>			;FOR
>
IFN FT68274,<
$68 ED72.,CV0.,FOR.,0,0,<<ED73.,ED76.>>			;FOR
>
$68 ED73.,0,MULTP.,0,0,<<ED79.,ED76.>>			;MULTIPLE
$68 ED79.,IA68.,REEL.,0,0,ED271.			;REEL: SET MULTIREEL FLAG
$68 ED76.,E.18,0,0,0,ED271.				;IMPROPER CLAUSE

;[74] ACCESS MODE IS <MODE>
$74 ED70.,IA25X.,ACCES.,0,0,<<ED88.,ED89.,ED90.,ED90R.,ED90D.,ED91.>>  ;ACCESS
$74 ED88.,0,MODE.,0,0,<<ED89.,ED90.,ED90R.,ED90D.,ED91.>>	;MODE
$74 ED89.,0,IS.,0,0,<<ED90.,ED90R.,ED90D.,ED91.>>		;IS
$74 ED90.,IA25S.,SEQU.,0,0,ED271.				;SEQUENTIAL
$74 ED90R.,IA25R.,RAND.,0,0,ED271.			;RANDOM
$74 ED90D.,IA25D.,DYNAM.,0,0,ED271.		;DYNAMIC
$74 ED91.,E.704,0,0,0,ED271.				;ILLEGAL ACCESS MODE

;SYMBOLIC KEY IS <DATA-NAME>
$68 ED61.,IA22.,SYMBL.,0,0,<<ED98.,ED99.,ED101.,ED102.>>  ;SYMBOLIC: STORE HLDTAB CODE

;RECORD KEY IS <DATA-NAME>
$ ED62.,IA22R.,REC.,0,0,<ED98.,ED99.,ED101.,ED102.>  ;RECORD: STORE REC KEY CODE

;[68] ACTUAL KEY IS <DATA-NAME>
;[74] RELATIVE KEY IS <DATA-NAME>
$68 ED67.,IA24.,ACTUA.,0,0,<<ED98.,ED99.,ED101.,ED102.>>  ;ACTUAL: STORE ACT KEY CODE
$74 ED67.,IA24.,RELAT.,0,0,<<ED98.,ED99.,ED101.,ED102.>>  ;RELATIVE: STORE ACT KEY CODE
$ ED98.,0,KEY,0,0,<ED99.,ED101.,ED102.>  	;KEY
$ ED99.,0,IS.,0,0,<ED101.,ED102.>		;IS
$ ED101.,IA28.,USERN.,0,0,<ED100.,ED271A>	;DATA-NAME: SAVE ACT. KEY
$ ED100.,0,OF.,0,0,<ED100A,ED100B,ED102.>	;OF
$ ED100A,IA59.,USERN.,0,0,<ED100.,ED271A>	;DATA-NAME: SAVE QUALIFIER
$ ED100B,IA59.,FILEN.,0,0,ED271.		;FILE-NAME: SAVE QUALIFIER
$ ED102.,E.17,0,0,0,ED271.			;ILLEGAL DATA NAME

;[68] RESERVE NO/<INTEGER> ALTERNATE AREAS
$68 ED71.,0,RESER.,0,0,<<ED82.,ED83.,ED85.>>	;RESERVE
$68 ED82.,IA19.,INTGR.,0,0,<<ED86.,ED87.,ED271.>>   ;INTEGER: GET # ALT. BUFRS
$68 ED83.,IA20.,NO.,0,0,<<ED86.,ED87.,ED271.>>	;NO: ZERO ALT BUFRS
$68 ED85.,E.643,0,0,0,<<ED86.,ED87.,ED271.>>	;IMPROPER CLAUSE: 0 ALT. BUFRS
IFE FT68274,<
$68 ED86.,0,ALTRN.,0,0,<<ED87.,ED271.>>		;ALTERNATE
>
IFN FT68274,<
$68 ED86.,CV3.,ALTRN.,0,0,<<ED87.,ED271.>>	;ALTERNATE, DELETE IT FROM CVT FILE
>
$68 ED87.,0,AREA.,0,0,ED271.			;AREAS

;[74] RESERVE <INTEGER> AREAS
$74 ED71.,IA17.,RESER.,0,0,<<ED82.,ED85.>>	;RESERVE
$74 ED82.,IA19.,INTGR.,0,0,<<ED87.,ED271.>>	;INTEGER: GET # BUFRS
$74 ED85.,E.643,0,0,0,<<ED87.,ED271.>>		;IMPROPER CLAUSE: DEFAULT BUFRS
$74 ED87.,0,AREA.,0,0,ED271.			;AREAS

;RECORDING <MODE, DENSITY, PARITY>
$ ED289.,0,RECRDG,0,0,<ED290.,ED291.,ED292.,ED293.,ED294.,ED295.,ED296.,ED297.,ED298.,ED299.,ED300.,ED301.,ED293A,ED293B,ED296A>

$ ED290.,TST.NS,MODE.,0,0,<ED291.,ED289.>	;MODE
$ ED291.,0,IS.,0,0,ED289.			;IS
$ ED292.,IA69B.,BYTE.,0,0,ED289.		;BYTE
$ ED293.,IA69.,ASCII.,0,0,ED289.		;ASCII: SET MODE
$ ED293A,IA69A.,STDAS.,0,0,ED289.		;STANDARD-ASCII: SET MODE.
$ ED293B,0,STAND.,0,0,<ED293C,ED293D>
$ ED293C,IA69A.,ASCII.,0,0,ED289.
$ ED293D,E.18,0,0,0,ED289.
$ ED294.,IA70.,SIXBT.,0,0,ED289.		;SIXBIT: SET MODE
$ ED295.,IA71.,BINRY.,0,0,ED289.		;BINARY: SET MODE
$ ED296.,IA0.R,PRIOD.,0,0,ED271.		;PERIOD:  WE'RE THROUGH.
$ ED296A,IA72.,0,0,0,ED289.			;F OR V: SET MODE OR IF NEITHER GO TO ED271.

;DENSITY IS <INTEGER>
$ ED297.,TST.NS,DENSIT,0,0,<ED297A,ED298.,ED303.>	;DENSITY
$ ED297A,0,IS.,0,0,<ED298.,ED303.>		;IS
$ ED298.,IA73.,INTGR.,0,0,ED289.		;INTEGER: GET DENSITY
$ ED303.,E.25,0,0,0,ED289.			;POSITIVE INTEGER REQUIRED

;PARITY IS ODD/EVEN
$ ED299.,TST.NS,PARIT.,0,0,<ED299A,ED300.,ED301.,ED302.>	;PARITY
$ ED299A,0,IS.,0,0,<ED300.,ED301.,ED302.>	;IS
$ ED300.,IA74.,ODD.,0,0,ED289.			;ODD: SET PARITY FLAG
$ ED301.,IA75.,EVEN.,0,0,ED289.			;EVEN: SET PARITY FLAG
$ ED302.,E.328,0,0,0,ED289.			;ODD OR EVEN REQUIRED
;[68] FILE-LIMIT IS <ITEM>
$68 ED68.,IA23.,FILEL.,0,0,<<ED103.,ED104.,ED105.,ED106.,ED102.>>  ;INIT F-L CLAUSE
$68 ED68A.,0,FILE.,0,0,<<ED68B.,ED311.,ED311A,ED271E>>		;FILE<SPACE>LIMIT OK TOO
$68 ED68B.,0,LIM.,0,0,ED68.
$68 ED103.,0,IS.,0,0,<<ED104.,ED105.,ED106.,ED102.>>;IS

;[68] FIRST LIMIT (COULD BE HIGH OR LOW)
$68 ED105.,IA30.,USERN.,0,0,<<ED109.,ED104.,ED110.>>;DATA-NAME: SAVE HLDTAB PTR
$68 ED104.,0,OF.,0,0,<<ED104A,ED102.>>		;OF
$68 ED104A,IA59.,USERN.,0,0,<<ED104.,ED109.,ED110.>>;DATA-NAME: QUAL TO HLDTAB
$68 ED106.,IA29.,INTGR.,0,0,<<ED109.,ED110.>>	;INTEGER: SAVE VALTAB PTR
$68 ED110.,IA32.,0,0,0,ED111.			;SINGLE-ITEM LIMIT: LO-LIM=1

;[68] ... THRU <ITEM>
$68 ED109.,IA31.,THRU.,0,0,<<ED116.,ED117.,ED118.,ED120.>>  ;THRU: SAVE LO-LIM

;[68] HIGH LIMIT
$68 ED117.,IA30.,USERN.,0,0,<<ED116.,ED111.>>;DATA-NAME: SAVE HLDTAB PTR
$68 ED116.,0,OF.,0,0,<<ED116A,ED120.>>		;OF
$68 ED116A,IA59.,USERN.,0,0,<<ED116.,ED111.>>;DATA-NAME: QUALIFYR TO HLDTAB
$68 ED118.,IA29.,INTGR.,0,0,ED111.		;INTEGER: SAVE VALTAB PTR
$68 ED120.,IA61.,0,0,0,<<ED113.,ED114.,ED111.>>  	;ILL DAT-NAM: HI-LIM=LO
$68 ED111.,IA34.,0,0,0,<<ED113.,ED114.,ED271A>>  	;STORE HI-LIM

;[68] ADDITIONAL LOW LIMITS
$68 ED113.,IA30.,USERN.,0,0,<<ED112.,ED109.,ED115.>>;DATA-NAME: SAVE HLDTAB PTR
$68 ED112.,0,OF.,0,0,<<ED112A,ED102.>>		;OF
$68 ED112A,IA59.,USERN.,0,0,<<ED112.,ED109.,ED115.>>;DATA-NAME: QUAL TO HLDTAB
$68 ED114.,IA29.,INTGR.,0,0,<<ED109.,ED115.>>	;INTEGER: SAVE VALTAB PTR
$68 ED115.,IA30E,0,0,0,ED271A			;THRU EXPECTED


;FILE-STATUS IS DATA-NAME-1, DATA-NAME-2, ..., DATA-NAME-8
$ ED310.,IA100.,FILST.,0,0,<ED312.,ED313.,ED316.>
$ ED311.,0,FILE.,0,0,<ED311A,ED316.>		;FILE<SPACE>STATUS IS OK TOO.
$ ED311A,IA100.,STATU.,0,0,<ED312.,ED313.,ED316.>
$ ED312.,0,IS.,0,0,<ED313.,ED316.>
$ ED313.,IA101.,USERN.,0,0,<ED313.,ED314.,ED271.>
$ ED314.,0,OF.,0,0,<ED315.,ED102.>
$ ED315.,IA102.,USERN.,0,0,<ED314.,ED313.,ED271.>
$ ED316.,E.227,0,0,0,ED271.			;DIDN'T GIVE ANY NAMES!

;I-O-CONTROL.
$ ED14.,0,IOCON.,0,1,<ED122.,ED123.>		;I-O-CONTROL
$ ED122.,0,PRIOD.,0,0,ED124.			;"."
$ ED123.,BE125.,0,0,0,ED124.			;NO ".": PERIOD ASSUMED

;OPTIONS IN I-O-CONTROL PARAGRAPH
$ ED124.,0,0,0,0,<ED125.,ED126.,ED128.,ED122.,ED129.>

;I-O-CONTROL PARAGRAPH ERROR RECOVERY
$ ED129.,0,0,0,0,<ED11.,ED14.,ED256.,ED16.,ED19.,ED20.,ED261.,ED131.>
$ ED131.,E.18,0,0,0,ED139.
$ ED139.,0,0,0,0,<ED125.,ED126.,ED128.,ED140.>
$ ED140.,0,0,0,0,<ED11.,ED14.,ED256.,ED16.,ED19.,ED20.,ED261.,ED255.>
$ ED255.,IA0.A,0,0,0,ED139.
$ ED288.,0,0,0,0,<ED122.,ED124.>

;[68] SAME <RECORD/SORT> AREA FOR <FILE-NAME>
;[74] SAME <RECORD/SORT/SORT-MERGE> AREA FOR <FILE-NAME>
$68 ED125.,IA77.,SAME.,0,0,<<ED132.,ED132A,ED133.>>	;SAME: INIT SAVLST
$74 ED125.,IA77.,SAME.,0,0,<<ED132.,ED132A,ED132B,ED133.>>	;SAME: INIT SAVLST
$ ED132.,IA36.,REC.,0,0,<ED134.,ED135.,ED136.,ED137.,ED138.> ;REC: SET FLAG
$ ED132A,IA76.,SORT.,0,0,<ED134.,ED135.,ED136.,ED137.,ED138.> ;SORT: IGNORE CLAUSE
$74 ED132B,IA76.,SRTMG.,0,0,<<ED134.,ED135.,ED136.,ED137.,ED138.>> ;SORT-MERGE: IGNORE CLAUSE
$ ED133.,IA37.,0,0,0,<ED134.,ED135.,ED136.,ED137.,ED138.>  ;NO REC: CLR FLAG
$ ED134.,0,AREA.,0,0,<ED135.,ED136.,ED137.,ED138.>  ;AREA
$ ED135.,0,FOR.,0,0,<ED136.,ED137.,ED138.>	;FOR
$ ED136.,E.20,USERN.,0,0,<ED136.,ED137.,ED138.>;FILE NOT SELECTED
$ ED137.,IA38.,FILEN.,0,0,<ED141.,ED142.,ED138.>;FILE: SAVE FILTAB PTR
$ ED138.,E.21,0,0,0,ED139.			;ILLEGAL FILENAME
$ ED141.,E.20,USERN.,0,0,<ED141.,ED142.,ED144.>;FILE NOT SELECTED
$ ED142.,IA38A.,FILEN.,0,0,<ED141.,ED142.,ED144.>  ;FILE: LNK PREV FIL TO THIS
$ ED144.,IA39.,0,0,0,<ED122.,ED124.>		;LINK LAST FILE TO FIRST
;MULTIPLE FILE TAPE CONTAINS <FILENAME>
$68 ED126.,IA62.,MULTP.,0,0,<<ED148.,ED149.,ED150.,ED151.,ED152.,ED153.>>  ;INIT SVL
$74 ED126.,IA62M.,MULTP.,0,0,<<ED148.,ED149.,ED150.,ED151.,ED152.,ED153.>>  ;INIT SVL
$ ED148.,0,FILE.,0,0,<ED149.,ED150.,ED151.,ED152.,ED153.>  ;FILE
$ ED149.,0,TAPE.,0,0,<ED150.,ED151.,ED152.,ED153.>  ;TAPE
$ ED150.,0,CONTA.,0,0,<ED151.,ED152.,ED153.>  	;CONTAINS
$ ED151.,IA40.,FILEN.,0,0,<ED157.,ED158.>	;FILE: SAVE FILTAB PTR
$ ED152.,E.20,USERN.,0,0,<ED152.,ED154.,ED139.>;FILE NOT SELECTED
$ ED153.,E.21,0,0,0,<ED152.,ED154.,ED139.>	;ILLEGAL FILENAME
$ ED154.,0,PSTN.,0,0,<ED155.,ED156.>		;POSITION
$ ED155.,0,INTGR.,0,0,<ED151.,ED152.,ED288.>  	;INTEGER
$ ED156.,E.18,0,0,0,<ED151.,ED152.,ED288.>  	;IMPROPER CLAUSE

;... POSITION <INTEGER>
$ ED157.,0,PSTN.,0,0,<ED159.,ED160.>		;POSITION
$ ED159.,IA41.,INTGR.,0,0,<ED161.,ED163.,ED288.>  ;INTEGER: STORE POSITION
$ ED160.,E.18,0,0,0,<ED161.,ED163.,ED139.>  	;IMPROPER CLAUSE

;ADDITIONAL FILENAMES
$ ED158.,IA42.,0,0,0,<ED161.,ED163.,ED288.>  	;NO POS: STOW VALUE ON SAVLST
$ ED161.,IA43.,FILEN.,0,0,<ED157.,ED158.>	;FILE: LINK TO PREV. FILE
$ ED163.,E.20,USERN.,0,0,<ED163.,ED161.,ED164.,ED288.>  ;FILE NOT SELECTED
$ ED164.,0,PSTN.,0,0,<ED165.,ED166.>		;POSITION
$ ED165.,0,INTGR.,0,0,<ED161.,ED163.,ED288.>  	;INTEGER
$ ED166.,E.18,0,0,0,<ED161.,ED163.,ED288.>  	;IMPROPER CLAUSE

;RERUN
$68 ED128.,IA62.,RERUN.,0,0,<<ED167.,ED167B,ED168.,ED169.,ED173.,ED174.,ED131.>>	;INIT SVL
$74 ED128.,IA62F.,RERUN.,0,0,<<ED167.,ED167B,ED168.,ED169.,ED173.,ED174.,ED131.>>	;INIT SVL

;ON <FILENAME>
$ ED167.,0,ON.,0,0,<ED167A,ED169.> 		;ON
$ ED167A,0,FILEN.,0,0,<ED167B,ED168.,ED169.,ED173.,ED174.,ED131.>  ;FILENAME

;EVERY
$ ED167B.,0,EVERY.,0,0,<ED168.,ED169.,ED173.,ED174.,ED131.>  ;EVERY

;<INTEGER> RECORDS
$ ED168.,IA16.,INTGR.,0,0,<ED170.,ED171.>	;INTEGER: SAVE VALUE
$ ED170.,0,REC.,0,0,<ED176.,ED177.,ED178.,ED179.>  ;RECORDS
$ ED171.,E.18,0,0,0,ED172.			;IMPROPER CLAUSE
$ ED172.,IA57.,0,0,0,ED139.			;REMOVE LAST ITEM FROM SAVLST

;END OF REEL/UNIT
$ ED169.,0,END.,0,0,<ED173.,ED174.,ED131.>	;END
$ ED173.,0,OF.,0,0,<ED174.,ED131.>		;OF
$ ED174.,IA54.,REEL.,0,0,<ED176.,ED177.,ED178.,ED179.>  ;REEL: SAVE 0

;OF <FILENAME>
$ ED176.,0,OF.,0,0,<ED177.,ED178.,ED179.>	;OF
$ ED177.,IA57.,USERN.,0,0,ED288.		;FUNNY NAME: CLEAN OFF SAVLST
$ ED178.,IA55.,FILEN.,0,0,ED288.		;FILE: SET RERUN COUNT
$ ED179.,E.21,0,0,0,ED172.			;ILLEGAL FILENAME

;ALTERNATE RECORD KEY IS <DATA-NAME> WITH DUPLICATES

$74 ED500.,IA22K.,ALTRN.,0,0,<<ED501.,ED271E>>	;ALTERNATE
$74 ED501.,0,REC.,0,0,<<ED502.,ED503.,ED504.,ED271E>>	;RECORD
$74 ED502.,0,KEY,0,0,<<ED503.,ED504.,ED271E>>		;KEY
$74 ED503.,0,IS.,0,0,<<ED504.,ED271E>>			;IS
$74 ED504.,IA28A.,USERN.,0,0,<<ED505.,ED509.,ED510.,ED271.>>	;DATA-NAME
$74 ED505.,0,OF.,0,0,<<ED506.,ED507.,ED508.>>		;OF
$74 ED506.,IA59.,USERN.,0,0,<<ED505.,ED509.,ED510.,ED271.>>	;DATA-NAME
$74 ED507.,IA59.,FILEN.,0,0,<<ED509.,ED510.,ED271.>>		;FILE-NAME
$74 ED508.,E.17,0,0,0,ED271.				;ILLEGAL DATANAME
$74 ED509.,0,WITH.,0,0,<<ED510.,ED271E>>		;WITH
$74 ED510.,IA28D.,DUPL.,0,0,ED271.			;DUPLICATES

	END