INSERT INTO TBG02_SLAB_COMM_D (SLAB_NO,SLAB_CUT_SEQ,SLAB_THK,SLAB_WTH,SLAB_LEN,ORD_THK,ORD_WTH,ORD_LEN,ORD_WGT,COIL_INDIA,COIL_OUTDIA,ORD_NO,ORD_SEQ, ORD_FL) SELECT SUBSTR(SLAB_NO,1,12)||SUBSTR(?,13,1) ,SLAB_CUT_SEQ ,SLAB_THK ,SLAB_WTH ,SLAB_LEN ,ORD_THK ,ORD_WTH ,ORD_LEN ,ORD_WGT ,COIL_INDIA ,COIL_OUTDIA ,ORD_NO ,ORD_SEQ ,ORD_FL FROM TBG02_SLAB_COMM_D WHERE SLAB_NO = ? INSERT INTO TBG02_SLAB_COMM_D (SLAB_NO,SLAB_CUT_SEQ,SLAB_THK,SLAB_WTH,SLAB_LEN,ORD_THK,ORD_WTH,ORD_LEN,ORD_WGT,COIL_INDIA,COIL_OUTDIA,ORD_NO,ORD_SEQ, ORD_FL) SELECT 'J'||SUBSTR(B.SUB_SLAB_NO,2,11)||SUBSTR(:1,13,1) ,A.SLAB_CUT_SEQ ,A.SLAB_THK ,A.SLAB_WTH ,A.SLAB_LEN ,A.ORD_THK ,A.ORD_WTH ,A.ORD_LEN ,A.ORD_WGT ,A.COIL_INDIA ,A.COIL_OUTDIA ,A.ORD_NO ,A.ORD_SEQ ,A.ORD_FL FROM TBG02_SLAB_COMM_D A ,TBG02_SLAB_COMM B WHERE B.SLAB_NO = :2 AND A.SLAB_NO = B.SUB_SLAB_NO AND B.SLAB_RT = 'H' UNION ALL SELECT 'J'||SUBSTR(T3.SUB_SLAB_NO,2,11)||SUBSTR(:3,13,1) ,:4 SLAB_CUT_SEQ ,:5 SLAB_THK ,:6 SLAB_WTH ,:7 SLAB_LEN ,T2.SLAB_THK ,T2.SLAB_WTH ,T2.SLAB_LEN ,T2.SLAB_WGT ,0 COIL_INDIA ,0 COIL_OUTDIA ,T2.ORD_NO ,T2.ORD_SEQ ,'1' ORD_FL FROM TBD01_SLABDN_OBJ2 T1 ,TBD01_SLABDN_OBJ2_DETAIL T2 ,TBG02_SLAB_COMM T3 WHERE T1.DSN_SLAB_NO = T2.DSN_SLAB_NO AND T2.DSN_SLAB_NO = :8 and t2.SUB_DSN_SLAB_NO = :9 AND T3.SLAB_NO = :10 INSERT INTO TBG02_SLAB_INCISE SELECT T.SLAB_NO, :1, T.WEIGHT_WGT, :2, TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'), CASE WHEN T.LG_STL_GRD IS NULL THEN T.STL_GRD ELSE T.LG_STL_GRD END STEEL, T.SLAB_THK||'*'||T.SLAB_WTH||'*'||T.SLAB_LEN SPET, T.PROC_CD FROM TBG02_SLAB_COMM T WHERE T.SLAB_NO = :3