// JOB DMSEXEC,,12000,12000    EXECUTE THE DMS/90 RUN-UNIT              EXC00000
// DVC 20   // LFD PRNTR                                                EXC00010
// DVC 20   // LFD PRNTR3                                               EXC00020
// DVC 20   // LFD SYSLST                                               EXC00030
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','BEGIN       '   EXC00040
// DVC RES            // LBL 'DMS90 VSB WORK LIBRARY'   // LFD WORKLIB  EXC00050
// DVC RES        // LBL 'DMS90 VSB DATABASE' // LFD DBMFILE,,ACCEPT    EXC00060
// OPR 'PREP SCRATCH TAPE FOR DMS/90 VSB...'                            EXC00070
// DVC 90 // VOL VSBDMS(PREP) // LBL 'DMS90 JOURNAL TAP' // LFD TAPE1   EXC00080
// EXEC TPREP                                                           EXC00090
// OPR 'INITIALIZE USER AREA OF DATABASE...'                            EXC00100
// EXEC DBINT                                                           EXC00110
/$                                                                      EXC00120
 RANGE 500 500                                                          EXC00130
/*                                                                      EXC00140
// OPR 'EXECUTE DML PROGRAM...'                                         EXC00150
// DVC 90 // VOL VSBDMS // LBL 'DMS90 JOURNAL TAP' // LFD JTDTF         EXC00160
// EXEC VSBRUN,WORKLIB                                                  EXC00170
// OPR 'DATABASE UTILIZATION REPORT (NO TFILE ASSIGNED)...'             EXC00180
// EXEC DBDUM                                                           EXC00190
/$                                                                      EXC00200
 TOTAL YES                                                              EXC00210
/*                                                                      EXC00220
// OPR 'PAGE 500 AS ORIGINALLY CREATED...'                              EXC00230
// EXEC DBPAG                                                           EXC00240
/$                                                                      EXC00250
 B 500,500                                                              EXC00260
/*                                                                      EXC00270
// OPR 'ROLL DATABASE BACKWARD...'                                      EXC00280
// EXEC DBBAR                                                           EXC00290
/$                                                                      EXC00300
 B R A                                                                  EXC00310
/*                                                                      EXC00320
// OPR 'PAGE 500 SHOULD BE EMPTY...'                                    EXC00330
// EXEC DBPAG                                                           EXC00340
/$                                                                      EXC00350
 H 500                                                                  EXC00360
/*                                                                      EXC00370
// OPR 'ROLL DATABASE FORWARD...'                                       EXC00380
// EXEC DBFOR                                                           EXC00390
/$                                                                      EXC00400
 ALL,BOTH,RESTORE                                                       EXC00410
/*                                                                      EXC00420
// OPR 'PAGE 500 SHOULD BE AS CREATED BY PROGRAM...'                    EXC00430
// EXEC DBPAG                                                           EXC00440
/$                                                                      EXC00450
 D 500                                                                  EXC00460
/*                                                                      EXC00470
// OPR 'DATABASE SECURITY DUMP...'                                      EXC00480
// DVC 90 // VOL VSBDMS // LBL 'DMS90 DUMP TAPE' // LFD TFILE           EXC00490
// EXEC DBDUM                                                           EXC00500
/$                                                                      EXC00510
 TOTAL                                                                  EXC00520
/*                                                                      EXC00530
// OPR 'VSBDMS TAPE SHOULD HAVE BEEN UNLOADED BY DBDUM.'                EXC00540
// PAUSE 'PLEASE READY VSBDMS TAPE.'                                    EXC00550
// OPR 'INITIALIZE USER PAGE 500...'                                    EXC00560
// EXEC DBINT                                                           EXC00570
/$                                                                      EXC00580
 RANGE 500 500                                                          EXC00590
/*                                                                      EXC00600
// OPR 'DATABASE SECURITY RESTORE...'                                   EXC00610
// EXEC DBRES                                                           EXC00620
/$                                                                      EXC00630
 TOTAL                                                                  EXC00640
/*                                                                      EXC00650
// OPR 'VSBDMS TAPE SHOULD HAVE BEEN UNLOADED BY DBRES.'                EXC00660
// OPR 'PAGE 500 SHOULD BE AS CREATED BY PROGRAM...'                    EXC00670
// EXEC DBPAG                                                           EXC00680
/$                                                                      EXC00690
 D 500                                                                  EXC00700
/*                                                                      EXC00710
// WRTBIG 'JOB$        ','DAT$        ','TIM$        ','END         '   EXC00720
/&                                                                      EXC00730
