How to make text field value bold in OAF Page
1) Go to Field and select item type as "Raw Text"
2) Put below below in Text Box.
<font face="Helvetica" color="red" size="4pt" weight="bold"><b>Learn and gain experience from Tech hards BLOG</b></font>
Wednesday, 31 May 2023
EBS : API to Explode BOM : Oracle APPS
How to Explode BOM in Oracle ( Bill of Material)
Declare
Cursor cur_rec is
select * from BOM_BILL_OF_MATERIALS_V
where organization_id=85
and assembly_item_id in (835);--,1024,1022,1029);
l_err_msg varchar2(2000); l_error_code varchar2(2000);
BEGIN
delete from bom_explosion_temp;
For I in cur_rec loop
---FND_MESSAGE.DEBUG('1---'||sql%rowcount);
bompexpl.exploder_userexit (verify_flag => 0,
org_id => i.ORGANIZATION_ID,
order_by => 1,
grp_id => 99,
session_id => 5,
levels_to_explode => 60,
bom_or_eng => 1,
impl_flag => 1,
plan_factor_flag => 2,
explode_option => 2,
module => 2,
cst_type_id => 0,
std_comp_flag => 2,
expl_qty => 1,
item_id => i.assembly_item_id,
alt_desg => '',
comp_code => '',
rev_date => NULL,
err_msg => l_err_msg,
error_code => l_error_code
);
dbms_output.put_line(l_err_msg);
/* Formatted on 2015/03/04 17:26 (Formatter Plus v4.8.8) */
INSERT INTO xx_bom_explosion_temp
(top_item_id, plan_level, item_code,
item_desc, item_num,
operation_seq_num, component_quantity,attribute15)
SELECT xbet.top_item_id, plan_level,
LPAD (' ', 2 * (LEVEL - 1)) || TO_CHAR (msi.concatenated_segments) bom_item_code,
msi.description, xbet.item_num,
xbet.operation_seq_num,
xbet.component_quantity -- bet.uom
,
UPPER (bic.inventory_item_status_code) status
FROM bom_explosion_temp xbet,
bom_inventory_components_v bic,
mtl_system_items_kfv msi
WHERE /*xbet.top_item_id = :sample_bom_item_id
AND */ xbet.organization_id = :inv_org_id
AND xbet.component_item_id = bic.component_item_id(+)
AND xbet.bill_sequence_id = bic.bill_sequence_id(+)
AND xbet.component_item_id = msi.inventory_item_id
AND xbet.organization_id = msi.organization_id
START WITH xbet.assembly_item_id IS NULL
CONNECT BY PRIOR xbet.component_item_id = xbet.assembly_item_id;
end loop;
commit;
END;
=========================================================================
Table Scripts to create BOM TEMP TABLE
=========================================================================
CREATE TABLE XX_BOM_EXPLOSION_TEMP
(
TOP_BILL_SEQUENCE_ID NUMBER NOT NULL,
BILL_SEQUENCE_ID NUMBER NOT NULL,
ORGANIZATION_ID NUMBER NOT NULL,
COMPONENT_SEQUENCE_ID NUMBER,
COMPONENT_ITEM_ID NUMBER,
PLAN_LEVEL NUMBER NOT NULL,
EXTENDED_QUANTITY NUMBER,
SORT_ORDER VARCHAR2(2000 BYTE) NOT NULL,
REQUEST_ID NUMBER,
PROGRAM_APPLICATION_ID NUMBER,
PROGRAM_ID NUMBER,
PROGRAM_UPDATE_DATE DATE,
GROUP_ID NUMBER,
SESSION_ID NUMBER,
SELECT_FLAG VARCHAR2(1 BYTE),
SELECT_QUANTITY NUMBER,
EXTEND_COST_FLAG NUMBER,
TOP_ALTERNATE_DESIGNATOR VARCHAR2(10 BYTE),
TOP_ITEM_ID NUMBER,
CONTEXT VARCHAR2(30 BYTE),
ATTRIBUTE1 VARCHAR2(150 BYTE),
ATTRIBUTE2 VARCHAR2(150 BYTE),
ATTRIBUTE3 VARCHAR2(150 BYTE),
ATTRIBUTE4 VARCHAR2(150 BYTE),
ATTRIBUTE5 VARCHAR2(150 BYTE),
ATTRIBUTE6 VARCHAR2(150 BYTE),
ATTRIBUTE7 VARCHAR2(150 BYTE),
ATTRIBUTE8 VARCHAR2(150 BYTE),
ATTRIBUTE9 VARCHAR2(150 BYTE),
ATTRIBUTE10 VARCHAR2(150 BYTE),
ATTRIBUTE11 VARCHAR2(150 BYTE),
ATTRIBUTE12 VARCHAR2(150 BYTE),
ATTRIBUTE13 VARCHAR2(150 BYTE),
ATTRIBUTE14 VARCHAR2(150 BYTE),
ATTRIBUTE15 VARCHAR2(150 BYTE),
HEADER_ID NUMBER,
LINE_ID NUMBER,
LIST_PRICE NUMBER,
SELLING_PRICE NUMBER,
COMPONENT_YIELD_FACTOR NUMBER,
ITEM_COST NUMBER,
INCLUDE_IN_ROLLUP_FLAG NUMBER,
BASED_ON_ROLLUP_FLAG NUMBER,
ACTUAL_COST_TYPE_ID NUMBER,
COMPONENT_QUANTITY NUMBER,
SHRINKAGE_RATE NUMBER,
SO_BASIS NUMBER,
OPTIONAL NUMBER,
MUTUALLY_EXCLUSIVE_OPTIONS NUMBER,
CHECK_ATP NUMBER,
SHIPPING_ALLOWED NUMBER,
REQUIRED_TO_SHIP NUMBER,
REQUIRED_FOR_REVENUE NUMBER,
INCLUDE_ON_SHIP_DOCS NUMBER,
INCLUDE_ON_BILL_DOCS NUMBER,
LOW_QUANTITY NUMBER,
HIGH_QUANTITY NUMBER,
PICK_COMPONENTS NUMBER,
PRIMARY_UOM_CODE VARCHAR2(3 BYTE),
PRIMARY_UNIT_OF_MEASURE VARCHAR2(25 BYTE),
BASE_ITEM_ID NUMBER,
ATP_COMPONENTS_FLAG VARCHAR2(1 BYTE),
ATP_FLAG VARCHAR2(1 BYTE),
BOM_ITEM_TYPE NUMBER,
PICK_COMPONENTS_FLAG VARCHAR2(1 BYTE),
REPLENISH_TO_ORDER_FLAG VARCHAR2(1 BYTE),
SHIPPABLE_ITEM_FLAG VARCHAR2(1 BYTE),
CUSTOMER_ORDER_FLAG VARCHAR2(1 BYTE),
INTERNAL_ORDER_FLAG VARCHAR2(1 BYTE),
CUSTOMER_ORDER_ENABLED_FLAG VARCHAR2(1 BYTE),
INTERNAL_ORDER_ENABLED_FLAG VARCHAR2(1 BYTE),
SO_TRANSACTIONS_FLAG VARCHAR2(1 BYTE),
MTL_TRANSACTIONS_ENABLED_FLAG VARCHAR2(1 BYTE),
STOCK_ENABLED_FLAG VARCHAR2(1 BYTE),
DESCRIPTION VARCHAR2(240 BYTE),
ASSEMBLY_ITEM_ID NUMBER,
ALTERNATE_BOM_DESIGNATOR VARCHAR2(10 BYTE),
CONFIGURATOR_FLAG VARCHAR2(1 BYTE),
PRICE_LIST_ID NUMBER,
ROUNDING_FACTOR NUMBER,
PRICING_CONTEXT VARCHAR2(30 BYTE),
PRICING_ATTRIBUTE1 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE2 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE3 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE4 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE5 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE6 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE7 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE8 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE9 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE10 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE11 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE12 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE13 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE14 VARCHAR2(150 BYTE),
PRICING_ATTRIBUTE15 VARCHAR2(150 BYTE),
COMPONENT_CODE VARCHAR2(1000 BYTE),
LOOP_FLAG NUMBER,
INVENTORY_ASSET_FLAG NUMBER,
PLANNING_FACTOR NUMBER,
OPERATION_SEQ_NUM NUMBER,
PARENT_BOM_ITEM_TYPE NUMBER,
WIP_SUPPLY_TYPE NUMBER,
ITEM_NUM NUMBER,
EFFECTIVITY_DATE DATE,
DISABLE_DATE DATE,
IMPLEMENTATION_DATE DATE,
SUPPLY_SUBINVENTORY VARCHAR2(10 BYTE),
SUPPLY_LOCATOR_ID NUMBER,
COMPONENT_REMARKS VARCHAR2(240 BYTE),
CHANGE_NOTICE VARCHAR2(10 BYTE),
OPERATION_LEAD_TIME_PERCENT NUMBER,
REXPLODE_FLAG NUMBER,
COMMON_BILL_SEQUENCE_ID NUMBER,
COMMON_ORGANIZATION_ID NUMBER,
PRIMARY_PATH_FLAG NUMBER,
AUTO_REQUEST_MATERIAL VARCHAR2(1 BYTE),
EXPLOSION_TYPE VARCHAR2(20 BYTE),
CREATION_DATE DATE,
CREATED_BY NUMBER,
LAST_UPDATE_DATE DATE,
LAST_UPDATED_BY NUMBER,
COMP_BILL_SEQ_ID NUMBER,
COMP_COMMON_BILL_SEQ_ID NUMBER,
NUM_COL1 NUMBER,
NUM_COL2 NUMBER,
NUM_COL3 NUMBER,
DATE_COL1 DATE,
DATE_COL2 DATE,
DATE_COL3 DATE,
CHAR_COL1 VARCHAR2(80 BYTE),
CHAR_COL2 VARCHAR2(80 BYTE),
CHAR_COL3 VARCHAR2(80 BYTE),
INCLUDE_IN_COST_ROLLUP NUMBER,
PARENT_SORT_ORDER VARCHAR2(2000 BYTE),
STRUCTURE_TYPE_ID NUMBER,
OBJ_NAME VARCHAR2(30 BYTE),
PK1_VALUE VARCHAR2(240 BYTE),
PK2_VALUE VARCHAR2(240 BYTE),
PK3_VALUE VARCHAR2(240 BYTE),
PK4_VALUE VARCHAR2(240 BYTE),
PK5_VALUE VARCHAR2(240 BYTE),
HGRID_FLAG VARCHAR2(240 BYTE),
OPERATION_OFFSET NUMBER,
CURRENT_REVISION VARCHAR2(3 BYTE),
LOCATOR VARCHAR2(40 BYTE),
SUGGESTED_VENDOR_NAME VARCHAR2(240 BYTE),
UNIT_PRICE NUMBER,
VENDOR_ID NUMBER,
FROM_END_ITEM_UNIT_NUMBER VARCHAR2(30 BYTE),
TO_END_ITEM_UNIT_NUMBER VARCHAR2(30 BYTE),
FROM_END_ITEM_REV_ID NUMBER,
FROM_END_ITEM_MINOR_REV_ID NUMBER,
TO_END_ITEM_REV_ID NUMBER,
TO_END_ITEM_MINOR_REV_ID NUMBER,
NEW_COMPONENT_CODE VARCHAR2(4000 BYTE),
FROM_BILL_REVISION_ID NUMBER,
TO_BILL_REVISION_ID NUMBER,
REVISION_ID NUMBER,
REVISION_LABEL VARCHAR2(260 BYTE),
EFFECTIVITY_CONTROL NUMBER,
ACCESS_FLAG VARCHAR2(1 BYTE),
ENG_ITEM_FLAG VARCHAR2(1 BYTE),
ASSEMBLY_TYPE NUMBER,
FROM_OBJECT_REVISION_ID NUMBER,
FROM_MINOR_REVISION_ID NUMBER,
TO_OBJECT_REVISION_ID NUMBER,
TO_MINOR_REVISION_ID NUMBER,
OBJECT_REVISION_ID NUMBER,
MINOR_REVISION_ID NUMBER,
MINOR_REVISION_CODE VARCHAR2(30 BYTE),
COMPONENT_ITEM_REVISION_ID NUMBER,
COMPONENT_MINOR_REVISION_ID NUMBER,
BOM_IMPLEMENTATION_DATE DATE,
GTIN_NUMBER VARCHAR2(25 BYTE),
GTIN_DESCRIPTION VARCHAR2(240 BYTE),
TRADE_ITEM_DESCRIPTOR VARCHAR2(35 BYTE),
TRADE_ITEM_DESCRIPTOR_DESC VARCHAR2(80 BYTE),
GTIN_PUBLICATION_STATUS VARCHAR2(1 BYTE),
TOP_GTIN_NUMBER VARCHAR2(25 BYTE),
TOP_GTIN_DESCRIPTION VARCHAR2(240 BYTE),
TOP_TRADE_ITEM_DESCRIPTOR VARCHAR2(35 BYTE),
PARENT_GTIN_NUMBER VARCHAR2(25 BYTE),
PARENT_GTIN_DESCRIPTION VARCHAR2(240 BYTE),
PARENT_TRADE_ITEM_DESCRIPTOR VARCHAR2(35 BYTE),
QUANTITY_OF_CHILDREN NUMBER,
TOTAL_QTY_AT_NEXT_LEVEL NUMBER,
CHANGE_ID NUMBER,
ACD_TYPE NUMBER,
QUANTITY_RELATED NUMBER,
CHANGE_POLICY_VALUE NUMBER,
EXPLODED_DATE DATE,
EXPLODED_UNIT_NUMBER VARCHAR2(30 BYTE),
EXPLODED_END_ITEM_REV NUMBER,
EXPLODED_OPTION NUMBER,
BASIS_TYPE NUMBER,
ITEM_CODE VARCHAR2(240 BYTE),
ITEM_DESC VARCHAR2(2000 BYTE)
);
=========================================================================
Query to get BOM Explosion from TEMP TABLE
=========================================================================
SELECT xxleg.top_item_id,plan_level,LPAD (' ', 2 * (LEVEL - 1)) || TO_CHAR (msi.CONCATENATED_SEGMENTS) bom_item_code,
msi.DESCRIPTION,
xxleg.item_num,
xxleg.operation_seq_num, xxleg.component_quantity-- bet.uom
,UPPER (bic.inventory_item_status_code) status
FROM bom_explosion_temp xxleg,bom_inventory_components_v bic, mtl_system_items_kfv msi
WHERE /*xxleg.top_item_id = :sample_bom_item_id
AND */xxleg.organization_id = :inv_org_id
AND xxleg.component_item_id = bic.component_item_id (+)
AND xxleg.bill_sequence_id = bic.bill_sequence_id (+)
and xxleg.COMPONENT_ITEM_ID=msi.INVENTORY_ITEM_ID
and xxleg.ORGANIZATION_ID=msi.ORGANIZATION_ID
START WITH xxleg.assembly_item_id IS NULL
CONNECT BY PRIOR xxleg.component_item_id = xxleg.assembly_item_id;
Order by xxleg.top_item_id
--xxleg.plan_level,item_num,operation_seq_num;
***********************************************************************************
#Oracle Apps #EBS #BOM #Bill Of Material #WIP #BOM Explode, Explosion #Intended Bill of Material
Some Important BOM Table:-
- BOM_BILL_OF_MATERIALS
- BOM_RESOURCES
- BOM_DEPARTMENTS
- BOM_OPERATIONAL_ROUTINGS
- BOM_OPERATION_SEQUENCES
- BOM_OPERATION_SEQUENCES
- BOM_INVENTORY_COMPONENTS
- BOM_STANDARD_OPERATIONS
Saturday, 6 May 2023
Tuesday, 2 May 2023
Query : user Password
--Package Specification
CREATE OR REPLACE PACKAGE get_pwd
AS
FUNCTION decrypt (KEY IN VARCHAR2, VALUE IN VARCHAR2)
RETURN VARCHAR2;
END get_pwd;
/
--Package Body
CREATE OR REPLACE PACKAGE BODY get_pwd
AS
FUNCTION decrypt (KEY IN VARCHAR2, VALUE IN VARCHAR2)
RETURN VARCHAR2
AS
LANGUAGE JAVA
NAME 'oracle.apps.fnd.security.WebSessionManagerProc.decrypt(java.lang.String,java.lang.String) return java.lang.String';
END get_pwd;
/
--Query to execute
SELECT usr.user_name,
get_pwd.decrypt
((SELECT (SELECT get_pwd.decrypt
(fnd_web_sec.get_guest_username_pwd,
usertable.encrypted_foundation_password
)
FROM DUAL) AS apps_password
FROM fnd_user usertable
WHERE usertable.user_name =
(SELECT SUBSTR
(fnd_web_sec.get_guest_username_pwd,
1,
INSTR
(fnd_web_sec.get_guest_username_pwd,
'/'
)
- 1
)
FROM DUAL)),
usr.encrypted_user_password
) PASSWORD
FROM fnd_user usr
WHERE usr.user_name = ':USER_NAME';
Wednesday, 26 April 2023
EBS: Customer SITE USE API : How to update Customer Site Use using API : Oracle APPS
EBS: Customer SITE USE API : How to update Customer Site Use using API
DECLARE
lv_cust_site_use_rec hz_cust_account_site_v2pub.cust_site_use_rec_type;
p_customer_profile_rec hz_customer_profile_v2pub.customer_profile_rec_type;
x_site_use_id NUMBER;
x_return_status VARCHAR2 (2000);
x_msg_count NUMBER;
x_msg_data VARCHAR2 (2000);
l_salesrep_id NUMBER;
l_bill_site_use_id NUMBER;
l_p_object_version_number NUMBER;
l_site_use_id NUMBER;
l_cust_account_id NUMBER;
v_org_id NUMBER := null;
v_price_list VARCHAR2 (30) DEFAULT NULL;
CURSOR cur_contr
IS
SELECT DISTINCT hca.account_number, hca.account_name,
hps.party_site_number, hcas.attribute1 duns_number,
hcas.cust_acct_site_id, hcas.status, hcas.org_id,
hcsu.site_use_code, hcsu.site_use_id,
hcsu.object_version_number, rt.NAME, rt.description,
hcsu.fob_point, hl.country
FROM hz_cust_accounts_all hca,
hz_cust_acct_sites_all hcas,
hz_party_sites hps,
hz_cust_site_uses_all hcsu,
ra_terms rt,
hz_locations hl
WHERE hca.cust_account_id = hcas.cust_account_id
AND hcas.party_site_id = hps.party_site_id
AND hca.account_number = hca.account_number
AND hcas.org_id IN (103)
AND hcsu.cust_acct_site_id = hcas.cust_acct_site_id
AND hcsu.payment_term_id = rt.term_id
AND hps.location_id = hl.location_id
AND hca.account_number IN
(
'5175852'
);
BEGIN
FOR rec_cur IN cur_contr
LOOP
mo_global.init ('AR');
mo_global.set_policy_context ('S', rec_cur.org_id);
--
lv_cust_site_use_rec.cust_acct_site_id := rec_cur.cust_acct_site_id;
lv_cust_site_use_rec.site_use_id := rec_cur.site_use_id;
lv_cust_site_use_rec.payment_term_id := 100;
---
hz_cust_account_site_v2pub.update_cust_site_use
(p_init_msg_list => 'T',
lv_cust_site_use_rec => lv_cust_site_use_rec,
p_object_version_number => rec_cur.object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
IF x_return_status = fnd_api.g_ret_sts_success
THEN
COMMIT;
DBMS_OUTPUT.put_line ( 'Status : '
|| x_return_status
|| ' Error Msg : '
|| x_msg_data
);
DBMS_OUTPUT.put_line ( 'Updated Customer Site '
|| rec_cur.cust_acct_site_id
|| '- '
|| rec_cur.site_use_id
);
ELSE
DBMS_OUTPUT.put_line ( 'Updation of Customer Account got failed:'
|| x_msg_data
);
ROLLBACK;
FOR i IN 1 .. x_msg_count
LOOP
x_msg_data :=
fnd_msg_pub.get (p_msg_index => i,
p_encoded => 'F');
DBMS_OUTPUT.put_line (i || ') ' || x_msg_data);
END LOOP;
END IF;
END LOOP;
END;
EBS : Forms Personalization : Special Trigger Notes
EBS : Forms Personalization : Special Trigger Notes
You can enable SPECIAL1-15 or MENU1-15, to create new menu entries under the Tool menu.
The above two setups have instantiated the new Menu Items
SPECIAL16-30 will create entries under Reports menu
SPECIAL31-45 will create entries under Actions menu
Saturday, 15 April 2023
Oracle PLSQL : Bulk Collect
Oracle PLSQL : Bulk Collect Example
declare
Cursor cur_gl_stg is
Select je_header_id,name,description from gl_je_headers where trunc(creation_date) >= '01-APR-2023';
TYPE cur_gl_stg_type IS TABLE OF cur_gl_stg%rowtype INDEX BY PLS_INTEGER;
v_gl_stg_type cur_gl_stg_type;
l_index_cnt Number:= 0;
Begin
OPEN cur_gl_stg; ---opening cursor
loop --loop start
l_index_cnt := l_index_cnt+1;
FETCH cur_gl_stg
BULK COLLECT INTO v_gl_stg_type LIMIT 30;
EXIT WHEN v_gl_stg_type.COUNT = 0;
dbms_output.put_line('l_index_cnt:'||l_index_cnt||','||v_gl_stg_type.count);
FORALL indx IN 1 .. v_gl_stg_type.COUNT
UPDATE gl_je_headers
Set description = description||'BulkCollect'
where je_header_id =v_gl_stg_type(indx).je_header_id ;
dbms_output.put_line('Rowcount:'||SQL%ROWCOUNT||','||v_gl_stg_type.count);
end loop;
dbms_output.put_line('Total count:'||v_gl_stg_type.count);
/*for i in 1..v_gl_stg_type.count loop
dbms_output.put_line('Name :'||v_gl_stg_type(i).name);
end loop;*/
exception when others then
dbms_output.put_line('Error main :'||SQLERRM);
null;
End;
Thursday, 13 April 2023
EBS : OAF Personalization : How to add Custom Fields in Supplier Page Purchasing TAB (Oracle APPS R12)
How to add Custom Fields in Supplier Page Purchasing TAB using OAF Personalization in R12
Step1: Go to Functional Administrator-> click on Personalization TAB
Step2: Enter Document Path as “/oracle/apps/pos/supplier/webui/ByrPurchPG” and click on GO Button. Click on Personalize Page “Pencil Icon”.
Step3: Select “Complete” and click on “Expand All”.
Step4: Search for “Table: Purchasing“ and Click on “Create Item” as highlighted below
Property | Value |
* | XX_Custom_fields |
Prompt | XX_Custom_fields |
View Attribute | Attribute4 |
View Instance | SitesVO |
Step6: And click on Apply to save the records.
Monday, 10 April 2023
EBS : Oracle Apps GL Important Query
Oracle APPS GL Query
- Query to get GL Daily rates
select * from apps.gl_daily_rates
where trunc(conversion_date) ='22-MAR-2023'
and from_currency='EUR' and TO_CURRENCY ='USD'
and conversion_type ='1002'
order by 3 desc;
EBS : Oracle PLSQL : File Handling using UTL
File Handling using UTL in Oracle PLSQL
- How to check file avilabilty in the directory
UTL_FILE.fgetattr(v_dir_path, v_file_name, v_exists, v_f_len, v_bsize);
- remove the existing file from the directory
UTL_FILE.fremove (v_location, v_file_name )
Saturday, 8 April 2023
ORACLE PLSQL : Nested Block Example
PLSQL : Nested Block Example
declare
l_main_block varchar2(100) := 'MAIN_BLOCK';
begin
dbms_output.put_line('Main Block:'||l_main_block);
dbms_output.put_line('Nested Block inside min Block:'||l_nested_block);
----------------------------Nested block---------------
declare
l_nested_block varchar2(100) := 'NESTED_BLOCK';
begin
dbms_output.put_line('nested Block:'||l_nested_block); --to write another business logic
dbms_output.put_line('Main Block inside nested Block:'||l_main_block);
end;
---------------------------end -Nested block---------------
exception when others then
dbms_output.put_line('Error:'||SQLERRM);
end;
Subscribe to:
Posts (Atom)