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

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

Postby Baz » Mon Apr 26, 2010 7:32 am

BAdi name: /CUM/BADI_CU_EXPLODE




:shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :shock: :oops:
Baz

AsPiRiNg tUlY iDiOt Image

http://www.catb.org/~esr/faqs/smart-questions.html

Image

check out my Podcasts http://dj-baz.podomatic.com
Baz
 
Posts: 4736
Joined: Fri Nov 08, 2002 5:54 am
Location: He's out there! somewhere!!!!

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

Postby eranfox » Thu Dec 16, 2010 4:23 am

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?
:)
eranfox
 
Posts: 1
Joined: Thu Dec 16, 2010 4:16 am

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

Postby sapmanie » Tue Feb 01, 2011 4:19 pm

Function module: SPDA_PATCH_DISASSEMBLER

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

(It was never done :P )
sapmanie
 
Posts: 481
Joined: Fri Jan 23, 2004 10:39 am

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

Postby YuriT » Wed Feb 02, 2011 3:19 am

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.
YuriT
 
Posts: 885
Joined: Fri Feb 03, 2006 6:40 am
Location: Basel/Riga

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

Postby EricHP » Thu May 12, 2011 7:10 pm

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'
EricHP
 
Posts: 3
Joined: Fri Mar 19, 2004 3:38 pm

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

Postby thx4allthefish » Tue Jun 28, 2011 7:38 am

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'.
curiousorange wrote:I give up. Humanity isn't worth saving. Why is there never a Vogon Constructor Fleet around when you really need one?
thx4allthefish
 
Posts: 5694
Joined: Sat Oct 26, 2002 6:18 pm
Location: barolo barrel

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

Postby blackfish » Fri Oct 07, 2011 4:53 am

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.
blackfish
 
Posts: 11
Joined: Thu Oct 24, 2002 4:04 am

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

Postby VLozano » Tue Nov 08, 2011 7:30 am

Check this...
(it's a help.sap.com link, SFW)

I was looking for SOAP information, trust me :oops:
Tuly Idiots
Because we know we are part of the problem
VLozano
 
Posts: 5140
Joined: Mon Sep 13, 2004 8:17 am
Location: Idiocity

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

Postby YuriT » Wed Nov 09, 2011 4:21 am

RHCHECK1 documentation:

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


Everybody lies.
YuriT
 
Posts: 885
Joined: Fri Feb 03, 2006 6:40 am
Location: Basel/Riga

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

Postby Gothmog » Mon Nov 21, 2011 6:19 am

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:
68 74 74 70 3a 2f 2f 74 69 6e 79 75 72 6c 2e 63 6f 6d 2f 62 64 6f 37 6d 77 67
Gothmog
 
Posts: 1941
Joined: Wed Sep 12, 2007 4:46 am
Location: Probably not home

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

Postby VLozano » Tue Dec 20, 2011 7:05 am

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.
Tuly Idiots
Because we know we are part of the problem
VLozano
 
Posts: 5140
Joined: Mon Sep 13, 2004 8:17 am
Location: Idiocity

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

Postby Gothmog » Tue Dec 20, 2011 7:10 am

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.
68 74 74 70 3a 2f 2f 74 69 6e 79 75 72 6c 2e 63 6f 6d 2f 62 64 6f 37 6d 77 67
Gothmog
 
Posts: 1941
Joined: Wed Sep 12, 2007 4:46 am
Location: Probably not home

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

Postby VLozano » Tue Dec 20, 2011 10:52 pm

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.
Tuly Idiots
Because we know we are part of the problem
VLozano
 
Posts: 5140
Joined: Mon Sep 13, 2004 8:17 am
Location: Idiocity

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

Postby Gothmog » Wed Dec 21, 2011 4:55 am

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 ?
68 74 74 70 3a 2f 2f 74 69 6e 79 75 72 6c 2e 63 6f 6d 2f 62 64 6f 37 6d 77 67
Gothmog
 
Posts: 1941
Joined: Wed Sep 12, 2007 4:46 am
Location: Probably not home

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

Postby VLozano » Wed Dec 21, 2011 11:01 pm

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.
Tuly Idiots
Because we know we are part of the problem
VLozano
 
Posts: 5140
Joined: Mon Sep 13, 2004 8:17 am
Location: Idiocity

PreviousNext

Return to ABAP

Who is online

Users browsing this forum: No registered users and 10 guests





loading...


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