home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / purpt / y2kx2cd.cmd < prev    next >
OS/2 REXX Batch file  |  1997-03-13  |  5KB  |  100 lines
  1. /**********************************************************************/
  2. /* This command file creates a DB2 database and DB2 tables that       */
  3. /* are used by the Y2KX2PG program.                                   */
  4. /*                                                                    */
  5. /**********************************************************************/
  6.  
  7. /* Set drive used for the database.                                   */
  8. 'set sstdrv=F:'
  9.  
  10. /**********************************************************************/
  11. /* Start the DB manager.                                              */
  12. /**********************************************************************/
  13. 'startdbm'
  14.  
  15. /**********************************************************************/
  16. /* Drop the PURPT database (if it exists).                            */
  17. /**********************************************************************/
  18. 'db2 -v DROP DATABASE PURPT'
  19.  
  20. /**********************************************************************/
  21. /* Create the PURPT database.                                         */
  22. /**********************************************************************/
  23. 'db2 -v CREATE DATABASE PURPT on %sstdrv% authentication client'
  24.  
  25. /**********************************************************************/
  26. /* Connect to the PURPT database.                                     */
  27. /**********************************************************************/
  28. 'db2 -v CONNECT TO PURPT'
  29.  
  30. /**********************************************************************/
  31. /* Delete the tables (if they exist).                                 */
  32. /**********************************************************************/
  33. 'db2 -v DROP TABLE SRCTBL'
  34. 'db2 -v DROP TABLE DITEMTBL'
  35. 'db2 -v DROP TABLE RSNTBL'
  36.  
  37. /**********************************************************************/
  38. /* Create the source table.                                           */
  39. /*  - PROGNAME : The program name.                                    */
  40. /*  - SRCFILE  : Source file name. Could be the name of a COPY        */
  41. /*               file used by the program.                            */
  42. /**********************************************************************/
  43. 'db2 -v "CREATE TABLE SRCTBL(',
  44.           'PROGNAME CHAR(30)  NOT NULL,',
  45.           'SRCNAME  CHAR(56)  NOT NULL,',
  46.           'PRIMARY KEY(PROGNAME,SRCNAME))" '
  47.  
  48.  
  49. /**********************************************************************/
  50. /* Create the item table.                                             */
  51. /*  - ITEMNAME : The item name.                                       */
  52. /*  - ITEMQID  : A unique date/time stamp with a suffix that uniquely */
  53. /*               identifies the data item.                            */
  54. /*  - PROGNAME : Program name where item was defined.                 */
  55. /*  - SRCNAME  : Source file name where item was defined.             */
  56. /*  - ITEMQTYP : Indicates if item is qualified.                      */
  57. /*  - ITEMDLIN : Line number where the item was defined.              */
  58. /*  - ITEMQNAM : Fully qualified name.                                */
  59. /**********************************************************************/
  60. 'db2 -v "CREATE TABLE DITEMTBL(',
  61.           'ITEMNAME CHAR(30)  NOT NULL,',
  62.           'ITEMQID  CHAR(18)  NOT NULL,',
  63.           'PROGNAME CHAR(30)  NOT NULL,',
  64.           'SRCNAME  CHAR(56)  NOT NULL,',
  65.           'ITEMQTYP CHAR(01)  NOT NULL,',
  66.           'ITEMDLIN CHAR(06)  NOT NULL,',
  67.           'ITEMQNAM VARCHAR(1500)     ,',
  68.           'PRIMARY KEY(ITEMNAME,ITEMQID,PROGNAME,SRCNAME),',
  69.           'FOREIGN KEY(PROGNAME,SRCNAME) REFERENCES SRCTBL)"'
  70.  
  71.  
  72. /**********************************************************************/
  73. /* Create the reason table.                                           */
  74. /*  - ITEMNAME : The item name.                                       */
  75. /*  - ITEMQID  : A unique date/time stamp with a suffix that uniquely */
  76. /*               identifies the data item.                            */
  77. /*  - PROGNAME : Program name where item was defined.                 */
  78. /*  - SRCNAME  : Source file name where item was defined.             */
  79. /*  - CAUSE    : The reason why the item was choosen.                 */
  80. /**********************************************************************/
  81. 'db2 -v "CREATE TABLE RSNTBL(          ',
  82.           'ITEMNAME CHAR(30)  NOT NULL,',
  83.           'ITEMQID  CHAR(18)  NOT NULL,',
  84.           'PROGNAME CHAR(30)  NOT NULL,',
  85.           'SRCNAME  CHAR(56)  NOT NULL,',
  86.           'CAUSE    CHAR(11)  NOT NULL,',
  87.           'PRIMARY KEY(ITEMNAME,ITEMQID,PROGNAME,SRCNAME,',
  88.                       'CAUSE),',
  89.           'FOREIGN KEY(ITEMNAME,ITEMQID,PROGNAME,SRCNAME) ',
  90.                   'REFERENCES DITEMTBL)"'
  91.  
  92.  
  93. 'db2 -v COMMIT WORK'
  94.  
  95.  
  96. 'set db2dbdft=PURPT'
  97.  
  98. 'db2 -v TERMINATE'
  99.  
  100.