home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / netviwdm.zip / RFGDBCHK.BND (.txt) < prev    next >
DB2 Bind  |  1995-04-19  |  2KB  |  25 lines
  1. RFGDBCHKUB2hRbCLNULLID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. INSERT INTO RFGTABLE.MODELS              (MODELID, TYPE, MODRSPFILE, REGISTERED, SEQNO, CONTENT)               VALUES(:Hmodelid,                      :Htype :a_null_var,                      :Hfilename :a_null_var,                      :Hdate :a_null_var,                      :Hseqno,                      :Hbuffer)
  6. ROLLBACK
  7. INSERT INTO RFGTABLE.MODELS              (MODELID, TYPE, MODRSPFILE, REGISTERED, SEQNO, CONTENT)               VALUES(:Hmodelid,                      :Htype :a_null_var,                      :Hfilename :a_null_var,                      :Hdate :a_null_var,                      :Hseqno,                      :Hbuffer)
  8. ROLLBACK
  9. UPDATE RFGTABLE.MODELS           SET  REGISTERED = CURRENT TIMESTAMP           WHERE (SEQNO=1 AND MODELID=:Hmodelid)
  10. ROLLBACK
  11. SELECT MAX(SEQNO)                                                                INTO :HmaxSeqNo                                                                FROM RFGTABLE.MODELS                                                                    WHERE MODELID = :Hmodelid
  12. DECLARE READ_MOD_ENT CURSOR  FOR         SELECT MODELID, TYPE, MODRSPFILE, REGISTERED, SEQNO, CONTENT         FROM RFGTABLE.MODELS         WHERE MODELID = :Hmodelid         ORDER BY SEQNO
  13. OPEN READ_MOD_ENT
  14. FETCH READ_MOD_ENT INTO          :Hmodelid, :Htype, :Hfilename, :Hdate, :Hseqno, :Hbuffer
  15. FETCH READ_MOD_ENT INTO           :Hmodelid,           :Htype :a_null_var,           :Hfilename :a_null_var,           :Hdate :a_null_var,           :Hseqno,           :Hbuffer
  16. CLOSE READ_MOD_ENT
  17. Hmodelid
  18. Htype
  19. Hfilename
  20. Hdate
  21. HmaxSeqNo
  22. Hseqno
  23. Hbuffer
  24. a_null_var
  25.