home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a063 / 6.img / SAMPLE / APTSQL / CLCHN_1.FPL < prev    next >
Encoding:
Text File  |  1990-08-24  |  130 b   |  12 lines
  1. create apt proc clchn_1() as
  2. begin
  3.     channel sqlrowch
  4.  
  5.     if sqlrowch:open
  6.     begin
  7.         disconnect sqlrowch
  8.     end
  9.  
  10.     return
  11. end
  12.