DECLARE
   A         NUMBER := 10;
   S         NUMBER := 28;
   I         NUMBER := 18;
   N         NUMBER := 22;
   radix     NUMBER := 36;
   m         NUMBER := 731;

   TYPE var_type IS TABLE OF NUMBER;


   var       var_type;
   lp        var_type;

   r1        NUMBER;
   r2        NUMBER;

   len       NUMBER;

   counter   NUMBER := 0;

   EXP exception;
BEGIN
   len := LENGTH ('ASIM');
   lp := var_type ();
   lp.EXTEND (len + 1);


   FOR i IN REVERSE 1 .. len
   LOOP
      lp (i) := i;
   --DBMS_OUTPUT.put_line (lp (i));
   END LOOP;

   var :=
      var_type (A,
                S,
                I,
                N);

   FOR i IN REVERSE lp.FIRST .. lp.LAST
   LOOP
      FOR j IN var.FIRST .. var.LAST + 1
      LOOP
         BEGIN
            IF lp (i) IS NULL
            THEN
               RAISE EXP;
            END IF;

            --DBMS_OUTPUT.put_line ('i=' || i || 'j=' || j || 'Varj' || var (j)|| 'Varj' || nvl(lp (j),0));
            DBMS_OUTPUT.put_line ('When values of Variable is' || var (i) || '-and loop is=' || lp (j));
            r1 := MOD ( (POWER (radix, lp (j)) * NVL (var (i), 0)), m);
            DBMS_OUTPUT.put_line (r1);
            


            counter := counter + 1;

            IF var.COUNT IS NOT NULL
            THEN
               var.delete (counter);
            END IF;

            EXIT;
         EXCEPTION
            WHEN EXP
            THEN
            DBMS_OUTPUT.put_line ('When values of Variable is' || 0|| '-and loop is=' || lp (j));
               
               r2 := MOD ( (POWER (radix, 0) * var (i)), m);
               DBMS_OUTPUT.put_line (r2);
               EXIT;
            WHEN OTHERS
            THEN
               EXIT;
         END;
      END LOOP;


      len := len - 1;
   END LOOP;
END;

quote:

---

Originally posted by BilalKhan

I need PL/SQL Code. plz help me in this regards!

Student

---