#    Define DATA-DESCRIPTION-LANGUAGE Editing Environment
#
SET FIND 4; SET INS 4
Def WDDL /H ENV LA LB LC LD IFI RR IN;H CH DDLDEL/
Def LA "SET I 7;DEF II /BR;I-3|;VE;R+0/;DEF L>/LB/;DEF L</LA/"
Def LB "SET I10;DEF II /BR;I-6|  |;VE;R+0/;DEF L>/LC/;DEF L</LA/"
Def LC "SET I13;DEF II /BR;I-9|  |  |;VE;R+0/;DEF L>/LD/;DEF L</LB/"
Def LD "SET I16;DEF II /BR;I-12|  |  |  |;VE;R+0/;DEF L>/LE/;DEF L</LC/"
Def IFI "DEF VE /#/;II;DEF VE /ALT VE/;VE;A __}"
Def RR "R+27"
Def IN "RR INTEGER ("
Def CH "RR CHARACTER ("
Def DDLDEL/ENVDEF;Def LA;Def LB;Def LC;Def LD;Def IFI;Def WDDL/
Def ENV /ECHO     DDL Editing Environment/; Def CMDS /WDDL/
LA