problem with call screen executable program

[former_member635273]

i have executable program.

mycode.

START-OF-SELECTION.
  PERFORM f_check USING lv_flag.
  IF lv_flag IS NOT INITIAL.
    MESSAGE 'Can''t Print' TYPE 'E'.
    CALL SCREEN 1000.
  ELSE.
    PERFORM f_process_data.
    PERFORM f_show_smartforms.
  ENDIF.

after i run. screen stuck in blank like below.

I want back to first screen.but it's not work.

i hv tried CALL SCREEN 1000, CALL SCREEN 0, SUBMIT, but still stuck in blank.

[DominikTylczyn · Accepted solution]

Hi saddam.id

You can use the following code:

START-OF-SELECTION.
  PERFORM f_check USING lv_flag.
  IF lv_flag IS NOT INITIAL.
    MESSAGE 'Can''t Print' TYPE 'S' DISPLAY LIKE 'E'.
    RETURN.
  ELSE.
    PERFORM f_process_data.
    PERFORM f_show_smartforms.
  ENDIF.

Best regards

Dominik Tylczynski

[former_member635273 · Accepted solution]

🙂 thnks sir. done.

[michael_piesche]

1. MESSAGE TYPE 'E' will exit your report. CALL SCREEN is not even reached!
Use option 'DISPLAY LIKE' with statement MESSAGE to have different behavior but display it with same severity but not exiting your program logic:

MESSAGE 'Can''t Print' TYPE 'I' DISPLAY LIKE 'E'.

2. Depending on your defined screens and report coding, you might not even have to use the 'CALL SCREEN 1000' statement (In general Screen 1000 is the default screen when using an executable report, so imho, you shouldnt have to call screen 1000 because you are in screen 1000 (but it depends on your entire coding and report definitions).

[venkateswaran_k]

Hi

The error message shows : cannot print

Please debug in your f_show_smartforms.

Also, did you handle - BACK - usercommand in your GUI_STATUS ?

Regards,

Venkat

[former_member635273]

yes, I want after error message show, back to fisrt scrren. but stuck in blank screen.

[FredericGirod]

did you try LEAVE TO SCREEN 0 ?

[former_member635273]

yes, but not work.