Sunday, February 12, 2012

Film Songs Based on Raga Charukeshi

There are Many Bollywood Songs Based on Indian classical Raga Charukeshi.


Some of Them are as under.



  • Bhuli Bisri Yadon Me                                  Viruddh




  • Rabba Hay Rabba                                         Mr & Mrs Khanna





  • Sham Teri Bansi                                                                     Geet Gata Chal



  • Hansla Halo Ne Have                                                     Gujarati bhajan

  • Ustad Rashid Khan                                                                           Coke Studio India

  • Kuch Mere Dil ne Kaha                                                                           Tere mere Sapne

Kadiyan Mil sawanl yar Ve                                                  Fuzion Band






Baiyan Na Dharo                                                                             Dastak (OLD)



akele Hain Chale aao                                                                       Raaz (OLD)



Kisi rah me Kisi Mod Par                                                           Mere Humsafar


       
Chhod de sari Duniya                Saraswati Chandra


      
Bedardi Balma tujhko                                                                  Arzoo



Bekhudi me Sanam                                                                              Hasina Man Jayegi (OLD)



Megha re Megha re                                                                                      Pyasa Sawan

This is the 1st page I've made in this series of Hindi film songs based on Indian classical Ragas.Hope U'll love Ittt !!!

Monday, July 11, 2011

way 2 Accenture part1 ..... till DADAWADI


I am writing this on 11/07/2011. 5th day after my 22nd birthday. The time passed like a dream , from the joining date 22nd till date.



1. About a week ago from joining date I got a mail from Accenture regarding the joining date and Location.

    Before this mail Sarjak called me and talked that Everybody like him shrey Vaibhav etc coming from Plane , So R U interested So that i consider U while availing Tickets and I said Yes But When the joining mail comes Sarjak got Mumbai , Anubhav got Bengaluru and Rest of us are in Pune Location.



We discussed in the family and finalize that I will go by train Using TATKAL scheme and the the task of availing tickets is given to Pappu mama. Before a day of ago we foung that he didn’t manage to avail Tickets So we decided to go by Volvo Bus. Dhama mam asked me if I want to go in Semi Sleeper bus or Sleeper I asked the rates and Found that there is diff. of Rs 300 So I told him to avail Semi-Sleeper bus, But when Papa got the news he told dhama mama to cancel the semi 1 and Avail Sleeper 1.


The date has came, my bus was around 7 pm. Mummy not cried very much on that day, I liked that , may be not front of me. Manthan , Virag , Raxit  Mama and my Whole Family As well as Viru , Bhai , Hemu , Puneet From [Victory] Also came.

I arrived in pune near about 10 am at Swargate. There was a box in my hand which I supposed to give it to some MAHARAJ Saheb , it was looked like some Product so some Rickshow wala there asked me to pay Octroi tax for that, Because I didn’t know which thing was in it I avoided him.

I was supposed to go to Dadawadi so I asked some rickshow wala for the hiring amount but because I was came in a full sleeper Volvo they asked me to pay around 500-600 rupees. 1 rickshow wala said you’ve come to wrong station so this is the minimum amount , 1 said it ‘s very far so we didn't get any other passenger from that place so you have to pay the double wages . but because my father already told me that dadawadi is very near to swarget I was firm that I’ll not pay that much money. I tried but they didn’t come down much so I put final figure of Rs. 100 and 1 of the Honest kind of Rickshow wala came and agreed with me.

When we reached Dadawadi I found that it was so near that In ah’bad I hadn’t paid 20 rs for that but because I have very much luggage with me and I came out from Volvo this was somehow reasonable.














Friday, June 3, 2011

My first Realtime ABAP report ..ZAJD_PROD_MISS_PART_RPT

*&---------------------------------------------------------------------*
**& Report  ZAJD_PROD_MISS_PART_RPT                                     *
**&                                                                     *
**&---------------------------------------------------------------------*
**&                                                                     *
**&                                                                     *
**&---------------------------------------------------------------------*
*
REPORT  ZAJD_PROD_MISS_PART_RPT NO STANDARD PAGE HEADING .
**& TABLES                          ------------------------------------*
TABLES : AUFK,AFKO,AFPO,RESB.

**& Work Area                       ------------------------------------*
DATA : BEGIN OF WA_AUFK,
        AUFNR LIKE AUFK-AUFNR,  "Order Number
        AUART LIKE AUFK-AUART,  "Order Type
        ERDAT LIKE AUFK-ERDAT,  "Created on
        WERKS LIKE AUFK-WERKS,  "Plant
        OBJNR LIKE AUFK-OBJNR,  "Object number
        LOEKZ LIKE AUFK-LOEKZ,  "Deletion flag
        KDAUF LIKE AUFK-KDAUF,  "Sales Order Number
       END OF WA_AUFK.

*DATA : BEGIN OF WA_AFKO,
*        AUFNR LIKE AFKO-AUFNR,  "Order Number
*        GSTRI LIKE AFKO-GSTRI,  "Actual start date
*        FTRMI LIKE AFKO-FTRMI,  "Actual release date
*        RSNUM LIKE AFKO-RSNUM,  "Number of Reservation / Dependent Requirement
*       END OF WA_AFKO.
*
*DATA : BEGIN OF WA_AFPO,
*        AUFNR LIKE AFPO-AUFNR,  "Order Number
*        POSNR LIKE AFPO-POSNR,  "Order Item Number
*        PSMNG LIKE AFPO-PSMNG,  "Order item quantity
*        MATNR LIKE AFPO-MATNR,  "Material Number for Order
*       END OF WA_AFPO.

DATA : BEGIN OF WA_ORD,
        AUFNR LIKE AFPO-AUFNR,  "Order Number
        GSTRI LIKE AFKO-GSTRI,  "Actual start date
        FTRMI LIKE AFKO-FTRMI,  "Actual release date
        RSNUM LIKE AFKO-RSNUM,  "Number of Reservation / Dependent Requirement
        POSNR LIKE AFPO-POSNR,  "Order Item Number
        PSMNG LIKE AFPO-PSMNG,  "Order item quantity
        MATNR LIKE AFPO-MATNR,  "Material Number for Order
        KDAUF LIKE AFPO-KDAUF,  "Sales order number
        DAUAT LIKE AFPO-DAUAT,  "Order Type
        DWERK LIKE AFPO-DWERK,  "Plant
       END OF WA_ORD.


DATA : BEGIN OF WA_RESB,
        RSNUM LIKE RESB-RSNUM,  "Number of Reservation / Dependent Requirement
        RSPOS LIKE RESB-RSPOS,  "Item Number of Reservation / Dependent Requirements
        MATNR LIKE RESB-MATNR,  "Material Number
        BDMNG LIKE RESB-BDMNG,  "Requirement Quantity
        ENMNG LIKE RESB-ENMNG,  "Quantity withdrawn
        DUMPS LIKE RESB-DUMPS,
       END OF WA_RESB.

DATA : BEGIN OF WA_MAKT,
        MATNR LIKE MAKT-MATNR,  "Material Numeber
        MAKTX LIKE MAKT-MAKTX,  "Material Description
       END OF WA_MAKT.


DATA : BEGIN OF WA,
        AUFNR LIKE AUFK-AUFNR,  "Order Number
        AUART LIKE AUFK-AUART,  "Order Type
        ERDAT LIKE AUFK-ERDAT,  "Created on
        WERKS LIKE AUFK-WERKS,  "Plant
        KDAUF LIKE AUFK-KDAUF,  "Sales Order Number
        SODAT LIKE VBAK-ERDAT,  "Sales Order Date
        KUNNR LIKE VBAK-KUNNR,  "Customer Code
        PRODNO LIKE AFPO-MATNR, "Product Code
        PRQTY LIKE AFPO-PSMNG,  "Product Quantity
        MATNR LIKE RESB-MATNR,  "Material(Parts) Number
        MAKTX LIKE MAKT-MAKTX,  "Material Description
        OPQTY LIKE RESB-BDMNG,  "Open Quantity
       END OF WA.



**& Internal Tables                 ------------------------------------*
DATA : IT_AUFK LIKE WA_AUFK OCCURS 0 WITH HEADER LINE.
*DATA : IT_AFKO LIKE WA_AFKO OCCURS 0 WITH HEADER LINE.
*DATA : IT_AFPO LIKE WA_AFPO OCCURS 0 WITH HEADER LINE.
DATA : IT_RESB LIKE WA_RESB OCCURS 0 WITH HEADER LINE.
DATA : IT_ORD LIKE WA_ORD OCCURS 0 WITH HEADER LINE.
DATA : IT_MAKT LIKE WA_MAKT OCCURS 0 WITH HEADER LINE.
DATA : IT LIKE WA OCCURS 0 WITH HEADER LINE.


**& Variables                       ------------------------------------*
DATA : STR LIKE BSVX-STTXT.
DATA : MTXT LIKE MAKT-MAKTX,
       CNAME LIKE KNA1-NAME1.

DATA : OBJNR TYPE J_OBJNR.
DATA : OPENQTY TYPE RESB-BDMNG.

**& Selection Screen                ------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : S_WERKS FOR AUFK-WERKS,
                 S_AUART FOR AUFK-AUART,
                 S_AUFNR FOR AUFK-AUFNR,
                 S_MATNR FOR AFPO-MATNR,
*                 S_ERDAT FOR AUFK-ERDAT,
                 S_KDAUF FOR AUFK-KDAUF.

SELECTION-SCREEN END OF BLOCK B1.

**& Start of selection               ------------------------------------*
START-OF-SELECTION.
*BREAK-POINT.
  SELECT *
  FROM AFPO
  JOIN AFKO ON AFKO~AUFNR = AFPO~AUFNR
                      INTO CORRESPONDING FIELDS OF TABLE IT_ORD
                      WHERE AFPO~AUFNR IN S_AUFNR
                      AND   AFPO~KDAUF IN S_KDAUF
                      AND   AFPO~MATNR IN S_MATNR
                      AND   AFPO~DWERK IN S_WERKS
                      AND   AFPO~DAUAT IN S_AUART.

*SELECT * FROM AUFK INTO CORRESPONDING FIELDS OF TABLE IT_AUFK
*                    WHERE AUFNR IN S_AUFNR
*                    AND   AUART IN S_AUART
*                    AND   ERDAT IN S_ERDAT
*                    AND   WERKS IN S_WERKS
*                    AND   LOEKZ NE 'X'
*                    AND   KDAUF IN S_KDAUF.

CHECK IT_ORD[] IS NOT INITIAL.
LOOP AT IT_ORD.

CLEAR OBJNR.
CONCATENATE 'OR' IT_ORD-AUFNR INTO OBJNR.

CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
   CLIENT                  = SY-MANDT
    OBJNR                   = OBJNR
    SPRAS                   = SY-LANGU
 IMPORTING
   LINE                     = STR
 EXCEPTIONS
   OBJECT_NOT_FOUND        = 1
   OTHERS                  = 2
          .
IF SY-SUBRC <> 0.
  message 'Object Number not find' type 'I'.
ENDIF.

SEARCH STR FOR 'REL'.

  IF SY-SUBRC ne 0.
      DELETE IT_ORD.
  ENDIF.

  CLEAR IT_ORD.
ENDLOOP.

*CHECK IT_AUFK[] IS NOT INITIAL.
*  SELECT *
*  FROM AFKO JOIN AFPO ON AFKO~AUFNR = AFPO~AUFNR
*                      INTO CORRESPONDING FIELDS OF TABLE IT_ORD
*                      FOR ALL ENTRIES IN IT_AUFK
*                      WHERE AFKO~AUFNR = IT_AUFK-AUFNR.

IF IT_ORD[] IS NOT INITIAL.

  SELECT * FROM RESB INTO CORRESPONDING FIELDS OF TABLE IT_RESB
                     FOR ALL ENTRIES IN IT_ORD
                     WHERE RSNUM = IT_ORD-RSNUM.
ENDIF.

IF IT_RESB[] IS NOT INITIAL.

  SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
                     FOR ALL ENTRIES IN IT_RESB
                     WHERE MATNR = IT_RESB-MATNR
                     AND   SPRAS = SY-LANGU.

ENDIF.


CLEAR IT_RESB.

LOOP AT IT_RESB.

CLEAR OPENQTY.
OPENQTY = IT_RESB-BDMNG - IT_RESB-ENMNG.

  IF OPENQTY > 0 AND IT_RESB-DUMPS <> 'X'.

    IT-MATNR = IT_RESB-MATNR.
    IT-OPQTY = OPENQTY.

 READ TABLE IT_MAKT WITH KEY MATNR = IT-MATNR.
      IT-MAKTX = IT_MAKT-MAKTX.

 READ TABLE IT_ORD WITH KEY  RSNUM = IT_RESB-RSNUM.
      IT-AUFNR  = IT_ORD-AUFNR.
      IT-PRQTY  = IT_ORD-PSMNG.
      IT-PRODNO = IT_ORD-MATNR.

      IT-AUART = IT_ORD-DAUAT.
      IT-WERKS = IT_ORD-DWERK.
      IT-KDAUF = IT_ORD-KDAUF.

* READ TABLE IT_AUFK WITH KEY AUFNR = IT-AUFNR.
*      IT-AUART = IT_AUFK-AUART.
*      IT-ERDAT = IT_AUFK-ERDAT.
*      IT-WERKS = IT_AUFK-WERKS.
*      IT-KDAUF = IT_AUFK-KDAUF.

    SELECT SINGLE ERDAT KUNNR
    FROM VBAK
    INTO (IT-SODAT, IT-KUNNR)
    WHERE VBELN = IT-KDAUF.

    SELECT SINGLE MAKTX
    FROM MAKT INTO (IT-MAKTX)
    WHERE MATNR = IT_RESB-MATNR.


APPEND IT.
CLEAR : IT,IT_MAKT,IT_ORD,IT_AUFK.
ENDIF.
ENDLOOP.

SORT IT BY WERKS AUFNR PRODNO MATNR.

LOOP AT IT.

ON CHANGE OF IT-AUFNR.

WRITE : /1(85) SY-ULINE.
WRITE : / .

WRITE : /3 'PLANT' ,
        20 IT-WERKS color 6 inverse intensified on,
        40 'SO NO' ,
        55 IT-KDAUF color 6 inverse intensified on ,
        70 'SO DATE' ,
        80 IT-SODAT color 6 inverse intensified on.


clear : MTXT,CNAME.
SELECT SINGLE NAME1 INTO CNAME FROM KNA1 WHERE KUNNR = IT-KUNNR.

WRITE : /3 'ORDER' ,
        20 IT-AUFNR color 6 inverse intensified on,
        40 'CUST. NAME' ,
        55 CNAME  color 6 inverse intensified on.

SELECT SINGLE MAKTX INTO MTXT FROM MAKT WHERE MATNR = IT-PRODNO.

WRITE : /3 'PRODUCT CODE' ,
        20 IT-PRODNO color 6 inverse intensified on,
        40  'DESCRIPTION' ,
        55 MTXT color 6 inverse intensified on.

WRITE : /3 'QUANTITY' ,
        20 IT-PRQTY LEFT-JUSTIFIED color 6 inverse intensified on.

WRITE : / .

WRITE : /1(85) SY-ULINE.

FORMAT  COLOR 3 INTENSIFIED ON.
WRITE : /1 SY-VLINE,
        2   'MATERIAL',
        22 SY-VLINE,
        23  'DESCRIPTION',
        65 SY-VLINE,
        71  'OPEN QUANTITY',
        SY-VLINE.

FORMAT COLOR OFF.

WRITE : /1(85) SY-ULINE.

ENDON.


FORMAT  COLOR 4 INTENSIFIED ON.

WRITE : / SY-VLINE ,
          IT-MATNR ,
          SY-VLINE,
          IT-MAKTX ,
          SY-VLINE,
          IT-OPQTY,
          SY-VLINE.

FORMAT COLOR OFF.


ENDLOOP.
WRITE : /1(85) SY-ULINE.

Wednesday, April 27, 2011

SnapDeal ROCKS

I First Time Used SnapDeal.com to Enroll For Learning Guitar only @ 125 Rs.a Month .. and It Works Very Fine , Good Deals Everyday .. Really E-Commerce In India is becoming BIG with Snapdeal .... it ROX...

Tuesday, April 26, 2011

My Favourite RAAG

INTRO

Rag Malkauns (A.K.A. Malkosh) is a very popular rag in the North Indian system (Hindustani Sangeet).  In the South it is known as Hindolam.  It is a pentatonic rag that has has the five notes Sa, Komal Ga, Ma, Komal Dha, and Komal Ni.  One would think that with so many komal (flat) notes that it would have a strong minor quality about it.  However, upon close examination we see that the absence of the fifth and the strong presence of the fourth causes the mind to "invert" it.  Therefore, it tends to sound surprisingly similar to Dhani to which it has a murchana relationship.
Malkauns has a long history, and it appears to have undergone numerous changes over the centuries.  It is said that Malkauns is derived from Malav Kaushik.  However, modern Malkauns has no resmblence to this ancient rag.
The mood is meditative, perhaps even sad.  Therefore, it tends to be played in slow to medium speeds.
The modality of Malkauns is not shared with any other rags.  Therefore there is really no need to go beyond the basic mode in order to define Malkauns.

Arohana : 'n S g m d n S'
Avarohana : S' n d m g m g S, or S' n d m g S

Jati

Audav - Audav

Vadi

Ma

Samvadi

Sa

Time

Midnight

That

Bhairavi That

Drone

Sa - Ma - (general discussion of drone)



Bollywood Songs Based On RAGA Malkauns


ViDeos For "MALKAUNS" 


Man tarapat hari darshanko - Baiju BawraAdha hai chandrama rat adhi - NavrangTu chhupi hai kahan - NavrangYe kahani hai diyeki aur tufanaki - Tufan aur Diya    
O pavanvegase udanevale ghode - Jai ChaittaurZindagibhara Gam judaika mujhe
Ankhiyana sang ankhiya lagi aaj - Bada Aadami Balma manena
Paga ghungharu bole chananana chanh
Savanki rat kari kari
Mujhe na bula - Suvarna SundariAi man tere bachche kai karoda
Saghan ban phulyo re - A bhajan by Pandit JasrajDip jalaye jo ggton ke maine - KalakaarAaye sur ke panchhi aaye - Sur Sangam

Converting ROW Data into Column Data In ABAP

*&---------------------------------------------------------------------*
*& Report ZROW2COLUM *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZROW2COLUM LINE-SIZE 1000.
selection-screen: begin of block b1 with frame title text-t01.
TABLES : MVER.
DATA : begin of MVER_IT OCCURS 0,
GJAHR(12) TYPE C,
GSV01(6) TYPE P DECIMALS 2,
GSV02(6) TYPE P DECIMALS 2,
GSV03(6) TYPE P DECIMALS 2,
GSV04(6) TYPE P DECIMALS 2,
GSV05(6) TYPE P DECIMALS 2,
GSV06(6) TYPE P DECIMALS 2,
GSV07(6) TYPE P DECIMALS 2,
GSV08(6) TYPE P DECIMALS 2,
GSV09(6) TYPE P DECIMALS 2,
GSV10(6) TYPE P DECIMALS 2,
GSV11(6) TYPE P DECIMALS 2,
GSV12(6) TYPE P DECIMALS 2,
MATNR LIKE MVER-MATNR,
WERKS LIKE MVER-WERKS,
END OF MVER_IT.
DATA : MVER_TOTAL LIKE MVER_IT.
DATA: matnr like mver-matnr,
gjahr like mver-gjahr,
werks like mver-werks,
FYEAR(4) TYPE C,
line1 type i,
pos1 type i,
sum1 type i.
 
SELECT-OPTIONS matnr1 for matnr .
SELECT-OPTIONS year for gjahr .
SELECT-OPTIONS plant for werks .
selection-screen: end of block b1.
initialization.
line1 = 3.
pos1 = 1.
at selection-screen.


START-OF-SELECTION.
WRITE : / 'JANUARY'.
WRITE : / 'FEBRUARY'.
WRITE : / 'MARCH'.
WRITE : / 'APRIL'.
WRITE : / 'MAY'.
WRITE : / 'JUNE'.
WRITE : / 'JULY'.
WRITE : / 'AUGUST'.
WRITE : / 'SEPTEMBER'.
WRITE : / 'OCTOBER'.
WRITE : / 'NOVERMBER'.
WRITE : / 'DECEMBER'.

select * from mver into corresponding FIELDS OF table MVER_IT WHERE MATNR IN MATNR1 AND WERKS IN PLANT AND GJAHR IN YEAR.
 
LOOP AT MVER_IT.
pos1 = pos1 + 12.
line1 = 3.
skip to line line1.
position pos1.
WRITE : MVER_IT-GJAHR RIGHT-JUSTIFIED.
 
line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV01.
WRITE : SY-VLINE.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV02.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV03.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV04.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV05.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV06.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV07.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV08.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV09.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV10.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV11.

line1 = line1 + 1.
skip to line line1.
position pos1.
WRITE : MVER_IT-GSV12.
 
ENDLOOP.