IBM i (AS/400) DB2 SQL Data Extraction Script Generator

SELECT COLUMN_NAME, DATA_TYPE, LENGTH, NUMERIC_SCALE, COLUMN_TEXT
FROM QSYS2.SYSCOLUMNS
WHERE TABLE_SCHEMA = 'PRODDTA'
  AND TABLE_NAME = 'F0911'
ORDER BY ORDINAL_POSITION;

SELECT COUNT(*) AS TOTAL_ROWS
FROM PRODDTA.F0911;

SELECT COUNT(*) AS ROWS_IN_RANGE
FROM PRODDTA.F0911
WHERE GLDGJ BETWEEN 124001 AND 124366;

SELECT GLDOC, GLDCT, GLDGJ, GLAID, GLAA, GLEXA,
       CASE WHEN GLDGJ > 0
            THEN DATE(CHAR(1900000 + GLDGJ))
            ELSE NULL END AS CALENDAR_DATE
FROM PRODDTA.F0911
WHERE GLDGJ BETWEEN 124001 AND 124366
ORDER BY GLDGJ
FETCH FIRST 1000 ROWS ONLY;

SELECT MONTH(DATE(CHAR(1900000 + GLDGJ))) AS MONTH_NO,
       COUNT(*) AS ROW_COUNT
FROM PRODDTA.F0911
WHERE GLDGJ BETWEEN 124001 AND 124366
GROUP BY MONTH(DATE(CHAR(1900000 + GLDGJ)))
ORDER BY MONTH_NO;