topic Re: calling perform from another Program in Application Development and Automation Discussions

calling perform from another Program

aboooood86 — Tue, 19 Jul 2022 08:29:17 GMT

Hallo together, i have to call a Form from anotehr Report but Im having a Problem it wonts work. there is no syntax error.

 
*Programm A
READ TABLE gt_out ASSIGNING FIELD-SYMBOL(<fs_gtout>) INDEX row.
    IF sy-subrc = 0 .

*Für die EBELN wird diese FUBA aufgerufen um den richtigen EBELN mit den richtigen position angezeigt wird
      CASE column.
        WHEN 'EBELN'.
          CHECK <fs_gtout>-ebeln IS NOT INITIAL AND <fs_gtout>-ebelp IS NOT INITIAL.
          CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
            EXPORTING
              i_ebeln        = <fs_gtout>-ebeln
              i_ebelp        = <fs_gtout>-ebelp
              i_display_only = abap_true
            EXCEPTIONS
              OTHERS         = 5.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE 'I' NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE sy-msgty.
          ENDIF.
        WHEN 'MATNR'.
          CHECK <fs_gtout>-matnr IS NOT INITIAL.
          SET PARAMETER ID 'MAT' FIELD <fs_gtout>-matnr.
          CALL TRANSACTION 'ZDISPO' AND SKIP FIRST SCREEN.

        WHEN 'LIFNR'.
      CHECK <fs_gtout>-lifnr IS NOT INITIAL.
      SET PARAMETER ID 'LRE' FIELD <fs_gtout>-lifnr.
      PERFORM mk_03 IN PROGRAM b USING <fs_gtout>-lifnr.

      ENDCASE.
    ENDIF.

*Program b
FORM call_mk03 USING    l_lifnr.

  DATA BEGIN OF bdcdata OCCURS 100.
          INCLUDE STRUCTURE bdcdata.
  DATA END OF bdcdata.
  DATA BEGIN OF itab OCCURS 10.
          INCLUDE STRUCTURE bdcmsgcoll.
  DATA END OF itab.

  DATA: c_temp(10) TYPE c.

  SELECT SINGLE * FROM wyt3 WHERE lifnr = l_lifnr
                            AND   ekorg = '1000'.
  IF sy-subrc <> 0.
*    set parameter id 'LIF' field l_lifnr.
*    set parameter id 'EKO' field '1000'.
**    set parameter id '
*    call transaction 'MK03' and skip first screen.
* TODO Fehlermeldung
    SELECT SINGLE * FROM lfa1 WHERE lifnr = l_lifnr
                              AND   ktokk = 'REPA'.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
  ENDIF.

  bdcdata-program  = 'SAPMF02K'.
  bdcdata-dynpro   = '0108'.
  bdcdata-dynbegin = 'X'.
  APPEND bdcdata.
  CLEAR bdcdata.

  bdcdata-fnam     = 'BDC_OKCODE'.
  bdcdata-fval     = '/00'.
  APPEND bdcdata.

  bdcdata-fnam     = 'BDC_CURSOR'.
  bdcdata-fval     = 'RF02K-LIFNR'.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-LIFNR'.
  bdcdata-fval     = l_lifnr.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-EKORG'.
  bdcdata-fval     = '1000'.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-D0110'.
  bdcdata-fval     = 'X'.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-D0120'.
  bdcdata-fval     = ''.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-D0130'.
  bdcdata-fval     = ''.
  APPEND bdcdata.

  bdcdata-fnam     = 'WRF02K-D0380'.
  bdcdata-fval     = 'X'.
  APPEND bdcdata.

  bdcdata-fnam     = 'RF02K-D0310'.
  bdcdata-fval     = 'X'.
  APPEND bdcdata.

  bdcdata-fnam     = 'WRF02K-D0320'.
  bdcdata-fval     = 'X'.
  APPEND bdcdata.


* Keine Fehler => Transaktion kann ausgeführt werden
  CALL TRANSACTION 'MK03'  USING bdcdata  MODE 'E' MESSAGES INTO itab.

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 08:56:54 GMT

PERFORM mk_03
vs
FORM call_mk03

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 08:57:45 GMT

"hallo zusammen" does not neatly translate into English although I feel it should 😄

Re: calling perform from another Program

former_member751463 — Tue, 19 Jul 2022 09:04:16 GMT

Hi Abood,

We need more information to provide any feedback. Its better if you can debug the program and see where the error is. What is the output of the program.Check if any data is selected or not. What is the sy-subrc value after call transaction. You need to check these things.

Thanks,

Aditya.

Re: calling perform from another Program

aboooood86 — Tue, 19 Jul 2022 09:56:42 GMT

The "Hallo" was very bad u r right but the together should be acceptable somehow XD

lerning English from video games was not the best choice i guess XD

Re: calling perform from another Program

aboooood86 — Tue, 19 Jul 2022 10:01:47 GMT

oh Im so sorry I feel really bad for this bad mistake :((

thx

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 10:10:27 GMT

no worries, I've lost count of the times I couldn't see this kind of mistakes in my code 🙂

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 11:11:45 GMT

PS: although both programs can be activated, you should see a dump when the calling program actually attempts to run the PERFORM IN PROGRAM statement. To avoid it, if necessary, you may use the "IF FOUND" extension.

Re: calling perform from another Program

aboooood86 — Tue, 19 Jul 2022 13:55:45 GMT

thank u sir! i have one last quistion:

PERFORM call_mk03 IN PROGRAM bCHANGING <fs_gtout>-lifnr IF FOUND.

PERFORM call_mk03 IN PROGRAM b USING <fs_gtout>-lifnr IF FOUND.

whats the different between using and changing?

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 14:33:41 GMT

Careful, do not abuse "IF FOUND": it is not intended as a catch-all, rather when you're deliberately planning a later development.

changing vs using is the same as with a normal (i.e., not "in program") PERFORM call

Re: calling perform from another Program

aboooood86 — Tue, 19 Jul 2022 14:42:06 GMT

i thought IF FOUND is a must. i took it out of my Programm i will just use it fpr later planning develpment.

thank u again !

Re: calling perform from another Program

matt — Tue, 19 Jul 2022 18:23:01 GMT

c5e08e0478aa4727abc4482f5be390b2

Sure it does. "Hi everyone".

I prefer the dialect. "Hoi zsamme".

Re: calling perform from another Program

matt — Tue, 19 Jul 2022 18:27:48 GMT

PERFORM mk_03 IN PROGRAM b USING <fs_gtout>-lifnr.

is very bad programming. Do it differently. Seriously. This is 1990s programming.

@ sandra.rossi bfeeb8ed7fa64a7d95efc21f74a8c135

I could weep.

Re: calling perform from another Program

Ryan-Crosby — Tue, 19 Jul 2022 18:39:06 GMT

matthew.billingham - Haha @ the weeping!! A combination of BDC and 90s programming is bound to be a robust solution 😛

Re: calling perform from another Program

abo — Tue, 19 Jul 2022 20:33:54 GMT

matthew.billingham

surely not with "together" 🙂

Re: calling perform from another Program

hardyp180 — Tue, 19 Jul 2022 23:32:32 GMT

Oh dear. That is all I can say.

Remote PERFORMS are an abomination. Even back in 1997 there were far, far, better ways of doing things. Then, as now, you should find a way to encapsulate re-usable code.

Why do people still program like this in 2022? I can only presume that is the way they were taught, and that is the way they will teach their successor to do things. Nobody ever questioning anything, no-one ever thinking there might be a better way.

Re: calling perform from another Program

Ryan-Crosby — Wed, 20 Jul 2022 00:25:15 GMT

bfeeb8ed7fa64a7d95efc21f74a8c135

"That's the way I've always done it" - a guarantee of never improving anything...

Re: calling perform from another Program

aboooood86 — Wed, 20 Jul 2022 06:19:47 GMT

matthew.billingham so what is the modern programming?

Re: calling perform from another Program

Sandra_Rossi — Wed, 20 Jul 2022 06:33:30 GMT

matthew.billingham

Please don't get me in this kind of good/evil trap 😄

Of course, in my experience, I found out that ABAP Objects was much more maintainable than the old subroutines, provided that you code it well. But I also understand that people are in their learning curve (or don't want to learn), so I don't blame them. By the way, I often use PERFORM when I need to fix bugs of old-fashioned programs, but trying to add ABAP Objects as much as I can, if it helps in the code, so that to leave the program in better shape.

Re: calling perform from another Program

aboooood86 — Wed, 20 Jul 2022 06:41:28 GMT

sandra.rossi i try to use everything i learned and yes i need to focus more on abap oo but i thought working with PERFORM isnt that bad 😞