addupd;
 FILE = LI.CON.CONF;
 COMMENTS = 6/99, lxa, WWWMIRROR tag (leave this comment at top);
 COMMENTS = 4/08 sul, changed cnum to generate automatically from DATE-QUAL using lookup to virtual elem in CONF-CNUM - inclose rule;
 COMMENTS = 7/00, lxa, remember to change test of $machine if SLAC changes from sunspi series, leave this comment at top;
 COMMENTS = I've purposely done a match on the sunspi prefix and called out our local mirror machine (i.e. sunspi2) so if we move to a 'sunspi4' this proc
won't fail on our production machine. Local mirror machine must be called out specifically, lxa;
 COMMENTS = ***** Please remember to annotate changes BELOW! *********;
 COMMENTS = **************************************************************;
 COMMENTS = indexed newurl with url tcb 04/04;
 COMMENTS = 4/10/02, lxa, added virtual END-DATE for export to Oracle;
 COMMENTS = 5/17/01, lxa, added virtual CALLNO (books);
 COMMENTS = 10/3/00, lxa, made CONFX public access instead of only LW.WEB;
 COMMENTS = 9/26/00, lxa, converted SSCN to ECONF-TITLE, took out indexing;
 COMMENTS = 7/17/00, lxa, added test for $machine to skip cnum validation at mirrors;
 COMMENTS = 10/17/99, lxa, y2k checked;
 COMMENTS = 6/21/99, lxa, Took out logging;
 COMMENTS = 1/18/99, lxa, Added subfile name CONFX for subgoal access;
 COMMENTS = 12/3/97, lxa, added secure-switch 10 to CONF;
 COMMENTS = 10/27/97, lxa, Converted all date handling procs to $date.out.cc(50), $date.in.cc(50), or $search.date.cc(50) for year 2000 compatibility;
 COMMENTS = 10/26/96, lxa, made CNUM searchable as c96-06-06-1 or c96 06 06 1;
 COMMENTS = 3/1/96, lxa, added logging, took out accounts SSCLIB*;
 COMMENTS = 2/22/96, LXA, reorganized the MAKEDATE uproc and fixed problem (Nextmonth wasn't working properly still! but now it's ok);
 COMMENTS = 12/15/95, lxa, fixed error in WD 'nextmonth' search logic so that end of year is correctly handled;
 COMMENTS = added LW.WEB account privs(with no logging), lxa, 8/18/98;
 COMMENTS = Removed LOG=2 lines to stop logging this file, rrd, 11/8/99;
 AUTHOR = L.Addis/Rita Taylor;
 DEFDATE = TUES. MAY 11, 1976;
 MODDATE = TUES. APRIL 15, 2008;
 MODTIME = 17:46:22;
 BIN = PURGE;
 RECORD-NAME = APROTO;
   KEY = NAME;
     INPROC = A30;
     COMMENTS = We no longer maintain a special protocols file to accompany this file;
   ELEM = COMMANDS;
     TYPE = XEQ;
     ALIASES = COMMAND, C;
 RECORD-NAME = INDX2;
   COMBINE = APROTO;
   KEY = CNUMBER;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   VIRTUAL;
     ELEM = HEADING;
       OUTPROC = $insert('CNUM: ');
       REDEFINES = CNUMBER;
     ELEM = NEXTCNUM;
       OUTPROC = $call(getkey);
       ALIASES = NEXTCONF;
       REDEFINES = CNUMBER;
   STRUCTURE = GOAL.FAC;
     PHANTOM;
       SUBGOAL = MCONF;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC(50);
         OUTPROC = $DATE.OUT.CC(50);
         ALIASES = DQ;
     VIRTUAL;
       ELEM = GOAL.FAC;
         TYPE = STRUCTURE;
         REDEFINES = MCONF;
   USERDEFS;
     VARIABLE = cnt;
       TYPE = INT;
     VARIABLE = cnumv;
       TYPE = STRING;
     USERPROC = GETKEY;
       UPROC = if $match($val,'?.?') then let cnumv = $lsub($val,'.');
       UPROC = else let cnumv = $val;
       UPROC = let cnt = 1;
       UPROC = ++loop;
       UPROC = if $looksubf(#cnumv '.' #cnt,verify,'conf-cnum')=0 then set val  #cnumv'.' #cnt;
       UPROC = then return;
       UPROC = let cnt = #cnt +1;
       UPROC = if #cnt < 100 then jump loop;
       UPROC = return;
 RECORD-NAME = INDX3;
   COMBINE = APROTO;
   KEY = KEYWORD;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC(50);
         OUTPROC = $DATE.OUT.CC(50);
         ALIASES = DQ;
 RECORD-NAME = INDX4;
   COMBINE = APROTO;
   KEY = TITLE;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   VIRTUAL;
     ELEM = HEADING;
       OUTPROC = $insert('TIT: ');
       REDEFINES = TITLE;
   STRUCTURE = GOAL.FAC;
     PHANTOM;
       SUBGOAL = MCONF;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC(50);
         OUTPROC = $DATE.OUT.CC(50);
         ALIASES = DQ;
     VIRTUAL;
       ELEM = GOAL.FAC;
         TYPE = STRUCTURE;
         REDEFINES = MCONF;
 RECORD-NAME = MCONF;
   REMOVED;
   SLOT;
     SLOTCHECK;
     ALIASES = KEY;
   REQUIRED;
     ELEM = C-NUMBER;
       OCCURS = 1;
       INPROC = $CALL(MAKEUNIQUE,INCLOSE);
       ALIASES = C#, C, CNUM, R;
       COMMENTS = Must comment out this inproc for mirrors, lxa;
       COMMENTS = Unique code compounded of YEAR, MONTH and FIRST day of conference. i.e. C85/05/01 is a conference starting May 1, 1985. If a second
conference starts on same day, C85/05/01.1, etc. If this file were to be redesigned one could make this the key of the record.;
     ELEM = DATE-QUAL;
       LENGTH = 4;
       INPROC = $DATE.IN.CC(50);
       OUTPROC = $DATE.OUT.CC(50);
       ALIASES = D, DQ, DATE, START-DATE;
       COMMENTS = This is the starting date of the conference for the date index;
     ELEM = DATES;
       OCCURS = 1;
       ALIASES = DS;
       COMMENTS = These are the inclusive dates of the conference, i.e. 30 May - 5 June 1985;
     ELEM = PLACE;
       OCCURS = 1;
       ALIASES = PL;
       COMMENTS = This is the place, i.e., San Francisco, CA;
     ELEM = TITLE;
       OCCURS = 1;
       INPROC = $SQU;
       ALIASES = TI, T;
   OPTIONAL;
     ELEM = ATTENDANCE-INFO;
       OCCURS = 1;
       INPROC = A30;
       ALIASES = ATT;
       COMMENTS = Some conferences are invitational, etc. Enter such information here, i.e. By invitation, Attendance Limited.;
     ELEM = INFO-ADDRESS;
       OCCURS = 1;
       ALIASES = INFO;
       COMMENTS = Use address from which further information can be obtained. Enter it with each line delineated by colon (for unpacking later for labels),
i.e. Conference Secretary: SLAC: P.O. Box 4349: Stanford, CA 94305 USA;
     ELEM = SOURCE;
       OCCURS = 1;
       ALIASES = S, SO;
       COMMENTS = Where did the information come from, i.e. poster, hearsay, etc.;
     ELEM = PROGRAM;
       OCCURS = 1;
       ALIASES = PROG, PRO;
       COMMENTS = If we received a program, enter date here;
     ELEM = SPONSOR;
       ALIASES = SPON, SP;
       COMMENTS = Organization/s sponsoring conference;
     ELEM = FEE;
     ELEM = KEYWORD;
       INPROC = $SQU/A30;
       ALIASES = K;
       COMMENTS = a 'keyword' will be indexed as a single word or phrase, i.e. 'Rochester Conference, 1985' and is used to produce printed keyword index
for patron use. Compare entries for previous conferences in series to maintain consistency;
     ELEM = CATCH-TITLE;
       OCCURS = 1;
       ALIASES = CT;
       COMMENTS = When proceedings are published and preprints weeded, catch title will be used in CPBN in HEP. Must be 32 characters or less to fit on
Antipreprint list;
     ELEM = CALL-NUM;
       OCCURS = 1;
       INPROC = A30;
       ALIASES = CN;
       COMMENTS = Enter call number of proceedings.;
     ELEM = PRE-PUBNOTE;
       OCCURS = 1;
       ALIASES = PREPUB;
       COMMENTS = Enter what we know about future production of proceedings;
     ELEM = PUB-NOTE;
       OCCURS = 1;
       INPROC = $SQU;
       ALIASES = PBN;
       COMMENTS = Enter bibliographic entry for proceedings;
     ELEM = PPF;
       OCCURS = 1;
       INPROC = A30;
       COMMENTS = YES or NO. Indicates whether this conference should be listed on Conference Previews section of PPF;
     ELEM = PPA;
       OCCURS = 1;
       INPROC = A30;
       COMMENTS = Issue number of anti-preprints list where conferece proceedings were announced;
     ELEM = WEED-NOTE;
       OCCURS = 1;
       ALIASES = W, WN;
     ELEM = ACQUISITION-INFO;
       OCCURS = 1;
       ALIASES = AO;
       COMMENTS = Information on obtaining proceedings;
     ELEM = PRICE;
       OCCURS = 1;
       ALIASES = PR;
     ELEM = NOTE;
       ALIASES = N;
     ELEM = DATE.PROC.ACQU;
       INPROC = $DATE.IN.CC(50);
       OUTPROC = $DATE.OUT.CC(50);
       ALIASES = DAQ, DAC;
     ELEM = INTERNAL-PBN;
       ALIASES = IPBN;
     ELEM = SERIES;
       ALIASES = SER;
       COMMENTS = Information about series into which conference fits.;
     ELEM = DEADLINE-PAPERS;
       ALIASES = DEADLINE, PAPERS;
       COMMENTS = Deadline date for submitting papers;
     ELEM = EXTRA-PLACE;
       ALIASES = XPL;
       COMMENTS = indexed in place index. Use for additional place name information, i.e. Suburb of Paris;
     ELEM = TENTATIVE-DATE;
       INPROC = A30;
       ALIASES = TENT;
       COMMENTS = This note gives information on whether a conference is to be announced publically.;
     ELEM = SLAC-SPEAKER;
       ALIASES = SS, SLAC;
       COMMENTS = This element is used to record people who are going to a particular conference as speakers or chairmen;
     ELEM = SLAC-PARTICIPANT;
       ALIASES = SPART;
       COMMENTS = Use this element to record who is attending a conference, see also SLAC-SPEAKER;
     ELEM = SLAC-NOTE;
       ALIASES = SN, SNOTE;
       COMMENTS = Misc. SLAC related information;
     ELEM = SLAC-COM;
       ALIASES = SCOM;
       COMMENTS = This element records SLAC people who are on the organizing or program committees of a conference;
     ELEM = ADMINISTRATIVE;
       INPROC = $BREAK(|)/A30;
       OUTPROC = $BUILD('| ');
       ALIASES = ADMIN, WHERE, WHAT, WH;
       COMMENTS = This element contains information used to separate out foreign conferences, and those exclusively on theory, instrumentation, or on
accelerators. It is primarily for the use of the travel office and the directors office for administrative purposes.;
     ELEM = OTHER-TITLE;
       ALIASES = OT;
       COMMENTS = To be used for extra words for the title index (which may be implied but not included in the title);
     ELEM = SSC-NAMES;
       ALIASES = SSCN, ECONF-TITLE, ECONFT;
       COMMENTS = Was SSC committee members, now econf-title, lxa, 9/00;
     ELEM = TRANSPARENCIES;
       ALIASES = TRANS;
     ELEM = DESY-CODE;
       ALIASES = DC;
       COMMENTS = for use by the DESY Library;
     ELEM = DESY-NOTE;
       ALIASES = DN;
       COMMENTS = see desy-code;
     ELEM = PLACE-DATE;
       ALIASES = PD;
       COMMENTS = for place date code to match place date code in HEP as suggested by CERN;
     ELEM = DATE-ADDED;
       OCCURS = 1;
       LENGTH = 4;
       INPROC = $DATE.IN.CC(50)/$GEN.DATE(ADD);
       OUTPROC = $DATE.OUT.CC(50);
       ALIASES = DADD, DATE-ENTERED, DE;
     ELEM = ACCT-ADDED;
       OCCURS = 1;
       INPROC = $SQU/$CALL(CHECKADD,INCLOSE)/$GEN.ACCT(ADD);
       ALIASES = AA;
     ELEM = DATE-UPDATED;
       OCCURS = 1;
       LENGTH = 4;
       INPROC = $DATE.IN.CC(50)/$GEN.DATE(UPD);
       OUTPROC = $DATE.OUT.CC(50);
       ALIASES = DU, DR, DATE-REVISED;
     ELEM = ACCT-UPD;
       OCCURS = 1;
       INPROC = $CAP/$SQU/$GEN.ACCT(UPD);
       ALIASES = UPD-ACCOUNT, AU;
       COMMENTS = This supplies the account that did the latest update to the record;
     ELEM = FAX;
       COMMENTS = Organizer fax num;
     ELEM = EMAIL;
       COMMENTS = organizer e-mail address;
     ELEM = URL;
       ALIASES = SC;
       COMMENTS = was SSC tag..now Universal Related Language for linking WWW;
     ELEM = DESY-SPEAKER;
       ALIASES = DSPEAK, DSP;
       COMMENTS = Was SSC-NOTE for any SSC comments;
     ELEM = PHONE;
       COMMENTS = Organizer telephone number;
     ELEM = URL-STR;
       TYPE = STRUCTURE;
       ALIASES = URLSTR, URLS;
       COMMENTS = URL Structure for the many different types of URLs;
   VIRTUAL;
     ELEM = SORT-CNUM;
       OUTPROC = A62,SORTCNUM;
       ALIASES = SORT;
       COMMENTS = Not all CNUMS begin with 'C', some are tentative and are given other prefixes. This elem strips first character off the cnum for accurate
sorting;
     ELEM = SORT-TITLE;
       OUTPROC = $CALL(SORTTITLE);
       ALIASES = ST;
       REDEFINES = TITLE;
       COMMENTS = Strip off the numericals off front of titles so they can be sorted reasonable...put year in front, i.e. 1992 International instead of 4th
international;
     ELEM = CALLNO;
       OUTPROC = $CALL(GETCALLNO);
       ALIASES = CL;
       REDEFINES = CNUM;
       COMMENTS = get the call number for the proceedings from the SLAC Library books database;
     ELEM = END-DATE;
       OUTPROC = $CALL(GETENDDATE);
       REDEFINES = DATES;
       COMMENTS = Construct a separate ending date for information in 'dates' element;
   STRUCTURE = URL-STR;
     KEY = NEWURL;
       ELEMINFO;
         DESCRIPTION = URL Addresses for different types of URLs;
     ELEM = URL-TYPE;
       ALIASES = UT, URLT, URLTYPE;
       ELEMINFO;
         DESCRIPTION = Short description of the URL for display on web;
     ELEM = URL-COMMENT;
       ALIASES = URLCOM;
       ELEMINFO;
         DESCRIPTION = Additional information for behind the scenes;
     ELEM = URL-DATE;
       INPROC = $date.in.cc(50);
       OUTPROC = $date.out.cc(50);
       ALIASES = URLDT;
       ELEMINFO;
         DESCRIPTION = Date for URL;
   USERDEFS;
     VARIABLE = CNUM1;
       TYPE = STRING;
     VARIABLE = CNUM2;
       TYPE = STRING;
     VARIABLE = CONFDATE;
       TYPE = STRING;
     VARIABLE = CONFPLACE;
       TYPE = STRING;
     VARIABLE = FIRSTWORD;
       TYPE = STRING;
     VARIABLE = MONTH;
       TYPE = STRING;
     VARIABLE = NEWTITLE;
       LENGTH = 255;
       TYPE = STRING;
     VARIABLE = NEXTMONTH;
       TYPE = STRING;
     VARIABLE = NEXTYEAR;
       TYPE = STRING;
     VARIABLE = YEAR;
       TYPE = STRING;
     USERPROC = CHECKADD;
       UPROC = IF $MATCH($CAP($MACHINE),'SUNSPI?') = 0: SET LASTRULE;
       UPROC = IF $MATCH($CAP(MACHINE),'SUNSPI2'): SET LASTRULE;
       UPROC = IF $MATCH($CURCMD,ADD?) = 0: SET LASTRULE;
       UPROC = IF $MATCH($CAP($MACHINE),'SUN5') = 0: SET LASTRULE;
       COMMENTS = Checks whether record is being added or updated. Cnumber is checked for duplication only on ADD, also skips verification at mirror sites
by checking machine, including the slac mirror, which will need changing if our local mirror isn't sunspi2.;
     USERPROC = CNUMFIX;
       UPROC = SET VAL = $CHANGE($VAL,'-','/');
       UPROC = SET VAL = $CHANGE($VAL,' ','/');
       UPROC = IF $SIZE($VAL) < 10: RETURN;
       UPROC = LET CNUM1 = $XSTR($VAL,KEEP,FIRST,9);
       UPROC = LET CNUM2 = $RIGHTSTR($VAL,10);
       UPROC = IF $SIZE(#CNUM2) > 0: SET VAL = #CNUM1'.'#CNUM2;
       UPROC = RETURN;
       UPROC = - makes search 'fin cnum c96-08-09-1' change to 'fin cnum C96/08/09.1;
     USERPROC = GETCALLNO;
       UPROC = set val = $change($val,'/','-');
       UPROC = set val = $change($val,'.','-');
       UPROC = set val = $looksubf($val,external,'books-cnum',callno,extkey,'');
       UPROC = If $match($val,'ON'): set val = 'ON ORDER';
     USERPROC = GETENDDATE;
       UPROC = if $match($val,'?-?') = 0: jump fixdate;
       UPROC = set val = $rightsub($val,'-');
       UPROC = ++fixdate;
       UPROC = set val = $dateout($datein($val),ccyy);
       UPROC = return;
       UPROC = - if only one day, end-date is same as beginning date;
     USERPROC = MAKEDATE;
       UPROC = SET VAL = $CAP($VAL);
       UPROC = IF $MATCH($VAL,THISM?,NEXTY?,NEXTM?,NEXTS?,FUT?) = 0: SET VAL 'DATE '$VAL;
       UPROC = THEN RETURN;
       UPROC = -;
       UPROC = ++FUTURE;
       UPROC = -';
       UPROC = IF $MATCH($VAL,FUT?): SET VAL = 'd after today';
       UPROC = THEN RETURN;
       UPROC = -;
       UPROC = ++SETUP;
       UPROC = -;
       UPROC = LET MONTH = $SUBSTR($DATE,0,2);
       UPROC = LET YEAR = $XSTR($DATE,K,LAST,2);
       UPROC = IF #MONTH = 12: LET NEXTMONTH = 1;
       UPROC = ELSE LET NEXTMONTH = #MONTH+1;
       UPROC = - If month is December, make next month January (1);
       UPROC = LET NEXTYEAR = #YEAR+1;
       UPROC = -;
       UPROC = ++THISMONTH;
       UPROC = -;
       UPROC = IF $MATCH($VAL,THISM?): SET VAL = 'DATE '#MONTH'/'#YEAR;
       UPROC = THEN RETURN;
       UPROC = -;
       UPROC = ++NEXTYEAR;
       UPROC = -;
       UPROC = IF $MATCH($VAL,NEXTY?): SET VAL = 'DATE '#NEXTYEAR;
       UPROC = THEN RETURN;
       UPROC = -;
       UPROC = ++NEXTMONTH;
       UPROC = -;
       UPROC = IF $MATCH($VAL,NEXTM?): IF #NEXTMONTH = 1: SET VAL = 'D '#NEXTMONTH'/'#NEXTYEAR;
       UPROC = - If next month is January, make the year next year also;
       UPROC = THEN RETURN;
       UPROC = IF $MATCH($VAL,NEXTM?): SET VAL = 'D '#NEXTMONTH'/'#YEAR;
       UPROC = THEN RETURN;
       UPROC = -;
       UPROC = ++NEXTSUMMER;
       UPROC = -;
       UPROC = IF $INT(#MONTH) > 5: SET VAL = 'DATE after 05/'#NEXTYEAR' and d before 09/'#NEXTYEAR;
       UPROC = THEN RETURN;
       UPROC = SET VAL = 'DATE AFTER 05/'#YEAR' and d before 09/'#YEAR;
       UPROC = THEN RETURN;
       COMMENTS = * #YEAR' '#MONTH' '#NEXTMONTH' '#NEXTYEAR;
       COMMENTS = Makes possible the WWW searches for nextyear, nextsummer, nextmonth, future, etc.;
     USERPROC = MAKEUNIQUE;
       UPROC = if $val ~= '' then return;
       UPROC = then return;
       UPROC = let cnum1 = $getcval(date,,'0000');
       UPROC = if #cnum1 = '0000' then let cnum1 = $date;
       UPROC = let cnum1 = 'C' $xstr(#cnum1,keep,last,2) '/' $xstr(#cnum1,keep,first,2) '/' $lsub($rsub(#cnum1,'/'),'/');
       UPROC = set val $looksubf(#cnum1,repl,'conf-cnum',nextcnum,,#cnum1);
       UPROC = return;
     USERPROC = SORTCNUM;
       UPROC = SET VAL = $GETUVAL(CNUM,0,NONE);
       UPROC = SET VAL = $RIGHTSTR($VAL,1);
       COMMENTS = Some conferences get a temporary cnumber with a different prefix. First character is stripped of so all can be sequenced together.;
     USERPROC = SORTTITLE;
       UPROC = LET CONFDATE = $GETCVAL(DATES,0,NODATES);
       UPROC = LET CONFPLACE = $GETCVAL(PLACE,0,NOPLACE);
       UPROC = LET FIRSTWORD = $CAP($LEFTSUB($VAL,' '));
       UPROC = LET NEWTITLE = $CAP($VAL);
       UPROC = IF $SIZE(#FIRSTWORD) < 5: IF $MATCH(#FIRSTWORD,?ST,?ND,?RD,?TH,19?,20?): LET NEWTITLE = $CHANGE(#NEWTITLE,#FIRSTWORD,'');
       UPROC = THEN LET NEWTITLE = $SQU(#NEWTITLE' ('#FIRSTWORD')');
       UPROC = SET VAL = #NEWTITLE', '#CONFDATE', '#CONFPLACE;
 RECORD-NAME = PPIDX6;
   COMBINE = APROTO;
   KEY = PPA;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = XDATE;
   COMBINE = APROTO;
   KEY = DATE;
     LENGTH = 4;
     INPROC = $DATE.IN.CC;
     OUTPROC = $DATE.OUT.CC;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   VIRTUAL;
     ELEM = HEADING;
       OUTPROC = $insert('DATE: ');
       REDEFINES = DATE;
   STRUCTURE = GOAL.FAC;
     PHANTOM;
       SUBGOAL = MCONF;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
     VIRTUAL;
       ELEM = GOAL.FAC;
         TYPE = STRUCTURE;
         REDEFINES = MCONF;
 RECORD-NAME = XPLACE;
   COMBINE = APROTO;
   KEY = PLACE;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   VIRTUAL;
     ELEM = HEADING;
       OUTPROC = $insert('PLACE: ');
       REDEFINES = PLACE;
   STRUCTURE = GOAL.FAC;
     PHANTOM;
       SUBGOAL = MCONF;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
     VIRTUAL;
       ELEM = GOAL.FAC;
         TYPE = STRUCTURE;
         REDEFINES = MCONF;
 RECORD-NAME = XSPON;
   COMBINE = APROTO;
   KEY = SPONSOR;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = YPPF;
   COMBINE = APROTO;
   KEY = PPF;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = YRDATE;
   COMBINE = APROTO;
   KEY = DATE;
     LENGTH = 4;
     INPROC = $DATE.IN.CC;
     OUTPROC = $DATE.OUT.CC;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = YRNAME;
   COMBINE = APROTO;
   KEY = LAST;
   ELEM = FN.STR;
     TYPE = STRUCTURE;
   STRUCTURE = FN.STR;
     KEY = FN;
       INPROC = A38;
       OUTPROC = A38;
     ELEM = PTRG;
       LENGTH = 8;
       TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
 RECORD-NAME = YSADMI;
   COMBINE = APROTO;
   KEY = ADMIN;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = YTKEY;
   COMBINE = APROTO;
   KEY = KW;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0001;
   COMBINE = APROTO;
   KEY = TRANSPARENCIES;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0002;
   COMBINE = APROTO;
   KEY = DESY-CODE;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0003;
   COMBINE = APROTO;
   KEY = ACCT-ADDED;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0004;
   COMBINE = APROTO;
   KEY = DATE-ADDED;
     INPROC = $DATE.IN.CC;
     OUTPROC = $DATE.OUT.CC;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   VIRTUAL;
     ELEM = HEADING;
       OUTPROC = $insert('DADD: ');
       REDEFINES = DATE-ADDED;
   STRUCTURE = GOAL.FAC;
     PHANTOM;
       SUBGOAL = MCONF;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
     VIRTUAL;
       ELEM = GOAL.FAC;
         TYPE = STRUCTURE;
         REDEFINES = MCONF;
 RECORD-NAME = Z0005;
   COMBINE = APROTO;
   KEY = PD;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0006;
   COMBINE = APROTO;
   KEY = ACCT-UPD;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0007;
   COMBINE = APROTO;
   KEY = URL;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0008;
   COMBINE = APROTO;
   KEY = SOURCE;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 RECORD-NAME = Z0009;
   COMBINE = APROTO;
   KEY = CONF-ID;
   ELEM = PTRG;
     LENGTH = 8;
     TYPE = STRUCTURE;
   STRUCTURE = PTRG;
     FIXED;
       KEY = MCONF;
         LENGTH = 4;
         INPROC = AS27:4;
         OUTPROC = A77,17;
       ELEM = DATE-QUAL;
         LENGTH = 4;
         INPROC = $DATE.IN.CC;
         OUTPROC = $DATE.OUT.CC;
         ALIASES = DQ;
 GOALREC-NAME = MCONF;
   PTR-ELEM = MCONF;
     EXTERNAL-NAME = CONFERENCE,CONFERENCES,RECORD, MCONF, KEY;
       SEARCHPROC = $CHECK;
       GOALREC-KEY = MCONF;
       PASSPROC = A169:1;
     QUAL-ELEM = DATE-QUAL;
       SEARCHTERMS = DQ;
         PRIV-TAG = 1;
         SEARCHPROC = $SEARCH.DATE.CC(50);
         GOALREC-ELEM = DATE-QUAL;
         PASSPROC = A169:1;
   INDEX-NAME = INDX2;
     SEARCHTERMS = CNUM,CNUMBER,C#,C, R;
       SEARCHPROC = A30/$SQU/$CALL(CNUMFIX)/ A11:1,#;
       GOALREC-ELEM = C-NUMBER;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = INDX3;
     SEARCHTERMS = KEYWORD,K, SUBJECT,S, CATCHTITLE,CT, CALLNUM,CALL,CN;
       SEARCHPROC = "A43,';:''()&""$!/?,.~-',+/ A44,+,/A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR, THE,TO/A14:2,#";
       PASSPROC = "A167:2,PL,XPL,K,CT,CN/ A43,';:''()&""$!/?,.~-',+ / A44,+, / A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR,THE,TO";
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = INDX4;
     SEARCHTERMS = TITLE,T,TI, PROCEEDINGS,PROC,PBN, EDITOR,ED;
       SEARCHPROC = "A43,';:''()&""$!/?,.~-',+/ A44,+,/A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR, THE,TO/A14:2,#";
       PASSPROC = "A167:2,OT,T,PBN/ A43,';:''()&""$!/?,.~-',+/ A44,+,/ A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR,THE,TO";
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = PPIDX6;
     SEARCHTERMS = PPA;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = PPA;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = XDATE;
     SEARCHTERMS = DATE, BEGINNING-DATE, D;
       SEARCHPROC = $SEARCH.DATE.CC(50);
       GOALREC-ELEM = DATE-QUAL;
       PASSPROC = A169:1;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = XPLACE;
     SEARCHTERMS = PLACE, PL, P;
       SEARCHPROC = "A43,';:''()&""$!/?,.~-',+/ A44,+,/A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR, THE,TO/A14:2,#";
       PASSPROC = "A167:2,PL,XPL/ A43,';:''()&""$!/?,.~-',+ / A44,+, / A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR,THE,TO";
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = XSPON;
     SEARCHTERMS = SPONSOR, SPON, SP;
       SEARCHPROC = "A43,';:''()&""$!/?,.~-',+/ A44,+,/A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR, THE,TO/A14:2,#";
       PASSPROC = "A167:2,SPON/ A43,';:''()&""$!/?,.~-',+/ A44,+,/ A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR,THE,TO";
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = YPPF;
     SEARCHTERMS = PPF;
       SEARCHPROC = A14:1,#;
       PASSPROC = A167:1,PPF;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = YRNAME;
     SEARCHTERMS = SLAC-NAMES,SLAC,SSC-NAMES,SSCN;
       SEARCHPROC = A44,'''',/A43,-.,' '/A38/ A14:1,#;
       PASSPROC = A167:2,SPART,SS,SCOM/A44,'''',/A43,-.,' '/A38:1;
     SUB-INDEX = FN.STR;
       SEARCHTERMS = 0;
         PRIV-TAG = 1;
         PASSPROC = A165;
     PTR-GROUP = PTRG;
   INDEX-NAME = YSADMI;
     SEARCHTERMS = ADMIN, WHERE, WHAT, WH;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = ADMIN;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = YTKEY;
     SEARCHTERMS = KEY-WORDS, KW;
       SEARCHPROC = A14:1,#;
       PASSPROC = "A167:2,K,CT/ A43,';:''()&""$!/?,.~-',+/ A44,+,/ A45,/ A46,A,ACROSS,AN,AND, BY,FOR,FROM, IN,INTO,OF,ON,OR,THE,TO";
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0001;
     SEARCHTERMS = TRANSPARENCIES, TRANS;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = TRANS;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0002;
     SEARCHTERMS = DESY-CODE,DC;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = DESY-CODE;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0007;
     SEARCHTERMS = URL,SSC-CODE,SC;
       SEARCHPROC = A30/A11:1,#;
       PASSPROC = $PASS.ELEM('URL,NEWURL');
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0004;
     SEARCHTERMS = DATE-ADDED,DADD;
       SEARCHPROC = $SEARCH.DATE.CC(50);
       GOALREC-ELEM = DATE-ENTERED;
       PASSPROC = A169:1;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = YRDATE;
     SEARCHTERMS = DATE-UPDATED,DU;
       SEARCHPROC = $SEARCH.DATE.CC(50);
       GOALREC-ELEM = DATE-UPDATED;
       PASSPROC = A169:1;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0003;
     SEARCHTERMS = ACCT-ADDED,AA;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = ACCT-ADDED;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0006;
     SEARCHTERMS = ACCT-UPD,AU;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = ACCT-UPD;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0005;
     SEARCHTERMS = PD;
       SEARCHPROC = A30/A11:1,#;
       GOALREC-ELEM = PD;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = XDATE;
     SEARCHTERMS = WWWDATE,WD;
       SEARCHPROC = $CALL(MAKEDATE)/$REPARSE;
       GOALREC-ELEM = DATE-QUAL;
       PASSPROC = $NOPASS;
     PTR-GROUP = PTRG;
   INDEX-NAME = Z0008;
     SEARCHTERMS = SOURCE, S, SO;
       SEARCHPROC = $WORD;
       PASSPROC = $PASS.ELEM('SOURCE',2)/ $WORD;
       INDEXINFO;
         SOURCE = SOURCE;
         VALUE-TYPE = WORD;
     PTR-GROUP = PTRG;
     IMMEDIATE;
   INDEX-NAME = Z0009;
     SEARCHTERMS = CID,CONF-ID;
       SEARCHPROC = $SQU/ A11:1,#;
       GOALREC-ELEM = CNUM;
       PASSPROC = $PASS/$CHANGE.LIST('''/'',,-,,.,');
     PTR-GROUP = PTRG;
     IMMEDIATE;
 SUBFILE-NAME = CONFERENCE MASTER LIST;
   EXP = For explanation, EXPLAIN CONF;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LI....;
       FORMAT = PUBLIC;
       NOSEARCH = 1;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 3;
       NOSEARCH = 1;
 SUBFILE-NAME = CONFERENCE;
   EXP = For explanation, EXPLAIN CONF;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LI....;
       FORMAT = PUBLIC;
       NOSEARCH = 1;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 3;
       NOSEARCH = 1;
 SUBFILE-NAME = CONFERENCES;
   EXP = For explanation, EXPLAIN CONF;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LI....;
       FORMAT = PUBLIC;
       NOSEARCH = 1;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 3;
       NOSEARCH = 1;
 SUBFILE-NAME = CONF;
   EXP = The CONF (or CONFERENCE) file contains information about past and;
   EXP = future conferences on ACCELERATORS and HIGH-ENERGY PHYSICS.;
   EXP;
   EXP = It may be searched by DATE, TITLE, and PLACE;
   EXP;
   EXP = To find ALL conferences held in 1998, for instance:;
   EXP;
   EXP = . FIN DATE 1998;
   EXP = . TYPE;
   EXP;
   EXP = To find all conferences in Paris in 1994:;
   EXP;
   EXP = . FIN PL PARIS AND D 1994;
   EXP;
   EXP = To find all conferences about HADRONS held in Stanford after 1981:;
   EXP;
   EXP = . FIN T HADRON# AND PL STANFORD;
   EXP = . AND D AFTER 1981;
   EXP;
   EXP = The truncation symbol (#) will give you all words beginning;
   EXP = with that string of letters: FIN TI HADRON# will yield all;
   EXP = conferences with title words HADRON, HADRONS, HADRONIC, etc.;
   EXP;
   EXP = A brochure about the CONFERENCE file is available in the;
   EXP = SLAC Library, Central Lab, Room Y215 (x2411);
   EXP;
   EXP = If you are a conference organizer, be sure to send information;
   EXP = to: SLAC Library, Attn: Conference Previews, P.O. Box 4349, Stanford, CA 94305;
   EXP = or email to conf@slac.stanford.edu (include a URL if you have one);
   EXP = If your conference is of interest to the HEP community, it will then be;
   EXP = Entered in the CONF database and announced on SLAC's WWW server:;
   EXP = URL: http://www.slac.stanford.edu/highlighted.html;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LI....;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 10;
       NOSEARCH = 1;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LW.WEB;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 3, 8;
       NOSEARCH = 1;
     COMMENTS = Web account, doesn't allow clear format, secure-switch 8 and logging is off;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       FORMAT = PUBLIC;
       SECURE-SWITCHES = 10;
       NOSEARCH = 1;
 SUBFILE-NAME = CONFX;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       SECURE-SWITCHES = 3;
       NOSEARCH = 1;
     COMMENTS = Use this for subgoal access via format which isn't possible in 'CONF' because of SECURE-SWITCH 8, lxa, 1/99;
 SUBFILE-NAME = PRISM CONF;
   GOAL-RECORD = MCONF;
     ACCOUNTS = LI....;
       NOSEARCH = 1;
       PROGRAM = PRISM;
 SUBFILE-NAME = FOLIO CONF;
   GOAL-RECORD = MCONF;
     ACCOUNTS = PUBLIC;
       FORMAT = FOLIO DISPLAY;
       SECURE-SWITCHES = 3;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF BROWSE CNUM;
   GOAL-RECORD = INDX2;
     ACCOUNTS = PUBLIC;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF BROWSE TITLE;
   GOAL-RECORD = INDX4;
     ACCOUNTS = PUBLIC;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF BROWSE PLACE;
   GOAL-RECORD = XPLACE;
     ACCOUNTS = PUBLIC;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF BROWSE DATE;
   GOAL-RECORD = XDATE;
     ACCOUNTS = PUBLIC;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF BROWSE DADD;
   GOAL-RECORD = Z0004;
     ACCOUNTS = PUBLIC;
       NOSEARCH = 1;
       PROGRAM = FOLIO;
 SUBFILE-NAME = CONF-CNUM;
   GOAL-RECORD = INDX2;
     ACCOUNTS = PUBLIC;
       SECURE-SWITCHES = 3;
 SUBFILE-NAME = CONF-PLACE;
   GOAL-RECORD = XPLACE;
     ACCOUNTS = LI....;
 SUBFILE-NAME = CONF-KEYWORD;
   GOAL-RECORD = INDX3;
     ACCOUNTS = LI....;
 SUBFILE-NAME = CONF-TITLE;
   GOAL-RECORD = INDX4;
     ACCOUNTS = LI....;
 SUBFILE-NAME = CONF-PPA;
   GOAL-RECORD = PPIDX6;
     ACCOUNTS = LI....;
 SUBFILE-NAME = CONF-ID;
   GOAL-RECORD = Z0009;
     ACCOUNTS = LI...., LW.WEB, LW.WWW;
 FILE-ACCESS = MASTER;
   ACCOUNTS = LI.CON, LI.LIB, LI.GMR, GG.SPI, LI.TCB, LI.SUL;
;