SELECT 'N' CHK
,C.COIL_NO
,C.OLD_SAMPL_NO
,C.DCS_THK
,C.SPEC_ABBSYM
,C.SPEC_STL_GRD
,PKG_QUALITY_COMM.FIB020203(C.ORD_USE_CD ) ORD_USE_CD --订单用途
,C.SLAB_NO
,C.SAMPL_NO SMP_NO
,C.SAMPL_CUT_LOC SMP_CUT_LOC
,C.SMP_DIR_PIC_YN
,DECODE(L.OVER_SMP_TP , NULL , NULL , L.OVER_SMP_TP ) OVER_SMP_TP
,C.ORD_NO
,C.ORD_SEQ
FROM TBH02_COIL_COMM C , TBB02_LOT_COM L
WHERE C.TOT_DEC_GRD IS NULL
AND C.MATLQLTY_DEC_GRD = '2'
AND C.SAMPL_NO = L.SMP_NO
AND L.OVER_SMP_TP = '9'
AND L.SMP_PROG_CD = 'E'
AND SUBSTR(C.OLD_SAMPL_NO , 1,10) = nvl(?,SUBSTR(C.OLD_SAMPL_NO , 1,10))
ORDER BY C.OLD_SAMPL_NO
UPDATE TBB02_LOT_COM T
SET T.OVER_SMP_TP = ''
WHERE T.SMP_NO = ?