FTN PROGRAM DBBLD(4,90),92069-16001 REV.1912 781120 C C C************************************************************* C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS * C RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C************************************************************* C C C SOURCE: 92069-18002 C RELOC: 92069-16001 C C C************************************************************ C C*********************************************************************** C DBBLD LOADS A DATA BASE FROM CARDS,MAG TAPE,PAPER TAPE, OR DISK FILE C CALLING SEQUENCE C :RU,DBBLD,INPUT,LIST [,OPTIONS LIST] C C WHERE C C INPUT C IS THE LU, OR NAMR OF THE INPUT FILE, DEFAULT IS LU 1. C C LIST C IS THE LU OR FMP NAMR OF THE LIST UNIT, DEFAULT IS LU 6. C C OPTIONS LIST C IS A LIST OF OPTIONS SEPARATED BY COMMAS. THE OPTIONS C MAY BE ENTERED IN ANY ORDER. THE OPTION DESCRIPTION C IS LISTED BELOW, C C ADD C REQUESTS THE ERROR FREE ENTRIES TO BE ADDED TO THE C DATA BASE. WHEN THIS OPTION IS NOT SPECIFIED ALL C ENTRIED ARE CHECKED FOR ERRORS, BUT ARE NOT PLACED C IN THE DATA BASE. C C ERRHLT C REQUESTS THE PROCESSING TO STOP WHEN AN ERROR IS C DISCOVERED. WHEN THIS OPTION IS NOT SELECTED, C ERRORS ARE REPORTED AND PROCESSING CONTINUES, UNLESS C A FATAL ERROR IS DISCOVERED. C C NOLIST C REQUESTS THE OUTPUT LISTING TO BE SUPRESSED C WHEN THIS OPTION IS NOT SELECTED, ONLY ERRORS C ARE LISTED ALONG WITH THE OFFENDING INPUT. C C N C IS AN INTEGER FROM 1 TO 512 INCLUSIVELY WHICH C SPECIFIES THE INPUT AND PRINT WIDTH. WHEN N IS C NOT SPECIFIED, THE DEFAULT INPUT AND PRINT WIDTH C IS 72. C C C C C C EACH DATA SET MUST BE PROCEEDED WITH THIS CARD: C $SET: C WHERE $ IS IN COLUMN1 AND THE NAME OF THE DATA SET C THE DATA BASE MUST BE FOLLOWED BY THIS CARD: C $END C WHERE $ IS IN COLUMN 1 C THE DATA BASE MUST BE PRECEEDED BY THIS CARD: C :; C OR THIS CARD: C ::; C OR THIS CARD: C ::,; C EACH $SET CARD IS FOLLOWED BY THE RECORDS TO BE PUT IN THAT SET C EACH RECORD MUST START ON A NEW CARD C X-TYPE ITEMS MUST BE CONTAINED IN THE EXACT NUMBER OF COLUMNS C SPECIFIED IN THE SCHEMA;ITEMS ARE CONCATONATED C I-TYPE ITEMS MUST BE CONTAINED IN 6 COLUMNS C R-TYPE ITEMS MUST BE CONTAINED IN 13 COLUMNS C C IF AN ITEM FIELD WERE TO RUN PAST THE LAST SPECIFIED COLUMN, C IT MUST INSTEAD START ON THE NEXT RECORD C C IF A X-TYPE ITEM IS SPECIFIED MORE THAN THE PRINT LIMIT IN THE C SCHEMA IT MUST START ON A NEW CARD, AND CONTINUE ON THE C THE NEXT CARD,(AND THE NEXT). C C NULL ITEMS MUST BE REPRESENTED AS ALL BLANKS C*********************************************************************** C C INTEGER BBLD(3) INTEGER SEGM(9) C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ AUGUST 10,1978 $$$ INTEGER ERROR,P,PLEN,CARD,LOG,COL INTEGER ELECT,ITEM,LENTH,TYPE INTEGER IDCB,LDCB,LIST,INPUT,PRTLM,CHECK,LST INTEGER IBASE INTEGER SETERR INTEGER TRUE,FALSE,SEMI,COMMA INTEGER L,CHAR INTEGER SETNO INTEGER QTFLAG C COMMON ERROR,P(40),PLEN,CARD(256),LOG,COL COMMON ELECT(129),ITEM(129),LENTH(129),TYPE(129) COMMON IDCB(144),LDCB(144),LIST,INPUT,PRTLM,CHECK,LST COMMON IBASE(10) COMMON SETERR COMMON L,CHAR COMMON SETNO COMMON QTFLAG COMMON/CONST/TRUE,FALSE,SEMI,COMMA C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ OCTOBER 16,1978 $$ DATA SEGM/2HSE,2HGM,2HEN,2HT ,2HNO,2HT ,2HFO,2HUN,2HD / DATA BBLD/2HBB,2HLD,2H2 / C C C CALL FIRST SEGMENT OF DATA BASE BUILD C CALL GETST(P,40,PLEN) PLEN = PLEN*2 C C DEFAULT LIST TO LOG C LIST = 1 C C LOAD AND EXECUTE THE NEXT SEGMENT C CALL SEGLD(BBLD,IERR) CALL OUTLN(SEGM,9) CALL OUTLN(BBLD,3) STOP C C MAKE A CALL TO DBBUF SO THAT A COPY OF IMAGE'S MEMORY C POINTERS WILL BE LOADED WITH THE MAIN C 7777 CALL DBBUF END END$