This website is not affiliated with, sponsored by, or approved by SAP AG.

The benefits of open source. (Serious fun for April 1st).

Development (ABAP Development WorkBench, ABAP/4 programming)

Moderators: Snowy, thx4allthefish, YuriT, Gothmog

Postby egbert37 » Mon Nov 06, 2006 7:22 am

Hi Guys,

During a search where cerain data is stored I cam across this table:
Transparent table KRIF
Short description Richie Riffle

I like the description (although it doesn't tell me much about this table).

Regards,
Egbert
egbert37
 
Posts: 76
Joined: Tue Mar 21, 2006 9:10 am

Some nice additions

Postby Dementor » Wed Nov 15, 2006 5:46 am

RSMSSPDL line 348
Code: Select all
* many thanks to the icon group for the following bullshit         
    if msssqlcode-textline(1) = '@'.   " no it is NOT an icon !!!!
      write: / '@' no-gap, msssqlcode-textline+1.                 
    else.                                                         
      write: / msssqlcode-textline.                               
    endif.                                                         


LALDBO19 line 75
Code: Select all
if sy-subrc > 0.                                                 
   Der selektierte Eintrag wurde inzwischen geloescht, Tough Shit
   Message ????.                                                 
endif.                                                           


MP56RTOP lines 571,572 & 573
Code: Select all
midge_shit,                            "Hilfsfeld Dynpro 1350 
midge_shit2,                           "Hilfsfeld Dynpro 1350 
midge_shit3,                           "Hilfsfeld Dynpro 1350 


Thats all for now, just registred and thought this thread was hilarious so i had to post some additions.
Dementor
 
Posts: 1
Joined: Wed Nov 15, 2006 5:36 am

Postby sapmanie » Wed Dec 06, 2006 1:15 pm

LCPBRTOP
* .....prevent the frontend from dying a resource problem death...

Contractors will do anything to get out of a job:
LHRGB_SSPU04
* Contract ended (leave reason = DEATH)

LRPPDF30
* totally new coded due to death of RP_DAYPROGRAM

Possibly bad news for the 'accountholder':
RRTP_US_CONTRIBUTION_F01
* Make sure that the accountholder is not dead (yet)..
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

Huh ??

Postby Rich » Thu Dec 07, 2006 2:24 am

Code: Select all
*del IF STB-MATNR IS INITIAL.                       "YHG069035"YHG137469
  IF matcat-matnr IS INITIAL.                               "YHG137469
    MESSAGE s150.                                           "YHG069035
*del  CHECK NOT STB-MATNR IS INITIAL.                         "YHG137469
    CHECK NOT matcat-matnr IS INITIAL.                      "YHG137469
  ENDIF.                                                    "YHG069035

  IF stb-sumkz EQ '*'.
    CHECK stb-sumkz NE '*'.
  ENDIF.


This appears in quite a few of the RCS15* programs.
Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7112
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Postby sapmanie » Thu Dec 07, 2006 6:15 am

RSTUNE60
FORM WRITE_THIS_LIST.
*freak-point.
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

Postby sapmanie » Fri Dec 08, 2006 5:16 am

Who the f@&# is Alice!?:
CL_BSP_DELTA_HANDLER=>NEXT_NODE:
* Node delete means something very funny in our wonder world.
* Did Alice has anything to do with this?

FGBBGE03:
* If there are no statements then exit. Something funny going on here.
IF STATEMENT_CNT = 0.
EXIT.

LPVSUICMPF16:
* get GUID if related relation (funny wording, isn't it?) exists

LSWA1U01:
* *** This is not a joke.
* *** The mapping between called/calling/dataflow and source/target
* *** is not funny.
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

Postby Rich » Thu Feb 22, 2007 5:37 am

Another interesting screen field naming convention: MP56T, 3100:

Code: Select all
REASON_EXPAND   Push   47   5   36   2   1
REASON_EXPAND_TEXT   Text   47   8   72   72   1
MIDGE_SHIT_01   I/O   48   5   1   1   1   CHAR
MIDGE_SHIT_02   I/O   48   8   1   1   1   CHAR
MIDGE_SHIT_03   I/O   48   11   1   1   1   CHAR
MIDGE_SHIT_04   I/O   48   14   1   1   1   CHAR
MIDGE_SHIT_10   I/O   48   17   1   1   1   CHAR
Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7112
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Postby ilya » Thu Feb 22, 2007 5:57 am

Rich wrote:Another interesting screen field naming convention: MP56T, 3100:

Code: Select all
REASON_EXPAND   Push   47   5   36   2   1
REASON_EXPAND_TEXT   Text   47   8   72   72   1
MIDGE_SHIT_01   I/O   48   5   1   1   1   CHAR
MIDGE_SHIT_02   I/O   48   8   1   1   1   CHAR
MIDGE_SHIT_03   I/O   48   11   1   1   1   CHAR
MIDGE_SHIT_04   I/O   48   14   1   1   1   CHAR
MIDGE_SHIT_10   I/O   48   17   1   1   1   CHAR

I've seen those but decided they are just coincidence. Related things from the same program were actually posted last year in November (previous page, I think). There's more like:

PP_FISL1_I003:
Code: Select all
DATA:
...
SH_ISOURCE_TRANS     TYPE RS_TLOGO VALUE 'SHIT'
ilya

More input data: http://abaplog.wordpress.com
Sapfans ABAP FAQ: http://www.sapfans.com/forums/viewtopic.php?t=94198
Rich's ABAP Knowledge Corner: http://www.richard-harper.me.uk/Kb/default.html
Function modules documentation: http://www.se37.com
ilya
 
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am

Postby sapmanie » Tue Mar 20, 2007 7:21 am

LRPL0U05 : Relief from the wife only if you have a job, apparently...
* Wife relief is applicable only when spouse is not employed

MP041130 : No one can escape...
* Wife exemption is not permitted.
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

choice fart

Postby choice! » Tue Mar 20, 2007 8:53 pm

*&---------------------------------------------------------------------*
*& Module CHECK_FART_FTYP INPUT
*&---------------------------------------------------------------------*
MODULE check_fart_ftyp INPUT.

READ TABLE choice WITH KEY choice = 'X'.
IF sy-subrc = 0 AND *rkb1s-form <> space
AND sy-ucomm <> '' "mp990329 - IM826985-1999
AND ( choice-ftyp <> rkb1s-ftyp OR
choice-fart <> rkb1s-fart ).
MESSAGE s163(k7) WITH *rkb1s-form.
ENDIF.

ENDMODULE. " CHECK_FART_FTYP INPUT
choice!
 
Posts: 4
Joined: Tue Mar 20, 2007 8:49 pm

Postby ilya » Wed Mar 28, 2007 3:05 am

Let's revive the old thread again. Here are some new entries for you hungry for fun. Most of them are not from R/3 but rather from other apps like SCM. Happy Fools Day!

Class CL_BSP_WD_CLASS_TOOL. Lovely messages.

Code: Select all
    ME->LINE_EXAMPLE = 'call method cl_abap_test_class=>test_me( param = lv_param msg ='.
    concatenate ME->LINE_EXAMPLE APOSTROPHE into ME->LINE_EXAMPLE separated by SPACE.
    concatenate ME->LINE_EXAMPLE 'Some stupid message text' APOSTROPHE into ME->LINE_EXAMPLE.
    concatenate ME->LINE_EXAMPLE ').' into ME->LINE_EXAMPLE separated by SPACE.
    append ME->LINE_EXAMPLE to ME->SRC_TAB.



Class CL_SRM_RG_NUMBER_RANGE. We all are angry at ABAP sometimes but... Note: F-word replaced with "fork".

Code: Select all
  DATA: number_range      TYPE INRI-OBJECT,
        number            TYPE I,
        len               TYPE I,
        max_len           TYPE I,
        rc                TYPE INRI-RETURNCODE,
        abap_fork(20)     TYPE C,

...
      abap_fork = number.
      CONDENSE abap_fork.

      IF do_fill = 'X'.
        WHILE STRLEN( abap_fork ) < max_len.
          CONCATENATE '0' abap_fork INTO abap_fork.
        ENDWHILE.
      ENDIF.
      return = abap_fork.



Include LSCTS_OLEF02.

Code: Select all
* B2) Set new as4pos if objname changed to avoid duplicate keys
*     (same as4pos can exist for diff. objname!
*      E071K is stupid data model!)



Function SIN_GRID_READ_WF. Are they asking us customers?

Code: Select all
*- do we have to reset the structure or is stupid refreshing okay?
*- note 947365: when the layout is changed and the layout contains dynamic
*- columns, the structure was reset. This reset ignored the layout changes.
*- This means that new or removed fields were not considered. The structure should
*- be reset only when the level in the navigation is changed.



Include LSMIGR_MSSF02. I think he's right, indeed. No objections.

Code: Select all
* If we run on a non-unicode system and will migrate
* to a unicode system (which is the 90 % case) we have to
* change the existing data type of the partitioning
* column if is is textual (varchar -> nvarchar
* and text to ntext)
* The other way around would be pretty stupid, right?
* Nobody in the world migrates from unicode to non-unicode.
* Objection, your honor!



Program RMMRPORDERERRS.

Code: Select all
* find the ordno
      READ TABLE lt_ordkey INTO ls_ordkey
           WITH KEY ordid = <ls_orderr>-col_id_order
           BINARY SEARCH.
* error?? some stupid error handling...
      IF sy-subrc <> 0.
        CLEAR ls_ordkey.
      ELSE.
        lv_ordno = ls_ordkey-ordno.
      ENDIF.



Program SHOW_DEMO. That's going to be a nice demo. Unless SY-SUBRC goes wrong.

Code: Select all
FORM create_and_init_tree .
  DATA:        events     TYPE cntl_simple_events,
        event      TYPE cntl_simple_event.

* create a container for the tree control
  CREATE OBJECT g_container
    EXPORTING
      container_name = 'CONTAINER'
    EXCEPTIONS
      cntl_error = 1
      cntl_system_error = 2
      create_error = 3
      lifetime_error = 4
      lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc <> 0.
    MESSAGE 'Shit, it didn''t work' TYPE 'E'.
  ENDIF.

  CREATE OBJECT g_container_ref
    EXPORTING
      container_name = 'CONTAINER_REF'
    EXCEPTIONS
      cntl_error = 1
      cntl_system_error = 2
      create_error = 3
      lifetime_error = 4
      lifetime_dynpro_dynpro_link = 5.
  IF sy-subrc <> 0.
    MESSAGE 'Shit, it didn''t work' TYPE 'E'.
  ENDIF.


* create a tree control
  CREATE OBJECT g_tree
    EXPORTING
      parent              = g_container
      node_selection_mode = cl_gui_simple_tree=>node_sel_mode_single
    EXCEPTIONS
      lifetime_error              = 1
      cntl_system_error           = 2
      create_error                = 3
      failed                      = 4
      illegal_node_selection_mode = 5.
  IF sy-subrc <> 0.
    MESSAGE 'Shit, it didn''t work again' TYPE 'E'.
  ENDIF.


Program SAI_CACHE_GUI_P00. And unlike in SHOW_DEMO, they have commented things out (after some demo, perhaps?)

Code: Select all
    CALL FUNCTION 'SWF_XI_BPM_CACHE_GET'
      IMPORTING
        ex_cache = procs.
*****
*           line-DIRPARTY   = 'shit happens'.
*           line-DIRSERVICE = 'XI sucks'    .
*           CONCATENATE '<?xml version="1.0" ?>'
*                       cl_abap_char_utilities=>cr_lf
*                       '<root>root</root>'
*      INTO line-XML_DATA.
*    APPEND line
*        TO alv_data.
*           line-DIRPARTY   = 'shit happens II'.
*           line-DIRSERVICE = 'even more shit' .
*           line-XML_DATA   = '<test>test</test>'.
*    APPEND line
*        TO alv_data.
*****
ilya

More input data: http://abaplog.wordpress.com
Sapfans ABAP FAQ: http://www.sapfans.com/forums/viewtopic.php?t=94198
Rich's ABAP Knowledge Corner: http://www.richard-harper.me.uk/Kb/default.html
Function modules documentation: http://www.se37.com
ilya
 
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am

Postby SY-SUBRC=0 » Mon Apr 30, 2007 1:53 pm

Star Trek captains are purchasing agents:

Click on the IMG activity documentation at IMG>Logisticts - General>Material Master>Configuring the Material Master> Here's How(Quick Guide using an Example)

Here's How (Quick Guide Using an Example)
Scenario

For your purchasing agents Kirk, Scott, and McKoy, you want to create a screen sequence containing the following screens:

Basic Data
You want this data screen to include the following unchanged subscreens from the Basic Data 1 view in the standard material master:
Material description
General data
Cheers!
SY-SUBRC=0

I am not an SAP expert. I just play one on the Web.
SY-SUBRC=0
 
Posts: 505
Joined: Mon Dec 09, 2002 4:14 pm

Postby Snowy » Mon Oct 01, 2007 8:20 am

in SAP note 998904
check correction 842003 at the bottom,
check program modifies program LRSDU_CUBE_ORAF03.

you will find this:

e_s_message-msgv1 = i_tablnm.
* analysis long ago:
* >>>>>>>>>>AE BI 7.00 SP10: Bullshit!
* Statistics can be up-to-date even after 1000 years, if the table is not modified
* ELSEIF l_time_diff > rsdu_c_check_threshold.
* e_status = rsdu_c_check-yellow.
* e_s_message-msgty = 'W'.
* e_s_message-txtnr = 521.
* e_s_message-msgv1 = i_tablnm.
* e_s_message-msgv2 = l_time_abs.
* <<<<<<<<<<AE BI 7.00 SP10: Bullshit!
* analysis ok
SapFans Moderator

Search: http://www.sapfans.com/forums/search.php
Notes: http://service.sap.com/notes
Help: http://help.sap.com
Rules: http://www.sapfans.com/forums/viewtopic.php?t=344127
Snowy
 
Posts: 28767
Joined: Mon Oct 21, 2002 2:33 pm
Location: 3.1415926535

Postby ilya » Mon Oct 01, 2007 8:28 am

I wonder whether this note will make its way to the "SAP TopNotes" link at the left in OSS. (And why to they insert some 100 commented-out lines?)
ilya

More input data: http://abaplog.wordpress.com
Sapfans ABAP FAQ: http://www.sapfans.com/forums/viewtopic.php?t=94198
Rich's ABAP Knowledge Corner: http://www.richard-harper.me.uk/Kb/default.html
Function modules documentation: http://www.se37.com
ilya
 
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am

Postby sapmanie » Tue Dec 04, 2007 10:55 am

Short description of structure TEDATA: xxxxxxxx
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

PreviousNext

Return to ABAP

Who is online

Users browsing this forum: Google Adsense [Bot] and 9 guests





loading...


This website is not affiliated with, sponsored by, or approved by SAP AG.