Storing Expression Value in PLSQL and Java

Every Expression return True or False. So we can easily store their value in Boolean expression

Using this Method we can easily check conditions instead of testing these scenarios in IF-ELSE condition .

---Example of Storing Expression Value in PLSQL

---Example of Storing Expression Value in PLSQL

--By mFaisal

declare

lExpressionValue boolean;

begin

  --- Expression Value

  lExpressionValue:=1=2 or 2=2;

 

  -- Is True Then

  ---1

  ---else

  --2

 

if  lExpressionValue Then

    --1

  DBMS_OUTPUT.put_line('Expression is  True..');

  else

    --- 2

  DBMS_OUTPUT.put_line('Expression is not True..');

  end if;

end;

Example of JAVA Code

public class Server {

    public static void main(String[] args) {

        Server.isTrue((1==2));

    //isTrue((1=1)));

    }

   

    public static void isTrue(boolean expression) {

    if (expression) {

       System.out.println("Expression is true.");

    }

    else

    {

        System.out.println("Expression is not true.");

    }

    }

   

   

}

Oracle DDL with EXECUTE IMMEDIATE -- Drop Multiple Object at once

If You want to Drop Multiple Object at once use this script. Please using

This script check cursor query and take update of your database

/* Formatted on 3/31/2020 1:40:01 am (QP5 v5.139.911.3011) */

DECLARE

   CURSOR OBJECTLIST

   IS

      SELECT    'Drop '

             || OBJECT_TYPE

             || '  '

             || OWNER

             || '.'

             || OBJECT_NAME

             || ''

                DROPCOMMAND

        FROM ALL_OBJECTS

       WHERE OWNER = 'APPS' AND OBJECT_NAME LIKE 'EBA%';

BEGIN

   FOR LDX IN OBJECTLIST

   LOOP

      DBMS_OUTPUT.PUT_LINE (TO_CHAR (LDX.DROPCOMMAND));

      BEGIN

         EXECUTE IMMEDIATE LDX.DROPCOMMAND;

         DBMS_OUTPUT.PUT_LINE ('Object has been dropped.');

      EXCEPTION

         WHEN OTHERS

         THEN

            DBMS_OUTPUT.

            PUT_LINE (

                  SQLERRM

               || ' While performing this Command,'

               || TO_CHAR (LDX.DROPCOMMAND));

      END;

   END LOOP;

END;

select 'Drop '||OBJECT_TYPE||'  '||OWNER||'.'||OBJECT_NAME||';'

from all_objects

where owner='APPS'

AND OBJECT_NAME LIKE 'EBA%'

Format date and time in a Windows batch script

@ECHO OFF
: Sets the proper date and time stamp with 24Hr Time for log file naming
: convention

SET HOUR=%time:~0,2%
SET dtStamp9=%date:~-4%%date:~4,2%%date:~7,2%_0%time:~1,1%%time:~3,2%%time:~6,2% 
SET dtStamp24=%date:~-4%%date:~4,2%%date:~7,2%_%time:~0,2%%time:~3,2%%time:~6,2%

if "%HOUR:~0,1%" == " " (SET dtStamp=%dtStamp9%) else (SET dtStamp=%dtStamp24%)

ECHO %dtStamp%

PAUSE

System Date & Time in Windos OS Command

echo %date%
Tue 02/11/2020

echo %time%
10:39:09.74

echo %date%  %time%
Tue 02/11/2020 10:39:09.74

index Table Type in PLSQL

DECLARE

  TYPE TABLENAMETYPE IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;

  L_TABLENAMETYPE TABLENAMETYPE;

BEGIN

  --YOU CAN USE THIS L_TABLENAMETYPE TYPE HERE

  L_TABLENAMETYPE(1) := 'AB';

  L_TABLENAMETYPE(2) := 'ABC';

  L_TABLENAMETYPE(3) := 'ABD';

  L_TABLENAMETYPE(4) := 'ABE';

  FOR LDX IN 1 .. L_TABLENAMETYPE.COUNT

 

   LOOP

 

    DBMS_OUTPUT.PUT_LINE(L_TABLENAMETYPE(LDX));

 

  END LOOP;

  ---DELETE ALL VALUES

  L_TABLENAMETYPE.DELETE;

END;

--RESULT

AB

ABC

ABD

ABE

---USE TABLE TYPE WITH BULK COLLECT INTO

DECLARE

CURSOR C IS

  SELECT * FROM EMP;

TYPE ANY_TABLE_TYPE IS TABLE OF EMP%ROWTYPE INDEX BY BINARY_INTEGER;

EMP_REC ANY_TABLE_TYPE;

BEGIN

  OPEN C;

  FETCH C BULK COLLECT

 

    INTO EMP_REC;

  CLOSE C;

  FORALL I IN EMP_REC.FIRST .. EMP_REC.LAST

 

    UPDATE EMP

   

       SET COMM = EMP_REC(I).SAL * 10 / 100

   

     WHERE EMPNO = EMP_REC(I).EMPNO;

  COMMIT;

END;

Perform Dynamic DLL in Oracle

EXECUTE IMMEDIATE statement can be used to execute dynamic SQL statements.

Syntax: EXECUTE IMMEDIATE 'User_Code';

--

-- Create/Drop Table using this PLSQL Script or Procedure

-- DLL Script

-- by mfaisal 02-Jan-2020

Declare

---Create

begin

  execute immediate 'CREATE TABLE X_DDL_ON_APPS (APPS_ID NUMBER)';

end;

Declare

--Drop with Oracle EBS Package

begin

  system.ad_apps_private.do_apps_ddl(schema_name => 'APPS',

                                     ddl_text => 'DROP TABLE X_DDL_ON_APPS ');

end;

Backup of all Oracle Database objects on Server with Procedure

----Backup With Procedure

---Create Directory

CREATE OR REPLACE DIRECTORY PS_DIR AS '/u01/oracle/PROD/fs2/EBSapps/appl/au/12.0.0/forms/BackUp';

---Create Procedure

  

   CREATE OR REPLACE PROCEDURE    EXPORT_DDL

AS

    V_DDL_CLOB  CLOB;

    VPATH VARCHAR2(255);

BEGIN

    FOR C IN (SELECT OBJECT_NAME, OBJECT_TYPE

             FROM USER_OBJECTS

             WHERE OBJECT_TYPE IN ('TABLE','VIEW','FUNCTION','PROCEDURE','PACKAGE','PACKAGE_BODY')

             and OBJECT_NAME like '%TGC%')

    LOOP

        V_DDL_CLOB := DBMS_METADATA.GET_DDL(C.OBJECT_TYPE, C.OBJECT_NAME);

        DBMS_XSLPROCESSOR.CLOB2FILE(V_DDL_CLOB, 'PS_DIR', C.OBJECT_TYPE || '_' || C.OBJECT_NAME||'.SQL');

    END LOOP;

END;

--- Call procedure

Exec EXPORT_DDL;