Calling another program from the current program
Hi all,
In our requirement we are calling another program from our current program .
In the current program( from which we are calling ) we are giving file name in the selection screen
and when we run the current program we are successfully going to other program but our main requirement is to higlight the file name which we had given earlier .
Note : The called program doesnt have any selection screen.
HI
use EXPORT and IMPORT key words for passing data from one program to another program.
as the called program is available in the same session you can use above key words which means you are accessing ABAP MEMORY.
You can also use SET and GET key words which means SAP memory
take F1 help there are examples tooo and detailes explanation abou the same
Regards
Ramchander Rao.K
Edited by: Ramchander Krishnamraju on Dec 24, 2008 7:05 AM
Similar Messages
-
Program to list all include programs from the Sap program list
My requirement is to display all include programs from the Sap program Table ( D010INC table and TADIR table), From
here i have to get all include programs.Can anyone give the program code for this requirementwell, it's your requirement and not ours, so why not try yourself first?
-
Can we call another transaction from the Userexit
Hi all,
Can we call another transaction from the Userexit?
Thanks,
BalajiHi
Because the statament CALL TRANSACTION triggers the end of the LUW so COMMIT WORK, so you should be sure not to insert that statament while some updating actions are been doing.
So that exit shouldn't be triggered while updating
Max -
Calling another class from a java program
I tried to call the Server1.class from the password program, but I failed. The password program source code is as follows:
class PasswordDialog extends java.awt.Dialog implements java.awt.event.ActionListener
* Constructor. Create this visual dialog component.
public PasswordDialog(java.awt.Frame parent, PasswordVerifier verifier)
super(parent);
addWindowListener(new WindowEventHandler());
setLayout(new java.awt.FlowLayout());
setSize(500, 100);
this.verifier = verifier;
add(useridField = new java.awt.TextField(10));
add(passwordField = new java.awt.TextField(10));
add(okButton = new java.awt.Button("Submit"));
add(cancelButton = new java.awt.Button("Cancel"));
okButton.addActionListener(this);
cancelButton.addActionListener(this);
passwordField.setEchoChar('*');
useridField.requestFocus();
public void actionPerformed(java.awt.event.ActionEvent e)
if (e.getSource() == okButton)
// Invoke password verification callback
try
boolean result = verifier.verifyPassword(
useridField.getText(), passwordField.getText());
if (! result) return; // verification failed; don't close this dialog
catch (Exception ex)
ex.printStackTrace();
// Close this dialog
System.out.println("I still can't call the Server1 class");
dispose();
else if (e.getSource() == cancelButton)
dispose();
class WindowEventHandler extends java.awt.event.WindowAdapter
public void windowClosing(java.awt.event.WindowEvent e)
System.exit(0);
// Private objects
private PasswordVerifier verifier;
private java.awt.TextField useridField;
private java.awt.TextField passwordField;
private java.awt.Button okButton;
private java.awt.Button cancelButton;
interface PasswordVerifier
public boolean verifyPassword(String userid, String password) throws Exception;
public class password implements PasswordVerifier
* Main routine for testing only.
public static void main(String[] args)
password verifier = new password();
java.awt.Frame f = new java.awt.Frame("Password Verifier");
f.setSize(100, 100);
f.show();
PasswordDialog d = new PasswordDialog(f, verifier);
d.show();
public boolean verifyPassword(String userid, String password) throws Exception
return (userid.equals("Albert") && password.equals("Einstein"));
and the Server1.java is as follows:
//Server Application
import java.awt.*;
import java.awt.event.*;
import java.net.*;
import java.io.*;
public class Server1 extends Frame implements ActionListener,Runnable,KeyListener
ServerSocket s;
Socket s1;
BufferedReader br;
BufferedWriter bw;
TextField text;
TextField name;
Button exit,clear;
Label label;
List list;
Panel p1=null;
Panel p2=null;
Panel sp21=null;
Panel sp22=null;
Panel jp=null;
public void run()
try{s1.setSoTimeout(1);}catch(Exception e){}
while (true)
try{
list.add(br.readLine());
}catch (Exception h){}
if(list.getItemCount()==7)
list.remove(0);
public Server1(String m)
{ super(m);
jp=new Panel();
p1=new Panel();
p2=new Panel();
sp21=new Panel();
sp22=new Panel();
jp.setLayout(new GridLayout(2,1));
p1.setLayout(new GridLayout(1,1));
p2.setLayout(new GridLayout(2,1));
sp21.setLayout(new FlowLayout());
sp22.setLayout(new FlowLayout());
exit = new Button("Exit");
clear = new Button("Clear");
exit.addActionListener(this);
clear.addActionListener(this);
list = new List(50);
text = new TextField(43);
name = new TextField(10);
label = new Label("Enter your name");
name.addKeyListener(this);
text.addKeyListener(this);
p1.add(list);
sp21.add(text);
sp21.add(exit);
sp22.add(label);
sp22.add(name);
sp22.add(clear);
p2.add(sp21);
p2.add(sp22);
jp.add(p1);
jp.add(p2);
this.add(jp);
setBackground(Color.orange);
setSize(380,300);
setLocation(0,0);
setVisible(true);
setResizable(false);
name.requestFocus();
try{
s = new ServerSocket(786);
s1=s.accept();
br = new BufferedReader(new InputStreamReader(
s1.getInputStream()));
bw = new BufferedWriter(new OutputStreamWriter(
s1.getOutputStream()));
bw.write("Welcome");bw.newLine();bw.flush();
Thread th;
th = new Thread(this);
th.start();
}catch(Exception e){}
public static void main(String args[])
new Server1("Server");
public void actionPerformed ( ActionEvent e)
if (e.getSource().equals(exit))
System.exit(0);
else if (e.getSource().equals(clear))
{ name.setText(" ");
name.setEditable(true);
public void keyPressed(KeyEvent ke) {
if(text.equals(ke.getSource()))
if(ke.getKeyCode()==KeyEvent.VK_ENTER)
try{
bw.write(name.getText()+">>"+text.getText());
bw.newLine();bw.flush();
}catch(Exception m){}
list.add(name.getText()+">>"+text.getText());
text.setText("");
else if(name.equals(ke.getSource())) {
if(ke.getKeyCode()==KeyEvent.VK_ENTER)
name.setEditable(false);
text.requestFocus();
public void keyReleased(KeyEvent ke)
//something
public void keyTyped(KeyEvent ke)
//something
I tried to create a new object by typing:
Server1 s = new Server1();
then call the main function
new Server1("Server");
but it doesn't work. Anybody can help me with this?try
Server1 s = new Server1();
s.Server1("Server");
or
new Server1().Server1("Server"); -
Calling another application from a java program
Hi, Java ppl.
I wanted to know how can I call another program say a help application or an exe from a java program. anyone with any advice or a piece of code would help.
Thanks
PradeepI had the same situation and I tried the code that you sugested and it works. I was wondering, what am I expecting in the while loop that appears after the int inp; statement? Is some data going to be displayed on the screen? How essential is to have that while loop after the calling the exec() method?
Sorry for the amount of questions, I never tried this before.
Best regards,
Luis E. -
Prompts are not working when we call another report from the narrative view
Hi,
In my dashboard i need a table view report which should have scrolling option only for that section.
For this i added a html tag <iframe ........scrolling="yes"> in the narrative view and i added that narrative view in the report.
Now,it works fine in the dashboard.
But when i apply prompts in the dashboard the values are not filtering even though i added the "is prompted" filter condition in the criteria of both narrative view section and the called function.
Any help would be greatly appriciated.
Thanks,
chinna.Hi,
since you have created an iframe dashboard prompt wont work on that report.Same is the case if you put the report in Embeded content.
One possible workaround is to creaate a dummy report having columns same as that of dashboard prompt.Put all the columns is prmompted in this report
(No need to create dummy report if you already have those columns in some other report,You can use that report also)
Then go to your Iframe report and use "filter based on other request".In this way dashboard prompt will filter dummy report and based on dummy report values your iframe report will also filter.
Thanks
Sandeep -
I’m debating whether to can the app, or just ignore, or turn off the updater. Suggestions?
If you are at version 9.5.5 that was the end of the line for Acrobat 9.x. You are correct that Acrobat 9 is no longer supported. Adobe is only supporting Acrobat X and Acrobat XI at this time.
If you need to reinstall Acrobat 9 though you can still download the installer bits here: Download Adobe CS5 Free Trials – All Direct Links without Akamai | ProDesignTools
Make sure to follow the directions carefully and sign into the Adobe Trials page first with your Adobe ID. -
How to Call another screen using the ABAP Report which is displaying ALV ou
Hello All,
I am developing a ABAP report in which I want to transfer the stock from material to another material.
My Report will include 3 to screens.
The first sleection screen will display all the material with their stock value.
When we execute the report I will get the list of materials along with their current stock. On the top of the output screen I want the Execute button. Also , each line of the output should have checkbox or the ALV provides the functionality of editing one cell like that.....Once the user tick the checkbox or the cell....then I want to move to another screen where user can enter the Quantity and then user will tick ok and then I will call one function module so that the material documnet is posted and transfer of posting form material to material is done successfully.
Could anyone please help me out how to call another screen from the output screen where user can enter the Quantity amount....
I dont want to use the Dialog programming.....I want to create the simple ALV Abap report.
Regards,
Komal Bhutada.Hi Raymond,
Thanks for the input...I will try this in my code .....
Can you please help me how to insert the checkbox in the ALV Output....so that I can select one of row and then press execute to process further?..
Thanks for the information.
Regards,
Komal. -
How to upgrade from the current Photoshop Photography Program to the full Creative Cloud student?!
In the account section it just gives me a full version (the one for 65€)Start here https://creative.adobe.com/join/edu
One Year Intro Price http://forums.adobe.com/thread/1448933?tstart=0
http://www.adobe.com/products/creativecloud/students.edu.html
http://www.adobe.com/products/creativecloud/buying-guide-education.html
http://www.adobe.com/education/students/student-eligibility-guide.edu.html
ID Proof http://www.adobe.com/store/au_edu/academic_id.html -
Calling a report from module pool program
Hi all,
I had a requirement where I need to call a report from the module pool program where in when we click REPORT button, it should display the report output in the another screen.
Can we do by calling screen after pushing REPORT button. If so, where we should write that code ( In pbo or pai). Please give me an idea.
Thanking you,
Regards,
Murali Krishna TUse submit syntax.
Press F1 on submit, Donot use return statement with it.
If so, where we should write that code ( In pbo or pai).
Please understand about these two events before doing the requirement. -
Calling a report from a executable program
Hi All,
i want to call a report which is generated by tcode CO88 from a executable program. I want to pass the values of order from the exe program only. But my requirement is such that i want co88 to process only open orders, so please suggest how can i do that.
thanks in advance.
Pankaj Sharmahi,
chk this sample.
*Code used to populate 'select-options' & execute report
DATA: seltab type table of rsparams,
seltab_wa like line of seltab.
seltab_wa-selname = 'PNPPERNR'.
seltab_wa-sign = 'I'.
seltab_wa-option = 'EQ'.
load each personnel number accessed from the structure into
parameters to be used in the report
loop at pnppernr.
seltab_wa-low = pnppernr-low.
append seltab_wa to seltab.
endloop.
SUBMIT zreport with selection-table seltab
via selection-screen.
*Code used to populate 'parameters' & execute report
SUBMIT zreport with p_param1 = 'value'
with p_param2 = 'value'.
Other additions for SUBMIT
*Submit report and return to current program afterwards
SUBMIT zreport AND RETURN.
*Submit report via its own selection screen
SUBMIT zreport VIA SELECTION-SCREEN.
*Submit report using selection screen variant
SUBMIT zreport USING SELECTION-SET 'VARIANT1'.
*Submit report but export resultant list to memory, rather than
*it being displayed on screen
SUBMIT zreport EXPORTING LIST TO MEMORY.
Once report has finished and control has returned to calling
program, use function modules LIST_FROM_MEMORY, WRITE_LIST and
DISPLAY_LIST to retrieve and display report.
rgds
anver
if hlped pls mark points -
Possibility of calling standard actions from a java program
Hi ,
I am working for a project where customer wants to have option of saving orders as draft only and later convert to order if need be. However since we do not want many drafts to reside on server there is a need to delete these at a specified time. For draft orders I am using order templates since they stay in the database without getting converted to orders. Now I do not know how to go about the deletion part.
i need to write a program that would run on the server and which would fetch the templates (drafts) that have been created till a particular time and call the delete action of the template. Now the question is how do i call these actions from a java program where this java program will have to run on the server end (ie will be a backend process).
Please suggest.
Thanks
Roopalihello roopali,
you can create a separate thread that will run your
code that will check for stale drafts and delete them.
it is just like a session management program but here
we will be looking over the drafts and not the session
objects.
now if you want the invocation of the action from another
program, a socket program would suffice but opening ports
will cause you network connections thru firewall.
if you can make use of HTTP servlet as your service
provider e.g., you can then just pass some action params
to invoke it.
regards
jo -
How to run a Concurrent Program from the back end?
Hi,
How to run a Concurrent Program from the back end?
Is it Possible to see that Concuurent Request id which we run from the back end, in the front end?
If yes, then Please Give reply how to write the code
Thanks in Advance,
Bharathi.SThis is documented in Chapter 20 of the Application Developers Guide http://download.oracle.com/docs/cd/B53825_03/current/acrobat/121devg.pdf. These MOS Docs also have some information available
221542.1 - Sample Code for FND_SUBMIT and FND_REQUEST API's
235359.1 - How to Launch Planning Data Pull MSCPDP using FND_REQUEST.SUBMIT_REQUEST
HTH
Srini -
Can we call a bdc from a report program?
hi
Can we call a bdc from a report program?
Thanks
RamaHello,
Yes..
Check this example:
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
DATA : L_EBELN TYPE EKPO-EBELN,
L_EBELP TYPE EKPO-EBELP.
DATA : L_DATE1 TYPE SY-DATUM,
L_DATE2 TYPE SY-DATUM,
L_YEAR(4),
L_MONTH(2),
L_DATE(2).
DATA: L_AMOUNT1 LIKE RK40C-WTGBTR.
DATA: L_POSID_OLD TYPE PS_POSID.
DATA: L_POSID_NEW TYPE PS_POSID.
DATA: LS_COBK LIKE COBK.
DATA: LT_ITEMS LIKE RK40C OCCURS 0 WITH HEADER LINE,
LT_COEP LIKE COEP OCCURS 0 WITH HEADER LINE,
LT_COEPL LIKE COEPL OCCURS 0 WITH HEADER LINE,
LT_COEPR LIKE COEPR OCCURS 0 WITH HEADER LINE,
LT_MESG LIKE MESG OCCURS 0 WITH HEADER LINE.
DATA: LV_NUM TYPE POSNR_ACC VALUE '1'.
DATA: CD_SEND_REC_REL LIKE COHEADER-SEND_REC_REL,
LD_STATUS LIKE RK23F-STATUS.
DATA: L_DYNNR LIKE FELD-DYNNR.
CLEAR : L_DATE,L_DATE1,L_DATE2,L_YEAR,L_MONTH.
L_DATE1 = SY-DATUM.
L_YEAR = L_DATE1(4).
L_MONTH = L_DATE1+4(2).
L_DATE = L_DATE1+6(2).
CONCATENATE L_DATE L_MONTH L_YEAR INTO L_DATE2 .
CASE R_UCOMM.
WHEN '&IC1'. "doubleclick
CHECK RS_SELFIELD-FIELDNAME = 'EBELN'.
READ TABLE G_T_FINAL INDEX RS_SELFIELD-TABINDEX.
IF SY-SUBRC = 0.
READ TABLE G_T_TEMP WITH KEY LOGNUM = G_T_FINAL-LOGNUM.
IF SY-SUBRC = 0.
MESSAGE I899(KB) WITH TEXT-004.
ELSE.
CLEAR : L_EBELN,L_EBELP,LS_COBK,LT_ITEMS,G_T_BDC,G_T_MESSAGE,
CD_SEND_REC_REL,LD_STATUS.
REFRESH: LT_ITEMS,G_T_BDC,G_T_MESSAGE.
SET PARAMETER ID 'BES' FIELD G_T_FINAL-EBELN.
GET PARAMETER ID 'BES' FIELD L_EBELN.
SET PARAMETER ID 'BSP' FIELD G_T_FINAL-EBELP.
GET PARAMETER ID 'BSP' FIELD L_EBELP.
SORT G_T_FINAL BY EBELN EBELP.
READ TABLE G_T_FINAL WITH KEY EBELN = L_EBELN
EBELP = L_EBELP
BINARY SEARCH.
IF SY-SUBRC = 0.
LS_COBK-KOKRS = G_T_FINAL-KOKRS.
LS_COBK-GJAHR = SY-DATUM+0(4).
LS_COBK-VRGNG = 'RKU1'.
LS_COBK-PERAB = SY-DATUM+4(2).
LS_COBK-PERBI = SY-DATUM+4(2).
LS_COBK-BLDAT = SY-DATUM.
LS_COBK-BUDAT = SY-DATUM.
LS_COBK-CPUDT = SY-DATUM.
LS_COBK-USNAM = SY-UNAME.
LS_COBK-WSDAT = SY-DATUM.
LS_COBK-KURST = 'M'.
LS_COBK-VARNR = '05SAP'.
LS_COBK-KWAER = G_T_FINAL-WAERS.
LS_COBK-CPUTM = SY-UZEIT.
CLEAR : L_POSID_OLD,L_POSID_NEW.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
EXPORTING
INPUT = G_T_FINAL-POSID_NEW
IMPORTING
OUTPUT = L_POSID_NEW.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_INPUT'
EXPORTING
INPUT = G_T_FINAL-POSID_OLD
IMPORTING
OUTPUT = L_POSID_OLD.
L_AMOUNT1 = G_T_FINAL-AMOUNT.
LT_ITEMS-ZLENR = LV_NUM.
LT_ITEMS-EPSPNR = L_POSID_NEW.
LT_ITEMS-SPSPNR = L_POSID_OLD.
LT_ITEMS-KSTAR = G_T_FINAL-KSTAR.
LT_ITEMS-WAERS = G_T_FINAL-WAERS.
LT_ITEMS-WTGBTR = L_AMOUNT1.
LT_ITEMS-WKGBTR = L_AMOUNT1.
APPEND LT_ITEMS.
CLEAR: LT_ITEMS.
* For reposting the Cost
CHECK NOT LT_ITEMS[] IS INITIAL.
CALL FUNCTION 'K40C_COBK_CHECK_POST'
CHANGING
ITCOBK = LS_COBK
EXCEPTIONS
PERIOD_BLOCKED = 1
EXTERNAL_NUMBER_MISSING = 2
ERROR_OCCURED = 3.
IF SY-SUBRC IS INITIAL.
CALL FUNCTION 'K40C_DOCUMENT_LINE_CHECK'
EXPORTING
DOC_HEADER = LS_COBK
IGNORE_WARNINGS = 'X'
TABLES
DOC_ITEMS = LT_ITEMS.
*...Create Tables for database
CALL FUNCTION 'K40C_DOCUMENT_CREATE'
EXPORTING
DOC_HEADER = LS_COBK
TABLES
DOC_ITEMS = LT_ITEMS
ITCOEP = LT_COEP
ITCOEPL = LT_COEPL
ITCOEPR = LT_COEPR.
CALL FUNCTION 'K40C_DOCUMENT_POST'
TABLES
ITCOEP = LT_COEP
ITCOEPL = LT_COEPL
ITCOEPR = LT_COEPR
CHANGING
DOC_HEADER = LS_COBK.
ENDIF.
ENDIF.
IF SY-SUBRC = 0.
GET PARAMETER ID 'KBXXN_P_VAR_RKU1' FIELD CD_SEND_REC_REL.
GET PARAMETER ID 'KBXX_START_DYNPRO' FIELD LD_STATUS.
IF CD_SEND_REC_REL IS INITIAL AND LD_STATUS IS INITIAL.
CLEAR L_DYNNR.
L_DYNNR = '1220'.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' '1200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COHEADER-SEND_REC_REL'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=PVAR'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'L'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' '1200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RK23F-STATUS'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=LISI'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'S'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM FILL_BDC_SCREEN USING L_DYNNR L_DATE2 L_MONTH.
ENDIF.
IF CD_SEND_REC_REL EQ '05SAP' AND LD_STATUS EQ 'S'.
CLEAR L_DYNNR.
L_DYNNR = '1220'.
PERFORM FILL_BDC_SCREEN USING L_DYNNR L_DATE2 L_MONTH.
ELSEIF CD_SEND_REC_REL EQ '05SAP' AND LD_STATUS EQ 'L'.
CLEAR L_DYNNR.
L_DYNNR = '1220'.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' L_DYNNR.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RK23F-STATUS'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=LISI'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'S'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM FILL_BDC_SCREEN USING L_DYNNR L_DATE2 L_MONTH.
ELSEIF CD_SEND_REC_REL NE '05SAP' AND LD_STATUS EQ 'S'.
CASE CD_SEND_REC_REL.
WHEN '01SAP' OR '02SAP' OR '04SAP' OR '08SAP' OR '09SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1220'.
WHEN '03SAP' OR '07SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1230' .
WHEN '06SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1210'.
WHEN '10SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1270'.
ENDCASE.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' L_DYNNR.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COHEADER-SEND_REC_REL'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=PVAR'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'S'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM BDC_FIELD USING 'RK23F-WAERS'
'EUR'.
PERFORM FILL_BDC_SCREEN USING L_DYNNR L_DATE2 L_MONTH.
ELSEIF CD_SEND_REC_REL NE '05SAP' AND LD_STATUS EQ 'L'.
CASE CD_SEND_REC_REL.
WHEN '01SAP' OR '02SAP' OR '04SAP' OR '08SAP' OR '09SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1220'.
WHEN '03SAP' OR '07SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1230' .
WHEN '06SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1210'.
WHEN '10SAP'.
CLEAR L_DYNNR.
L_DYNNR = '1270'.
ENDCASE.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' '1200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'COHEADER-SEND_REC_REL'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=PVAR'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'L'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM BDC_DYNPRO USING 'SAPLK23F1' '1200'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RK23F-STATUS'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=LISI'.
PERFORM BDC_FIELD USING 'COHEADER-SEND_REC_REL'
'05SAP'.
PERFORM BDC_FIELD USING 'RK23F-STATUS'
'S'.
PERFORM BDC_FIELD USING 'COHEADER-BLDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-BUDAT'
L_DATE2.
PERFORM BDC_FIELD USING 'COHEADER-PERIO'
L_MONTH.
PERFORM FILL_BDC_SCREEN USING L_DYNNR L_DATE2 L_MONTH.
ENDIF.
CALL TRANSACTION 'KB11N' USING G_T_BDC MODE G_MODE MESSAGES
INTO G_T_MESSAGE.
IF NOT G_T_MESSAGE[] IS INITIAL.
READ TABLE G_T_MESSAGE WITH KEY MSGTYP = 'S'.
IF SY-SUBRC = 0.
DELETE FROM BALHDR WHERE LOGNUMBER = G_T_FINAL-LOGNUM AND
OBJECT = G_T_FINAL-OBJECT AND
SUBOBJECT = G_T_FINAL-SUBOBJECT.
COMMIT WORK.
G_T_TEMP = G_T_FINAL.
APPEND G_T_TEMP.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
CLEAR G_T_MESSAGE.
REFRESH G_T_MESSAGE.
*refresh g_t_bdc.
CLEAR G_T_BDC.
REFRESH G_T_BDC.
ENDIF.
ENDCASE.
ENDFORM. " USER_COMMAND
Vasanth -
I need to call main window from a Standard program
I need to call main window from a Standard program for SAP Script. I have wrote the code like this but it is not working. Kindly help me on that.
FORM OPEN_AND_START_FORM
FORM open_and_start_form.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
device = 'PRINTER'
dialog = space
form = 'ZOTC_SLI'
language = print_co-spras
OPTIONS = pr_options
EXCEPTIONS
canceled = 01
device = 02
form = 03
OPTIONS = 04
unclosed = 05.
CHECK sy-subrc IS INITIAL.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
window = 'MAIN'.
ENDFORM. "OPEN_AND_START_FORM
FORM CLOSE_AND_END_FORM_FORM *
FORM close_and_end_form.
CALL FUNCTION 'END_FORM'.
ENDFORM. "CLOSE_AND_END_FORMHi,
FORM CLOSE_AND_END_FORM_FORM *
FORM close_and_end_form.
CALL FUNCTION 'END_FORM'.
change this to CALL FUNCTION 'close_FORM'.
as you are not using the start_form
you can use End_form
i hope you understand now
ENDFORM. "CLOSE_AND_END_FORM
reward points if helpful.
thanks & regards,
venkatesh
Maybe you are looking for
-
I have just upgraded to Firefox 4.0 and ever since then I get this message when I try to go to either Yahoo or Gmail "THERE WAS A PROBLEM SENDING THE COMMAND TO THE PROGRAM", I had this problem a month or so ago so downgraded to Firefox 3.6 and the p
-
Did a fresh install of Adobe Acrobat 9.0 Pro on my Windows 7 Enterprise 64 bit system and it is not working properly. When I try to launch Distiller it crashes. When I try to print to the Adobe PDF printer, the application asks to save to a location
-
HOW TO INSTALL ROUTING IN SOLARIS 10
I have already installed my Solaris 10 Server, I was tryin to implement the routing in the file /etc/init.d/inetsvc (/etc/rc2.d/S98inetsvc) as in Solaris 8. !! this file does not exists!! How install routings in Solaris 10 6/06 ?? thanks
-
6500 ,IP load balancing, VIPA OS/390
I have a HOST with OS/390 and three OSA Fastethernet and I have define a VIPA. These Three OSA are conected to a 6500 (three differen ports). VIPA is a Virtual IP Adrres, that I can reach through any OSA adapter. How can I do if I wanted to balance I
-
Lion is freezing up and only my mouse moves...
I have to do a hard shutdown and reboot. This in itself can cause the system to hang after booting and I have to do a PRAM reset as well. Any answers? Hardware Overview: Model Name: MacBook Pro Model Identifier: MacBookPro2,2