-- -----------------------< 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.SCRTING
SELECT	IRKITL,
	IRMCU,
	IROPSQ,
	IRDSC1,
	IRRUNL,
	IRSETL,
	IRMOVD,
	IRSETC,
	IRQUED,
	UCASE(IROPSC),
	CURRENT DATE
FROM	GENPRDA73.F3003
WHERE	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
------------------------------------------------------------