print vertical

Hello,

Tom Kyte's infamous  'print_vertical' procedure (https://asktom.oracle.com/pls/asktom/f?p=100:11:0%3a%3a%3a%3aP11_QUESTION_ID:1035431863958)  worked fine in 11g  but now it fails for me in 12c. Can anyone  help me fix the error?

-=-=-=-

create or replace procedure print_table( p_query in varchar2 )

AUTHID CURRENT_USER

is

    l_theCursor     integer default dbms_sql.open_cursor;

    l_columnValue   varchar2(4000);

    l_status        integer;

    l_descTbl       dbms_sql.desc_tab;

    l_colCnt        number;

begin

    execute immediate

    'alter session set

        nls_date_format=dd-mon-yyyy hh24:mi:ss ';

    dbms_sql.parse(  l_theCursor,  p_query, dbms_sql.native );