problem with call screen executable program

[#1]

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.

[Dominik_Tylczynski · 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.