Question Re: Coded humor in Additional Q&A

Coded humor

Lukas_Weigelt — Thu, 19 May 2011 12:23:24 GMT

Found this sarcastic bit of coding while debuggin today, made my day:

CL_WDR_CLIENT_ABSTRACT_HTTP
HANDLE_REQUEST

cl_wdr_client_ssr=>todo_cleanup( 'Evil hack because of missing support in RR_APPLICATION' )."#EC NOTEXT

method TODO_CLEANUP.
  " REASON
  if 1 = 1.
  endif.
endmethod.

There must be more of this kind. Contribute! For the good of the world!

cheers, Lukas

Re: Coded humor

Former Member — Thu, 19 May 2011 14:21:56 GMT

Actually, lots of this has been posted here in months and years past.

Rob

Re: Coded humor

SuhaSaha — Fri, 20 May 2011 06:38:40 GMT

This is the one which caught my eye today

CL_ABAP_ZIP=>CRC32( ).

* Do the calculations by hand. This is going to be slow. This is going to be a pain.
* What is a man to do?

  CONSTANTS: magic_nr(4)  TYPE x VALUE 'EDB88320',
             mFFFFFFFF(4) TYPE x VALUE 'FFFFFFFF',
             m7FFFFFFF(4) TYPE x VALUE '7FFFFFFF',
             m00FFFFFF(4) TYPE x VALUE '00FFFFFF',
             m000000FF(4) TYPE x VALUE '000000FF',
             m000000(3)   TYPE x VALUE '000000'.

  IF XSTRLEN( crc32_map ) = 0.
    DO 256 TIMES.
      DATA: c(4) TYPE x, low_bit(4) TYPE x.
      c = sy-index - 1.
      DO 8 TIMES.
        low_bit = '00000001'. low_bit = c BIT-AND low_bit.   " c  & 1
        c = c DIV 2. c = c BIT-AND m7FFFFFFF. " c >> 1 (top is zero, but in ABAP signed!)
        IF low_bit IS NOT INITIAL.
          c = c BIT-XOR magic_nr.
        ENDIF.
      ENDDO.
      CONCATENATE crc32_map c INTO crc32_map IN BYTE MODE.
    ENDDO.
  ENDIF.

Cheers,

Suhas

Re: Coded humor

Lukas_Weigelt — Fri, 20 May 2011 11:26:39 GMT

Yet another one found 😆

*   these are the adventures of the new spaceship BERID;
*   she intrudes into MRP areas where no man has gone before;
    PERFORM DISPO_AREA_SET TABLES P_ATPCSX
                                  P_ATPMATX.

Re: Coded humor

Former Member — Fri, 20 May 2011 13:15:14 GMT

Just to keep the skeptics happy, you might want to include the Program/Include/FM/etc Name.

Re: Coded humor

Lukas_Weigelt — Mon, 23 May 2011 08:26:49 GMT

Spaceship BERID was from LATPCFA6, AVAILABILITY_CHECK_R3.

Re: Coded humor

SuhaSaha — Mon, 05 Sep 2011 04:56:28 GMT

I found this gem in 'BAPI_FLIGHT_GETLIST'


 BAdI 1 for Customer specific coding ***********************
At this point there should be a BAdI that the customer can use to   *
check the data in the parameter ExtensionIn.                        *
Unfortunately there was no time to define and implement the BAdI in *
this release. This will be done at a later time.                    *
We are aware that this is inconsistent with the existence of the    *
ExtensionIn. However, this BAPI is for learning purposes only and   *
not productive. Therefore we think it better to show how to define  *
the ExtensionIn (even though it can not be used here) instead of    *
leaving it out. ("Showing some is better than nothing")             *
End of BAdI 1 *********************************************

"Showing some is better than nothing" ... Lol

Re: Coded humor

Lukas_Weigelt — Fri, 16 Sep 2011 14:47:50 GMT

http://www.pictureupload.de/originals/pictures/160911164546_wellplayedsap.gif

Translation: "1 entries have been found! Do you want to sort the result?"

Well played SAP, well played...

Re: Coded humor

Former Member — Fri, 16 Sep 2011 15:11:20 GMT

I forgot which program it was where i copied this piece of comment, but it made me laugh!


*&---------------------------------------------------------------------*
*& Report  ZPSD_INTERFACE_GAS_003
*&
*&---------------------------------------------------------------------*
*###################################################################*
*#-----------------------------------------------------------------#*
*#      |\\/\\//\|        -----------------------------------      #*
*#      |        |       /  Report:                          \     #*
*#      |  (*) (*)      /   ZPSD_INTERFACE_GAS_003            \    #*
*#      |       __)    /    Version:   1.0 (2011-06-21)        \   #*
*#     (C    _____\   /     generated on 20110621 150151        \  #*
*#       \  (__(   --{-------------------------------------------} #*
*#       |    /       \     By:                                 /  #*
*#       /====\        \    INFDVH                             /   #*
*#      /     o\        \   Dwang - adresgegevens wijzigen    /    #*
*#     /       o\        \          vanuit planon            /     #*
*#    /         o\        \                                 /      #*
*#   /           o\        --------------------------------        #*
*#-----------------------------------------------------------------#*
*###################################################################*

Regards,

Dirk.

Re: Coded humor

Former Member — Mon, 19 Sep 2011 08:11:55 GMT

&----

*& Report YISU_DEV_CLEAR_ALL

&----

Pointy haired boss let me down
I H8 me JOB

RAISE NO_NEED_TO_WORK.

Re: Coded humor

Lukas_Weigelt — Mon, 19 Sep 2011 16:01:12 GMT

Both no standard reports, still funny though

"DEV_CLEAR_ALL" sounds dangerous... lol

Re: Coded humor

SuhaSaha — Fri, 23 Sep 2011 10:53:40 GMT

Hey Guys,

I found this "gem" in the famous PNPCE LDB

* *********************************************************************
* Type-Pool for DYNAMIC SELECTIONS
* *********************************************************************
* must be declared here (not in TOP-Include) because we need it for
* select-options (pnpdynse & pnpdynsr); declaration in TOP-Include
* would be too late! - don't know why...

If SAP doesn't know "why" who does?

Cheers,

Suhas

Re: Coded humor

Former Member — Fri, 23 Sep 2011 12:22:53 GMT

You don't know what a TOP include is? Shame on you!

Re: Coded humor

Lukas_Weigelt — Mon, 07 Nov 2011 09:52:03 GMT

FITV_FMP

METHOD onevent_mca_change .
  DATA lo_controller_api TYPE REF TO if_wd_view_controller.
  lo_controller_api = wd_this->wd_get_api( ).

* Note: No influence on focus :(
*  "Refresh view
*  wd_this->fire_refresh_plg( ).

;(

Re: Coded humor

Lukas_Weigelt — Mon, 05 Dec 2011 18:03:09 GMT

method _If_Wdr_Internal_Api~get_Assist_Instance.
*===============================================
  data:
    cref_Ctlr  type ref to object.
  field-symbols:
    <wd_Assist>   type data.

  cref_Ctlr = f_Ctlr_Inst->Component->get_Delegate( ).

  " !!! THIS DEPENDS ON THE GENERATION TEMPLATES !!!
  " nice and breezy and yuk a little bit of horroshow
  assign cref_Ctlr->('F_ASSIST') to <wd_Assist>.
  if ( <wd_Assist> is assigned and <wd_Assist> is bound ).
    Result = <wd_Assist>.
  endif.
endmethod.

Re: Coded humor

Lukas_Weigelt — Mon, 05 Dec 2011 18:08:21 GMT

lri_Tom_0->ADD_CHILD( lri_Tom_10 ).

  CL_WD_GRID_LAYOUT=>new_grid_layout(
    Container = lri_Tom_0
    cell_padding = `0`
    cell_spacing = `0`
    col_count = `1`
    stretched_horizontally = Abap_True
    stretched_vertically = Abap_False
  ).


* uff we are thru
  Result = lri_Tom_0.
endmethod.

Relieving words of a developer after coding about 2k lines of generic context/UI-Elements in WD4A.

Re: Coded humor

Former Member — Mon, 16 Jan 2012 21:38:09 GMT

I dont remember where I took this from, I know I was doing some work for DSD, but here is the screenshoot I took:

http://a2.sphotos.ak.fbcdn.net/hphotos-ak-ash2/38810_423746673317_551018317_4889825_6644883_n.jpg

Re: Coded humor

Former Member — Mon, 16 Jan 2012 21:42:38 GMT

Was it in a "global" user exit?

Cheers,

Julius

Re: Coded humor

Lukas_Weigelt — Wed, 01 Feb 2012 07:08:37 GMT

More tragic than funny:

PTRA_UTIL_EXPENSE_REPORT_NEW

* 'R' (Lesen) wird aus historischen Gründen benutzt, da es in der TRIP
* (Reiseantrag) genauso ist...
    l_authc = 'R'.

Translation: " Used for historical reasons, since the same is done in TRIP (Travel Request) ... "

Re: Coded humor

Former Member — Wed, 01 Feb 2012 16:35:20 GMT

Guest.

Edited by: A. Povitz on Feb 7, 2012 11:35 PM