Clear console output screen ...

Hi,
just bagan to program java .....
I have written a small program which outputs a menu to the console screen. Is there a command to clear the whole screen ? Something like clrscr in C ? Thanks.
Noah

Exactly... This question has been asked a thousand times.
Here's how the thread usually goes
OP> I want to clear the screen
AP> Use a loop with empty System.out.println()'s
OP> But that leaves the cursor at the bottom of the screen
AP> How about using ANSI escape sequences?
OP> But that means I have to load the driver on all machines
AP> How about using JNI and calling a system function?
OP> That's a lot of work and doesn't work cross platform

Similar Messages

Controlling PowerShell's console output

How do you control PowerShell's console output and overwrite the last character written?
I want to overwrite a character with a loop, like the spinning baton in UNIX while some Job.status -eq running. You know like cycle through |/-\| so it looks like a spinning bar.
I have the loop written but the console never seems to want to overwrite the last chacter. I am using write-host -nonewline, so at least I'm on the right line.
I have tried using `b and then the write-host, but it actually get this box character written to the screen instead of a backspace.
I have tried using [console]::cursor stuff but I can't set the cursor to less than zero and zero just leaves the cursor where it was anyway.
I also tried using [string]::format and {0,1} type stuff, but it always writes next to the last character. There's a guy who wrote a countdown timer, and when I run his code it doesn't work for me (http://poshtips.com/2010/03/29/powershell-countdown-timer/).
The timer just keeps writing to the side after 40 whitespaces.
The only way I have been able to do it is by calling cls before each character; of course i'd rather not clear the entire screen.
I'm hoping you will enlighten me...

function myWaitJob($job) {
$saveY = [console]::CursorTop
$saveX = [console]::CursorLeft
$str = '|','/','-','\'
do {
$str | ForEach-Object { Write-Host -Object $_ -NoNewline
Start-Sleep -Milliseconds 100
[console]::setcursorposition($saveX,$saveY)
} # end foreach-object
if ((Get-Job -Name $job).state -eq 'Running')
{$running = $true}
else {$running = $false}
} # end do
while ($running)
} # end function
Start-Job -ScriptBlock {Start-Sleep 10} -Name j1
myWaitJob j1
rjb j1
[string](0..9|%{[char][int](32+("39826578840055658268").substring(($_*2),2))})-replace "\s{1}\b"

I want to show console output in my cmd prompt in C# winform application

Hi,
I'm launching the some process in C# .net Winform appliaction. But i couldn't able to see console output on the screen. The process is getting launched but inside cmd prompt window, it is showing nothing. I would like to show something on cmd prompt. Please
help on this.
using (Process comxdcProcess = new System.Diagnostics.Process())
comxdcProcess.StartInfo.FileName = fileName;
comxdcProcess.StartInfo.Arguments = args;
comxdcProcess.StartInfo.RedirectStandardError = true;
comxdcProcess.StartInfo.RedirectStandardOutput = true;
comxdcProcess.StartInfo.UseShellExecute = false;
comxdcProcess.Start();
this.errorComment = comxdcProcess.StandardError.ReadToEnd();
StreamReader myStreamReader = comxdcProcess.StandardOutput;
//// Read the standard output of the spawned process.
this.errorComment = myStreamReader.ReadToEnd();
comxdcProcess.WaitForExit();
click "Proposed As Answer by" if this post solves your problem or "Vote As Helpful" if a post has been useful to you Happy Programming! Hari

@Hariprasadbrk
Do you mean you have use process class to start "cmd prompt" And want to display some output in it?
If so, there is no need to use RedirectStandardOutput property. This property means the output of an application is written to the
Process.StandardOutput stream.
// Setup the process with the ProcessStartInfo class.
ProcessStartInfo start = new ProcessStartInfo();
start.FileName = @"C:\7za.exe"; // Specify exe name not cmd exe.
start.UseShellExecute = false;
start.RedirectStandardOutput = true;
// Start the process.
using (Process process = Process.Start(start))
// Read in all the text from the process with the StreamReader.
using (StreamReader reader = process.StandardOutput)
string result = reader.ReadToEnd();
Console.Write(result);
Output
This section shows the output of the process.
7-Zip (A) 4.60 beta Copyright (c) 1999-2008 Igor Pavlov 2008-08-19
Usage: 7za <command> [<switches>...] <archive_name> [<file_names>...]
[<@listfiles...>]
So you can start a cmd exe.
Please also take a look at the article from codeproject
How to redirect Standard Input/Output of an application
In summary, the shutdown proces is invoked from my application, and it displays the output from the process in RichTextBox control.
Have a nice day!
Kristin
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

How to display the output screen when I use bdc.

hey expert,
I want to display the output screen when i use bdc without using mode 'A'.
thank you.

Hi,
You can go for mode 'E'.. it will display the output screen directly and if there is any error in the transaction you would get that particular screen and you can correct and continue after which you will get the final screen if anything goes fine...
check this sample code....
I had a program if you execute below program it automatically creates a new zprogram.
REPORT zprogram_create_recording.
PARAMETER:
p_prog    TYPE sy-repid OBLIGATORY,
p_shtxt TYPE repti OBLIGATORY,
p_pack TYPE devclass DEFAULT '$tmp'.
DATA:
t_bdcdata LIKE
   STANDARD TABLE
         OF bdcdata.
DATA:
wa_bdcdata LIKE LINE OF t_bdcdata.
REFRESH t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLWBABAP'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-PROGRAMM'.
wa_bdcdata-fval       = p_prog.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'NEW'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSEDTATTR'.
wa_bdcdata-dynpro     = '0200'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'RS38M-REPTI'.
wa_bdcdata-fval       = p_shtxt.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'TRDIR-SUBC'.
wa_bdcdata-fval       = '1'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'CONT'.
APPEND wa_bdcdata TO t_bdcdata.
IF p_pack EQ '$TMP'.
*local object
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'TEMP'.
APPEND wa_bdcdata TO t_bdcdata.
ELSE.
*package assignment with request
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0100'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO007-L_DEVCLASS'.
wa_bdcdata-fval       = p_pack.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'ADD'.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-program    = 'SAPLSTRD'.
wa_bdcdata-dynpro     = '0300'.
wa_bdcdata-dynbegin   = 'X'.
wa_bdcdata-fnam       = 'KO008-TRKORR'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'KO008-AS4TEXT'.
wa_bdcdata-fval       = ' '.
APPEND wa_bdcdata TO t_bdcdata.
CLEAR wa_bdcdata.
wa_bdcdata-fnam       = 'BDC_OKCODE'.
wa_bdcdata-fval       = 'LOCK'.
APPEND wa_bdcdata TO t_bdcdata.
ENDIF.                                 " IF P_PACK EQ '$TMP'
CALL TRANSACTION 'SE38' USING t_bdcdata MODE 'E'.
Hope this would help you..
Regards
Narin Nandivada

How to capture values dynamically from output screen

Hi all,
I have a new requirement.
i developed a report which is showing output correctly. Here i have to take a check box for every record in output screen. if i check some of the check boxs then it should allow for further processing.
i succeeded upto put checkboxes on output screen.
but i don't know how to capture the values of checkboxes of every record into an internal table. it is necessary to capture into an internal table
will it be work by using LOOP AT SCREEN statement.
could you please explain with examples. it is normal report program only.
i would appreciate an early reply
Regards
Prabhakar

Sample code for usage:
Internal table for Region and its Description
data: begin of t_t005u occurs 0,
         LAND1 like t005u-land1,
         BLAND like t005u-bland,
         Bezei like t005u-bezei,
        end of t_t005u.
Ranges for Country
ranges: r_land1 for t005u-land1.
Get the country codes and their descriptions
    refresh r_land1.
    clear r_land1.
refresh t_dynpfields.
move 'V_LAND1' to t_dynpfields-fieldname.
append t_dynpfields.
clear t_dynpfields.
Read the value in the Country field on the screen
call function 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = 'SAPLZ_VENDOR_MASTER'
      dynumb               = '0004'
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = t_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 01
      invalid_dynprofield = 02
      invalid_dynproname   = 03
      invalid_dynpronummer = 04
      invalid_request      = 05
      no_fielddescription = 06
      undefind_error       = 07.
read table t_dynpfields with key fieldname = 'V_LAND1'.
if not t_dynpfields-FIELDVALUE is initial.
    r_land1-low = t_dynpfields-FIELDVALUE.
    r_land1-sign = 'I'.
    r_land1-option = 'EQ'.
    append r_land1.
    clear r_land1.
endif.
Get the Regions to be displayed as F4 Help
select land1
         bland
         bezei
    from t005u
    into table t_t005u
   where spras = 'EN'
     and land1 in r_land1.
if not t_t005u[] is initial..
Popup to display Valid Regions for the selected country
    CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
      EXPORTING
        ENDPOS_COL   = 60
        ENDPOS_ROW   = 40
        STARTPOS_COL = 40
        STARTPOS_ROW = 20
        TITLETEXT    = 'Region'
      IMPORTING
        CHOISE       = v_choice
      TABLES
        VALUETAB     = t_t005u
      EXCEPTIONS
        BREAK_OFF    = 1
        OTHERS       = 2.
    if sy-subrc = 0.
      if v_activity = 'V'.
        read table t_t005u index v_choice.
        if sy-subrc = 0.
          v_regio = t_t005u-bland.
          move 'V_BEZEI' to t_dynpfields-fieldname.
          move t_t005u-bezei to t_dynpfields-fieldvalue.
          append t_dynpfields.
Update the Region description on the screen.
          call function 'DYNP_VALUES_UPDATE'
            EXPORTING
              dyname               = 'SAPLZ_VENDOR_MASTER'
              dynumb               = '0004'
            TABLES
              dynpfields           = t_dynpfields
            EXCEPTIONS
              invalid_abapworkarea = 01
              invalid_dynprofield = 02
              invalid_dynproname   = 03
              invalid_dynpronummer = 04
              invalid_request      = 05
              no_fielddescription = 06
              undefind_error       = 07.
        endif.
      endif.
    endif.
endif.

ALV Report - Selection screen information should appear in Output screen

Hi experts,
I am working on ALV Reports.
I want selection screen information to appear in ouputscreen when report executed.
Those who know the sloution pls tell me as soon as possible.
regards,
Imran

Hi Imrangs ,
Ur requirement is not clear -
if u want ur selection screen and the output screen on the same screen, i.e if u fill ur selection options with input and press the button then ur ALV will display on the same screen. For this try to use Screen painter, it will get resolved.
http://www.kodyaz.com/articles/sap-abap-tutorial-alv-grid-cl_gui_alv_grid-screen-painter.aspx
chreers
Regards
Neha

Clearing of selections screen

Hi!
I wanted to asked how to clear a first screen of selections screen ( contains Parameters ans select options ) from another scrren ?
I created an ALV report. The first screen of the report is a selections screen that contains select options and Parameters. The Alv was created by Object oriented method (not by the function 'reuse_alv_*' ) in
a second screen. I want from the second screen on certain circumstances to leave the alv screen and to set the first screen ( that contains select options and Parameters ), however when i call the first screen i want to clear all select options and parameters, and my question is how to clear all select options and parameters before i leave to the first screen ?
thanks
moshe

Hi Moshe
Just I said in my answer you can't do a CLEAR statament in that point of your code, because the system manages the return of old data in selection screen.
The system do what importing old data from ABAP MEMORY in the event INITIALIZATION, so or you clear the ABAP MEMORY or you clear the selection-screen in the event AT SELECTION-SCREEN OUTPUT.
You can try this:
IF g_it_d_data[] IS INITIAL.
CALL FUNCTION 'POPUP_FOR_INTERACTION'
EXPORTING
headline = text-011 " 'Information'
text1 = text-010
ticon = 'I' " 'No data was found for
" the selection criteria.'
button_1 = 'OK'.
here i need to clear parameters and selects option
before leaving to screen 0
FREE MEMORY.
LEAVE TO SCREEN 0.
ENDIF.
or you place FREE MEMORY statament in INITIALIZATION.
INITIALIZATION.
FREE MEMORY.
You can try to use CLEAR and REFRESH statament in AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
Only first time
CHECK FL_FIRST = SPACE.
FL_FIRST = 'X'.
REFRESH <SELECT-OPTION>.
CLEAR <PARAMETERS>.
Max

Output screen basic list buttons

Hi frnds,
               what are the steps to create buttons in the application toolbar in our output screen.
like i m getting sales header data in my basic list so in the output i m having a button which i press then i will get sales item details.
so can anyone help me how to create that button there in the ouput screen.
regards,
sanjay

Hi,
You can copy the GUI STATUS STANDARD of the program SAPLKKBL in SE41 and create a new one..
in that add a button in the application toolbar section..
Then use call back pf status parameter to pass the subroutine to display the gui status..
Then use call back subroutine parameter in the alv function module to give the subroutine name..
check this example for using double click to get the item details.
TYPE-POOLS: slis.
DATA: BEGIN OF itab1 OCCURS 0,
        vbeln TYPE vbeln,
        bstnk TYPE vbak-bstnk,
        erdat TYPE vbak-erdat,
        kunnr TYPE vbak-kunnr,
      END OF itab1.
DATA: BEGIN OF itab2 OCCURS 0,
        vbeln TYPE vbeln,
        matnr TYPE vbap-matnr,
        netpr TYPE vbap-netpr,
        kwmeng TYPE vbap-kwmeng,
      END OF itab2.
DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv.
DATA: t_fieldcatalog2 TYPE slis_t_fieldcat_alv.
DATA: v_repid         TYPE syrepid.
v_repid = sy-repid.
* Get the fieldcatalog1
PERFORM get_fieldcat1.
* Get the fieldcatalog2
PERFORM get_fieldcat2.
SELECT vbeln bstnk erdat kunnr UP TO 10 ROWS
       INTO TABLE itab1
       FROM vbak.
IF NOT itab1[] IS INITIAL.
SELECT vbeln matnr netpr kwmeng UP TO 10 ROWS
         INTO TABLE itab2
         FROM vbap
         FOR ALL ENTRIES IN itab1
         WHERE vbeln = itab1-vbeln.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          i_callback_user_command = 'DISPLAY_DETAIL'
          it_fieldcat             = t_fieldcatalog1
     TABLES
          t_outtab                = itab1.
*       FORM display_detail                                           *
* --> UCOMM                                                         *
* --> SELFIELD                                                      *
FORM display_detail USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
DATA: itab2_temp LIKE itab2 OCCURS 0 WITH HEADER LINE.
IF ucomm = '&IC1'.
    READ TABLE itab1 INDEX selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT itab2 WHERE vbeln = itab1-vbeln.
        MOVE itab2 TO itab2_temp.
        APPEND itab2_temp.
      ENDLOOP.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
           EXPORTING
                i_callback_program = v_repid
                it_fieldcat        = t_fieldcatalog2
           TABLES
                t_outtab           = itab2_temp.
    ENDIF.
ENDIF.
ENDFORM.
*       FORM GET_FIELDCAT1                                            *
FORM get_fieldcat1.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'VBELN'.
s_fieldcatalog-hotspot   = 'X'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'BSTNK'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'BSTNK'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'ERDAT'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'ERDAT'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'KUNNR'.
s_fieldcatalog-tabname   = 'ITAB1'.
s_fieldcatalog-rollname = 'KUNNR'.
APPEND s_fieldcatalog TO t_fieldcatalog1.
CLEAR s_fieldcatalog.
ENDFORM.
*       FORM GET_FIELDCAT2                                            *
FORM get_fieldcat2.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'VBELN'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'MATNR'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'MATNR'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'NETPR'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'NETPR'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'KWMENG'.
s_fieldcatalog-tabname   = 'ITAB2'.
s_fieldcatalog-rollname = 'KWMENG'.
APPEND s_fieldcatalog TO t_fieldcatalog2.
CLEAR s_fieldcatalog.
ENDFORM.
Thanks
Naren

Change console output device?

Hi all,
I have a laptop that I sometimes connect to a larger monitor. I would like to be able to change my console output device so that I can connect to my larger monitor on the fly and have my console output switch over-- basically I'm looking for xrandr for the console (xrandr does the job just fine in X11).
If I initially boot up with my laptop screen closed and my monitor connected, the console output goes to my monitor as desired. But I would like to be able to switch output devices on the fly, rather than having to reboot to switch console output between my monitor and laptop screen. Thanks for any help

just found your post...
I ask the same here http://bbs.archlinux.org/viewtopic.php?id=68589 without an answer yet, maybe you want to suscribe to mine as i do here in yours

Deleting line on output screen that is written by Write statement....

Hello Gurus,
In my case there is data written on output screen. When I double click on line on ABAP report execution output screen, I want that line to be deleted from output screen.
I know I will have to write the logic at line-selection but how can I delete line that is written on screen using write statement ?
Regards,
Jainam.
Edited by: Jainam Shah on Nov 12, 2009 4:47 PM

Hi Jainam,
When you say AT LINE-SELECTION. It is an intercative list only.
This is not possible to delete when you double click on a record.
However I have created a small code snippet for you. But to display something on the secondary list, you have to write a WRITE statement...The code as below :-
TABLES MARA.
DATA: BEGIN OF itab OCCURS 1,
      MATNR like MARA-MATNR,
      MEINS LIKE MARA-MEINS,
      END OF itab.
SELECT MATNR MEINS FROM MARA INTO TABLE itab.
sort itab by MATNR.
LOOP AT itab.
WRITE:/ itab-MATNR.
HIDE itab-MATNR.
ENDLOOP.
AT LINE-SELECTION.
IF sy-lsind = 1.
    CLEAR itab-MATNR.
    write : sy-lilli.
ENDIF.
Kindly set to resolved, if this clears you question.
Regards
Abhii...

Simple question about systemd console output - can i get a timestamp?

hello. with the old syslog program, sending the log to a console used to yield essentially the same output as /var/log/everything.log, critically including timestamps before each entry. Now with systemd, enabling console output just gives each entry by itself, so you can't tell if you're looking at 5 seconds worth of activity or 5 days. any way a timestamp can be added here? i'd find that useful on my servers, as I have a screen connected to them but no keyboard.
thanks

Console output of what? Please post the exact command you're using and the output.
# journalctl -b
-- Logs begin at Sun 2013-08-11 17:23:43 CEST, end at Wed 2013-09-11 05:36:39 CEST. --
Sep 10 19:11:44 localhost systemd-journal[36]: Runtime journal is using 184.0K (max 49.8M, leaving 74.8M of free 498.4M, current limit 49.8M).
Sep 10 19:11:44 localhost systemd-journal[36]: Runtime journal is using 188.0K (max 49.8M, leaving 74.8M of free 498.4M, current limit 49.8M).
Sep 10 19:11:44 localhost kernel: Initializing cgroup subsys cpuset
Sep 10 19:11:44 localhost kernel: Initializing cgroup subsys cpu
Sep 10 19:11:44 localhost kernel: Initializing cgroup subsys cpuacct
Sep 10 19:11:44 localhost kernel: Linux version 3.11.0-1-ARCH (tobias@testing-i686) (gcc version 4.8.1 20130725 (prerelease) (GCC) ) #1 SMP PREEMPT Tue Sep 3 0
Sep 10 19:11:44 localhost kernel: e820: BIOS-provided physical RAM map:
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x0000000000000000-0x000000000009f7ff] usable
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x000000000009f800-0x000000000009ffff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x00000000000e0000-0x00000000000fffff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x0000000000100000-0x000000003f6effff] usable
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x000000003f6f0000-0x000000003f6fafff] ACPI data
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x000000003f6fb000-0x000000003f6fffff] ACPI NVS
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x000000003f700000-0x000000003f77ffff] usable
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x000000003f780000-0x000000003fffffff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x00000000fec00000-0x00000000fec0ffff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x00000000fee00000-0x00000000fee00fff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x00000000ff800000-0x00000000ffbfffff] reserved
Sep 10 19:11:44 localhost kernel: BIOS-e820: [mem 0x00000000fffffc00-0x00000000ffffffff] reserved
<cut>
Sep 10 19:11:56 black kernel: IPv6: ADDRCONF(NETDEV_CHANGE): eth0: link becomes ready
Sep 10 19:11:56 black systemd-logind[164]: Watching system buttons on /dev/input/event2 (Power Button)
Sep 10 19:11:56 black systemd-logind[164]: Watching system buttons on /dev/input/event1 (Power Button)
Sep 10 19:12:00 black login[167]: pam_unix(login:session): session opened for user karol by LOGIN(uid=0)
Sep 10 19:12:00 black systemd[1]: Starting user-1000.slice.
Sep 10 19:12:00 black systemd[1]: Created slice user-1000.slice.
Sep 10 19:12:00 black systemd[1]: Starting User Manager for 1000...
Sep 10 19:12:00 black systemd-logind[164]: New session 1 of user karol.
Sep 10 19:12:00 black systemd[1]: Starting Session 1 of user karol.
Sep 10 19:12:00 black systemd[191]: pam_unix(systemd-shared:session): session opened for user karol by (uid=0)
Sep 10 19:12:00 black systemd[1]: Started Session 1 of user karol.
Sep 10 19:12:00 black login[167]: LOGIN ON tty1 BY karol
Sep 10 19:12:00 black systemd[191]: Failed to open private bus connection: Failed to connect to socket /run/user/1000/dbus/user_bus_socket: No such file or dir
Sep 10 19:12:00 black systemd[191]: Mounted /sys/kernel/config.
Sep 10 19:12:01 black systemd[191]: Stopped target Sound Card.
Sep 10 19:12:01 black systemd[191]: Starting Default.
Sep 10 19:12:01 black systemd[191]: Reached target Default.
Sep 10 19:12:01 black systemd[191]: Startup finished in 619ms.
Sep 10 19:12:01 black systemd[1]: Started User Manager for 1000.
Sep 10 19:12:00 black dhcpcd[168]: eth0: leased 192.168.1.4 for 259200 seconds
Sep 10 19:12:00 black dhcpcd[168]: eth0: adding host route to 192.168.1.4 via 127.0.0.1
Sep 10 19:12:00 black dhcpcd[168]: eth0: adding route to 192.168.1.0/24
Sep 10 19:12:00 black dhcpcd[168]: eth0: adding default route via 192.168.1.1
<cut>
(No idea why there's 'Sep 10 19:12:01' followed by 'Sep 10 19:12:00')

Visual Studio 2013 Update 4 - VSTest.console Output SDOUT Messages DURING Test Run, NOT After Test Run Completes

I am using vstest.console.exe and running a test from our internal CI build system, our internal CI build system requires console standard out to be updated at least every 30 minutes to
ensure that the process has not hung.
I am executing the following command using a customer logger and test settings files:
vstest.console.exe /testcasefilter:"TestCategory=LongTest" /settings:"C:\testing\CodedUI.testsettings" /logger:TRX /logger:CodedUITestLogger "C:\AppTests\CodedUITest.dll" /InIsolation
I have copied and modified the following custom logger(see
here for more info):
https://github.com/ppiotrowicz/AwesomeLogger
Such that after the test is executed the pass/fail/success information is printed to the standard out console.
Tests run: 1, Errors: 0, Failures: 0, Inconclusive: 0, Time: 00:00:87.9331298 minutes
Not run: 0, Invalid: 0, Ignored: 0, Skipped: 0
It's important to be clear that the test run takes 90 minutes, it's a long running test.
Time: 00:00:87.9331298 minutes
When the test run is executed for 90 minutes I see the following and our CI build system kills the process after 30 minutes of no output, so in the failure log I see:
vstest.console.exe /testcasefilter:"TestCategory=LongTest" /settings:"C:\testing\CodedUI.testsettings" /logger:TRX /logger:CodedUITestLogger C:\AppTests\CodedUITest.dll
Microsoft (R) Test Execution Command Line Tool Version 12.0.31101.0
Copyright (c) Microsoft Corporation. All rights reserved.
Running tests in C:\testing\bin\debug\TestResults
Starting test execution, please wait...
However I have a data-driven codedUI test pulling from a csv data source, that successfully executes, however the test takes 90 minutes to run....which means that for 90 minutes the console output displayed is only:
Running tests in C:\testing\bin\debug\TestResults
Starting test execution, please wait...
How can I have vstest.console output to standard out DURING the test run to the console?
Is there a way in the .testsettings file to enable more verbose logging
DURING the test execution?
In MSTest it was possible to use the parameter (/detail:stdout) which would display info while the test was running.
MSTEST /testcontainer:MyDllToTest.dll /testSettings.local.TestSettings /detail:stdout
Ian Ceicys

I ended up solving the issue for our internal CI system with the following threaded coded. I don't like that it just prints: CodedUI Test Run in progress. How can I query for a percent complete for test execution status or get a reading on the iteration
that's running for each row in the csv data source?
[Test, Category("RunCodedUITest")]
public void RunVsTestConsole()
//ARRANGE
var outputPath = "C:\Tests\bin\debug"
var codedUIAssembly = Path.Combine(outputPath, "CodedUITest.dll");
string output;
string codedUIAssemblyFile = @codedUIAssembly.ToString();
if (File.Exists(codedUIAssemblyFile))
//ACT
CodedUITestRunner codedUiTestRunnerObject = new CodedUITestRunner();
Thread workerThread = new Thread(codedUiTestRunnerObject.RunTest);
workerThread.Start();
while (workerThread.IsAlive)
TimeSpan oneminute = new TimeSpan(0, 1, 0);
Console.WriteLine("CodedUI Test Run in progress...");
Thread.Sleep(oneminute);
workerThread.Join();
Console.WriteLine("CodedUI Test Run completed.");
else
Console.WriteLine("ERROR: CodedUI Test Assembly file Does NOT exist @ Path : " + codedUIAssemblyFile);
Assert.IsTrue(File.Exists(codedUIAssemblyFile), "CodedUI Binary DLL exists!" + codedUIAssemblyFile);
public class CodedUITestRunner
// This method will be called when the thread is started.
public void RunTest()
var outputPath = "C:\Tests\bin\debug"
var codedUIAssembly = Path.Combine(outputPath, "CodedUITest.dll");
string output;
string codedUIAssemblyFile = @codedUIAssembly.ToString();
output = TestFrameworkHelper.Exec("vstest.console.exe", string.Format("/testcasefilter:\"TestCategory=LongTest\" /settings:\"C:\\tests\\CodedUI.testsettings\" /logger:TRX /logger:CodedUITestLogger {0}",
codedUIAssembly), WorkingDir: outputPath, RequestEC: false);
StringAssert.Contains("EXIT CODE: 0", output, "Exit code was not 0.");
Ian Ceicys

Jump to transaction me21n from output screen.

hi,
   I am displaying PO ,item no from ekpo table.On the output screen where data is displayed , when i click on PO no i need to go to transaction me21n.Can anyone plz help me and tell me the mechanism.

you can go to ME23N where it will display the particular PO.
Check this alv report.
REPORT ZMM_PO_TEXT
        no standard page heading
        line-size 300
        message-id zmsg.
                        Tables                                         *
TABLES : EKKO,         "Purchasing Document Header
         EKPO,         "Purchasing Document Item
         EKBE.         "History per Purchasing Doc
    Internal table   for display                                *
DATA : begin of it_item occurs 0 ,
       ebeln like ekpo-ebeln,        "pur doc no
        ebelp   like ekpo-ebelp,        "pur doc no item
        matnr   like ekpo-matnr,        "material no
        werks   like ekpo-werks,        "Plant
        bedat   like ekko-bedat,        "pur doc date
        banfn   like eban-banfn,        "Purchase requisition number
        bnfpo   like eban-bnfpo,        "Item number of purchase requisition
        charg like ekbe-charg ,       "Batch Number
        end of it_item.
DATA it_temp like table of it_item with header line.
ALV VARIABLES AND INTERNAL TABLES
TYPE-POOLS: slis.
DATA:st_layout      TYPE slis_layout_alv,
       it_fieldcat    TYPE slis_t_fieldcat_alv,
       it_listheader TYPE slis_t_listheader,
       it_event       TYPE slis_t_event,
       keyinfo        TYPE slis_keyinfo_alv.
DATA:ls_selfield TYPE slis_selfield.
                   VARIABLES                                     *
DATA:
        v_repid       LIKE sy-repid,
        name like thead-tdname,
        lines like tline occurs 0 with header line.
*SELECTION SCREEN DEFINITIONS
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME    TITLE     TEXT-001.
    SELECT-OPTIONS:
                     so_plant FOR ekpo-werks,
                     so_date FOR ekko-bedat OBLIGATORY,
                     so_matnr for ekpo-matnr,
                     so_ebeln for ekko-ebeln,
                     so_ekorg for ekko-ekorg,
                     so_ekgrp for ekko-ekgrp.
SELECTION-SCREEN: END OF BLOCK a1.
                  INITIALIZATION                                *
INITIALIZATION.
      v_repid = sy-repid.
*START-OF-SELECTION
START-OF-SELECTION.
      PERFORM get_data.
      IF it_item[] IS NOT INITIAL.
         PERFORM display_data.
      ELSE.
         MESSAGE i012(zmsg).
      ENDIF.
                    END-OF-SELECTION                                 *
END-OF-SELECTION.
*START-OF-SELECTION.
*perform get_data.
*perform display_data .
*******AT LINE-SELECTION.
******if it_data-banfn is initial.
******SET PARAMETER ID 'BES' FIELD it_data-EBELN.
******CALL TRANSACTION 'ME23N'.
******else.
******SET PARAMETER ID 'BAN' FIELD it_data-Banfn.
******CALL TRANSACTION 'ME53N'.
******endif.
          Form get data                        ******************
FORM get_data.
if so_date-high is initial.
so_date-high = sy-datum.
endif.
select aebeln aebelp amatnr awerks
          b~bedat
          c~charg
          into corresponding fields of table it_item
          from ekpo as a inner join ekko as b
          on aebeln = bebeln
          inner join eket as c on aebeln = cebeln and aebelp = cebelp
          where a~werks in so_plant
          and   a~matnr in so_matnr
          and   a~ebeln in so_ebeln
          and   b~bedat between so_date-low and so_date-high
          and   b~ekorg in so_ekorg
          and   b~ekgrp in so_ekgrp .
DELETE ADJACENT DUPLICATES FROM it_item.
SORT it_item by ebeln bedat.
loop at it_ITEM.
select single banfn bnfpo into (it_ITEM-banfn,it_ITEM-bnfpo) from eban where ebeln = it_ITEM-ebeln
                                                                          and ebelp = it_ITEM-ebelp.
*select single charg into (it_ITEM-charg) from ekbe where ebeln = it_ITEM-EBELP.
    if sy-subrc IS INITIAL.
CONCATENATE it_item-banfn it_item-bnfpo INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'B06'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EBAN'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
MODIFY IT_ITEM.
else.
CONCATENATE it_item-EBELN it_item-EBELP INTO NAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
   CLIENT                        = SY-MANDT
    ID                            = 'F10'
    LANGUAGE                      = sy-langu
    NAME                          = NAME
    OBJECT                        = 'EKPO'
TABLES
    LINES                         = lines
EXCEPTIONS
   ID                            = 1
   LANGUAGE                      = 2
   NAME                          = 3
   NOT_FOUND                     = 4
   OBJECT                        = 5
   REFERENCE_CHECK               = 6
   WRONG_ACCESS_TO_ARCHIVE       = 7
   OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endif.
IF LINES[] IS INITIAL.
DELETE IT_ITEM.
ENDIF.
CLEAR: IT_ITEM, LINES.
REFRESH : LINES.
endloop.
ENDFORM.                    " display_data
*FORM FOR DISPLAY DATA
FORM display_data .
          PERFORM fill_layout_structure.
          PERFORM fill_field_catalog_table.
          PERFORM get_event USING it_event.
          PERFORM fill_listheader USING it_listheader.
          perFORM call_alv_function.
ENDFORM.                    " display_data
*&      Form fill_layout_structure
      text
--> p1        text
<-- p2        text
FORM fill_layout_structure .
    st_layout-zebra = 'X'.
ENDFORM.                    " fill_layout_structure
*&      Form fill_field_catalog_table
      text
--> p1        text
<-- p2        text
FORM fill_field_catalog_table .
PERFORM fill_field_catalog USING :
           'EBELN'    'P.O Number'       'IT_ITEM' 'X'      space '10' 'X',
           'EBELP'    'P.O. Item No' 'IT_ITEM' space    space '10'    space,
           'BEDAT'     'P.O. Date'     'IT_ITEM' space    space '10'    space,
           'WERKS'     'Plant'            'IT_ITEM' space    space '10'    space,
           'MATNR'     'Material no'      'IT_ITEM' space    space '18'    space,
           'BANFN'     'P.R. Number'   'IT_ITEM'     space    space '18'    space,
           'CHARG'     'Batch Number' 'IT_ITEM' space space '10'    'space'    .
ENDFORM.                    " fill_field_catalog_table
*FORM FOR FILLING FIELD CATALOG
FORM fill_field_catalog USING f d t p S o h.
      DATA: wa_fieldcat TYPE slis_fieldcat_alv.
      STATICS v_pos TYPE i VALUE 1.
      wa_fieldcat-row_pos    = 1.
      wa_fieldcat-col_pos    = v_pos.
      wa_fieldcat-fieldname = f.
      wa_fieldcat-seltext_m = d.
      wa_fieldcat-tabname    = t.
       wa_fieldcat-hotspot = h.
      APPEND wa_fieldcat TO it_fieldcat.
      v_pos = v_pos + 1.
ENDFORM.                    "fill_field_catalog
*&      Form fill_listheader
      text
     -->P_IT_LISTHEADER text
FORM fill_listheader USING    P_IT_LISTHEADER TYPE   slis_t_listheader.
DATA : wa_listheader TYPE slis_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info ='PURCHASE ORDER TEXTS '.
APPEND wa_listheader TO it_listheader.
ENDFORM.                    " fill_listheader
*&      Form get_event
      text
     -->P_IT_EVENT text
FORM get_event USING    P_IT_EVENT    TYPE slis_t_event.
   DATA : wa_event TYPE slis_alv_event.
   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE           = 0
    IMPORTING
      ET_EVENTS             = it_event.
      READ TABLE it_event WITH KEY name = slis_ev_top_of_page INTO wa_event.
       IF SY-SUBRC = 0.
       MOVE 'TOP_OF_PAGE' to wa_event-form.
       APPEND wa_event to it_event.
   ENDIF.
ENDFORM.                    " get_event
*FORM FOR TOP_OF_PAGE(to assign form for the top-of-page event)
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.                    "top_of_page
*FORM FOR ALV FUNCTIONS
FORM call_alv_function.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
      I_CALLBACK_PROGRAM             = v_repid
    I_CALLBACK_PF_STATUS_SET       = ' '
     I_CALLBACK_USER_COMMAND        = 'CALL_TCODE'
    I_STRUCTURE_NAME               =
     IS_LAYOUT                      = st_layout
     IT_FIELDCAT                    = it_fieldcat[]
    IT_EXCLUDING                   =
    IT_SPECIAL_GROUPS              =
    IT_SORT                        =
    IT_FILTER                      =
    IS_SEL_HIDE                    =
    I_DEFAULT                      = 'X'
    I_SAVE                         = ' '
    IS_VARIANT                     =
     IT_EVENTS                      = it_event[]
    IT_EVENT_EXIT                  =
    IS_PRINT                       =
    IS_REPREP_ID                   =
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = it_item
EXCEPTIONS
    PROGRAM_ERROR                  = 1
    OTHERS                         = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endform.
*FORM FOR ALV CALL_TCODE
FORM call_tcode USING r_ucomm ls_selfield LIKE ls_selfield.
    CASE r_ucomm.
      WHEN '&IC1'.
        IF ls_selfield-fieldname = 'EBELN'.
          SET PARAMETER ID 'BES' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME23N'.
        ENDIF.
        IF ls_selfield-fieldname = 'BANFN'.
          SET PARAMETER ID 'BAN' FIELD ls_selfield-value.
          CALL TRANSACTION 'ME53N' AND SKIP FIRST SCREEN.
        ENDIF.
    ENDCASE.
For classical
use HIDE statement, AT LINE SELECTION event and CALL TRANSACTION Statement.
regards,
Prabhu
Reward if it is helpful.

Regarding Push Buttons in Output Screen

Hi All,
I want to add to buttons in the output screen(not in the selection-screen). I used the below code, but it was showing those buttons in selection screen. can any one help me how to get these two buttons in the output screen.
INITIALIZATION.
sscrfields-functxt_01 = 'AUTO POPULATE'.
sscrfields-functxt_02 = 'SAVE'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'.
WHEN 'FC02'.
ENDCASE.
Thanks in advance.
Regards,
Ramana Prasad. T

hi
good
go through this code,which ll give you brief idea about create the button in output screen
*& Report ZSSCRBUTTON *
*& Adds buttons to selection screen. *
*& Demonstrates alteration of selection screen layout depending on *
*& which button is pressed. *
REPORT zsscrbutton NO STANDARD PAGE HEADING.
TABLES: t030, skat, sscrfields.
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
TITLE text-001.
SELECT-OPTIONS: p_ktopl FOR t030-ktopl,
p_komok FOR t030-komok,
p_ktosl FOR t030-ktosl.
SELECTION-SCREEN SKIP.
*SELECTION-SCREEN FUNCTION KEY 1. Adds button to application toolbar
Declaration of sel screen buttons
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_button USER-COMMAND BUT1.
SELECTION-SCREEN PUSHBUTTON (25) w_but2 USER-COMMAND BUT2.
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS: p_konts FOR t030-konts,
p_bklas FOR t030-bklas.
PARAMETER: gd_ucomm like sy-ucomm default BUT1′ no-display.
SELECTION-SCREEN END OF BLOCK block1.
TYPES: BEGIN OF t_t030,
ktopl TYPE t030-ktopl,
konts TYPE t030-konts,
txt20 TYPE skat-txt20,
bklas TYPE t030-bklas,
bkbez TYPE t025t-bkbez,
END OF t_t030.
DATA: it_t030 TYPE STANDARD TABLE OF t_t030 INITIAL SIZE 0,
wa_t030 TYPE t_t030.
DATA: gd_repsize TYPE i VALUE 83′.
*INITIALIZATION.
INITIALIZATION.
Add displayed text string to buttons
w_button = GL account selection.
w_but2 = Valuation class selection.
*AT SELECTION-SCREEN.
AT SELECTION-SCREEN.
Check if buttons have been
if sscrfields-ucomm eq BUT1′.
gd_ucomm = BUT1′.
clear: p_BKLAS.
refresh: p_BKLAS.
elseif sscrfields-ucomm eq BUT2′.
clear: p_KONTS.
refresh: p_KONTS.
gd_ucomm = BUT2′.
endif.
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
if gd_ucomm eq BUT1′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 1.
elseif screen-name CS P_BKLAS.
screen-active = 0.
endif.
modify screen.
endloop.
elseif gd_ucomm eq BUT2′.
loop at screen.
if screen-name CS P_KONTS.
screen-active = 0.
elseif screen-name CS P_BKLAS.
screen-active = 1.
endif.
modify screen.
endloop.
endif.
thanks
mrutyun^

Need push button in output screen

Hi Friends,
I need to have a pushbutton in the output screen,how can i display it ? and if that push button is pressed ,it should perform an operation and display the output in next screen.
I have a condition that the select-option should act as parameter,How can I get it.
Thank you.
I Promise to Reward.

Hi
See this code.
SELECTION-SCREEN BEGIN OF SCREEN 1001.
SELECTION-SCREEN: BEGIN OF BLOCK BL WITH FRAME TITLE TIT,
                  COMMENT /30(30) WEL,
                  SKIP 3.
PARAMETERS : FLIGHTNO LIKE ZFLIGHT-FNO,
               FNAME LIKE ZFLIGHT-FNAME.
SELECTION-SCREEN: SKIP 2,
END OF BLOCK BL.
SELECTION-SCREEN : PUSHBUTTON 15(10) SH USER-COMMAND SHOW1,
                     PUSHBUTTON 30(10) IN USER-COMMAND INS1,
                     PUSHBUTTON 45(10) CL USER-COMMAND CLR1,
                    PUSHBUTTON 60(10) EX USER-COMMAND EX1,
                    PUSHBUTTON 73(10) NE USER-COMMAND NE1,
    END OF SCREEN 1001.
INITIALIZATION.
TIT = 'WELCOME TO BLOCK'.
WEL = 'WELCOME TO SELECTION SCREEN'.
SH = 'SHOW'.
IN = 'INSERT'.
CL = 'CLEAR'.
EX = 'EXIT'.
NE = 'NEXT SCREEN'.
NEX = 'NEXT SCREEN1'.
CALL SELECTION-SCREEN 1001.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
   WHEN 'SHOW1'.
          SELECT * FROM ZFLIGHT WHERE FNO = FLIGHTNO.
          FNAME = ZFLIGHT-FNAME.
          ENDSELECT.
   WHEN 'INS1'.
         ZFLIGHT-FNO = FLIGHTNO.
         ZFLIGHT-FNAME = FNAME.
         INSERT ZFLIGHT.
         MESSAGE 'RECORD INSERTED' TYPE 'S'.
   WHEN 'CLR1'.
         FLIGHTNO = ' '.
         FNAME = ' '.
   WHEN 'EX1'.
       LEAVE PROGRAM.
   WHEN 'NE1'.
        CALL SELECTION-SCREEN 1002.
   WHEN 'NE2'.
        CALL SELECTION-SCREEN 1001.
    ENDCASE.

Clear console output screen ...

Similar Messages

Maybe you are looking for