Converting COBOL style code to PL/SQL
I have COBOL developed psuedo code, so I need to convert it into PL/SQL. Here is the code:
select A.* from Event A where event/d_create_ts>or=MMIS endtime from audit table of 1st run.. and n_evnt_type=399 and c_assn_ty='L' and n_enty_id=n_line_id
if return_code=0 move 'NN' to code_name goto orders.
else move 'MM' to code_name.
How should this code be converted to PL/SQL? I hope this can be written as a procedure; if so, how can we do it?
I am providing a rudimentary example in PL/SQL.
Create or replace procedure set_code_name(p_date IN DATE) is /* YOu may want to define the SQL according here */ cursor c1 is select * from event where d_create_ts >= p_date and n_event_type = 399 and c_assn_ty = 'L' and n_enty_id = n_line_id v_code_name VARCHAR2(30); -- define other variables
rowcount PLS_INTEGER := 0; BEGIN for c1rec in c1 loop rowcount := rowcount + 1; -- the cursor variable c1rec.will store the value of column_NAME for record # rowcount. end loop;
if rowcount = 0 -- that means no record fetched then -- do what you need to do..maybe call a procedure orders that will process. END ;