Easytrieve
IF ELSE DO FILE REPORT OR AND EQ NE GT GE NE LT LE LIST ON JOB INPUT NULL EOF GET PUT FROM RECORD-LENGTH END-IF END-DO WHILE NOT STOP A N P B KEY STATUS NODATE NOPAGE NOADJUST NOSPREAD NOHEADING LINE TITLE COL W PAGESIZE LINESIZE PRINT VB FB VS VALUE MASK PRINTER MOVE ADD TO DISPLAY READ WRITE OCCURS INDEX
DB2
SELECT FROM CREATE DELETE UPDATE TABLE DECLARE DEFAULT WHERE AND OR IN NOT ORDER GROUP BY CURSOR CURRENT TIME TIMESTAMP CURRENT_TIME CURRENT_TIMESTAMP GLOBAL TEMPORARY INTO FETCH INTEGER CHAR VARCHAR SMALLINT DECIMAL NUMERIC DATE CURRENT_DATE INSERT COMMIT FETCH VALUES ALTER ROWS
JCL
JOB EXEC DD PGM STEPLIB JOBLIB JCLLIB DSN DISP SYSOUT PROGRAM PARM PLAN LIB SYSTEM SHR NEW CATLG DELETE OLD OMIT INCLUDE
Use this code 