BEGIN
GO_BLOCK('XXPRG_IS');
FIRST_RECORD;
LOOP
IF :XXPRG_IS.DIS_HEADID  <> :XXPRG_IS.BS_ID_CHECK AND :XXPRG_IS.DIS_HEADID  <> :XXPRG_IS.ID_CHECK THEN
INSERT INTO XXPRG_REPORT(XXPRG_REPORT.HEADNAME,XXPRG_REPORT.HEADID)
VALUES(:XXPRG_IS.DIS_HEADNAME,:XXPRG_IS.DIS_HEADID);
END IF;
EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
NEXT_RECORD;
END LOOP;
FIRST_RECORD;
END;