$JOB/PAS:BATPAS USER TESTDIST $SET DEFAULT [200,200] $! $! Batch job to test RPTTAB distribution. Lines 1 and 2 of this file must $! be edited to insert the correct batch password, user name, and default UIC. $! $! If your system does not have batch, use this file as a guide to testing the $! table programs manually. Each line beginning with $ is a PDS command; $! each line not beginning with $ is a line of terminal input to one of the $! tasks. Be sure to count blank lines correctly and type for each one. $! If a task has not terminated when you reach the next $ line, type . $! $! If you use MCR (RSX11M or multi-user IAS), replace COMPARE, PRINT, $! LIBRARIAN, and DELETE by the corresponding CMP, QUE, LBR and PIP commands. $! Lines beginning with $! are omitted or replaced by lines with $;). $! $! Test DEFTAB, the define table program. $! $DFT TABPROG TABLE PROGRAMS 1 No. Task name 7 Disk blocks 3 Shared core (K) 4 Unshared core (K) 4 Function 55 $! $! Test EDITAB, the table editor. $! $EDT TABPROG DEFTAB 47 4.3 6.9 Define or modify the structure of a table. EDITAB 35 2.9 5.0 Enter or modify data in a table. LISTAB 32 2.2 5.0 List or print part or all of a table. MERGTAB 26 1.5 4.4 Merge two tables of the same structure. RPTTAB 101 7.4 9.7 Generate reports, using and modifying data in tables. SUBTAB 24 1.3 3.9 Extract part of a table into a new table. DMPTAB 28 1.7 4.5 Convert between tables and sequential files. Totals 293 21.3 39.4 (All tasks share 12K words of resident library code.) $! $! Test LISTAB, the table lister. $! $LST TABPROG TABPROG $! ********************************** $! * Listings should compare equal. * $! ********************************** $COMPARE/OUT:TI: TABPROG.MAS TABPROG.LST;1 $PRINT TABPROG.MAS $! $! Test SUBTAB, the subtable extractor. $! $SBT TABPROG SUB 6 YES $LST SUB SUB $! ********************************** $! * Listings should compare equal. * $! ********************************** $COMPARE/OUT:TI: SUB.MAS SUB.LST;1 $! $! Test MERGTAB, the table merger. $! $MGT TABPROG SUB 0 YES $LST TABPROG TABPROG $! ********************************** $! * Listings should compare equal. * $! ********************************** $COMPARE/OUT:TI: TABPROG.MAS TABPROG.LST;2 $! $! Test DMPTAB, the table-to-sequential converter. $! $DMT TABPROG $DMT/RESTORE NEWTAB TABPROG $DELETE TABPROG.DMP;1 $LST NEWTAB NEWTAB $! ********************************** $! * Listings should compare equal. * $! ********************************** $COMPARE/OUT:TI: TABPROG.MAS NEWTAB.LST;1 $! $! Test RPTTAB, the table manipulator and report generator. $! $! First build a universal library containing the test input. $! $! PDS bug! /TYPE:UNIVERSAL is not legal $!LIBRARIAN CREATE/SIZE:50/MNT:16/TYPE:UNIVERSAL/FILETYPE:RPI TESTLIB.RLB $MCR LBR TESTLIB.RLB/CR:50::16:UNI:RPI $LIBRARIAN INSERT TESTLIB.RLB TEST2 TEST3 TEST4 TEST5 TEST6 $LIBRARIAN INSERT TESTLIB.RLB TEST7 TEST8 TEST9 TEST10 $! $! There should be one error message in the output. $! $RPT TESTLIB YES NO 2 $! The RPTTAB test invoked LISTAB as a subtask to generate one table $! listing, and generated another itself. $! ********************************** $! * Listings should compare equal. * $! ********************************** $COMPARE/OUT:TI: TABPROG.MAS TABPROG.LST;3 $COMPARE/OUT:TI: TABPROG.MAS TABPROG.LST;4 $CLEANUP: $DELETE *.LST;*,NEWTAB.*;*,SUB.*;* $EOJ