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

Development (ABAP Development WorkBench, ABAP/4 programming)

Moderators: Snowy, thx4allthefish, YuriT, Gothmog

Post Reply
egbert37
Posts: 76
Joined: Tue Mar 21, 2006 9:10 am

Post by 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

Dementor
Posts: 1
Joined: Wed Nov 15, 2006 5:36 am

Some nice additions

Post by 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.

sapmanie
Posts: 490
Joined: Fri Jan 23, 2004 10:39 am

Post by 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)..

Rich
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool
Contact:

Huh ??

Post by 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

sapmanie
Posts: 490
Joined: Fri Jan 23, 2004 10:39 am

Post by sapmanie » Thu Dec 07, 2006 6:15 am

RSTUNE60
FORM WRITE_THIS_LIST.
*freak-point.

sapmanie
Posts: 490
Joined: Fri Jan 23, 2004 10:39 am

Post by 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.

Rich
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool
Contact:

Post by 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

ilya
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am
Contact:

Post by 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: 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

sapmanie
Posts: 490
Joined: Fri Jan 23, 2004 10:39 am

Post by 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.

choice!
Posts: 4
Joined: Tue Mar 20, 2007 8:49 pm

choice fart

Post by 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

ilya
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am
Contact:

Post by 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: 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

SY-SUBRC=0
Posts: 505
Joined: Mon Dec 09, 2002 4:14 pm

Post by 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.

Snowy
Posts: 28796
Joined: Mon Oct 21, 2002 2:33 pm
Location: 3.1415926535

Post by 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

ilya
Posts: 2327
Joined: Thu Oct 31, 2002 4:49 am
Contact:

Post by 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: 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

sapmanie
Posts: 490
Joined: Fri Jan 23, 2004 10:39 am

Post by sapmanie » Tue Dec 04, 2007 10:55 am

Short description of structure TEDATA: xxxxxxxx

Post Reply