/* pro2jdbc_test.p - testing */

DEFINE VARIABLE hProc AS HANDLE.

{pro2jdbc.i hProc} /* prototypes */
  
  /* 1. Create the utilities handle as a persistent procedure. */
  RUN pro2jdbc.p PERSISTENT SET hProc NO-ERROR.
  IF ERROR-STATUS:ERROR THEN
    MESSAGE "The utility procedure - pro2jdbc.p - could not be loaded!".
  ELSE IF NOT VALID-HANDLE(hProc) THEN
    MESSAGE "The utility procedure - pro2jdbc.p - could not start properly!".
  ELSE
  DO:
    /* 2. Open socket connection */
    IF jdbcOpenConnection( "-H localhost -S 9099" ) THEN
    DO:
      DEF VAR recordAsChar AS CHAR.

      /* 3. Execute queries */

      /* 3.1 Query 1 */

      VIEW FRAME a.
      IF jdbcExecuteQuery("select version()") THEN
      REPEAT:
        recordAsChar = jdbcGetRecord().
        IF recordAsChar = ? THEN
          LEAVE.
        ELSE
        DO:
          DISPL recordAsChar FORMAT "x(60)" WITH DOWN FRAME a. DOWN WITH FRAME a.
        END.
      END.

      /* .... */

      /* 3.N Query N */
      IF jdbcExecuteQuery("select * from l_param where code like '%SKIN%'") THEN
      REPEAT:
        recordAsChar = jdbcGetRecord().
        IF recordAsChar = ? THEN
          LEAVE.
        ELSE
        DO:
          DISPL recordAsChar FORMAT "x(60)" WITH DOWN FRAME a. DOWN WITH FRAME a.
        END.
      END.

      /* 4. Close connection */
      jdbcCloseConnection(FALSE).
    END.

  END.

  /* Delete persistent procedure */
  IF VALID-HANDLE(hProc) THEN DELETE PROCEDURE hProc.