Create procedure

Question

I would need help on this procedure, can someone please tell me why it is not compiling.
CREATE OR REPLACE PROCEDURE DAILY_TRANSACTIONS
--Parse variables
IS
v_VOL_SRC_ID VARCHAR2(6);
ins_PBASE_MCF VARCHAR2(6);
c_BTU_CONTENT VARCHAR2(5);
ins_PBASE_BTU VARCHAR2(6);
v_EQUIP_SK DIST.VC_GASVOLS.EQUIP_SK%TYPE;
v_GAVOL_DT DATE;
v_GAVOL_TRANS VARCHAR2(10);
v_BTU_CONTENT NUMBER(10,8);
v_PBASE_MCF NUMBER(7,4);
v_PBASE_BTU NUMBER(7,4);
v_PROD_CD VARCHAR2(2) := '20';
v_DISP_CD VARCHAR2(3);
v_WET_DRY_ACT_CD VARCHAR2(1) := 'D';
v_LINE_PRESS NUMBER(8);
v_VOLUME VARCHAR2(7);
v_HAND_CALC_IND VARCHAR2(1) := 'C';
v_GAS_END_DT DATE;
v_GAS_START_DT DATE;
ins_MMBTU_VOL VARCHAR2(11);
v_GAVOL_GATH_SK VARCHAR2(10);
v_GAVOL_PURCH_SK VARCHAR2(10);
v_FIELD_VOL_EST DIST.VC_GASVOLS.field_vol_est%TYPE;
v_VOL_ORIGIN VARCHAR2(1) := 'P';
v_DB_OWN_SK VC_GASVOLS.db_own_sk%TYPE DEFAULT NULL;
v_NULLBTU_CONTENT NUMBER(10);
CURSOR Gastrans_curs IS
SELECT gavol_dt, btu_content, pbase_mcf, pbase_btu, line_press, volume, gas_end_dt,
gas_start_dt
FROM VC_GASVOLS
WHERE GAVOL_DT > TO_DATE(SYSDATE - 35);
CURSOR Nullbtu_curs IS
SELECT pbase_mcf
FROM VC_GASVOLS WHERE PBASE_BTU is NULL;
CURSOR Voltrans_curs IS
SELECT 'CS_'| |substr(vol_src_assoc_sk,3,4)| |'_'| |vol_src_call_sheet
FROM VC_EQUIPMENT;
CURSOR Stanum_curs IS
SELECT CONCAT(VE.equip_sk, VG.equip_sk)
FROM dist.vc_equipment VE, dist.vc_gasvols VG
WHERE GAVOL_DT > TO_DATE(SYSDATE - 35);
-- open file and get handle right in declaration
fh1 CONSTANT UTL_FILE.FILE_TYPE := UTL_FILE.FOPEN (DATA_DIR, FILE_IN, 'R');
fh2 CONSTANT UTL_FILE.FILE_TYPE := UTL_FILE.FOPEN (DATA_DIR, FILE_IN| |'.ERR','W');
-- counter
line_counter INTEGER := 1;
BEGIN
LOOP
<<GetNewRec>>
trans_cnt := 0;
-- fetches records
UTL_FILE.GET_LINE (FH1, LINE_OUT);
line_counter := line_counter + 1;
--parse records
v_Vol_Src_Id := SUBSTR(line_out,6,6);
v_Gas_End_Dt := TO_DATE(YYYYMMDD);
v_Gas_Start_Dt := TO_DATE(YYYYMMDD);
v_Volume := RPAD(SUBSTR(LINE_OUT,30,7),7,'0');
v_Pbase_Mcf := RPAD(SUBSTR(LINE_OUT,49,5),5,'0');
Ins_Pbase_Mcf := CONCAT(SUBSTR(v_pbase_mcf,1,2), '.');
Ins_Pbase_Mcf := CONCAT(ins_pbase_mcf, SUBSTR(v_pbase_mcf,3,3));
v_btu_content := RPAD(SUBSTR(LINE_OUT,63,4),4,'0');
v_Wet_Dry_Act_Cd := SUBSTR(LINE_OUT,67,1);
v_Pbase_Btu := RPAD(SUBSTR(LINE_OUT,68,5),5,'0');
Ins_Pbase_Btu := CONCAT(SUBSTR(v_Pbase_Btu,1,2), '.');
Ins_Pbase_Btu := CONCAT(Ins_Pbase_Btu, SUBSTR(v_Pbase_Btu,3,3));
OPEN Stanum_curs;
FETCH Stanum_curs INTO v_station_nunber;
CLOSE Stanum_curs;
OPEN Voltrans_curs;
FETCH Voltrans_curs INTO v_gavol_trans;
CLOSE Voltrans_curs;
OPEN Gastrans_curs;
FETCH Gastrans_curs
INTO v_GAVOL_DT, v_BTU_CONTENT, v_PBASE_MCF, v_PBASE_BTU, v_LINE_PRESS,
v_VOLUME, v_GAS_END_DT, v_GAS_START_DT;
CLOSE Gastrans_curs;
IF v_pbase_btu is NULL THEN
BEGIN
OPEN Nullbtu_curs;
fetch Nullbtu_curs INTO v_BTU_CONTENT;
CLOSE Nullbtu_curs;
END;
END IF;
--calculate MMBTU as (volume*btu_content to two decimals)
IF v_pbase_mcf = v_pbase_btu THEN
BEGIN
c_BTU_CONTENT := SUBSTR(v_btu_content,1,1)&#0124; &#0124;'.'&#0124; &#0124;SUBSTR(v_btu_content,2,3);
ins_MMBTU_VOL := ROUND(TO_NUMBER(v_VOLUME) * TO_NUMBER(c_BTU_CONTENT));
end;
end if;
IF(ins_mmbtu_volume = '0000000' AND v_mcf_volume != '0000') THEN
BEGIN
UTL_FILE.PUT_LINE (fh2, line_out&#0124; &#0124;'volume = 0');
INSERT INTO DIST.GASVOL_ERRS (Vol_Src_Id, Gas_End_Dt, Gas_Start_Dt,
Volume, Pbase_Mcf, Ins_Pbase_Mcf, Btu_Content,
Wet_Dry_Act_Cd, Pbase_Btu, Ins_Pbase_Btu, ERR_MSG)
VALUES(v_Vol_Src_Id, v_Gas_End_Dt, v_Gas_Start_Dt, v_Volume,
v_Pbase_Mcf, v_Ins_Pbase_Mcf, v_Btu_Content,
v_Wet_Dry_Act_Cd, v_Pbase_Btu, v_Ins_Pbase_Btu, 'VOLUME = 0');
GOTO GetNewRec;
END;
end IF;
BEGIN
SELECT COUNT(*) INTO trans_cnt
FROM DIST.VC_GASVOLS
WHERE equip_sk = v_equip_sk
AND gas_start_dt = v_start_date
AND gas_end_date = v_end_date;
IF tra ns_cnt > 0 THEN
BEGIN
UTL_FILE.PUT_LINE (FH2, LINE_OUT&#0124; &#0124;'MULTIPLE TRANSACTIONS FOR'
&#0124; &#0124;v_gas_start_dt&#0124; &#0124;'-'&#0124; &#0124;v_gas_end_date);
INSERT INTO DIST.GASVOL_ERRS (vol_src_id, gas_End_dt, Gas_Start_dt,
volume, pbase_mcf, ins_pbase_mcf, btu_content, wet_dry_act_cd, pbase_btu,
ins_pbase_btu, err_msg)
VALUES(v_vol_src_id, v_gas_End_dt, v_Gas_Start_dt, v_volume,
v_pbase_mcf, v_ins_pbase_mcf, v_btu_content, v_wet_dry_act_cd,
v_pbase_btu, v_ins_pbase_btu, 'MULTIPLE TRANSACTIONS FOR'
&#0124; &#0124;v_gas_start_dt&#0124; &#0124;'-'&#0124; &#0124;v_gas_end_date);
GOTO GetNewRec;
END;
END IF;
BEGIN
INSERT INTO DIST.VC_DAILY_TRANSACTIONS
(STATION_NUMBER, RECORD_DATE, GAVOL_TRANS, BTU_CONTENT, PBASE_MCF,
PBASE_BTU, PRODUCT_CODE, WET_DRY_CODE, LINE_PRESSURE, MCF_VOLUME,
CALC_IND, END_DATE, START_DATE, MMBTU_VOLUME, VOLUME_ORIGIN, OWNER)
VALUES(v_STATION_NUMBER, v_RECORD_DATE, v_GAVOL_TRANS, v_BTU_CONTENT,
v_PBASE_MCF, v_PBASE_BTU, v_PRODUCT_CODE, v_WET_DRY_CODE, v_LINE_PRESSURE,
v_MCF_VOLUME, v_CALC_IND, v_END_DATE, v_START_DATE, v_MMBTU_VOLUME,
v_VOLUME_ORIGIN, v_OWNER);
end;
COMMIT;
END DAILY_transactionS;
null

Answer 1

Hi,
Without giving error message, how can we provide the solution? I will give u some tips.
Ok, In this proc. If u are using UTL_FILE package, U should do these things.
1. The INIT.ORA file contains UTL_FILE_DIR = * or that particular file path, where it resides (Since U can use.
2. U will have necessary O/S permission on that file. (compilation error means, it will not come to the scenario ).
with regards,
Boby Jose thekkanath,
[email protected]
Dharma computers(P) Ltd.
Bangalore- India.