Beautifier could not parse text

[Oguen ARPACI]

Hello,
the beautifier cannot parse the package body below.
There were no problems in version 13.

Regards.

Oguen

create or replace package body test_beautifier IS

C_PACKAGE VARCHAR2(50) := 'test';

/*************************************************
call info procedure
*************************************************/
PROCEDURE info(in_msg VARCHAR2,
in_proc VARCHAR2,
in_lineno NUMBER := NULL) AS
BEGIN
dbms_output.put_line('INF: ' || in_msg || ' - proc => ' || in_proc || ' - lineno => ' || in_lineno);
END info;

/*************************************************
call info procedure
*************************************************/
PROCEDURE error(in_msg VARCHAR2,
in_proc VARCHAR2,
in_lineno NUMBER := NULL) AS
BEGIN
dbms_output.put_line('ERR: ' || in_msg || ' - proc => ' || in_proc || ' - lineno => ' || in_lineno);
END error;

/*************************************************
PROCEDURE dutboard_pca_change_loc
*************************************************/
PROCEDURE dutboard_pca_change_loc(in_fix_id1 IN VARCHAR2,
in_fix_id2 IN VARCHAR2,
in_maschine IN VARCHAR2,
out_output OUT VARCHAR2) AS
-- local variables
C_PROC VARCHAR2(100) := C_PACKAGE || 'dutboard_pca_change_loc';
C_LOCATION_BE_TRANSPORT VARCHAR2(10) := 'BP980400';
C_BOARD_ID_DUMMY VARCHAR2(10) := 'DUMMY';
v_dutboard_id VARCHAR2(100);
v_pca_id VARCHAR2(100);
v_else_nr VARCHAR2(50);
BEGIN
info(in_msg => 'in_fix_id1: ' || in_fix_id1 --
|| ' - in_fix_id2: ' || in_fix_id2 --
|| ' - in_maschine: ' || in_maschine --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

BEGIN
-- ElseNr der Testmaschine
SELECT a.else_nr
INTO v_else_nr
FROM elmos_dba.be_maschine a
WHERE 1 = 1
AND a.maschinen_name = in_maschine;
EXCEPTION
WHEN no_data_found THEN
out_output := '### ERR: Testmaschine nicht in BE_MASCHINE vorhanden: ' || in_maschine; -- verhindert den Test-Start
RETURN;
END;

info(in_msg => 'neu dutboard: : ' || v_dutboard_id --
|| ' - neu pca: ' || v_pca_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

FOR e IN (

SELECT 'BOARD_123' AS board_id
FROM dual a
) LOOP

info(in_msg => e.board_id || ' austragen => Ort=BE-Transport.' --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

-- Ort-Wechsel
BEGIN

info(in_msg => '### Ortwechsel' --
|| ' neuer Ort: ' || C_LOCATION_BE_TRANSPORT --
|| ' e.board_id: ' || e.board_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

EXCEPTION
WHEN OTHERS THEN
-- error log
error(in_msg => '### ERR Kein Ortwechsel' --
|| ' neuer Ort: ' || C_LOCATION_BE_TRANSPORT --
|| ' e.board_id: ' || e.board_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

END;

END LOOP;

-- Ort-Wechsel
BEGIN
info(in_msg => '### Ortwechsel in die Testmaschine' --
|| ' test machine: ' || v_else_nr --
|| ' v_dutboard_id: ' || v_dutboard_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

EXCEPTION
WHEN OTHERS THEN
-- error log
error(in_msg => '### ERR Kein Ortwechsel in die Testmaschine' --
|| ' test machine: ' || v_else_nr --
|| ' v_dutboard_id: ' || v_dutboard_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

END;

-- Ort-Wechsel in die Testmaschine
BEGIN
info(in_msg => '### Ortwechsel in die Testmaschine' --
|| ' test machine: ' || v_else_nr --
|| ' v_pca_id: ' || v_pca_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

EXCEPTION
WHEN OTHERS THEN
-- log
error(in_msg => '### ERR Kein Ortwechsel in die Testmaschine' --
|| ' test machine: ' || v_else_nr --
|| ' v_pca_id: ' || v_pca_id --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

END;

END dutboard_pca_change_loc;
end test_beautifier;

 

[Oguen ARPACI]

Hello,

when I change following code snippet, then it works:

-------------------------------------
old code:
----------------

info(in_msg => 'in_fix_id1: ' || in_fix_id1 --
|| ' - in_fix_id2: ' || in_fix_id2 --
|| ' - in_maschine: ' || in_maschine --
,
in_proc => c_proc,
in_lineno => $$PLSQL_LINE);

------------------------------------------------------------
new code:
---------------
v_line :=$$PLSQL_LINE;
info(in_msg => 'in_fix_id1: ' || in_fix_id1 --
|| ' - in_fix_id2: ' || in_fix_id2 --
|| ' - in_maschine: ' || in_maschine --
,
in_proc => c_proc,
in_lineno => v_line);

 

[Marco Kalter]

This has been fixed for beta 2. There was indeed a problem with Inquiry Directives like $$PLSQL_LINE.

 

[Oguen ARPACI]

Thanks...