FTN,L,C 
      PROGRAM DBDS(3,90)
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-19002
C     SOURCE:    92063-18002
C     RELOC:     92063-16002
C 
C 
C************************************************************ 
C 
C***********************************************************************
C DATA BASE DEFINITION SYSTEM FOR IMAGE/1000
C BUILDS THE ROOT FILE AND DATA SETS FOR IMAGE/1000 
C CALLING SEQUENCE
C  :RU,DBDS,INPUT,LIST
C 
C         OR
C 
C  :RU,DBDS,FI,LE,NM,LIST,SC
C 
C    WHERE THE DEFAULTS ARE:
C 
C        LIST = 6 
C        INPUT = 5
C        SECURITY CODE = 0
C 
C    FILENM IS THE NAME OF THE FILE CONTAINING THE SCHEMA 
C 
C 
C***********************************************************************
C 
C MAIN PROGRAM
C 
      INTEGER CARTN,CRDPR,CARD,SYSTY,LIST,INPT,TRAIL,PRE,CHAR,FNAM, 
     1CODE,ERROR,TYPE,RESNO,RFILE,FWAM,LWAM,SMAX,STYPE,FLDCN,ENLTH, 
     2CAPTA,BUFF,PTHCT,CURPA,PTHPT,RECDF,CRIT,PTHTA 
      DIMENSION ITRANS(5) 
      DIMENSION INAM1(3)
      COMMON SYSTY,LIST,INPT,LINCT,CARTN,CRDPR,CARD(40),TRAIL,PRE,CHAR, 
     1BUFF(144),INFO(5),FNAM(3),CODE,ERROR,LGLOB,IGLOB(10),TYPE,
     2RESNO,NORES,LFLAG,RFILE(3),LROOT,FWAM,LWAM,IMAX,MAXLN,SMAX, 
     3ISPEC(128),IPACK(50), 
     4NATAB(150),STYPE(50),FLDCN(50),ENLTH(50),MEDIA(50),CAPTA(50), 
     5PTHCT(50),CURPA(50),PTHPT(50),KEYTA(50),RECDF(255),CRIT(50),
     6PTHTA(500),NPACK,CPACK(50),NSETS(50),KPACK(50)
      DATA IRCD1,INAM1/8,2HIN,2HIT,2H  /
      CALL RMPAR(ITRANS)
      INPT=ITRANS(1)
      LIST=ITRANS(2)
      SYSTY=ITRANS(3) 
      PRE=ITRANS(4) 
      CARTN=ITRANS(5) 
      CALL EXEC(IRCD1,INAM1)
      END 
      END$
                                                                                                                                                                                                                                                  