Get Handler

This user-defined data handler shows how an application can use the get data handler to enter a chapter of a book from a text file into a database.

!    *************
200 integer function Get_Handler(hdlr_arg info)
        record hdlr_arg
            string     argstr
            integer    argint
        end record hdlr_arg
        exec sql begin declare section
            declare string         segbuf
            declare integer seglen
            declare integer datend
            declare integer     maxlen
        exec sql end declare section

        ...
        process information passed in via the
             info record...
        open file....

        datend = 0

        while (datend = 0)

            exec sql get data (:segbuf = segment,&
             :seglen = segmentlenght, & :datend = dataend) &
            with maxlength = :maxlen
        write segment to file

        next
        ...
        set info record to return appropriate values...
        ...

        Get_Handler = 0

end function