# ------------------------------------------ #
  #  Basic DB-connection Cleanup               #
  # ------------------------------------------ #
    try(dbDisconnect(con), silent=TRUE)
    try(detach(package:RPostgreSQL), silent=TRUE)
    try(detach(package:RMySQL), silent=TRUE)
  # ------------------------------------------ #


  ## ---------------------------------------- ##
  ##           GENRE & RELEASE DATE           ## 
  ##             QUERY EXECUTION              ##
  ## ---------------------------------------- ##
    qry_timestamp <- timeStamp(frmt=frmt.monthday_time)

    ## PULL FROM DB

    ### This would be sufficient if infinitDB connection working. 
    # DB.all.meta <- getGenresForAllupcs(id.col.AS="upc", verbose=TRUE)  
    ### Instead using tryCatch:   
    DB.all.meta <- tryCatch(error=function(e) { infinitDBNotWorking.metas("DB.all.meta") },
    	  getGenresForAllupcs(id.col.AS="upc", verbose=TRUE)
          )
  ## ---------------------------------------- ##




  # ------------------------------------------ #
  #  Basic DB-connection Cleanup               #
  # ------------------------------------------ #
    try(dbDisconnect(con), silent=TRUE)
    try(detach(package:RMySQL), silent=TRUE)
  # ------------------------------------------ #


  ## ------------------------------ ##
  ##      SAVE THE DATA             ##
  ## ------------------------------ ##
    f.ind <- paste0("DB.all.meta", "_", qry_timestamp)
    fileBackUps[[ f.ind ]] <-
    
         jesus(DB.all.meta, dir=dataDir, sub=FALSE, stampFile=TRUE, stampDir=FALSE, summary=FALSE, verbose=FALSE)

    invisible(reproduce((fileBackUps[[f.ind]]), name="file.DB.all.meta", clipboard=FALSE, showSample=FALSE))

    # Clean up garbage before saving image
    gcQuietly()

    if (saveAfterEachDataIngest)
      saveImageTo(verbose=FALSE)
  ## ------------------------------ ##