FTN,L,C PROGRAM DBBLD(3,90),92063-16003 REV.1913 790126 C C C************************************************************* C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 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 LISTING: 92063-19003 C SOURCE: 92063-18003 C RELOC: 92063-16003 C C C CHANGE REV.1913 TO ADD OPFLG TO COMMON. 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,P1,P2,P3,P4,P5 C WHERE C P1=THE LOGICAL UNIT NUMBER OF THE CONSOLE, DEFAULT=1 C P2=THE LOGICAL UNIT NUMBER OF THE LIST DEVICE, DEFAULT=6 C P3=1 FOR ONLY AN ERROR CHECK C --PROCESS ALL DATA C =3 TO STORE DATE IN A DATA BASE C --PROCESS ALL DATA C =11 FOR ONLY AN ERROR CHECK - STOP PROCESSING ON C ENCOUNTERING FIRST ERROR C =13 STORE DATA ON A DATA BASE - STOP PROCESSING C ON ENCOUNTERING AN ERROR C DEFAULT FOR P3 = 3 C P4=0 IF THE USER WISHED A LISTING C =1 IF HE DOES NOT WANT A LISTING C DEFAULT FOR P4 = 0 C P5=THE # OF COLUMNS USED FOR DATA ON THE INPUT RECORD C (USED WHEN INPUT LU IS NOT DISK) DEFAULT=72 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 EACH $SET CARD IS FOLLOWED BY THE RECORDS TO BE PUT IN THAT SET C EACH RECORD MUST START ON A NEW CARD C U-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 RIGHT-JUSTIFIED IN 5 COLUMNS C R-TYPE ITEMS MUST BE RIGHT-JUSTIFIED IN 10 COLUMNS AS INTEGERS C RECORDS ARE PUT IN P5 COLUMNS; REMAINING COLS CAN BE C USED FOR SEQUENCING C IF AN ITEM WERE TO RUN PAST THE LAST SPECIFIED COLUMN, C IT MUST INSTEAD START ON THE NEXT RECORD C IF A U-TYPE ITEM IS SPECIFIED MORE THAN P5 COLS IN THE SCHEMA, C IT MUST START ON A NEW CARD, BE WRITTEN THRU P5 COLS C AND BE CONTINUED ON THE NEXT CARD,(AND THE NEXT). C NULL ITEMS MUST BE REPRESENTED AS ALL BLANKS C*********************************************************************** C C INTEGER ERROR,P,CARD,CONWD,COL,BUFPR,TRAIL,BUFF,FNAM,SECT INTEGER FWAM,LWAM,CHAR,BATCH,SYSTY,SCODE,BPUT INTEGER CHAR,PRE INTEGER BBLD INTEGER CONRD INTEGER QTFLG,OPFLG COMMON FWAM,LWAM,ERROR,P(5),CARD(255),LOG,CONWD,COL,BUFPR COMMON TRAIL,BUFF(144) COMMON PRE,FNAM(3),SECT COMMON L,CHAR COMMON QTFLG,OPFLG DIMENSION BBLD(3) DATA BBLD/2HBB,2HLD,2H / DATA I8/8/ C C C CALL FIRST SEGMENT OF DATA BASE BUILD C CALL RMPAR(P) CALL EXEC(I8,BBLD) CALL AIDCB END END$