!============= Write Data to SampInfo Table ===========                         !  78000
WriteMySqlRecs:                                                                 !  78010
         FILE (ODS)POS=BOF                                                      !  78040
         Default$="@FF@"      ! MUST BE SET FOR MYSQL TO SET DEFAULT FIELDS     !  78050
!                             ! IE: Date/Time Stamp, ID#, etc.                  !  78060
         XFUNCTION$='Writing MySql '+SOURCE$+' Record: '                        !  78070
NextRec:                                                                        !  78210
         READ(ODS,SampRec) EXCP=DBClose                                         !  78230
          PRINT(0,3010) !! & INPUT(0)'' ! INPROG MSG (XFUNCTION$)               !  78330
         WRITE (SqlLun, SampRecW) EXCP=WriteToTableError                        !  78700
         PAUSE(9)                    ! PAUSE TO SEE MESSAGE                     !  78770
   WriteCont:                                                                   !  78800
      GOTO NextRec                                                              !  79120
!                                                                               !  79300
DBClose:                                                                        !  99000
      result$ = Control(SqlLun, "DISCONNECT" )                                  !  99100
      Close(SqlLun)                                                             !  99200
      RETURN                                                                    !  99300
!                                                                               !  99500
!                                                                               !  99900
WriteToTableError:                                                              ! 200000
      EFUNC$=XFUNCTION$   ! =result$                                            ! 200700
      Error$=Control(SqlLun,"GETLASTERROR")                                     ! 200800
      PRINT(0) "@010000@";ERROR$ & WAIT                                         ! 200802
      Errmsg$=Error$                                                            ! 200810
      Gosub WriteSqlErrorLog                                                    ! 202000
      PRINT(0,MySqlErrorMsg)                                                    ! 203000
      wait                                                                      ! 203200
      Goto NextRec                                                              ! 203400
!                                                                               ! 208000
!                                                                               ! 209000
!----------- Write Errors to SQLERLG file --------------                        ! 700000
WriteSqlErrorLog:                                                               ! 700010
      EDATE$=Sysdate$          !YYYY-MM-DD                                      ! 700100
      A$=DSTAT("CL1")          !Get current time                                ! 700200
      ETIME$=SUB(TIME$,1,8)    !HH:MM:SS                                        ! 700300
      ETERM$=TERM$                                                              ! 700400
      EPRGM$=SOURCE$           ! 'MP' OR 'MB'                                   ! 700500
      EOPR$=ZINIT$                                                              ! 700600
      K21$=EDATE$+ETIME$+ETERM$                                                 ! 702000
      WRITE(SQLERLG,SqlErr)KEY=K21$                                             ! 702100
      Return                                                                    ! 709000