10 Replies Latest reply: Jan 2, 2007 7:50 AM by 390657 RSS

    New Year Wishes

    jeneesh
      Hi All,

      <p><font size="7"><font color="#FF00FF"><span style="background-color: #FFFFFF">
      H</span></font><font color="#FF0000">a</font><font color="#00FFFF">p</font><font color="#FFFF00">p</font><font color="#C0C0C0">y</font>
      <font color="#0000FF">N</font><font color="#808080">e</font>w
      <font color="#00FF00">Y</font><font color="#FF00FF">e</font><font color="#FF0000">a</font><font color="#008000">r</font></font></p>


      Thanks to all
      <p><font size="3" color="#ff00f0">Jeneesh</font></p>
        • 1. Re: New Year Wishes
          516501
          Hi All,

          Wishing you all for HAPPY and PROSPEROUS NEW YEAR.

          Thanx.. Ratan
          • 2. Re: New Year Wishes
            cd_2
            I couldn't resist doing that one in PL/SQL ... ;-)
            *    * ****** ****** ****** *    *        *    * ****** *    *        *    * ****** ****** ******
            *    * *    * *    * *    * *    *        **   * *      *    *        *    * *      *    * *    *
            *    * *    * *    * *    * *    *        * *  * *      *    *        *    * *      *    * *    *
            ****** ****** ****** ****** ******        * *  * ****** * *  *        ****** ****** ****** ******
            *    * *    * *      *        *           *  * * *      ** * *          *    *      *    * *  *
            *    * *    * *      *        *           *   ** *      **  **          *    *      *    * *   *
            *    * *    * *      *        *           *    * ****** *    *          *    ****** *    * *    *
            DECLARE 
              C_Max_X CONSTANT NUMBER := 6;
              C_Max_Y CONSTANT NUMBER := 7;
              --
              TYPE t_matrix  IS TABLE OF VARCHAR2(6)   INDEX BY BINARY_INTEGER;
              TYPE t_display IS TABLE OF VARCHAR2(255) INDEX BY BINARY_INTEGER;
              --
              v_matrix  t_matrix;
              v_display t_display;
              --
              PROCEDURE Init(
                p_char IN VARCHAR2 := ' '
              )
              IS
              BEGIN
                FOR i IN 1..C_Max_Y 
                LOOP
                  v_matrix(i) := LPAD(p_char, C_Max_X, p_char);
                END LOOP;
              END Init;
              --
              PROCEDURE Dot(
                p_x    IN NUMBER
              , p_y    IN NUMBER
              , p_char IN VARCHAR2 := '*'
              )
              IS
              BEGIN
                v_matrix(p_y) := SUBSTR(v_matrix(p_y), 1, p_x - 1) || p_char || SUBSTR(v_matrix(p_y), p_x + 1);
              END Dot;
              --
              PROCEDURE h_Line(
                p_x_from IN NUMBER      := 1
              , p_y_from IN NUMBER      := 1
              , p_x_to   IN NUMBER      := C_Max_X
              , p_char   IN VARCHAR2    := NULL
              )
              IS
              BEGIN
                FOR i IN p_x_from .. p_x_to
                LOOP
                  Dot(i, p_y_from);
                END LOOP;
              END h_Line;
              --
              PROCEDURE v_Line(
                p_x_from IN NUMBER      := 1
              , p_y_from IN NUMBER      := 1
              , p_y_to   IN NUMBER      := C_Max_Y
              , p_char   IN VARCHAR2    := NULL
              )
              IS
              BEGIN
                FOR i IN p_y_from .. p_y_to
                LOOP
                  Dot(p_x_from, i);
                END LOOP;
              END v_Line;
              --
              PROCEDURE Line(
                p_x_from IN NUMBER      := 1
              , p_y_from IN NUMBER      := 1
              , p_x_to   IN NUMBER      := C_Max_X
              , p_y_to   IN NUMBER      := C_Max_Y
              , p_char   IN VARCHAR2    := NULL
              )
              IS
                v_step  NUMBER := (p_x_to - p_x_from) / (p_y_to - p_y_from); 
                v_x_pos NUMBER := p_x_from;
              BEGIN
                FOR i IN p_y_from .. p_y_to
                LOOP
                  Dot(v_x_pos, i);
                  v_x_pos := v_x_pos + v_step;
                END LOOP;
              END Line;
              --
              PROCEDURE set_matrix(
                p_char IN VARCHAR2 
              )
              IS
              BEGIN
                Init;
                --
                CASE p_char 
                     WHEN 'H' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X);
                          h_Line(p_y_from => C_Max_Y / 2);
                     WHEN 'A' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X);
                          h_Line(p_y_from => 1);
                          h_Line(p_y_from => C_Max_Y / 2);
                     WHEN 'P' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X, p_y_to => C_Max_Y / 2);
                          h_Line(p_y_from => 1);
                          h_Line(p_y_from => C_Max_Y / 2);
                     WHEN 'Y' THEN
                          v_Line(p_x_from => 1, p_y_to => C_Max_Y / 2);
                          v_Line(p_x_from => C_Max_X, p_y_to => C_Max_Y / 2);
                          v_Line(p_x_from => C_Max_X / 2, p_y_from => C_Max_Y / 2);
                          h_Line(p_y_from => C_Max_Y / 2);
                     WHEN 'N' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X);
                          Line;
                     WHEN 'E' THEN
                          v_Line(p_x_from => 1);
                          h_Line(p_y_from => 1);
                          h_Line(p_y_from => C_Max_Y / 2);
                          h_Line(p_y_from => C_Max_Y);
                     WHEN 'W' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X);
                          Line(p_x_from => C_Max_X / 2, p_y_from => C_Max_Y / 2);
                          Line(p_x_from => C_Max_X / 2, p_x_to => 1, p_y_from => C_Max_Y / 2);
                     WHEN 'R' THEN
                          v_Line(p_x_from => 1);
                          v_Line(p_x_from => C_Max_X, p_y_to => C_Max_Y / 2);
                          h_Line(p_y_from => 1);
                          h_Line(p_y_from => C_Max_Y / 2);
                          Line(p_x_from => C_Max_X / 2, p_y_from => C_Max_Y / 2);
                     ELSE
                          NULL;
                END CASE;
              END set_matrix;
              --
              PROCEDURE set_display(
                p_text IN VARCHAR2
              )
              IS
              BEGIN
                -- init display
                FOR i IN 1 .. C_Max_Y
                LOOP
                  v_display(i) := '';
                END LOOP;
                --
                FOR c_pos IN 1 .. LENGTH(p_text)
                LOOP
                  set_matrix(p_char => SUBSTR(p_text, c_pos, 1));
                  --
                  FOR I IN 1 .. C_Max_Y 
                  LOOP
                    v_display(i) := v_display(i) || ' ' || v_matrix(i);
                  END LOOP;
                END LOOP;
              END set_display;
            BEGIN
              set_display('HAPPY NEW YEAR');
              --
              FOR i IN 1..C_Max_Y 
              LOOP
                dbms_output.put_line(Trim(v_display(i)));
              END LOOP;
            END;
            C.
            • 3. Re: New Year Wishes
              432862
              Hi All,

              SELECT happiness,prosperity FROM life WHERE year >= 2006 ;

              UPDATE life SET failure_flag = "NO" , success_flag = "YES";

              INSERT INTO life VALUES ("friends","dreams") ;

              DELETE sorrows FROM life;

              COMMIT;

              GRANT smile TO all ;

              REVOKE enmity FROM all;



              Advanced HAPPY NEW YEAR Wishes
              • 4. Re: New Year Wishes
                Satish Kandi
                Wow!!! Now thats putting PL/SQL to work..

                Wish you the same "cd".. AND all members of this forum...

                Message was edited by:
                satishkandi
                • 5. Re: New Year Wishes
                  Billy~Verreynne
                  Sankar, you forgot...

                  DELETE FROM PERSONS WHERE type IN ('STUPID','JERK')

                  But that can easier be achieved by simply truncating the PERSONS table.
                  • 6. Re: New Year Wishes
                    Muthukumar S
                    Billy,
                    Why dont we have
                    DELETE from FORUM where KEYWORD like '%URGENT%'

                    Just kidding.

                    Wish you all a HAPPY NEW YEAR 2007
                    • 7. Re: New Year Wishes
                      K.B
                      Awesome PLSQL work "CD"...

                      A very happy and prosperous new year to all...
                      • 8. Re: New Year Wishes
                        RadhakrishnaSarma
                        My way of saying you best wishes.

                        http://www.goglogo.com/s.asp?lo=Wishing%20you%20all%20a%20Very%20%20%20%20%20%20%20%20Happy%20and%20prosperous%20New%20Year

                        Cheers
                        Sarma.
                        • 9. Re: New Year Wishes
                          532657
                          Hi all...
                          This is my way of new year wishes...

                          SELECT Translate('+`**~ #(% ^(`$','`~#(*^$+%','ayNepYrHw') FROM dual
                          • 10. Re: New Year Wishes
                            390657
                            Happy New Year to all

                            Regards,
                            Jai Ganesh