GSS-Concept Misunderstanding

GSS is used to load balancing/redundancy method that can be used if you have two different sites and two public ip blocks. However, I'm not quite understanding how GSS accomplishes this based on a couple of issues.
Even with GSS, arent we still relying on the global DNS to provide redundancy? In other words, if we register a GSS as our authoritative name servers instead of a true DNS servers so they can do the load balancing/failover based on their configurations/algorithms, its still the global DNS servers that determine which GSS to go to for primary or secondary GSS. Hence, take an example where I have two datacenters and two different ISPs. I point everything to my primary GSS at ISP1 to handle the load balancing of dns requests, whether it does it itself or redirects it to another GSS at datacenter2 on ISP2. That primary datacenter loses connection and hence that primary GSS becomes unresponsive. The secondary global DNS record would then point to the secondary GSS at a secondary IP address. The secondary GSS has been synced with the primary and everything is good to go. However, if you notice we are relying on the global dns to failover to the secondary GSS. The problem I see here and correct me if my understanding is wrong, the global dns will send the request to the primary, it wont receive a reply, then send the request to the secondary name server (GSS). It will do this for every request. It wont know to stop querying the primary and start going to the secondary. This creates a constant delay as it always try the primary first. Another issue with this is many DNS servers have already cached our primary name server (primary GSS). and hence the cache has to be updated before they will send the request to the secondary name server( secondary GSS). Again, this could create huge delays similar to te 24-48 hour delay when changing name server ip addresses.

Hi Peter,
Please check this discussion: Re: sapgui sso error: No security credentials were supplied
It looks like you have either
- SPN duplicate in your AD =>Check your AD with the command "setspn -Q "your SPN"
or
-your did not configure the SPN as SNC Name in your SAP GUI connection data
or
- No SPN exists for this Service account
KR
Valerie

Similar Messages

Star Schema and Cubes

Hi,
I'm learning the basic concept of data warehousing and I've some question in this regards.
1) I want to know, are we have to first create star schema and tables according to that star schema in dbms, from that star schema we have to built cubes OR we directly build cubes from extracted data through OLTP systems.
2) secondly, when we create cubes, in which formate they are store in dbms and are they directly load in the memory at run time?
Please clarify me in these concepts as new to data warehouse I've certain concept misunderstanding in this regards. Answers will be highly appreciated
Regards,
D.Abbasi

1) I want to know, are we have to first create star schema and tables according to that star schema in dbms, from that star schema we have to built cubes OR we directly build cubes from extracted data through OLTP systems. Star schema is the Dimensional Modeling Technique and that need to considered while creating Dimension and not cubes.
So you need to create first design your database either in Start schema or Snow flag and then need to create dimension tables and after wards Cubes.
2) secondly, when we create cubes, in which format they are store in dbms and are they directly load in the memory at run time?Cubes and Dimensions are stored in Database in some different format.
This is the nice article regarding how the data is store in DB,
http://www.dba-oracle.com/t_olap_dimensions_cubes.htm
Cheers
Nawneet
Edited by: Nawneet on Mar 29, 2010 5:47 AM
Edited by: Nawneet on Mar 29, 2010 5:50 AM

Free goods concept in STO

hi all,
i have an issue regarding free goods for STO betn plants.
our concept is to give free goods for ex- 10 out of 100 are free goods.
when i am creating a po with item catagory U, the free goods indicator is become vanice. so i am unable to process this free goods.
so if any settings is thr , then pls let me know.
regards,
susanta

hi
ru selling ur goods to ur plant?
in sto ur not selling the material to ur plant
so the issue of free goods is not there
thats why u cant see any kind of basic cost condition in that
as the material is transfer from one plant to another the inventory changes and so the the price in material master is get updated for the another plznt
refer following docs
with delivery
http://help.sap.com/bp_blv1600/V5600/BBLibrary/HTML/134_EN_IN.htm
without delivery
http://help.sap.com/bp_blv1600/V5600/BBLibrary/HTML/135_EN_IN.htm
hope it clears
regards
kunal
award if helpful

Concept of free –m command in Linux

I wanted to know the concept of free –m command as there are different rows of Mem, -/+ buffers/cache & Swap in the output. As an example, it is showing 195 as free Mem in my server but 13850 in the free section of the -/+ buffers/cache. The output needs in depth knowledge of the different parameters of the command.
I hope, my question is clear.
Please revert with the reply to my query.
Regards

This is my understanding. used and free column in line 2 can be used to find out total used and free memory for applications
[oracle@test ~]$ free
total used free shared buffers cached
Mem: 264122724 253692112 10430612 0 2074864 178696468
-/+ buffers/cache: 72920780 191201944
Swap: 8388600 0 8388600
select 264122724/1024/1024 "Total RAM" FROM DUAL; (264122724 ---from line 1 Mem)
Total RAM
251.887058
select (253692112-(2074864+178696468)) "used for applications" from dual; (used from line 1 - (buffers + cached) from line 1)
used for applications
--------------------- (matches with used from line 2)
72920780
select 10430612+2074864+178696468 "total free for applications" from dual;
total free for applications
191201944 (matches with free from line 2)
Edited by: vlethakula on Jan 17, 2013 7:18 AM

HR-ABAP-Infotypes concept

Hi Masters,
Can you please let me know the perfect reason for infotypes concept in HR-ABAP.
1 Why we are using infotypes and exactly what is purpose?
2.Why we are using LDB's why cannot we extract data directly from database tables?
3.Can you please give me clear explanations about these infotypes.

Hi
Infotype(s) are used in the Personnel Management (PA) module primarily. This is where personnel master data is stored. Data is grouped according to subject matter. The Human Resources component aims to enable the user to process employee data in an effective structure in accordance with business requirements. The data structure of infotypes mirrors a logical set of data records. Infotypes can be identified by their four-digit keys, for example, the Addresses infotype (0006). To facilitate reporting on past employee data, infotypes can be saved for specific periods.
Some people use the term HR ABAP to describe the method of managing the infotype data. Typically HR logical databases are used which offers more secure methods of accessing the infotype data. Once the infotypes are declared, you can use standard macros to access the data. Table TRMAC holds the macro name and the code behind it. This makes developing HR programs much quicker and easy to turn around.
HR uses INFOTYPES instead of tables.
There are different sub modules exist in HR.
For Personal Admn the Infotypes start with PA0000 to PA1999
Time Related Infotypes start with PA2000 to PA2999.
Orgn related Infotypes start with HRP1000 to HRP1999.
All custom developed infotypes stsrat with PA9000 onwards.
In payroll processing we use Clusters like PCL1,2,3 and 4.
Instead of Select query we use PROVIDE and ENDPROVIDE..
You have to assign a Logical Database in the attributes PNP.
Go through the SAp doc for HR programming and start doing.
http://www.sapdevelopment.co.uk/hr/hrhome.htm
See:
http://help.sap.com/saphelp_46c/helpdata/en/4f/d5268a575e11d189270000e8322f96/content.htm
http://help.sap.com/saphelp_47x200/helpdata/en/bb/bdb041575911d189240000e8323d3a/frameset.htm
see this link you would get information about types of infotypes
Logical databases are special ABAP programs that retrieve data and make it available toapplication programs. The most common use of logical databases is still to read data fromdatabase tables by linkin them to executable ABAP programs.
Logical databases contain Open SQL statements that read data from the database.You do not therefore need to use SQL in your own programs. The logical database reads theprogram, stores them in the program if necessary, and then passes them line by line to theapplication program or the function module LDB_PROCESS using an interface work area .
For further info
check link http://help.sap.com/saphelp_nw70/helpdata/en/9f/db9b5e35c111d1829f0000e829fbfe/frameset.htm
1. A logical database is in fact
a program only.
2. This LDB provides two main things :
a) a pre-defined selection screen
which handles all user inputs and validations
b) pre defined set of data
based upon the user selection.
3. So we dont have to worry about from
which tables to fetch data.
4. Moreover, this LDB Program,
handles all user-authorisations
and is efficient in all respects.
5. tcode is SLDB.
/people/srivijaya.gutala/blog/2007/03/05/why-not-logical-databases
<b>REward fi suefull</b>

Java package concept in ABAP Objects

Hi, just a question on grouping of classes in ABAP Objects.
In Java, you can group classes by "package" to avoid
namespace collision, my question, in ABAP Objects, how
do you group classes to avoid namespace collision?
I know that there is package concept in SAP/ABAP but it
is different concept in Java.
Thanks in advanced for your reply.

Hello One and Lonley,
the package concept in ABAP and Java is quite different. In java the package name is part of the development object in ABAP not. So any class pool name is global unique. In combination with the restriction on 30 chars this leads often to somehow cryptic names.
The only way to escape this somehow is the excessive use of local classes. That mean classes defined within main programs. If you are on 7.00 you may check FuGr SAPLSAUNIT_TREE_CTRL_LISTENER for this technique.
Best Regards
klaus

Help needed Displaying ALV Secondary list without using oops concept

Hi Experts
Help needed Displaying ALV Secondary list without using oops concept.
its urgent
regds
rajasekhar

hi chk this code
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
     I_CALLBACK_PF_STATUS_SET       = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
     I_SAVE                         = G_SAVE
     IS_VARIANT                     = G_VARIANT
     IT_EVENTS                      = G_EVENTS
IT_EVENT_EXIT                  =
IS_PRINT                       =
IS_REPREP_ID                   =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   EXCEPTIONS
     PROGRAM_ERROR                  = 1
     OTHERS                         = 2
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50651_PFSTATUS' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
REPORT Z_ALV_INTERACTIVE MESSAGE-ID ZMSG_50651
                                LINE-SIZE 100
                                LINE-COUNT 60
                                NO STANDARD PAGE HEADING.
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET         = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
     I_SAVE                         = G_SAVE
    IS_VARIANT                      = G_VARIANT
     IT_EVENTS                      = G_EVENTS
IT_EVENT_EXIT                  =
IS_PRINT                       =
IS_REPREP_ID                   =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   EXCEPTIONS
     PROGRAM_ERROR                  = 1
     OTHERS                         = 2
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
SUBMIT SLIS_DUMMY WITH P_MATNR EQ IT_VBAP-MATNR
                    WITH P_MTART EQ V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
plz reward if useful

Plans to change JAAS/GSS for Windows XP SP2 and beyond

Are there any plans to reimplement JAAS GSS on the windows platform to account for this issue:
Cause 2: This exception is thrown when using native ticket cache on some Windows platforms. Microsoft has added a new feature in which they no longer export the session keys for Ticket-Granting Tickets (TGTs). As a result, the native TGT obtained on Windows has an "empty" session key and null EType. The effected platforms include: Windows Server 2003, Windows 2000 Server Service Pack 4 (SP4) and Windows XP SP2.
Solution 2: You need to update the Windows registry to disable this new feature. The registry key allowtgtsessionkey should be added--and set correctly--to allow session keys to be sent in the Kerberos Ticket-Granting Ticket.
Thanks!
-Bob

This is an old thread, but one of my clients has run into the same problem. Hopefully someone is still monitoring....
The answer is that the implementation should not be trying to do anything directly with keys. Delegation works just fine if it has been configured correctly in AD. Simply impersonate the context on the server side and then call the appropriate API to get a new service ticket and it will use the forwarded TGT. Credential delegation solved.
MS was correct to "fix" the session key interface since it allowed user code to attain a "password equivalent". The JAAS implementation should be fixed to use the Windows authentication interfaces correctly.
Thanks,
Dave
Feel free to contact me offline for more information or pointers at [email protected] (remove the no-spams).

Not able to ssh to standby GSS

Hi Experts,
I am not able to ssh to standby GSS. It is configured for tacacs... I am able to ssh to primary without any issues.
skdc-gss-int#gss status
TACACS error. Attempting local authorization ...
Cisco GSS - 3.1(0) GSSM - standby [Tue May 26 12:37:25 UTC 2009]
Registered to primary GSSM: 10.71.250.130
Normal Operation [runmode = 5]
START SERVER
May02 Boomerang
May02 Config Agent (crdirector)
May02 Config Server (crm)
May02 DNS Server
May02 Database
May02 GUI Server (tomcat)
May02 Keepalive Engine
May02 Node Manager
May02 Proximity
May02 Sticky
May02 Web Server (apache)
May02 drp
skdc-gss-int#
skdc-gss-int#sh tacacs
TACACS error. Attempting local authorization ...
Current tacacs server configuration
tacacs-server timeout 60
tacacs-server keepalive-enable
tacacs-server host x.x.x.x port 49 key j1b0ia
tacacs-server host y.y.y.y port 49 key j1b0ia
aaa authentication ssh local
aaa authentication gui local
aaa authorization commands
aaa accounting commands
skdc-gss-int#
skdc-gss-int#sh users
TACACS error. Attempting local authorization ...
Username permission
admin admin
skdc-gss-int#

I'm facing the same issue...
How did you solve the problem?

PRoblem when i am trying to authinticate to AD us gss

I am trying to access active directory using JAAS nut when i run my code a get the attached message
D:\JDeveloper10G\jdk\bin>java jasldap
GSSException: No valid credentials provided (Mechanism level: Failed to find any
Kerberos Ticket)
at sun.security.jgss.krb5.Krb5InitCredential.getInstance(Krb5InitCredent
ial.java:133)
at sun.security.jgss.krb5.Krb5MechFactory.getCredentialElement(Krb5MechF
actory.java:72)
at sun.security.jgss.GSSManagerImpl.getCredentialElement(GSSManagerImpl.
java:149)
at sun.security.jgss.GSSCredentialImpl.add(GSSCredentialImpl.java:389)
at sun.security.jgss.GSSCredentialImpl.<init>(GSSCredentialImpl.java:60)
at sun.security.jgss.GSSCredentialImpl.<init>(GSSCredentialImpl.java:37)
at sun.security.jgss.GSSManagerImpl.createCredential(GSSManagerImpl.java
:96)
at sun.security.jgss.GSSContextImpl.initSecContext(GSSContextImpl.java:1
78)
at sun.security.jgss.GSSContextImpl.initSecContext(GSSContextImpl.java:1
58)
at com.sun.security.sasl.gsskerb.GssKrb5Client.evaluateChallenge(GssKrb5
Client.java:155)
at com.sun.jndi.ldap.sasl.LdapSasl.saslBind(LdapSasl.java:105)
at com.sun.jndi.ldap.LdapClient.authenticate(LdapClient.java:214)
at com.sun.jndi.ldap.LdapCtx.connect(LdapCtx.java:2637)
at com.sun.jndi.ldap.LdapCtx.<init>(LdapCtx.java:283)
at com.sun.jndi.ldap.LdapCtxFactory.getUsingURL(LdapCtxFactory.java:175)
at com.sun.jndi.ldap.LdapCtxFactory.getUsingURLs(LdapCtxFactory.java:193
at com.sun.jndi.ldap.LdapCtxFactory.getLdapCtxInstance(LdapCtxFactory.ja
va:136)
at com.sun.jndi.ldap.LdapCtxFactory.getInitialContext(LdapCtxFactory.jav
a:66)
at javax.naming.spi.NamingManager.getInitialContext(NamingManager.java:6
67)
at javax.naming.InitialContext.getDefaultInitCtx(InitialContext.java:247
at javax.naming.InitialContext.init(InitialContext.java:223)
at javax.naming.InitialContext.<init>(InitialContext.java:197)
at javax.naming.directory.InitialDirContext.<init>(InitialDirContext.jav
a:82)
at searchLDAP.performSearch(searchLDAP.java:93)
at searchLDAP.run(searchLDAP.java:50)
at java.security.AccessController.doPrivileged(Native Method)
at javax.security.auth.Subject.doAs(Subject.java:337)
at actions.search(actions.java:11)
at jasldap.samaccountname(jasldap.java:14)
at jasldap.<init>(jasldap.java:6)
at jasldap.main(jasldap.java:22)
javax.naming.AuthenticationException: GSSAPI [Root exception is javax.security.s
asl.SaslException: GSS initiate failed [Caused by GSSException: No valid credent
ials provided]]
can anyone help me here
and my code is here
import java.io.*;
public class jasldap
public jasldap()
samaccountname();
public void samaccountname(){
          actions pSA = new actions();
          pSA.search("f3482","sAMAccountName");
          if (searchLDAP.modException != null){
               System.out.print(searchLDAP.modException);
public static void main (String[] args)
jasldap ld=new jasldap();
the seconed class is
import javax.security.auth.Subject;
public class actions {
     KerberosaAuth pKA = new KerberosaAuth();
     public String search(String sUserName, String sFilter){
          pKA.KerberosAuth();
          String sTRDN = sUserName;
          String sResults = new String();
          sResults = (Subject.doAs(pKA.lc.getSubject(), new searchLDAP(sTRDN, sFilter)).toString());
          return sResults;
import java.util.Hashtable;
import java.util.regex.Matcher;
import java.util.regex.Pattern;
import javax.naming.Context;
import javax.naming.NamingEnumeration;
import javax.naming.NamingException;
import javax.naming.directory.Attribute;
import javax.naming.directory.Attributes;
import javax.naming.directory.DirContext;
import javax.naming.directory.InitialDirContext;
import javax.naming.directory.SearchControls;
import javax.naming.directory.SearchResult;
class searchLDAP implements java.security.PrivilegedAction {
     private static Matcher mGMatch;
     private static Pattern pGPattern;
     private static String sGDesc = new String();
     private static String sRegex = ",DC=fgb,DC=ae";
     private static String sGRegex = ",OU=Domain Groups";
     private static String ssGRegex = "CN=";
     private static String sReplace = "";
     public String sTRUN = new String();
     public String sFilter = new String();
     public static String sName = new String();
     private static final long serialVersionUID = 1-1;
     public static String sResults = new String();
     public static String ssResults = new String();
     public static String sUserAttrib = "";
     public static String modException;
     public String sTRDN = new String();
     public String sErrorResult = new String();
     public static String[] sAttrIDs;
     public static String sSAMField = new String();
     public static String sNameField = new String();
     public static String sDepartmentField = new String();
     public static String sMailField = new String();
     public static String sIsAccountLockedField = new String();
     public static String sEmployeeIDField = new String();
     public searchLDAP(String ssTRDN, String ssFilter) {
          sTRDN = ssTRDN;
          sFilter = ssFilter;
     public Object run() {
          performSearch(sTRDN,sFilter);
          return sResults;
     private void performSearch(String sTRDN, String sFilter) {
          /* Specify the ids of the attributes to return */
          sAttrIDs = new String[6];
          sAttrIDs [ 0 ] = "sAMAccountName";
          sAttrIDs [ 1 ] = "department";
          sAttrIDs [ 2 ] = "mail";
          sAttrIDs [ 3 ] = "employeeID" ;
          sAttrIDs [ 4 ] = "displayName";
          sAttrIDs [ 5 ] = "IsAccountLocked";
          String[] sGAttrIDs = {"description"};
          String[] ssGAttrIDs = new String [ 3 ];
                              ssGAttrIDs [ 0 ] = "memberOf";
                              ssGAttrIDs [ 1 ] = "userAccountControl";
                              ssGAttrIDs [ 2 ] = "sAMAccountName";
          Hashtable env = new Hashtable(11);
               env.put(Context.INITIAL_CONTEXT_FACTORY,"com.sun.jndi.ldap.LdapCtxFactory");
               env.put(Context.PROVIDER_URL,"ldap://hoadc0.fgb.ae:389/DC=fgb,DC=ae");
               env.put(Context.SECURITY_AUTHENTICATION, "GSSAPI");
               env.put("javax.security.sasl.server.authentication", "true");
          String filter = "(&("+ sFilter+"=" + sTRDN + ")(!(objectclass=computer)))";
          modException = null;
          SearchControls constraints = new SearchControls();
                    constraints.setSearchScope(SearchControls.SUBTREE_SCOPE);
                    //constraints.setReturningAttributes(sAttrIDs);
                    constraints.setTimeLimit( 6000 );
                    constraints.setDerefLinkFlag( false );
                    constraints.setReturningObjFlag( false );
          try {
               /* Create initial context */
               sName = null;
               ssResults = null;
               modException = null;
               DirContext ctx = new InitialDirContext(env);
               NamingEnumeration answer = ctx.search ("OU=Departments", filter , constraints );
                    while (answer != null && answer.hasMore()) {
                         /* return the partially qualified name CN="", OU="" */
                         SearchResult nextEntry = ( SearchResult )answer.next();
                         sName = (nextEntry.getName());
                         ssResults = sName;
                         Attributes aAnswer = ctx.getAttributes(sName + ",OU=Departments",sAttrIDs);
                         if (sTRDN.contains("*")){
                         }else{
                              int numLabels = sAttrIDs.length;
                              for (int i = 0; i < numLabels; i++) {
                                   if ((aAnswer.get(sAttrIDs)) != null) {
                                        sAttrIDs[i]=(aAnswer.get(sAttrIDs[i]).get().toString());
                              if (sAttrIDs[3].contains("employeeID")){
                                   sAttrIDs[3]="";
                              if (sAttrIDs[5].contains("IsAccountLocked")){
                                   sAttrIDs[5]="";
               try {
               Attributes aGAnswer = ctx.getAttributes(sName + ",OU=Departments",ssGAttrIDs);
                    if (aGAnswer.toString().contains("514")){
                         sResults = ((aAnswer.get("sAMAccountName").get()) + " , " + "*******ACCOUNT IS LOCKED*******");
                         System.out.println(sResults + '\n');
                         if (sTRDN.contains("*")){
                         }else{
                              sAttrIDs[5] = "ACCOUNT IS LOCKED";
                    }else{
                         sResults = (sName);
                    Attribute amemberOf = aGAnswer.get("memberOf");
                    if (amemberOf != null){
                                        /* print each value */
                              NamingEnumeration eGroup = amemberOf.getAll();
                              while (eGroup.hasMore()) {
                                   sGDesc = (eGroup.nextElement().toString());
                                   pGPattern = Pattern.compile(sGRegex);
                                   mGMatch = pGPattern.matcher(sGDesc);
                                   while(mGMatch.find()) {
                                        pGPattern = Pattern.compile(sRegex);
                                        mGMatch = pGPattern.matcher(sGDesc);
                                        sGDesc = mGMatch.replaceAll(sReplace);
                                        Attributes aGroup = ctx.getAttributes(sGDesc, sGAttrIDs);
                                        /* "sDesc" is the description of the group */
                                        String sDesc = (aGroup.get("description").get().toString());
                                        /* The following replaces the distinguished name "SGDesc" with the cn for display*/
                                        pGPattern = Pattern.compile(ssGRegex);
                                        mGMatch = pGPattern.matcher(sGDesc);
                                        sGDesc = mGMatch.replaceAll(sReplace);
                                        pGPattern = Pattern.compile(sGRegex);
                                        mGMatch = pGPattern.matcher(sGDesc);
                                        sGDesc = mGMatch.replaceAll(sReplace);
                                        System.out.println(sGDesc +": "+ " (" + sDesc + " )");
               } catch (NamingException le) {
                    modException = (le.toString());
                    sErrorResult = modException;
                         System.out.println(sName + ": "+'\n'+ "Authorization Groups: ");
                         if (sTRDN.contains("*")){
                              NamingEnumeration enumUserInfo = aAnswer.getAll();
                                   while(enumUserInfo.hasMoreElements()) {
                                        sResults = (enumUserInfo.nextElement().toString());
                                        System.out.println(sResults);
          } catch (NamingException e)
          {/* open catch */
               modException = (e.toString());
               sErrorResult = modException;
          }/* close catch */
import javax.security.auth.login.LoginContext;
import javax.security.auth.login.LoginException;
import com.sun.security.auth.callback.TextCallbackHandler;
public class KerberosaAuth {
     *Kerberos Authentication
     LoginContext lc = null;
               public void KerberosAuth() {
                    java.util.Properties p =
                         new java.util.Properties(System.getProperties());
                    p.setProperty("java.security.krb5.realm", "fgb.ae");
                    p.setProperty("java.security.krb5.kdc", "hoadc0.fgb.ae");
                    p.setProperty("java.security.auth.login.config", (getClass().getResource("Jaas.conf")).toString());
                    System.setProperties(p);
                    try {
                         lc =
                              new LoginContext("GssConf",     new TextCallbackHandler());
                         // Attempt authentication
                         lc.login();
                    } catch (LoginException le) {
                         System.err.println("Authentication attempt failed: " + le);
                         System.exit(-1);
My domain name is fgb.ae and Acive directory Domain Controloer is hoadc0
Please help me here

If you are using Windows 2000 SP4, you will need to
add
registry key "allowtgtsessionkey" to enable Kerberos
session key.
For details refer to following docs:
http://java.sun.com/j2se/1.5.0/docs/guide/security/jgs
s/tutorials/Troubleshooting.html
Look for "KDC has no support for encryption type"
Solution 2.
SeemaCan you confirm this works with Windows Server 2000?
Are there any full working examples of this?
There's another related thread here: http://forum.java.sun.com/thread.jspa?messageID=9554063
Message was edited by:
connorsadler

Need help to modify a report written using Field-Groups Concept. - Part1

Hello ABAP Experts,
I need your help to modify the following report with following requirement as I have least knowledge
about the field-group concept. Thats is the reason, I am pasting the whole code. As it is part of our
production requirement. I really appreciate your help, If its sent modifying the code required.
Modification required in the report.
To allow the sales representatives to see billed shipments and open orders for the current month.
1) Selection Screen Changes:
u2022     Add selection by Sales group and Customer group
u2022     Add sort by:     3. Ship-to / Material
u2022     Add another selection box
[ ] Open Orders and Shipments with the current month
2)      For the new selection box, subtotal sales quantity and delivery quantity.
     If delivered, make the sales quantity zero in the subtotal
Current report displays, in Selection Screen
Sales org:
Person Name:
Material:
Plant:
Sales Office:
Ship to Name:
Ship to Number:
Sorts Report by : 1. Person Name 2. Material
Check Boxes : 1. Open Orders 2. Delayed Orders.
report zorder LINE-SIZE 170
                  LINE-COUNT 58
                  MESSAGE-ID zv
                  NO STANDARD PAGE HEADING.
TABLES:
cdhdr,                                 "Change Doc Header
cdpos,                                 "Change Doc Item
kna1,                                  "Customer master
likp,                                  "Delivery Header
lips,                                  "Delivery Item
*lips,                                 "Delivery Item
zvbpa_lfa1,                            "Vendor Master
makt,                                  "Material Desc
t001w,                                 "Plant
tvkbt,                                 "Sales Office
tvko,                                  "Sales Organizations
vbak,                                  "Sales Header
vbap,                                  "Sales Item
zvvbak,                                "Sales Hdr - Time calc
vbup,                                  "Item status
vbep,                                  "Sales Schedule Line
vbfa,                                  "Flow documents
vbpa,                                  "Partners
vbrk,                                  "Billing Header
vbrp.                                  "Billing Item
SELECT-OPTIONS:
s_vkorg FOR vbak-vkorg OBLIGATORY,
s_ernam FOR vbak-ernam,
s_matnr FOR vbap-matnr,
s_werks FOR vbap-werks,
s_vkbur FOR vbak-vkbur,
s_name1 FOR kna1-name1,
s_kunnr FOR kna1-kunnr.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(49) text-c20.
PARAMETERS: p_sort TYPE n DEFAULT '1'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-022.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-023.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-024.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN COMMENT 19(40) text-070.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF BLOCK b20 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_open AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 5(48) text-072.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_delay AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN COMMENT 5(48) text-073.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b20.
DATA:
vbeln(11),                             "Document number
cancel_dt TYPE d,                      "Cancellation Date
BEGIN OF tabkey,                       "Tabkey
mandant LIKE sy-mandt,
vbeln LIKE vbap-vbeln,
posnr LIKE vbap-posnr,
END OF tabkey,
name1_sp1 LIKE lfa1-name1,             "Sales Carrier Name
name1_sp2 LIKE lfa1-name1,             "Delivery Carrier Name
datum-1 TYPE d,                        "Current Dt Less 1
datum-14 TYPE d,                       "Current Dt Less 14
datum-90 TYPE d,                       "Current Dt Less 90
rpt_hdr1(170),                         "Report Header 1
rpt_hdr2(170),                         "Report Header 2
rpt_hdr3(170),                         "Report Header 3
cb_hdr1(170),                          "Control Break Header 1
line_pos1 TYPE i,                      "Line Print Position HDR1
line_pos2 TYPE i,                      "Line Print Position HDR2
line_pos3 TYPE i,                      "Line Print Position DET2
status,                                "Order Status
open,                                  "Open Order
delayed VALUE 'D',                     "Delayed Order
v_comp(30).                            "Company Text Field
DATA: v_flagh2. " Flag for header 2 & 3
DATA: ls_comwa LIKE vbco6. "Structure for flow information
DATA: t_vbfa_tab TYPE STANDARD TABLE OF vbfa WITH HEADER LINE."Itab
for flow information
data: g_trans_id type vttk-tdlnr. "get transport id from flow
information
data v_sales_org_cpimex type vkorg value '3300'.
FIELD-GROUPS:
header,
order.
INSERT
status                                 "Status
vbak-vkbur                             "Sales Office
vbak-ernam                             "Created By
kna1-kunnr                             "Customer
kna1-name1                             "Customer Name
vbap-matnr                             "Material
vbap-werks                             "Plant
vbep-lddat                             "Load Dt
vbap-vbeln                             "Sales Document
INTO header.
INSERT
kna1-ort01                             "City
kna1-regio                             "Region
likp-traid                             "Transport ID
lips-vbeln                             "Delivery Document
lips-ntgew                             "Net Wt
lips-gewei                             "Unit of Weight
vbap-kwmeng                            "Order Qty
vbap-vrkme                             "Sales Unit
vbak-bstnk                             "Customer PO
vbak-erdat                             "Sales Create Dt
vbak-ihrez                             "PO Release
vbak-vdatu                            "Req Delivery Dt
vbak-vzeit                            "Req Delivery Time
vbfa-vbeln                             "Goods issue doc
vbrk-vbeln                             "Billing Document
name1_sp1                              "Sales Carrier
name1_sp2                              "Delivery Carrier
INTO order.
INITIALIZATION.
AT SELECTION-SCREEN.
IF NOT p_sort BETWEEN 1 AND 2.
    MESSAGE e022 WITH p_sort.
ENDIF.
* Report 1 or more of cancelled, delayed or open
IF p_open IS INITIAL AND
     p_delay IS INITIAL.
    MESSAGE e023.
ENDIF.
START-OF-SELECTION.
* Load Company Name
WRITE 'XYZ INC'(000) TO v_comp.
* Calculate Date Range
datum-1 = sy-datum - 1.
datum-14 = sy-datum - 14.
datum-90 = sy-datum - 90.
* Compose Parameter Header
PERFORM parm_hdr.
** Compose Report Header
v_flagh2 = 1.
PERFORM data_selection.
END-OF-SELECTION.
* Determine Sort
CASE p_sort.
    WHEN 1.
      SORT BY status vbak-ernam kna1-name1 kna1-kunnr
              vbep-lddat vbap-vbeln.
    WHEN 2.
      SORT BY status vbap-matnr vbap-werks vbep-lddat
              vbap-vbeln.
ENDCASE.
LOOP.
    AT NEW status.
      CASE status.
        WHEN delayed.
          WRITE 'Delayed Orders'(061) TO rpt_hdr1.
        WHEN OTHERS.
          WRITE 'Open Orders'(062) TO rpt_hdr1.
      ENDCASE.
      NEW-PAGE.
    ENDAT.
    AT NEW vbak-ernam.
      IF p_sort = 1.
        CLEAR cb_hdr1.
        WRITE 'CAA:'(064) TO cb_hdr1.
        WRITE vbak-ernam TO cb_hdr1+5.
        NEW-PAGE.
      ENDIF.
    ENDAT.
    AT NEW vbap-matnr.
      IF p_sort = 2.
        CLEAR makt.
        SELECT SINGLE * FROM makt
            WHERE spras = sy-langu AND
                  matnr = vbap-matnr.
        CLEAR cb_hdr1.
        WRITE 'Material:'(042) TO cb_hdr1.
        WRITE vbap-matnr TO cb_hdr1+10.
        WRITE makt-maktx TO cb_hdr1+21.
        NEW-PAGE.
      ENDIF.
    ENDAT.
    AT NEW vbap-werks.
      AT order.
        RESERVE 3 LINES.
        SKIP 1.
        NEW-LINE.
* Indicate new open item
        WRITE vbap-vbeln TO vbeln.
* Find Transport ID
* Fill the structure LS_COMWA
        ls_comwa-mandt = sy-mandt.
        ls_comwa-vbeln = vbap-vbeln.
        CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
          EXPORTING
            comwa    = ls_comwa
          TABLES
            vbfa_tab = t_vbfa_tab.
        IF sy-subrc EQ 0.
          READ TABLE t_vbfa_tab WITH KEY vbtyp_n = '8'.
          IF sy-subrc EQ 0.
            SELECT SINGLE tdlnr INTO g_trans_id
              FROM vttk WHERE tknum = t_vbfa_tab-vbeln.
            CONDENSE g_trans_id.
          ENDIF.
        ENDIF.
        IF vbak-erdat >= datum-1.
          vbeln+10 = 'N'.
        ENDIF.
        CASE p_sort.
          WHEN 1.
            WRITE 1 vbak-vkbur.
            WRITE 8 kna1-name1.
            WRITE 44 vbeln.
            WRITE 56 vbap-matnr.
            WRITE:
                75 vbap-kwmeng LEFT-JUSTIFIED,
                 vbap-vrkme,
                100 vbak-bstnk,
                 vbak-ihrez,
                134 vbak-vdatu,
                    vbak-vzeit,
                154 vbep-lddat.
            WRITE 166 vbap-werks.
            NEW-LINE.
            WRITE:
              5 kna1-ort01,
              41 kna1-regio.
            IF name1_sp2 IS INITIAL.
              WRITE:
                45 name1_sp1,
            ELSE.
              WRITE 45 name1_sp2.
              IF name1_sp1 = name1_sp2.
                WRITE ' '.
              ELSE.
                WRITE '*'.
              ENDIF.
            ENDIF.
            IF vbak-vkorg = v_sales_org_cpimex .
              WRITE 81 g_trans_id.
            ELSE.
              WRITE 81 likp-traid.
            ENDIF.
            WRITE:
              102 lips-vbeln,
              115 lips-ntgew NO-ZERO LEFT-JUSTIFIED,
                  lips-gewei,
              140 vbfa-vbeln,
              152 vbrk-vbeln.
          WHEN 2.
            WRITE 1 vbak-ernam.
            WRITE 14 vbak-vkbur.
            WRITE 21 kna1-name1.
            WRITE 57 vbeln.
            WRITE:
                69 vbap-kwmeng LEFT-JUSTIFIED,
                    vbap-vrkme,
                92 vbak-bstnk,
                    vbak-ihrez,
                126 vbak-vdatu,
                  vbak-vzeit,
                146 vbep-lddat.
            WRITE 162 vbap-werks.
            NEW-LINE.
            WRITE:
              5 kna1-ort01,
              41 kna1-regio.
            IF name1_sp2 IS INITIAL.
              WRITE:
                45 name1_sp1,
            ELSE.
              WRITE 45 name1_sp2.
              IF name1_sp1 = name1_sp2.
                WRITE ' '.
              ELSE.
                WRITE '*'.
              ENDIF.
            ENDIF.
            IF vbak-vkorg = v_sales_org_cpimex .
              WRITE 81 g_trans_id.
            ELSE.
              WRITE 81 likp-traid.
            ENDIF.
            WRITE:
               102 lips-vbeln,
               115 lips-ntgew NO-ZERO LEFT-JUSTIFIED,
                   lips-gewei,
               140 vbfa-vbeln,
               152 vbrk-vbeln.
        ENDCASE.
      ENDAT.
    ENDLOOP.
*       FORM PARM_HDR                                                 *
FORM parm_hdr.
WRITE 'Program selections'(101) TO rpt_hdr1.
WRITE 'Sign'(102) TO rpt_hdr1+29.
WRITE 'Option'(103) TO rpt_hdr1+34.
WRITE 'From'(104) TO rpt_hdr1+41.
WRITE 'To'(105) TO rpt_hdr1+77.
ENDFORM.                    "PARM_HDR
*       FORM RPT_HDR                                                  *
FORM rpt_hdr.
CASE p_sort.
    WHEN 1.               "When sort by CAA
      WRITE 1'SOff'(066).
      WRITE 8'Customer'(009).
      WRITE 44'Sales Doc'(010).
      WRITE 56'Material'(031).
      WRITE 75'Sales Qty'(011).
      WRITE 100'Customer PO'(012).
      WRITE 134'Req.Del.Dt & Tm'(014).
      WRITE 154'Load Dt'(015).
      WRITE 166'Plnt'(016).
      NEW-LINE.
      WRITE 5'City'(017).
      WRITE 41'Reg'(069).
      WRITE 45'Carrier'(018).
      WRITE 81'Transport ID'(019).
      WRITE 102'Dlvry Doc'(021).
      WRITE 115'Dlvry Qty'(025).
      WRITE 140'PGI Doc'(026).
      WRITE 152'Billng Doc'(027).
    WHEN 2.               "When sort by Material
      WRITE 1'Created By'(008).
      WRITE 14'SOff'(066).
      WRITE 21'Customer'(009).
      WRITE 57'Sales Doc'(010).
      WRITE 69'Sales Qty'(011).
      WRITE 92'Customer PO'(012).
      WRITE 126'Req.Del.Dt & Tm'(014).
      WRITE 146'Load Dt'(015).
      WRITE 162'Plnt'(016).
      NEW-LINE.
      WRITE 5'City'(017).
      WRITE 41'Reg'(069).
      WRITE 45'Carrier'(018).
      WRITE 81'Transport ID'(019).
      WRITE 102'Dlvry Doc'(021).
      WRITE 115'Dlvry Qty'(025).
      WRITE 140'PGI Doc'(026).
      WRITE 152'Billng Doc'(027).
ENDCASE.
ENDFORM.                    "RPT_HDR
INCLUDE zrpthdri.
WRITE:
/ rpt_hdr1.
ULINE.
IF v_flagh2 <> 0.
PERFORM rpt_hdr. "Write secondary header
ULINE.
* Control Break Header
WRITE / cb_hdr1.
ENDIF.
Continued in Part-2
Thanks a ton in advance.
Mythili Sharma
Edited by: Mythili sharma on Mar 30, 2009 3:32 AM
Edited by: Rob Burbank on Mar 30, 2009 10:46 AM

Hello ABAP Experts,
I need your help to modify the following report with following requirement as I have least knowledge about the field-group concept. Thats is the reason, I am pasting the whole code. As it is part of our production requirement. I really appreciate your help, If its sent modifying the code required.
Modification required in the report.
To allow the sales representatives to see billed shipments and open orders for the current month.
1) Selection Screen Changes:
u2022     Add selection by Sales group and Customer group
u2022     Add sort by:     5. Ship-to / Material
u2022     Add another selection box
[ ] Open Orders and Shipments with the current month
2)      For the new selection box, subtotal sales quantity and delivery quantity.
     If delivered, make the sales quantity zero in the subtotal
Current report displays, in Selection Screen
Sales org:
Person Name:
Material:
Plant:
Sales Office:
Ship to Name:
Ship to Number:
Sorts Report by :
1. Person Name
2. Material
3. Plant
4. Sales Office
Check Boxes :
1. Open Orders
2. Delayed Orders
3.Cancelled Orders
PLEASE DOWNLOAD THE COMPLETE REPORT FROM THE FOLLOWING LINK
<< Link removed >>
It would be a great help, If the program is modified according to the requirement and snd it back through send space and send link, even if u send the necessary changes to be done in the report is also appreciable.
Thanks a ton in adanvce
Mythili
I wanted to close this thread as I could not put my question in a proper format. So please reply in the new thread which is posted.
Edited by: Mythili sharma on Mar 30, 2009 2:16 PM
Edited by: Rob Burbank on Mar 30, 2009 4:24 PM

Enquiry in class concepts

Hi,
              I have done alv report with class concepts..
              Editable alv is there in my report   .After editing the field suppose
             field-1 = 'S' ,
              field-2 = 'R'.
             it will update the 2 field in ztable .
             But the problem I am facing was...
             Suppose if I am entering the field-1 = 'S'.again.
             I want to show the message ..that it had already updated...
           How to capture the entering field in alv using class concepts.
            Can anyone plz give me the code.
Pooja

Hi
Use this new value field as a paramter
and define a method get_value.
so before updating next time.
Call the method
Get_value and check wehtehr a value already exist with this new parameter value>
if a value exist raise an error message with event handlers.
Reward points if useful
Regards
Anji

How to craete Multiple lines in Colum name in ALV using OO concept

Hi All,
I have devloped an ALV tree Report using OO Concept, and my column names are very big say like 100 characters.So now i want display that text in 3 or 4 lines.Is there any way that text can be wrapped up and displayed on the subsequent line of the cloum name.
For eg. My requirement is like below.
The text to be dispalyed:
Leave balance for the year ending 31st mar 2005
Display outout column name should look like this
" Leave balance for the year
ending 31st mar2005."
So as you see i want it in two lines or may be more if it can be fixed.
Let me know if its possible..
Thanks
Umang

Hi Umang
This is a very common question but unfortunately there is no way to implement column headers having more than one line.
Regards
*--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

ALV report in OO concept

hi all
I am working on ALV report in OO concept. and facing in some difficulties in sorting, subtotal, coloring etc.. so it would be great help if there some sample program which can handle all this..
***Create new instance ALV table object
    TRY.
        CALL METHOD cl_salv_table=>factory
          IMPORTING
            r_salv_table = o_alv
          CHANGING
            t_table      = i_mara.
      CATCH cx_salv_msg INTO lc_msg .
    ENDTRY.
***.Enable Generic ALV functions
    lo_functions = o_alv->get_functions( ).
    lo_functions->set_all( ).
lo_functions->set_default( abap_true ).
***Sorting
    lo_sorts = o_alv->get_sorts( ).
lo_sorts->add_sort( columnname = 'BRGEW' subtotal = abap_true ).
    o_alv->display( ).
i tried this one but it is telling no column found and not doing subtotal..
pls giude
thanks
Edited by: JaiKarthik on Dec 7, 2009 4:17 AM

Hi You have to use ls_fieldcat-do_sum statement in your coding Check this sample report to display output in total & subtotal &---- *& Report ZALVTOTAL * *& * &---- *& * *& * &---- REPORT ZALVTOTAL . TYPES : BEGIN OF ty_vbak, vkorg TYPE vbak-vkorg, " Sales organization kunnr TYPE vbak-kunnr, " Sold-to party vbeln TYPE vbak-vbeln, " Sales document netwr TYPE vbak-netwr, " Net Value of the Sales Order waerk TYPE vbak-waerk, " Document currency END OF ty_vbak. DATA: vbak TYPE vbak, gt_vbak TYPE TABLE OF ty_vbak. SELECT-OPTIONS : s_vkorg FOR vbak-vkorg, " Sales organization s_kunnr FOR vbak-kunnr, " Sold-to party s_vbeln FOR vbak-vbeln. " Sales document SELECTION-SCREEN : SKIP, BEGIN OF LINE,COMMENT 5(27) v_1 FOR FIELD p_max. PARAMETERS p_max(2) TYPE n DEFAULT '20' OBLIGATORY. SELECTION-SCREEN END OF LINE. ---- INITIALIZATION. v_1 = 'Maximum of records to read'. ---- START-OF-SELECTION. PERFORM f_read_data. PERFORM f_display_data. ---- * Form f_read_data ---- FORM f_read_data. SELECT vkorg kunnr vbeln netwr waerk UP TO p_max ROWS INTO TABLE gt_vbak FROM vbak WHERE kunnr IN s_kunnr AND vbeln IN s_vbeln AND vkorg IN s_vkorg. ENDFORM. " F_READ_DATA ---- * Form f_display_data ---- FORM f_display_data. TYPE-POOLS: slis. " ALV Global types DEFINE m_fieldcat. add 1 to ls_fieldcat-col_pos. ls_fieldcat-fieldname = &1. ls_fieldcat-ref_tabname = 'VBAK'. ls_fieldcat-do_sum = &2. ls_fieldcat-cfieldname = &3. append ls_fieldcat to lt_fieldcat. END-OF-DEFINITION. DEFINE m_sort. add 1 to ls_sort-spos. ls_sort-fieldname = &1. ls_sort-up = 'X'. ls_sort-subtot = &2. append ls_sort to lt_sort. END-OF-DEFINITION. DATA: ls_fieldcat TYPE slis_fieldcat_alv, lt_fieldcat TYPE slis_t_fieldcat_alv, lt_sort TYPE slis_t_sortinfo_alv, ls_sort TYPE slis_sortinfo_alv, ls_layout TYPE slis_layout_alv. m_fieldcat 'VKORG' '' ''. m_fieldcat 'KUNNR' '' ''. m_fieldcat 'VBELN' '' ''. m_fieldcat 'NETWR' 'X' 'WAERK'. m_fieldcat 'WAERK' '' ''. m_sort 'VKORG' 'X'. " Sort by vkorg and subtotal m_sort 'KUNNR' 'X'. " Sort by kunnr and subtotal m_sort 'VBELN' ''. " Sort by vbeln ls_layout-cell_merge = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING is_layout = ls_layout it_fieldcat = lt_fieldcat it_sort = lt_sort TABLES t_outtab = gt_vbak. ENDFORM. " F_DISPLAY_DATA
Regards,
Arun.

Open PO Concept

I want to know whether anybody has vested time in customizing Open PO concept which is nothing but Blanket Functionality instead of Amount & Price we need to manage against the quantity & Price and create releases for the PO. I know this is a unique requirement.
Thx.
null

Hi ,
I dont think this feature is possible.
But i would suggest a work around ...
Why dont u have a db trigger to restrict further releases once the required quantity
is reached..
null

GSS-Concept Misunderstanding

Similar Messages

Maybe you are looking for