Oracle User Expiry Lock

LOGON('SYSTEM','HTP'||'@'||:PARAMETER.TNSNAMES);

:GLOBAL.EXP :=    'N';

 

      DECLARE

              my_stmt  VARCHAR2(2000);

              my_stmt2 VARCHAR2(2000);           

              ABC VARCHAR(200);

              A VARCHAR(1);

      BEGIN

            my_stmt2 := 'ALTER USER '||CHR(34)||'HTP'||CHR(34)||'ACCOUNT UNLOCK';

 

            FORMS_DDL(MY_STMT2);

      END;

      LOGOUT;

      LOGON('HTP','HTP'||'@'||:PARAMETER.TNSNAMES);

 

IF to_date(SYSDATE,'DD/MM/RRRR') >= TO_DATE(:PARAMETER.EXP_DATE,'DD/MM/RRRR') THEN

      DECLARE

              my_stmt VARCHAR2(2000);

      BEGIN

            my_stmt := 'ALTER USER '||CHR(34)||'HTP'||CHR(34)||'ACCOUNT LOCK';

            FORMS_DDL(MY_STMT);

            message('Trail version Expired. Plz ');

            :GLOBAL.EXP :=    'Y';

      END;

ELSE

      LOGOUT;

LOGON('HTP','HTP'||'@'||:PARAMETER.TNSNAMES);

 

END IF;

/*

:global.location  :=    '';

:global.curr      :=    '';

:global.user_name :=    '';

:global.company_name    :=    '';

*/