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:<SET NAME> 
C         WHERE $ IS IN COLUMN1 AND <SET NAME> 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         <DATA BASE NAME>,<SECURITY CODE>; 
C         OR THIS CARD: 
C         <DATA BASE NAME>,<SECURITY CODE>,<LEVEL WORD>;
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$
                                                                                                                                                                  