topic Re: Step Loop in Application Development and Automation Discussions

Step Loop

Former Member — Tue, 31 Jul 2007 07:40:30 GMT

Hi,

Iam using Step Loop. Ihad taken 2 tables VBAK and VBAP and designed the screen layout. But when iam executing the t.code i could able to see only the VBAK table, But iam not getting the deatils of VBAP table when iam executing the T.Code

This is the program and flow logics.

Flow Logic.

PROCESS BEFORE OUTPUT.

*MODULE STATUS_9001.

LOOP AT IT_VBAP INTO VBAP CURSOR C1.

ENDLOOP.

PROCESS AFTER INPUT.

MODULE USER_COMMAND_9001.

LOOP AT IT_VBAP.

ENDLOOP.

Module pool Program.

PROGRAM ZMP_TAB3.

TABLES:

VBAK,

VBAP.

DATA:

IT_VBAP TYPE TABLE OF VBAP WITH HEADER LINE,

c1 TYPE I.

&----

*& Module USER_COMMAND_9001 INPUT

&----

text

----

MODULE USER_COMMAND_9001 INPUT.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN SPACE.

SELECT * FROM VBAP INTO CORRESPONDING FIELDS OF IT_VBAP WHERE VBELN EQ VBAK-VBELN.

ENDSELECT.

ENDCASE.

ENDMODULE. " USER_COMMAND_9001 INPUT

Ram

Re: Step Loop

RaymondGiuseppi — Tue, 31 Jul 2007 07:52:32 GMT

Main program (skeleton)

REPORT zrgsvbap .

TABLES: vbak, vbap.
DATA it_vbap TYPE TABLE OF vbap.
CONTROLS: ctl_vbap TYPE TABLEVIEW USING SCREEN 0100.

PARAMETER p-vbeln LIKE vbak-vbeln.

AT SELECTION-SCREEN ON p-vbeln.
  SELECT SINGLE * FROM vbak WHERE vbeln = p-vblen.
  IF sy-subrc <> 0.
    MESSAGE e302(v1) WITH p-vbeln.
  ENDIF.

START-OF-SELECTION.
  SELECT * FROM vbap INTO TABLE it_vbap WHERE vbeln = vbal-vbeln.

END-OF-SELECTION.
  SET PF-STATUS '0100'.
  CALL SCREEN 0100.

Dynpro has a table control with VBAP, and some fields of VBAK

PROCESS BEFORE OUTPUT.
  LOOP AT   IT_VBAP
       INTO VBAP
       WITH CONTROL CTL_VBAP
       CURSOR CTL_VBAP-CURRENT_LINE.
  ENDLOOP.

PROCESS AFTER INPUT.
  LOOP AT IT_VBAP.
  ENDLOOP.

Re: Step Loop

Former Member — Tue, 31 Jul 2007 08:56:51 GMT

U aren't appending any record in the table:

*----------------------------------------------------------------------*
MODULE USER_COMMAND_9001 INPUT.
CASE SY-UCOMM.
    WHEN 'EXIT'. LEAVE PROGRAM.
    WHEN SPACE.
*SELECT * FROM VBAP INTO CORRESPONDING FIELDS OF IT_VBAP WHERE *VBELN EQ VBAK-VBELN.
*ENDSELECT.
          SELECT * FROM VBAP INTO CORRESPONDING FIELDS OF TABLE IT_VBAP WHERE VBELN EQ VBAK-VBELN.

ENDCASE.

ENDMODULE. " USER_COMMAND_9001 INPUT

Max