-- -----------------------< HIS >---------------------------SELECT IRKITL, IRMCU, IROPSQ, IRDSC1, IRRUNL, IRSETL, IRMOVD, IRSETC, IRQUED, IROPSC, CURDATE( ) AS COLUMN0000 FROM GENPRDA73.F3003 F3003 WHERE IRTRT = 'M' AND Date( IREFFF, CYYDDD ) <= DATE( CURDATE( ) ) AND Date( IREFFT, CYYDDD ) >= DATE( CURDATE( ) ) AND Left( IRDSC1, 7 ) NOT IN( 'PHANTOM', 'Phantom' ) ORDER BY 1, 3-- -----------------------< MINE >--------------------------INSERT INTO HCSUPLCNCT.SCRTINGSELECT IRKITL, IRMCU, IROPSQ, IRDSC1, IRRUNL, IRSETL, IRMOVD, IRSETC, IRQUED, UCASE(IROPSC), CURRENT DATEFROM GENPRDA73.F3003WHERE IRTRT = 'M' AND DATE( CASE WHEN LEFT(IREFFF,1) = '0' THEN '19' WHEN LEFT(IREFFF,1) = '1' THEN '20' END || RIGHT(IREFFF,5) ) <= CURRENT DATE AND DATE( CASE WHEN LEFT(IREFFT,1) = '0' THEN '19' WHEN LEFT(IREFFT,1) = '1' THEN '20' END || RIGHT(IREFFT,5) ) >= CURRENT DATE AND UCASE(LEFT(IRDSC1,7)) <> 'PHANTOM'ORDER BY IRKITL, IROPSQ------------------------------------------------------------