home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / netviwdm.zip / RFGDBASC.BND (.txt) < prev    next >
DB2 Bind  |  1995-04-19  |  8KB  |  109 lines
  1. RFGDBASCcAq8PbCLNULLID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. CONNECT TO :dbname IN SHARE MODE
  6. CONNECT RESET
  7. COMMIT WORK
  8. ROLLBACK WORK
  9. DECLARE C1 CURSOR FOR        SELECT VARIABLE, VARTYPE, VALUE        FROM RFGTABLE.GROUPVALUES        WHERE CONFPG = :ConfPG AND PRODUCT = :Product
  10. OPEN C1
  11. FETCH C1 INTO        :Variable, :VarType, :Value
  12. INSERT INTO RFGTABLE.GROUPVALUES        VALUES (:ConfPG, :Product, :Variable, :VarType, :Value)
  13. UPDATE RFGTABLE.GROUPVALUES              SET VARTYPE = :VarType, VALUE = :Value              WHERE CONFPG = :ConfPG AND PRODUCT = :Product                    AND VARIABLE = :Variable
  14. CLOSE C1
  15. DECLARE C2 CURSOR FOR        SELECT VARIABLE, VARTYPE, VALUE        FROM RFGTABLE.LOCALVALUES        WHERE WORKSTATION = :Workstation AND PRODUCT = :Product
  16. OPEN C2
  17. FETCH C2 INTO        :Variable, :VarType, :Value
  18. INSERT INTO RFGTABLE.LOCALVALUES        VALUES (:Workstation, :Product, :Variable, :VarType, :Value)
  19. UPDATE RFGTABLE.LOCALVALUES              SET VARTYPE = :VarType, VALUE = :Value              WHERE WORKSTATION = :Workstation AND PRODUCT = :Product                    AND VARIABLE = :Variable
  20. CLOSE C2
  21. SELECT STATUS        INTO :Status        FROM RFGTABLE.CONFPGSTATUS        WHERE CONFPG = :ConfPG
  22. SELECT MODELID        INTO :ModelID        FROM RFGTABLE.CONFIGUREDPGS        WHERE CONFPG = :ConfPG AND PRODUCT = :Product
  23. DECLARE C3 CURSOR FOR        SELECT MODELID        FROM RFGTABLE.PRODUCTS        WHERE PRODUCT = :Product
  24. OPEN C3
  25. FETCH C3 INTO        :ModelID
  26. CLOSE C3
  27. SELECT MODRSPFILE        INTO :ModRSPFile        FROM RFGTABLE.MODELS        WHERE MODELID = :ModelID AND SEQNO = 1
  28. INSERT INTO RFGTABLE.CONFIGUREDPGS        (CONFPG, PRODUCT, MODELID)        VALUES (:ConfPG, :Product, :ModelID)
  29. UPDATE RFGTABLE.CONFIGUREDPGS              SET MODELID = :ModelID              WHERE CONFPG = :ConfPG AND PRODUCT = :Product
  30. INSERT INTO RFGTABLE.CONFPGSTATUS        (CONFPG, CONFIGURED, STATUS)        VALUES (:ConfPG, CURRENT TIMESTAMP, :Status)
  31. UPDATE RFGTABLE.CONFPGSTATUS              SET CONFIGURED = CURRENT TIMESTAMP, STATUS = :Status              WHERE CONFPG = :ConfPG
  32. DECLARE C4 CURSOR FOR        SELECT MODELID, TYPE, MODRSPFILE        FROM RFGTABLE.MODELS        WHERE SEQNO = 1
  33. OPEN C4
  34. FETCH C4 INTO        :ModelID, :Type, :ModRSPFile
  35. CLOSE C4
  36. DELETE FROM RFGTABLE.MODELS        WHERE MODELID = :ModelID
  37. INSERT INTO RFGTABLE.MODELS        (MODELID, TYPE, MODRSPFILE, REGISTERED, SEQNO, CONTENT)        VALUES (:ModelID, :Type, :ModRSPFile, CURRENT TIMESTAMP,                0, :ModelBuffer)
  38. DECLARE C5 CURSOR FOR        SELECT MODELID        FROM RFGTABLE.PRODUCTS        WHERE PRODUCT = :Product
  39. OPEN C5
  40. FETCH C5 INTO        :ModelID
  41. CLOSE C5
  42. DELETE FROM RFGTABLE.PRODUCTS        WHERE PRODUCT = :Product AND MODELID = :ModelID
  43. INSERT INTO RFGTABLE.PRODUCTS        (PRODUCT, MODELID)        VALUES (:Product, :ModelID)
  44. DECLARE C6 CURSOR FOR        SELECT PRODUCT, MODELID        FROM RFGTABLE.CONFIGUREDPGS        WHERE CONFPG = :ConfPG
  45. OPEN C6
  46. FETCH C6 INTO        :Product, :ModelID
  47. CLOSE C6
  48. INSERT INTO RFGTABLE.WSSOFTWARE        (WORKSTATION, CONFPG, CONFIGURED, STATUS)        VALUES (:Workstation, :ConfPG, CURRENT TIMESTAMP, :Status)
  49. UPDATE RFGTABLE.WSSOFTWARE              SET CONFIGURED = CURRENT TIMESTAMP, STATUS = :Status              WHERE WORKSTATION = :Workstation AND CONFPG = :ConfPG
  50. INSERT INTO RFGTABLE.WSHARDWARE        (WORKSTATION, MODELID, CONFIGURED, STATUS)        VALUES (:Workstation, :ModelID, CURRENT TIMESTAMP, :Status)
  51. UPDATE RFGTABLE.WSHARDWARE              SET MODELID = :ModelID, CONFIGURED = CURRENT TIMESTAMP, STATUS = :Status              WHERE WORKSTATION = :Workstation
  52. SELECT MODELID        INTO :ModelID        FROM RFGTABLE.WSHARDWARE        WHERE WORKSTATION = :Workstation
  53. UPDATE RFGTABLE.CONFPGSTATUS        SET STATUS = :Status        WHERE CONFPG = :ConfPG
  54. DELETE FROM RFGTABLE.CONFIGUREDPGS        WHERE MODELID = :ModelID
  55. DELETE FROM RFGTABLE.PRODUCTS        WHERE MODELID = :ModelID
  56. DECLARE C7 CURSOR FOR        SELECT CONFPG, PRODUCT        FROM RFGTABLE.CONFIGUREDPGS        WHERE MODELID = :ModelID
  57. OPEN C7
  58. FETCH C7 INTO        :ConfPG, :Product
  59. CLOSE C7
  60. UPDATE RFGTABLE.WSSOFTWARE        SET STATUS = :Status        WHERE CONFPG = :ConfPG
  61. SELECT TYPE        INTO :Type        FROM RFGTABLE.MODELS        WHERE MODELID = :ModelID AND SEQNO = 1
  62. DECLARE C9 CURSOR FOR        SELECT WORKSTATION        FROM RFGTABLE.WSHARDWARE        WHERE MODELID = :ModelID
  63. OPEN C9
  64. FETCH C9 INTO        :Workstation
  65. CLOSE C9
  66. UPDATE RFGTABLE.WSHARDWARE        SET STATUS = :Status        WHERE WORKSTATION = :Workstation
  67. DECLARE C8 CURSOR FOR        SELECT CONFPG        FROM RFGTABLE.CONFIGUREDPGS        WHERE PRODUCT = :Product
  68. OPEN C8
  69. FETCH C8 INTO        :ConfPG
  70. CLOSE C8
  71. DELETE FROM RFGTABLE.PRODUCTS        WHERE PRODUCT = :Product
  72. DELETE FROM RFGTABLE.CONFIGUREDPGS        WHERE PRODUCT = :Product
  73. DELETE FROM RFGTABLE.GROUPVALUES        WHERE PRODUCT = :Product
  74. DELETE FROM RFGTABLE.LOCALVALUES        WHERE PRODUCT = :Product
  75. DECLARE C10 CURSOR FOR        SELECT CONFPG, STATUS        FROM RFGTABLE.CONFPGSTATUS        WHERE CONFPG LIKE :ConfPG
  76. OPEN C10
  77. FETCH C10 INTO        :ConfPG, :Status
  78. CLOSE C10
  79. DELETE FROM RFGTABLE.WSSOFTWARE           WHERE CONFPG = :ConfPG
  80. DELETE FROM RFGTABLE.WSSOFTWARE           WHERE CONFPG LIKE :ConfPG
  81. DELETE FROM RFGTABLE.GROUPVALUES           WHERE CONFPG = :ConfPG
  82. DELETE FROM RFGTABLE.GROUPVALUES           WHERE CONFPG LIKE :ConfPG
  83. DELETE FROM RFGTABLE.CONFPGSTATUS           WHERE CONFPG = :ConfPG
  84. DELETE FROM RFGTABLE.CONFPGSTATUS           WHERE CONFPG LIKE :ConfPG
  85. DELETE FROM RFGTABLE.CONFIGUREDPGS           WHERE CONFPG = :ConfPG
  86. DELETE FROM RFGTABLE.CONFIGUREDPGS           WHERE CONFPG LIKE :ConfPG
  87. DELETE FROM RFGTABLE.LOCALVALUES        WHERE WORKSTATION = :Workstation
  88. DELETE FROM RFGTABLE.WSSOFTWARE        WHERE WORKSTATION = :Workstation
  89. DELETE FROM RFGTABLE.WSHARDWARE        WHERE WORKSTATION = :Workstation
  90. SELECT MODELID, STATUS        INTO :ModelID, :Status        FROM RFGTABLE.WSHARDWARE        WHERE WORKSTATION = :Workstation
  91. DELETE FROM RFGTABLE.CONFIGUREDPGS        WHERE CONFPG = :ConfPG AND PRODUCT = :Product
  92. UPDATE RFGTABLE.WSSOFTWARE        SET STATUS = :Status        WHERE WORKSTATION = :Workstation
  93. DECLARE C11 CURSOR FOR        SELECT CONFPG        FROM RFGTABLE.CONFIGUREDPGS        WHERE PRODUCT = :Product AND MODELID = :ModelID
  94. OPEN C11
  95. FETCH C11 INTO        :ConfPG
  96. CLOSE C11
  97. SELECT STATUS        INTO :Status        FROM RFGTABLE.WSSOFTWARE        WHERE WORKSTATION = :Workstation AND CONFPG = :ConfPG
  98. dbname
  99. ConfPG
  100. Workstation
  101. Product
  102. Variable
  103. VarType
  104. Value
  105. ModelID
  106. Status
  107. ModRSPFile
  108. ModelBuffer
  109.