Line 6: I substring the month number from the current date using the ... 01 PGM 02 DCLF FILE(QTEMP/WORKFILE) 03 DLTF FILE(QTEMP/WORKFILE) 04 MONMSG MSGID(CPF0000) 05 RUNSQL SQL('CREATE TABLE QTEMP.WORKFILE + 06 (MONTHEND) + 07 AS (SELECT LAST_DAY(CURRENT ...
↧