Sunday, August 26, 2007

Surprises in ABAP

Long ago, we found some interesting text in an ABAP:

















A nice way of saying: "Don't touch my code" ;-)
Thanks to Evert-Jan for finding the correct ABAP name in his archive.

And a few weeks ago, Paul found this one:

















So, any other examples? Do you know some nice easter eggs within ABAP, please let me know. I know it is a kind of 'nerdy', but it is good fun ;-)

4 comments:

Martine said...

FUNCTION SO_SOLIXTAB_TO_SOLITAB.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" REFERENCE(IP_SOLIXTAB) TYPE SOLIX_TAB
*" EXPORTING
*" REFERENCE(EP_SOLITAB) TYPE SOLI_TAB
*"----------------------------------------------------------------------

data: ls_soli type soli,
ls_solix type solix.

......

* sr221004: in my opinion, the below coding would have been
* the better solution...
* data ls_soli type soli.
* data ls_solix type solix.
* data charsize type i.
* data skip type i.
* data tabix type sytabix.
* data add_read type i.
* data off type i.
* data xlen type i.

....

Twan said...

Wow, how did find that one? I wonder who sr221004 is...

Noorul Amin said...

Hey Twan,

That was hilarious.

:) Nooru

Crazy said...

Class Interface CL_API_MASTER_CONDITION_MM

Method PROCESS_CREATE_CONDITION

* build konp
* PB00 has to be always on the first position in ERP!!
* from SRM PBOO is not always on the first pos
* what a s..., but therefore must be renumbered
* all kopos in konp, konm and konw...

read table it_konp into ls_konp with key id_konh = ls_konh-id_konh
kschl = lv_kschl. "PB00 or ZZ..
if sy-subrc eq 0 and
sy-tabix ne 1.
* Renumbering is needed.
lv_renumber = 'X'.
endif.