Page 7 of 9

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

PostPosted: Mon Apr 26, 2010 7:32 am
by Baz
BAdi name: /CUM/BADI_CU_EXPLODE




:shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :oops:

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

PostPosted: Thu Dec 16, 2010 4:23 am
by eranfox
Hi all,
I just found this:
CLASS:
CL_HRRCF_DATAOVERVIEW_PL
METHOD:
GET_REQ_PDF_SMARTFORMS
LINE NUMBER
8
Code: Select all
         lv_sam_hawkins           TYPE          int4,         "#EC NEEDED

Who is sam hawkins? - the singer maybe? the programmer?
:)

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

PostPosted: Tue Feb 01, 2011 4:19 pm
by sapmanie
Function module: SPDA_PATCH_DISASSEMBLER

*-----------------------------------------------------------------------
* DOCUMENTATION => function module documentation !!! TODO: update it
*-----------------------------------------------------------------------

(It was never done :P )

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

PostPosted: Wed Feb 02, 2011 3:19 am
by YuriT
sapmanie wrote:Function module: SPDA_PATCH_DISASSEMBLER

*-----------------------------------------------------------------------
* DOCUMENTATION => function module documentation !!! TODO: update it
*-----------------------------------------------------------------------

(It was never done :P )


How come? I guess this is the only example of non-documented SAP object then.

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

PostPosted: Thu May 12, 2011 7:10 pm
by EricHP
Hi all,

You can find some nice comments while debugging the /DSD/SL_COCKPIT transaction...

Regards,
Eric Hernandez

FM: /DSD/SL_FSR_DEL_FFMT_PROCESS
at line 285

* now, bgins the *REAL* hard work! (only for the case the
* stuff before got on your nerves)

Code: Select all
* now, bgins the *REAL* hard work! (only for the case the
* stuff before got on your nerves)
  SORT lt_docs BY role custnbr.                             "n_1311656
  READ TABLE it_due_list INTO ls_due_list INDEX 1.
  SELECT SINGLE * FROM /dsd/st_status INTO ls_status
                  WHERE tourid = ls_due_list-tour_id.


at line 352, 356 and 362


* now, finally, after a journey through the dark and
* dangerous forrest, it comes to decision:

Code: Select all
*       now, finally, after a journey through the dark and
*       dangerous forrest, it comes to decision:
        if l_gen_fault eq /dsd/sl_cl_const=>yes             "n_1046771
        and lt_sld_flow is initial.                         "n_1046771

"sorry, you loose
Code: Select all
          rollback work."sorry, you loose
*       delete success entries in the application log         "vn_869049
          perform delete_log_msg
             using lt_order_msg_tab.
          clear lt_order_msg_tab[].                         "^n_869049
        else.

"there is a new champion in town!
Code: Select all
          commit work.  "there is a new champion in town!
* for loading deliveries (temporary visit for the driver)
* no electronic signature may be proceseed.
          IF l_role NE 'D'.                                 "n_1311656



At line 625

* there is a new champion in town, but follow on steps
* should wait, until he has done

Code: Select all
*       there is a new champion in town, but follow on steps
*       should wait, until he has done
        commit work and wait.


FM: /DSD/SL_FSR_DEL_FFMT_PROCESS
at line 487

* now, finally wait, until all children are back from the dark,
* dark and dangerous forrest (only, if we sent them there)

Code: Select all
* now, finally wait, until all children are back from the dark,
* dark and dangerous forrest (only, if we sent them there)
  IF  g_para_control-objects_per_task GT 0.
    IF g_para_control-dispatch_timeout GT 0.
      WAIT UNTIL g_number_active_tasks LE 0
           UP TO g_para_control-dispatch_timeout SECONDS.
    ELSE.
      WAIT UNTIL g_number_active_tasks LE 0.


At line 764

* PANIC !!!
* If there are *NO* data at this stage, some bullshit
* happened before. Therefore:

Code: Select all
  IF sy-subrc NE 0.
*   PANIC !!!
*   If there are *NO* data at this stage, some bullshit
*   happened before. Therefore:
*    MESSAGE x015 WITH space space space space.
*   DSD Endabstimmungslauf: Schwerer Anwendungsfehler.
    ROLLBACK WORK.                                     "#EC CI_ROLLBACK
    CALL FUNCTION '/DSD/SL_FSR_BAL_SPL_ENTRY_ADD'

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

PostPosted: Tue Jun 28, 2011 7:38 am
by thx4allthefish
Note 1572302

Symptom

ABAP Data Dictionary contains code which changes the program's behaviour when a user successfully authenticates with a certain username.

Code: Select all
Delete Block

  IF sy-uname = 'DDIC'       OR sy-uname = 'BOLENDER'  OR
     sy-uname = 'NAUNDORF'   OR sy-uname = 'HOPRICH'   OR
     sy-uname = 'WEBERP'     OR sy-uname = 'HOEFTK'    OR
     sy-uname = 'HELLBRUECK' OR
     sy-uname = 'TREBING'    OR sy-uname = 'TSESIS'    OR
     sy-uname = 'STAHLM'     OR sy-uname = 'BUEHLERU'  OR
     sy-uname = 'WENZELG'.

Insert Block

  IF sy-uname = 'DDIC'.

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

PostPosted: Fri Oct 07, 2011 4:53 am
by blackfish
CFM system, FM THMHR_OVERHEDGED_SCENARIO:

Code: Select all
    CHECK sy-subrc = tpmco_subrc_0.
* anyting nu? doo-be-do-be-doo?
    CHECK l_str_hr_new <> l_str_hr_old.

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

PostPosted: Tue Nov 08, 2011 7:30 am
by VLozano
Check this...
(it's a help.sap.com link, SFW)

I was looking for SOAP information, trust me :oops:

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

PostPosted: Wed Nov 09, 2011 4:21 am
by YuriT
RHCHECK1 documentation:

Do all of an object's infotypes lie within the validity period of infotype 1000?


Everybody lies.

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

PostPosted: Mon Nov 21, 2011 6:19 am
by Gothmog
Include LMEOUTP14, lines 1205-1210:
Code: Select all
      read table my_hash_table into ls_hash
                               with table key ebeln = <updqueue>-ebeln.

      if not sy-subrc is initial.
        raise panic.
      endif.

sy-subrc was initial, so I didn't panic, but it still doesn't work...
I think I'll get angry instead ! :twisted:

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

PostPosted: Tue Dec 20, 2011 7:05 am
by VLozano
Class CL_BFW_CHANNEL_POC, method CREATE_MESSAGES:
Code: Select all
* --- messages from JavaScript environment ---
  IF 0 EQ 1.
    MESSAGE e325(cpoc) WITH '' '' '' ''. " bfwChannel
    MESSAGE e326(cpoc) WITH ''.          " bfwChannel
    MESSAGE e327(cpoc) WITH '' ''.       " bfwChannel
    MESSAGE e328(cpoc) WITH ''.          " bfwChannel
    MESSAGE e330(cpoc) WITH '' ''.       " bfwComponent
    MESSAGE e331(cpoc) WITH ''.          " bfwComponent
    MESSAGE e332(cpoc) WITH '' '' ''.    " bfwComponent, bfwContainer
    MESSAGE e333(cpoc) WITH '' '' ''.    " bfwComponent, bfwContainer
    MESSAGE e334(cpoc) WITH '' '' '' ''. " bfwComponent
    MESSAGE e335(cpoc) WITH '' ''.       " bfwComponent
    MESSAGE e338(cpoc) WITH ''.          " bfwDocument
    MESSAGE e339(cpoc) WITH '' ''.       " bfwDocument
    MESSAGE e340(cpoc) WITH '' '' ''.    " bfwWindow
    MESSAGE e341(cpoc) WITH '' ''.       " bfwSystem
    MESSAGE e342(cpoc) WITH '' '' ''.    " bfwWindow
  ENDIF.

In two words: im pressive.

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

PostPosted: Tue Dec 20, 2011 7:10 am
by Gothmog
Actually, there's a reason for this : to find this method in the where-used list of these messages, as they are generically used just above.

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

PostPosted: Tue Dec 20, 2011 10:52 pm
by VLozano
Gothmog wrote:Actually, there's a reason for this : to find this method in the where-used list of these messages, as they are generically used just above.

Me no comprendo tu idioma... WTF? They need to use a message to point the method? Sounds absurd, I say.

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

PostPosted: Wed Dec 21, 2011 4:55 am
by Gothmog
This method receives message and show them, but without having the message number hard coded.
If you get message CPOC 325, a where-used case won't tell you where it's coming from.
Thanks to this 'useless' coding, now you will find that it's coming from there.
Clearer ?

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

PostPosted: Wed Dec 21, 2011 11:01 pm
by VLozano
Clearer. But I don't think it will be a good practice, at least, if no one ads your explanation to the code via comments, for example.

Thanks for your help.