SELECT T.OLD_SAMPL_NO COIL_NO ,T.SMP_NO ,T.SMP_CUT_LOC ,T.SPEC_ABBSYM ,T.SPEC_STL_GRD ,ZL_NORM_COMM.FZ00_COMM('A01007' ,T.ORD_USE_CD) ORD_USE_CD ,T.COIL_THK ,T.EXTSHAPE_QUALITY ,T.SMP_PICK_YN ,DECODE( SUBSTR(T.SMP_NO , 15) , 'P' , 0 , SUBSTR(T.SMP_NO , 15) ) RE_CNT FROM C_TBC02_COIL_COMM T , TBB02_LOT_COM L WHERE T.TOT_DEC_GRD IS NULL AND T.SMP_NO = L.SMP_NO AND T.SMP_CUT_LOC = L.SMP_CUT_LOC AND T.COIL_STAT = '2' AND T.MATLQLTY_DEC_GRD = '2' AND L.OVER_SMP_TP IS NULL AND T.OLD_SAMPL_NO LIKE ?||'%' SELECT T.OLD_SAMPL_NO COIL_NO ,T.SMP_NO ,T.SMP_CUT_LOC ,T.SPEC_ABBSYM ,T.SPEC_STL_GRD ,ZL_NORM_COMM.FZ00_COMM('A01007' ,T.ORD_USE_CD) ORD_USE_CD ,T.COIL_THK ,T.EXTSHAPE_QUALITY ,T.SMP_PICK_YN ,DECODE( SUBSTR(T.SMP_NO , 15) , 'P' , 0 , SUBSTR(T.SMP_NO , 15) ) RE_CNT FROM C_TBL02_COIL_COMM T , TBB02_LOT_COM L WHERE T.TOT_DEC_GRD IS NULL AND T.SMP_NO = L.SMP_NO AND T.SMP_CUT_LOC = L.SMP_CUT_LOC AND T.COIL_STAT = '2' AND T.MATLQLTY_DEC_GRD = '2' AND L.OVER_SMP_TP IS NULL AND T.OLD_SAMPL_NO LIKE ?||'%' UPDATE TBB02_LOT_COM T SET T.OVER_SMP_TP = '9' WHERE T.SMP_NO = ? AND T.SMP_CUT_LOC = ? {call ZL_LIANT_DCS01.RESMP_QLTY_PICK(?,?,?)} {call ZL_SUAN_DCS01.RESMP_QLTY_PICK(?,?,?)}