Screen Painter

[Former Member]

Hi,

Is it possible to call 2 screens in one program, as indicated below cause I get an error message when I click on the cancel button.

REPORT  ZPMS_LOGON                              .
TABLES: ZPMS_LOGON.
DATA: BEGIN OF ITAB OCCURS 2.
INCLUDE STRUCTURE ZPMS_LOGON.
DATA: END OF ITAB.
DATA: TEMP TYPE I, USERNAME1(30) TYPE C, PASSWORD1(30) TYPE C, OK_CODE TYPE SY-UCOMM,
      SAVE_OK LIKE OK_CODE.


CALL SCREEN 100.

MODULE init_screen_100.
  CLEAR USERNAME1.
  CLEAR PASSWORD1.
  CLEAR OK_CODE.
ENDMODULE.



MODULE user_command_0100.

  CASE SY-UCOMM.

  WHEN 'CANCEL_1'.
    CALL SCREEN 101.

  WHEN 'LOGON_1'.

    WRITE: 'THE USERNAME IS ', USERNAME1.
    WRITE /.
    WRITE: 'THE PASSWORD IS ', PASSWORD1.

   WHEN OTHERS.

     LEAVE PROGRAM.

  ENDCASE.
ENDMODULE.

MODULE STATUS_101.

  CLEAR SY-UCOMM.

ENDMODULE.

MODULE USER_COMMAND_0101.

  CASE SY-UCOMM.

  WHEN 'YES_1'.
  LEAVE PROGRAM.

  WHEN 'NO_1'.
  CALL SCREEN 100.

  WHEN OTHERS.
  LEAVE PROGRAM.

  ENDCASE.
ENDMODULE.

Edited by: Beatrice Nkomo on Jul 9, 2008 12:37 PM

[Former Member]

The error message that I get is an ABAP runtime error: DIAG_RFC_EXCEPTION

In the Error analysis this is what I get P1 "No main dynopro".

And it doesnt give me how to solve the problem.