// JOB DMSBUILD,,1B800,1B800     ALLOCATE AND BUILD A DMS/90 DATABASE   BLD00000
// DVC 20   // LFD PRNTR                                                BLD00010
// DVC 20   // LFD PRNTR2                                               BLD00020
// DVC 20   // LFD PRNTR3                                               BLD00030
// DVC 20   // LFD SYSLST                                               BLD00040
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','BEGIN       '   BLD00050
// OPR 'ALLOCATE DMS/90 VSB WORK LIBRARY...'                            BLD00060
// DVC RES            // LBL 'DMS90 VSB WORK LIBRARY'   // LFD SCRLIB   BLD00070
// SCR SCRLIB                                                           BLD00080
// DVC RES                                                              BLD00090
// EXT ST,C,1,CYL,1                                                     BLD00100
// LBL 'DMS90 VSB WORK LIBRARY'   // LFD WORKLIB                        BLD00110
// OPR 'ALLOCATE DMS/90 VSB DATABASE...'                                BLD00120
// DVC RES   // LBL 'DMS90 VSB DATABASE'   // LFD SCRFILE               BLD00130
// SCR SCRFILE                                                          BLD00140
// DVC RES                                                              BLD00150
// EXT DA,CF,0,BLK,(256,501)                                            BLD00160
// LBL 'DMS90 VSB DATABASE'   // LFD DBMFILE,,INIT                      BLD00170
// OPR 'INITIALIZE DATABASE...'                                         BLD00180
// EXEC DBINT                                                           BLD00190
/$                                                                      BLD00200
 TOTAL 501 256 4                                                        BLD00210
/*                                                                      BLD00220
// DVC RES        // LBL 'DMS90 VSB DATABASE' // LFD DBMFILE,,ACCEPT    BLD00230
// OPR 'COMPILE SCHEMA...'                                              BLD00240
// EXEC SCHMAP                                                          BLD00250
/$                                                                      BLD00260
000100 SCHEMA DESCRIPTION.                                              BLD00270
000200 SCHEMA NAME VSBSCHEM.                                            BLD00280
000300 AUTHOR. W KRANTZ.                                                BLD00290
000400 DATE. 10/11/74.                                                  BLD00300
000500 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY                     BLD00310
000600               SPERRY UNIVAC                                      BLD00320
000700               P O BOX 500                                        BLD00330
000800               BLUE BELL, PA 19422.                               BLD00340
000900 REMARKS. MINIMUM SCHEMA FOR VSB (VERIFICATION OF SYSTEM BUILD)   BLD00350
001000          SEQUENCE.                                               BLD00360
001300 AREA DESCRIPTION.                                                BLD00370
001400     AREA NAME THE-MINIMUM-AREA RANGE 500 500.                    BLD00380
001500 RECORD DESCRIPTION.                                              BLD00390
001600     RECORD NAME A-MINIMUM-RECORD.                                BLD00400
001700         RECORD ID 100.                                           BLD00410
001800         LOCATION MODE DIRECT.                                    BLD00420
001900         WITHIN THE-MINIMUM-AREA.                                 BLD00430
002000             02 F PIC X.                                          BLD00440
002100     RECORD NAME OWNR.                                            BLD00450
002200         RECORD ID 9999.                                          BLD00460
002300         LOCATION MODE CALC USING A-CALC-KEY-FIELD                BLD00470
002400             DUPLICATES NOT.                                      BLD00480
002500         WITHIN THE-MINIMUM-AREA.                                 BLD00490
002600             02 A-CALC-KEY-FIELD USAGE COMP-2.                    BLD00500
002700     RECORD NAME M.                                               BLD00510
002800         RECORD ID 102.                                           BLD00520
002900         LOCATION MODE CALC USING SORT-FIELD                      BLD00530
003000             DUPLICATES FIRST.                                    BLD00540
003100         WITHIN THE-MINIMUM-AREA.                                 BLD00550
003200             49 SORT-FIELD USAGE COMP-1.                          BLD00560
003300 SET DESCRIPTION.                                                 BLD00570
003400     SET NAME THE-RELATIONSHIP.                                   BLD00580
003500         ORDER SORTED.                                            BLD00590
003600         MODE CHAIN LINKED PRIOR.                                 BLD00600
003700         OWNER OWNR                                               BLD00610
003800             NEXT POSITION 1                                      BLD00620
003900             PRIOR POSITION 2.                                    BLD00630
004000         MEMBER M                                                 BLD00640
004100             OPTIONAL MANUAL LINKED OWNER                         BLD00650
004200             NEXT POSITION 1                                      BLD00660
004300             PRIOR POSITION 2                                     BLD00670
004400             OWNER POSITION 3                                     BLD00680
004500             ASCENDING SORT-FIELD DUPLICATES LAST.                BLD00690
/*                                                                      BLD00700
// OPR 'INITIALIZE SCHEMA...'                                           BLD00710
// EXEC DBSNT                                                           BLD00720
// PARAM IN=XP7ERR/$Y$SRC                                               BLD00730
// OPR 'COMPILE SUB-SCHEMA...'                                          BLD00740
// EXEC SUBSP                                                           BLD00750
// PARAM OUT=INTRSUB/WORKLIB                                            BLD00760
/$                                                                      BLD00770
000100 LIST NETWORK                                                     BLD00780
000200 SUBSCHEMA IDENTIFICATION DIVISION.                               BLD00790
000300 SUBSCHEMA NAME IS VSBSUBSC OF SCHEMA NAME VSBSCHEM.              BLD00800
000400 AUTHOR. W KRANTZ.                                                BLD00810
000500 DATE. 10/11/74.                                                  BLD00820
000600 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY                     BLD00830
000700               SPERRY UNIVAC                                      BLD00840
000800               P O BOX 500                                        BLD00850
000900               BLUE BELL, PA 19422.                               BLD00860
001000 REMARKS. MINIMUM SUBSCHEMA FOR VSB                               BLD00870
001100          (VERIFICATION OF SYSTEM BUILD) SEQUENCE.                BLD00880
001200 SUBSCHEMA DATA DIVISION.                                         BLD00890
001500 AREA SECTION.                                                    BLD00900
001600     COPY THE-MINIMUM-AREA AREA.                                  BLD00910
001700 RECORD SECTION.                                                  BLD00920
001800     COPY A-MINIMUM-RECORD RECORD.                                BLD00930
001900     COPY OWNR RECORD.                                            BLD00940
002000     COPY M RECORD.                                               BLD00950
002100 SET SECTION.                                                     BLD00960
002200     COPY THE-RELATIONSHIP SET.                                   BLD00970
/*                                                                      BLD00980
// OPR 'ASSEMBLE SUB-SCHEMA...'                                         BLD00990
// WORK1                                                                BLD01000
// WORK2                                                                BLD01010
// EXEC ASM                                                             BLD01020
// PARAM IN=INTRSUB/WORKLIB                                             BLD01030
// PARAM LST=NC                                                         BLD01040
// PARAM OUT=WORKLIB                                                    BLD01050
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','END         '   BLD01060
/&                                                                      BLD01070
