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$