How to call the javascript through Command prompt?

I need to call the .js file through command prompt. And also through programming language like c++, java. Could you please advice me with samples.This is for "illustrator cs".

You can also look into use of COM scripting interface to the Adobe programs. Unfortunately, this means you have to do some programming/scripting to create a (command line) script that you can execute like
cscript C:\somePath\myScriptLauncher.vbs C:\somePath\anAdobeScript.jsx
or
cscript C:\somePath\myScriptLauncher.js C:\somePath\anAdobeScript.jsx
the scripts can be written in VBScript (*.vbs) or Microsoft JScript (*.js) which can access COM objects thus the Adobe program's COM APIs.
Nothing purely simple as a command line option in this solution. But it does offer customization as an advantage.
This might be a slightly useful reference.
http://stackoverflow.com/questions/3846626/is-it-possible-to-execute-jsx-scripts-from-outs ide-extendscript
there's one post mentioning COM in there.
And of course, you can also use COM through C++, Java, C#, Visual Basic, etc. as well, not restricted to VBScript and JScript, though I've found it's easier to use the latter two for COM.

Similar Messages

How to call the javascript through sdk?

I created a plugin through SDK. Now i need to call my javascript file in that plugin. Could you please advice me with some samples. This is for "Photoshop CS". Kindly help me.

Could you please provide me an example for
1) plugin could call JavaScript is if an automation plugin calls a script by name.
2) And also give an example for how to call plugin through javascript.
I am new for adobe sdk. So kindly help me.
Thanks in advance,
Prabudass

Error to execute the script through command prompt

I tried to execute the script through command prompt. I got some following error. Could you please advice me how to rectify this.
cscript D:\JS\Test.js
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
D:\JS\Test.js(1, 1) Microsoft JScript runtime error: 'app' is undefined.
Thanks,
Prabudass

I haven't use CS for quite some time and file associations may not work with the command prompt.
You can try using Windows Explorer to browse to a .js file then right click on that file. From the popup menu choose Open With. Even if you see Photoshop in the file list choose Browse at the bottom. Browse to Photoshop and make sure to check 'Always use selected program...'
If that doesn't work you will need to create an action that runs your script and make a droplet from that action. You can then use the droplet in the command prompt. You may also need to create a 'dummy' image file to launch the droplet with if you script doesn't require an open document at startup. See http://www.ps-scripts.com/bb/viewtopic.php?t=967

How to call the Jsp through BPM Obejct

Hi,
I have gone through the some topic, how to call the Jsp through BPM Object.
I have followed step below,
1. I have create the sample jsp page
2. Import into BPM studio under webroot\custom Jsp
3. Created the screenflow and added the "Interactive Component call" object
4. Right Click the Object and selected Maintask and Implementation type as "BPM Object Interactive Call"
5. Selected the use JSP presentation object option and when i click ok its showing "BPM instance object must be selected"
But when i select the Instance Variable tab, its not showing anything.
Can any one help me how to call the Jsp in screenflow with step by step procedure, that would be very greate help for me.
Regards,
Anandh P

Hi,
You are running a jsp report through rwservlet. In this case paper layout will be displayed. You have to deploy your jsp as web report to get the web layout. Please refer to the doc below, which describes how to deploy the web report.
http://download-uk.oracle.com/docs/html/B10314_01/pbr_run.htm#1011901
To run the jsp report, URL may look like
http://www.wwt.com/reports/<jsp name>?<parameter list>
Hope this helps
Vinayak

Run the report through command prompt on Linux

can anyone tell me how can run report through command prompt (Reort server is on Linux)?
that thing I want to implement in form calling report.
Please guide about it..

hi,
There is a lots of documents available in the Internet for the same.
Regards,
Soumyajit

Generate the fmx through command Prompt

Hi,
I am using Oracle forms6i, Oracle 10g Database and Windows (OS).
Is it possible to compile the FMB file through command Prompt.
And then i need to move the fmx files to server through command prompt.
Thanks,
Ansaf.
Edited by: Ansaf on Jan 24, 2012 5:20 PM

Ansaf wrote:
Hi,
I created the batch file as per your code and i changed only the useridn/password@db.
I run the batch
But i cant find the fmx file.Sorry i post the 10g batch compiler
From where u run the batch file ? It should be in that folder where you .fmb exist.
If then don't work. add the location path before the ifcmp60.exe
Here is the 6i compiler
Echo compiling forms ....
for %%f IN (*.fmb) do C:\ORANT\BIN\ifcmp60.exe userid=mail/tti@ait module=%%f batch=yes module_type=form compile_all=yes window_state=minimize
ECHO form compilation completechange the ifcmp60.exe path as you have
Hope it will works for you
If someone's response is helpful or correct, please mark it accordingly.
Edited by: HamidHelal on Jan 24, 2012 8:12 PM

How to call the javascript file through sdk?

I created a plugin through SDK. Now i need to call my javascript file in that plugin code(c++). Could you please advice me with some samples. This is for "Illustrator CS".
Thanks,
Prabudass

I haven't the foggiest idea, except to perhaps suggest firing a script by using the AIActionManager::PlayAction command. That's assuming you can 'action' the use of a script though. If you can, it should be possible that way, if not, I have no idea.

Javafx through command prompt

Hi,
untill now i have used NetBeans for developing javafx applications,
i want to know how to run javafx applications through command prompt.
what are the requirements?
which environment variables to be set?
and commands to compile and run javafx applications?
thank you.

There are some detail steps to run your javafx from command line.
Firstly Create new file with some javafx source code and save them to specific to your Class name . For eg Test.java with package name test
Let's assume my javafx is inside C:\Program Files\Oracle directory
I'll tell you in environment of Window:
Open CMD
Let's assume you are in right directory
set JAVAFX_LIB = C:\Program Files\Oracle\rt\lib\jfxrt.jar
javac -cp "%JAVAFX_LIB%" -d . Test.javaNow goto directory of javafx sdk/bin . There must be javafxpackager.exe
javafxpackager -createjar -srcdir <your src dir> -appclass test.Test -outfile <your file name>.jar -outdir <your output dir>Now run the jar file . It will run great.
Thanks
Narayan

How to create create oracleserviceSID manually through command prompt

Hello Experts ,
We want to create oracleserviceSID manually through command prompt in our BIW 3.5 server based on oracle 9.2 . wts the procedure of create this oracle service manually . Requested to revert at earliest as this is very urgent .
points guaranteed .
Regards,
Somya

hi
i guess that your q's is how to create oracle service source id if the system is already connected to your BW server?
to assign the source id to the source system goto tools in your DWB->assignment of source id to source system->assign the SID there
to create a new one press F5 from the same screen & give the logical system name.
check
SAP Note 518241 for establishing the connection

How to check all subsites data through command prompt

I am using MOSS 2007 ,we don't have powershell, I have to check the size of all subsites size. I run the command in command prompt
C:\programfiles\commanfiles\microsoftshared\webserverextensions\12\BIN>stsadm -o enumsubwebs -url
http://abc.xyz.com
I got all subsites urls, but i need all url's size also. How to do through command prompt?

Hi Ravikiran,
The codeplex solution is a custom solution built using SharePoint Server object model, you can download the code also from the following location.
http://spusedspaceinfo.codeplex.com/releases/view/20413
The following is the code from the above project.
using System;
using System.Collections;
using System.Configuration;
using System.Data;
using System.IO;
using Microsoft.SharePoint;
using System.Diagnostics;
using Microsoft.SharePoint.Administration;
using System.Collections.Generic;
namespace SPUsedSpaceInformation
class Program
static void Main(string[] args)
SPFarm farm = SPFarm.Local;
SPWebService service = farm.Services.GetValue<SPWebService>("");
Console.WriteLine("Select a Web Application:");
Console.WriteLine("-------------------------");
int n = 1;
List<Guid> webAppIds=new List<Guid>();
foreach (SPWebApplication webApplication in service.WebApplications)
Console.WriteLine(string.Format("{0}) {1}", n, webApplication.DisplayName));
webAppIds.Add(webApplication.Id);
n++;
int quit=n;
Console.WriteLine(string.Format("{0}) Quit",n));
Console.WriteLine("? ");
int choice1 = 0;
while (true)
string choice2 = Console.ReadLine();
if (int.TryParse(choice2, out choice1))
if (choice1 > 0 && choice1 < quit)
SPWebApplication webApplication = service.WebApplications[webAppIds[choice1 - 1]];
Console.WriteLine("Select a Site Collection:");
Console.WriteLine("-------------------------");
n = 1;
foreach (SPSite site in webApplication.Sites)
Console.WriteLine(string.Format("{0}) {1}", n, site.Url));
n++;
quit=n;
Console.WriteLine(string.Format("{0}) Quit",n));
Console.WriteLine("? ");
choice1 = 0;
while (true)
choice2 = Console.ReadLine();
if (int.TryParse(choice2, out choice1))
if (choice1 > 0 && choice1 < quit)
SPSite siteColl = webApplication.Sites[choice1 - 1];
DataTable tableStorage = siteColl.StorageManagementInformation(SPSite.StorageManagementInformationType.Document, SPSite.StorageManagementSortOrder.Decreasing, SPSite.StorageManagementSortedOn.Size, 0xf4240);
Hashtable ht = new Hashtable();
foreach (DataRow dr in tableStorage.Rows)
if (ht[dr["WebUrl"].ToString()] == null)
ht[dr["WebUrl"].ToString()] = (double)dr["TotalSize"];
else
ht[dr["WebUrl"].ToString()] = ((double)ht[dr["WebUrl"].ToString()]) + ((double)dr["TotalSize"]);
string folderPath = string.Concat(new object[] { Directory.GetCurrentDirectory(), Path.DirectorySeparatorChar, "Listings" });
if (!Directory.Exists(folderPath))
Directory.CreateDirectory(folderPath);
using (StreamWriter writer = File.CreateText(string.Concat(new object[] { folderPath, Path.DirectorySeparatorChar, "SitesListingsUsage", DateTime.Now.ToString().Replace("/", "-").Replace(":", "-"), ".csv" })))
foreach (string key in ht.Keys)
writer.WriteLine(string.Format("{0};{1}", key, ht[key].ToString()));
SPWeb currentWeb = siteColl.RootWeb;
using (currentWeb)
using (StreamWriter writer = File.CreateText(string.Concat(new object[] { folderPath, Path.DirectorySeparatorChar, "SitesListingsInfo", DateTime.Now.ToString().Replace("/", "-").Replace(":", "-"), ".csv" })))
string separation = string.Empty;
ListWebs(currentWeb, separation, writer);
Console.WriteLine("Press a touch to quit...");
Console.ReadLine();
Process.Start(folderPath);
return;
else if (choice1 == quit)
return;
else
Console.WriteLine("? ");
else
Console.WriteLine("? ");
else if (choice1 == quit)
return;
else
Console.WriteLine("? ");
else
Console.WriteLine("? ");
private static void ListWebs(SPWeb Web, string Separation, StreamWriter Writer)
string ownersMail = string.Empty;
SPGroup ownerGroup = null;
ownerGroup = Web.AssociatedOwnerGroup;
if (ownerGroup == null)
foreach (SPRoleAssignment roleAssignment in Web.RoleAssignments)
if ((roleAssignment.Member is SPGroup) && roleAssignment.Member.Name.ToLower().Contains("owner"))
SPGroup group = (SPGroup)roleAssignment.Member;
foreach (SPUser user in group.Users)
if (!string.IsNullOrEmpty(user.Email))
if (string.IsNullOrEmpty(ownersMail))
ownersMail = user.Email;
else
ownersMail = ownersMail + "," + user.Email;
break;
else
foreach (SPUser user in ownerGroup.Users)
if (!string.IsNullOrEmpty(user.Email))
if (string.IsNullOrEmpty(ownersMail))
ownersMail = user.Email;
else
ownersMail = ownersMail + "," + user.Email;
string accessRequestMail = string.Empty;
if (Web.RequestAccessEnabled)
accessRequestMail = Web.RequestAccessEmail;
string authorMail = string.Empty;
try
authorMail = Web.Author.Email;
catch { }
Writer.WriteLine(string.Format("{0};{1};{2};{3};{4};{5};{6}", new object[] { Web.Title, Web.Url, authorMail, Web.Created.ToString(), accessRequestMail, Web.LastItemModifiedDate.ToString(), ownersMail }));
Console.WriteLine(string.Format("{0};{1};{2};{3};{4};{5};{6}", new object[] { Web.Title, Web.Url, authorMail, Web.Created.ToString(), accessRequestMail, Web.LastItemModifiedDate.ToString(), ownersMail }));
foreach (SPWeb childWeb in Web.Webs)
ListWebs(childWeb, Separation + "--", Writer);
Please don't forget to mark it as answered, if your problem resolved or helpful.

How to save a fmb in the database thru command prompt?

Hi,
How to save a fmb in the database thru command prompt?
I have around 25 fmb template files which needs to be saved in the database.Every time when we apply the new dump , we need to resave the templates in the database to compile other application related fmb files.Its a time consuming process and Monotonous for me. Is there anyway to save the forms in the database thru batch file, so that just I have to execute the batch file every time.
Expecting your earliest feedback.
Thanks & Regards,
G.S -
[email protected] / [email protected]

Hi Frank,
Thanks for your feeback.
I am using forms6i.Basically our application was migrated from 4.5 to 6i two years back. Due to some reasons our technical team members are insisting us to store the template FMB's into the database to do the coding activities at site.
Once in a month we are receiving the live dump for test database.Hence the problem.
Please suggest the easiest way to store the template FMBs in the database.
Thanks & Regards,
G.S

How to rectify the errors through call transaction metod in bdc

how to rectify the errors through call transaction metod in bdc

Hi ,
View the highlited part of the below code.
REPORT ygfrivat1 NO STANDARD PAGE HEADING
                 LINE-SIZE 165
                 MESSAGE-ID yif_groc.
Program     YGFRIVAT1
Function    Report to Upload the VAT Adjustment File.
Author      ARENAPU
Date        11.05.2007
PMTS        AM12810157
Transport   G6DK937834
Description:
Modification log:
1. Changed by :
   Changed on :
   PMTS        :
   Transport   :
   Tag         :
   Description :
       T A B L E S   D E C L A R A T I O N S
TABLES: edidc, "Control record (IDoc)
        edids, "Status Record (IDoc)
        t001w.
Internal Tables Declaration.
Internal table to hold data from table EDIDS
DATA: BEGIN OF t_edids OCCURS 0,
       docnum LIKE edids-docnum,
       logdat LIKE edids-logdat,
       logtim LIKE edids-logtim,
       countr LIKE edids-countr,
       credat LIKE edids-credat,
       uname LIKE edids-uname,
      END OF t_edids,
Internal table to hold data from table EDIDC
      BEGIN OF t_edidc OCCURS 0,
       docnum LIKE edidc-docnum,
       rcvprt LIKE edidc-rcvprt,
       rcvprn LIKE edidc-rcvprn,
       credat LIKE edidc-credat,
      END OF t_edidc,
Internal table to hold data from upload file
      BEGIN OF t_tab OCCURS 0,
       cust(10),        "site/customer number
       date(10),        "transaction date
       currency(04),    "currency
       extnbr(15),      "external reference number
       pos-cont(05),    "POS controler
       pos-id(25),      "POS id
       cashier(10),     "cashier name
       qualif(04),      "qualifier of the article
       matnr(25),       "article number
       qty(10),         "quantity
       sale(16),        "sale value
       pos-tr(04),      "POS transfert type
       paymeth(04),     "payment method
       final(35),       "final price
       tarcur(04),      "target currency
       assign(35),      "assignment day
       error,
      END OF t_tab,
Internal table for Report display.
      BEGIN OF t_tab1 OCCURS 0,
       cust(10),                    "site/customer number
       date(10),                    "transaction date
       currency(04),                "currency
       extnbr(15),                  "external reference number
       pos-cont(05),                "POS controler
       pos-id(25),                  "POS id
       cashier(10),                 "cashier name
       qualif(04),                  "qualifier of the article
       matnr(25),                   "article number
       qty(16)   TYPE p DECIMALS 2, "quantity
       sale(16) TYPE p DECIMALS 2, "sale value
       pos-tr(04),                  "POS transfert type
       paymeth(04),                 "payment method
       final(16) TYPE p DECIMALS 2, "final price
       tarcur(04),                  "target currency
       assign(35),                  "assignment day
      END OF t_tab1,
      t_tab_temp LIKE t_tab OCCURS 0 WITH HEADER LINE,
Internal table to Validate Customer no.
      BEGIN OF t_check OCCURS 0,
       werks LIKE t001w-werks,
       vkorg LIKE t001w-vkorg,
       value(40),
      END OF t_check,
      t_check_temp LIKE t_check OCCURS 0 WITH HEADER LINE.
Internal table to hold data from table ZCS_PARAM.
DATA: BEGIN OF t_zcs_param OCCURS 0.
        INCLUDE STRUCTURE zcs_param.
DATA: vkorg LIKE t001w-vkorg,
      END OF t_zcs_param.
*Internal table to hold Messages.
DATA: BEGIN OF t_message OCCURS 0,
         msgnum TYPE msgnum,
         msgtyp TYPE msgtyp,
         msgtxt TYPE msgtext,
       END OF t_message.
*Work area for table t_message
DATA : w_message LIKE LINE OF t_message.
Internal table to hold BDC data
DATA: t_bdcdata LIKE bdcdata    OCCURS 0 WITH HEADER LINE,
Internal table to collect error messages
      messtab   LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
*Internal table to hold messages from call transaction
DATA: BEGIN OF t_text OCCURS 0,
       desc(150),
       msgtxt(100),
      END OF t_text.
       D A T A   D E C L A R A T I O N S
DATA: n TYPE i,
      gv_status(11) TYPE c, "Shows status, Production or Test
      gv_exit TYPE c, "Exit Flag
      gv_qty(16)   TYPE p DECIMALS 2, "Variable to sum Quantity
      gv_sale(16) TYPE p DECIMALS 2, "Variable to sum Amount
      gv_final(16) TYPE p DECIMALS 2. "Variable to sum Final Amount
DATA: w_text(100),
      gv_mode TYPE c,
      error TYPE c. "Flag to Indicate error.
CONSTANSTS DECLARATION
CONSTANTS : gc_fieldname LIKE dynpread-fieldname VALUE 'P_FNAME',
            gc_seq_no LIKE zcs_param-seq_no VALUE '00110',
            gc_object LIKE zcs_param-object VALUE 'YGFVAT',
            gc_paraname LIKE zcs_param-paraname VALUE 'VKORG',
            gc_back TYPE c VALUE 'N',
            gc_error TYPE c VALUE 'E',
            gc_all TYPE c VALUE 'A'.
           S E L E C T I O N   S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS : p_fname LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-002 FOR FIELD p_test.
PARAMETERS : p_test AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-006.
PARAMETERS : rb_back RADIOBUTTON GROUP rb1 DEFAULT 'X',
             rb_error RADIOBUTTON GROUP rb1,
             rb_all RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF BLOCK a2.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
*Subroutine to provide F4 help for file name
PERFORM fr_get_filename.
       I N I T I A L I Z A T I O N
INITIALIZATION.
*Subroutine to check authorization.
PERFORM fr_authority_check.
        T O P - O F - P A G E
TOP-OF-PAGE.
*Subroutine to diplay header
PERFORM fr_display_header.
         S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
*Subroutine to upload data from presentation server.
PERFORM fr_upload_data.
*Subroutine to validate records from uploaded file.
PERFORM fr_validate_data.
*Subroutine to build report internal table.
PERFORM fr_build_rep.
         E N D - O F - S E L E C T I O N
END-OF-SELECTION.
*Subroutine to display report.
PERFORM fr_write_report.
        F O R M   S U B R O U T I N E S
*&      Form fr_get_filename
      text
FORM fr_get_filename.
DATA : lv_repid LIKE sy-repid,         " Report id
         lv_file LIKE ibipparms-path.   " File Path
lv_repid = sy-repid.
F4 help for file path.
CALL FUNCTION 'F4_FILENAME'
       EXPORTING
            program_name = lv_repid
            dynpro_number = syst-dynnr
            field_name    = gc_fieldname                    " p_fname1
       IMPORTING
            file_name     = lv_file.
IF NOT lv_file EQ space.
    p_fname = lv_file.
ELSE.
    MESSAGE e999 WITH 'Invalid Path'(005).
ENDIF.
ENDFORM.                    " fr_get_filename
*&      Form fr_upload_data
      text
FORM fr_upload_data.
DATA: lv_fname TYPE string.
CLEAR lv_fname.
lv_fname = p_fname.
Uploading file from PC or presentation server to internal table.
CALL FUNCTION 'GUI_UPLOAD'
       EXPORTING
            filename            = lv_fname
            filetype            = 'ASC'
            has_field_separator = 'X'
       TABLES
            data_tab            = t_tab
       EXCEPTIONS
            file_open_error     = 1.
IF sy-subrc <> 0.
    DESCRIBE TABLE t_message LINES n.
    w_message-msgnum = n + 1.
    w_message-msgtyp = 'E'.
    MOVE text-m01 TO w_message-msgtxt.
    APPEND w_message TO t_message.
Subroutine for writing log.
    PERFORM fr_write_log.
ENDIF.
ENDFORM.                    " fr_upload_data
*&      Form fr_validate_data
      text
FORM fr_validate_data.
DATA : lv_lines1 TYPE i,
         lv_lines2 TYPE i.
*Obtain Status depending on Check box selected.
IF p_test IS INITIAL.
    gv_status = 'PRODUCTION'.
ELSE.
    gv_status = 'TEST RUN'.
ENDIF.
*Batch Mode
CLEAR gv_mode.
IF rb_back EQ 'X'.          "No Display
    MOVE gc_back TO gv_mode.
ELSEIF rb_error EQ 'X'.     "Error Only
    MOVE gc_error TO gv_mode.
ELSEIF rb_all EQ 'X'.       "All Screens
    MOVE gc_all TO gv_mode.
ENDIF.
IF NOT t_tab[] IS INITIAL.
    SORT t_tab BY cust.
    REFRESH t_tab_temp.
    t_tab_temp[] = t_tab[].
    SORT t_tab_temp BY cust.
    DELETE ADJACENT DUPLICATES FROM t_tab_temp COMPARING cust.
    IF NOT t_tab_temp[] IS INITIAL.
      SELECT werks vkorg FROM t001w
                         INTO TABLE t_check
                         FOR ALL ENTRIES IN t_tab_temp
                         WHERE werks = t_tab_temp-cust+0(4).
      IF sy-subrc = 0.
        SORT t_check BY werks.
      ENDIF.
      LOOP AT t_check.
        IF t_check-vkorg <> ' '.
          MOVE t_check-vkorg TO t_check-value.
          MODIFY t_check TRANSPORTING value.
        ENDIF.
      ENDLOOP.
    ENDIF.
    FREE t_tab_temp.
ENDIF.
IF NOT t_check[] IS INITIAL.
    REFRESH t_check_temp.
    t_check_temp[] = t_check[].
    SORT t_check_temp BY value.
    DELETE ADJACENT DUPLICATES FROM t_check_temp COMPARING value.
    IF NOT t_check_temp[] IS INITIAL.
      SELECT * FROM zcs_param INTO TABLE t_zcs_param
               FOR ALL ENTRIES IN t_check_temp
               WHERE seq_no   EQ gc_seq_no
                 AND object   EQ gc_object
                 AND paraname EQ gc_paraname
                 AND value    EQ t_check_temp-value.
      IF sy-subrc = 0.
        SORT t_zcs_param BY value.
      ENDIF.
    ENDIF.
    FREE t_check_temp.
ENDIF.
IF NOT t_tab[] IS INITIAL.
    LOOP AT t_tab.
      READ TABLE t_check WITH KEY werks = t_tab-cust BINARY SEARCH.
      IF sy-subrc <> 0.
        MOVE 'X' TO t_tab-error.
        MODIFY t_tab TRANSPORTING error.
        DESCRIBE TABLE t_message LINES n.
        w_message-msgnum = n + 1.
        w_message-msgtyp = 'E'.
        CONCATENATE t_tab-cust text-030
        INTO w_message-msgtxt SEPARATED BY space.
        APPEND w_message TO t_message.
Subroutine for writing log.
        PERFORM fr_write_log.
        EXIT.
      ELSE.
        READ TABLE t_zcs_param WITH KEY value = t_check-vkorg
                                                     BINARY SEARCH.
        IF sy-subrc <> 0.
          MOVE 'X' TO t_tab-error.
          MODIFY t_tab TRANSPORTING error.
          DESCRIBE TABLE t_message LINES n.
          w_message-msgnum = n + 1.
          w_message-msgtyp = 'E'.
          CONCATENATE text-003 t_tab-cust text-004 t_check-vkorg
          INTO w_message-msgtxt SEPARATED BY space.
          APPEND w_message TO t_message.
Subroutine for writing log.
          PERFORM fr_write_log.
          EXIT.
        ELSE.
          PERFORM fr_format_tab.
        ENDIF.
      ENDIF.
    ENDLOOP.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines1.
IF lv_lines1 <> 0.
    DELETE t_tab WHERE error EQ 'X'.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines2.
IF lv_lines2 <> 0.
    IF lv_lines2 <> lv_lines1.
      EXIT.
    ELSE.
      IF p_test IS INITIAL.
        LOOP AT t_tab.
*Subroutine to build BDC table
          PERFORM fr_fill_bdctab.
*Subroutine to Post Data into SAP.
          PERFORM fr_data_posting.
        ENDLOOP.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_validate_data
*&      Form fr_write_log
      text
FORM fr_write_log.
CLEAR error.
error = 'X'.
WRITE:/1 'Msg No'(027), 10 'Type'(028), 20 'Text'(029).
ULINE:/1(120).
FORMAT RESET.
LOOP AT t_message.
    IF t_message-msgtyp = 'E'.
      FORMAT COLOR 6 INTENSIFIED .
    ELSEIF t_message-msgtyp = 'W'.
      FORMAT COLOR 3 INTENSIFIED .
    ELSEIF t_message-msgtyp = 'I'.
      FORMAT COLOR 5 INTENSIFIED .
    ENDIF.
    WRITE:/1 t_message-msgnum,
          10 t_message-msgtyp,
          20 t_message-msgtxt.
    FORMAT RESET.
ENDLOOP.
ULINE:/1(120).
ENDFORM.                    " fr_write_log
*&      Form fr_write_report
      text
FORM fr_write_report.
CLEAR gv_exit.
LOOP AT t_message.
    IF t_message-msgtyp = 'E'.
      gv_exit = 'X'.
      EXIT.
    ENDIF.
ENDLOOP.
IF NOT gv_exit IS INITIAL.
    EXIT.
ELSE.
    PERFORM fr_display_report.
    IF NOT t_text[] IS INITIAL.
Subroutine for Display Call Transaction messages.
      PERFORM fr_write_msg.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_write_report
*&      Form fr_display_report
      text
FORM fr_display_report.
IF NOT t_tab1[] IS INITIAL.
    CLEAR: gv_qty, gv_sale, gv_final.
    LOOP AT t_tab1.
      WRITE:/1(10) t_tab1-cust,
            13(10) t_tab1-date,
            25(05) t_tab1-currency,
            32(14) t_tab1-extnbr,
            48(09) t_tab1-pos-cont,
            60(18) t_tab1-matnr,
            80(16) t_tab1-qty RIGHT-JUSTIFIED ,
            98(16) t_tab1-sale RIGHT-JUSTIFIED ,
           116(07) t_tab1-paymeth,
           125(16) t_tab1-final RIGHT-JUSTIFIED,
           143(06) t_tab1-tarcur,
           152(12) t_tab1-assign.
      gv_qty   = t_tab1-qty   + gv_qty.
      gv_sale = t_tab1-sale + gv_sale.
      gv_final = t_tab1-final + gv_final.
    ENDLOOP.
    FORMAT COLOR 3.
    ULINE: /(164).
    WRITE:/ 'TOTALS',
      80(16) gv_qty RIGHT-JUSTIFIED,
      98(16) gv_sale RIGHT-JUSTIFIED,
     125(16) gv_final RIGHT-JUSTIFIED,
     182 ''.
    ULINE: /(164).
    FORMAT RESET.
ENDIF.
ENDFORM.                    " fr_display_report
*&      Form FR_DISPLAY_HEADER
      text
FORM fr_display_header.
IF error IS INITIAL.
    FORMAT COLOR 1.
    WRITE:/ 'Date upload           :'(007),   25 sy-datum, 38 ''.
    WRITE:/ 'Production or Test Run:'(008),   25 gv_status, 38 ''.
    WRITE:/ 'Upload User Logon     :'(009),   25 sy-uname, 38 ''.
    ULINE: /(164).
    WRITE:/1(04) 'Site'(010),
          13(10) 'Date'(011),
          25(05) 'Curr.'(012),
          32(14) 'Receipt'(013),
          48(09) 'Cashier'(014),
          60(18) 'Article'(015),
          92     'Qty'(016),
          102    'Item Amount'(017),
          116(7) 'M.o.P.'(018),
          128    'Tender Amount'(019),
          143(6) 'T.Curr'(020),
         152(12) 'Assignment'(021).
    ULINE:/(164).
    FORMAT RESET.
ENDIF.
ENDFORM.                    " FR_DISPLAY_HEADER
*&      Form fr_newdynpro
      text
FORM fr_newdynpro USING program LIKE bdcdata-program
                        dynpro LIKE bdcdata-dynpro.
t_bdcdata-program = program .
t_bdcdata-dynpro = dynpro.
t_bdcdata-dynbegin = 'X'.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM.                    " fr_newdynpro
*&      Form fr_loadfield
      text
FORM fr_loadfield USING field LIKE bdcdata-fnam
                        value.
t_bdcdata-fnam = field.
t_bdcdata-fval = value.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM.                    " fr_loadfield
*&      Form fr_fill_bdctab
      text
FORM fr_fill_bdctab.
REFRESH t_bdcdata.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM'   t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BON'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '500'.
PERFORM fr_loadfield USING 'WPSCB01-POSKREIS'   t_tab-pos-cont.
PERFORM fr_loadfield USING 'WPSCB01-KASSID'     t_tab-pos-id.
PERFORM fr_loadfield USING 'WPSCB01-BELEGWAERS' t_tab-currency.
PERFORM fr_loadfield USING 'WPSCB01-CSHNAME'    t_tab-cashier.
PERFORM fr_loadfield USING 'WPSCB01-BONNUMMER' t_tab-extnbr.
PERFORM fr_loadfield USING 'E1WPB02-QUALARTNR(01)' t_tab-qualif.
PERFORM fr_loadfield USING 'E1WPB02-ARTNR(01)'      t_tab-matnr.
PERFORM fr_loadfield USING 'E1WPB02-MENGE(01)'      t_tab-qty.
PERFORM fr_loadfield USING 'WPSCB03-KONDVALUE(01)' t_tab-sale.
PERFORM fr_loadfield USING 'E1WPB02-VORGANGART(01)' t_tab-pos-tr.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'ZAHL'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME'    t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR'    t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'SAVE'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME'    t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR'    t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
PERFORM fr_newdynpro USING 'SAPLSPO1' '0200'.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'YES'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM'   t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
ENDFORM.                    " fr_fill_bdctab
*&      Form fr_data_posting
      text
FORM fr_data_posting.
IF NOT t_bdcdata[] IS INITIAL.
    REFRESH messtab.
    CALL TRANSACTION 'WPUK' USING t_bdcdata
                            MODE gv_mode
                            UPDATE 'S'
                            MESSAGES INTO messtab.
    IF sy-subrc = 0 .
      CLEAR w_text.
      LOOP AT messtab.
        CALL FUNCTION 'FORMAT_MESSAGE'
             EXPORTING
                  id        = messtab-msgid
                  lang      = sy-langu
                  no        = messtab-msgnr
                  v1        = messtab-msgv1
                  v2        = messtab-msgv2
                  v3        = messtab-msgv3
                  v4        = messtab-msgv4
             IMPORTING
                  msg       = w_text
             EXCEPTIONS
                  not_found = 1
                  OTHERS    = 2.
        MOVE w_text TO t_text-msgtxt.
        CONCATENATE 'Site:'(031)    t_tab-cust
                    'Article:'(024) t_tab-matnr
                    'Posted Sucessfully'(032)
          INTO t_text-desc SEPARATED BY space.
        APPEND t_text.
        CLEAR t_text.
      ENDLOOP.
    ELSE.
      CLEAR w_text.
      LOOP AT messtab.
        CALL FUNCTION 'FORMAT_MESSAGE'
             EXPORTING
                  id        = messtab-msgid
                  lang      = sy-langu
                  no        = messtab-msgnr
                  v1        = messtab-msgv1
                  v2        = messtab-msgv2
                  v3        = messtab-msgv3
                  v4        = messtab-msgv4
             IMPORTING
                  msg       = w_text
             EXCEPTIONS
                  not_found = 1
                  OTHERS    = 2.
        MOVE w_text TO t_text-msgtxt.
        IF messtab-msgnr EQ '213'.
          CONCATENATE 'Site:'(031)    t_tab-cust
                      'Article:'(024) t_tab-matnr
                      'Posted Sucessfully'(032)
           INTO t_text-desc SEPARATED BY space.
          APPEND t_text.
          CLEAR t_text.
          EXIT.        ELSE.
          CONCATENATE 'Site:'(031)    t_tab-cust
                      'Article:'(024) t_tab-matnr
                      'Not Posted'(033)
           INTO t_text-desc SEPARATED BY space.
          APPEND t_text.
          CLEAR t_text.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_data_posting
*&      Form fr_authority_check
      text
FORM fr_authority_check.
AUTHORITY-CHECK OBJECT 'Y_VATADJ'
           ID 'VKORG' FIELD t001w-vkorg
           ID 'TCD'   FIELD 'YGFVAT'.
IF sy-subrc NE 0.
    MESSAGE e999 WITH text-m02.
ENDIF.
ENDFORM.                    " fr_authority_check
*&      Form fr_write_msg
      text
FORM fr_write_msg.
SKIP.
ULINE:/(164).
WRITE:/
'Messages encountered while Calling Transaction WPUK'(025),
      90 'Message Text'(026).
ULINE:/1(164).
LOOP AT t_text.
    WRITE:/1 t_text-desc,
          90 t_text-msgtxt,
          164 ''.
ENDLOOP.
ULINE:/1(164).
ENDFORM.                    " fr_write_msg
*&      Form FR_BUILD_REP
      text
FORM fr_build_rep.
IF error IS INITIAL.
    IF NOT t_tab[] IS INITIAL.
      LOOP AT t_tab.
        MOVE:
          t_tab-cust     TO t_tab1-cust,        "site/customer number
          t_tab-date     TO t_tab1-date,        "transaction date
          t_tab-currency TO t_tab1-currency,    "currency
        t_tab-extnbr   TO t_tab1-extnbr,      "external reference number
          t_tab-pos-cont TO t_tab1-pos-cont,    "POS controler
          t_tab-pos-id   TO t_tab1-pos-id,      "POS id
          t_tab-cashier TO t_tab1-cashier,     "cashier name
         t_tab-qualif   TO t_tab1-qualif,      "qualifier of the article
          t_tab-matnr    TO t_tab1-matnr,       "article number
          t_tab-pos-tr   TO t_tab1-pos-tr,      "POS transfert type
          t_tab-paymeth TO t_tab1-paymeth,     "payment method
          t_tab-tarcur   TO t_tab1-tarcur,      "target currency
          t_tab-assign   TO t_tab1-assign.
        REPLACE ',' WITH '.' INTO t_tab-qty.
        CONDENSE t_tab-qty NO-GAPS.
        MOVE t_tab-qty TO t_tab1-qty.
        REPLACE ',' WITH '.' INTO t_tab-sale.
        CONDENSE t_tab-sale NO-GAPS.
        MOVE t_tab-sale TO t_tab1-sale.
        REPLACE ',' WITH '.' INTO t_tab-final.
        CONDENSE t_tab-final NO-GAPS.
        MOVE t_tab-final TO t_tab1-final.
        APPEND t_tab1.
        CLEAR t_tab1.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    " FR_BUILD_REP
*&      Form fr_format_tab
      text
FORM fr_format_tab.
DATA : lv_qty TYPE string.
IF NOT t_tab-qty IS INITIAL.
    IF t_tab-qty+0(1) EQ '-'.
      CLEAR lv_qty.
      MOVE t_tab-qty TO lv_qty.
      CLEAR t_tab-qty.
      SHIFT lv_qty LEFT CIRCULAR.
      CONDENSE lv_qty NO-GAPS.
      MOVE lv_qty TO t_tab-qty.
      MODIFY t_tab TRANSPORTING qty.
    ENDIF.
ENDIF.
ENDFORM.                    " fr_format_tab

Can we deploy a mapping through Command Prompt

Can we deploy a mapping through Command Prompt. If so pls tell me how
Thanks in Advance

Hi,
when deploying mappings from the coomand line or when i try to run some other script in OMBPlus i usually do the following:
* Create a .bat file that will call your tcl script it will look something like this:
rem @echo off
cd <owb_install_dir>\owb\bin\win32\
rem your script file
call OMBplus "<path to your script>\scripts\DeployMapping.tcl"
cd <path to your script>\scripts\
* Create a .tcl file that will do the following:
OMBCONNECT <user>/<passowrd>@<server name>:<port>:<Service Name>;
OMBCC 'MY_PROJECT';
#Deploy Mapping
OMBCONNECT CONTROL_CENTER <control_center_username/control_center_password>@<server name>:<port>:<service name> USE REPOS '<design repository user>';
set om "<sub_location>";
OMBCC '$om';
set m "Mapping Name";
puts " Deploying Mapping: $m";
puts "";
OMBCREATE TRANSIENT DEPLOYMENT_ACTION_PLAN '$m' ADD ACTION 'MAPPING_DEPLOY' SET PROPERTIES (OPERATION) VALUES ('REPLACE') SET REFERENCE MAPPING '/MY_PROJECT/$om/$m';
catch { OMBDEPLOY DEPLOYMENT_ACTION_PLAN '$m' } ex;
puts " $ex";
OMBDROP DEPLOYMENT_ACTION_PLAN '$m' ;
OMBDISCONNECT CONTROL_CENTER;
OMBCOMMIT;
For more information refer to the OMBPlus reference documentation
Hope this helps
Regards,
Ricardo Ferreira

How to call a javascript function from XSL

I'd a requirement to take an action each time a page loads
I called the javascript function from addLoadEvent() available in javascript.
But my reviewer commented that it should be called using XSL as we are using XSLT,
What is preferred?
To pass function name to the already available function or somehow call it from xsl ? if second is preferred option then,
how to call a function through XSLT, if it is to be called aftr the page loads?

Thank u..
but i'd seen that link wen i searched in google..
Is it possible without using any 3rd party JARs and all?
and more importantly plz tell me what should be preferred way to call a javascript function?
Do it using addLoadEvent() or Windows.Load etc
OR
Call it thru Xsl? (I donno how to do dis)
Thanks in Advance..
Edited by: ranjjose on Jun 3, 2008 8:21 AM

How to call a Javascript function from backing bean without any event

Hi,
Someone knows how to call a Javascript function from backing bean without any event ?
thanks

Please review the following thread:
ADF Faces call javascript
Luis.

How to call the javascript through Command prompt?

Similar Messages

Maybe you are looking for