Determine ICC output profile (name) in PDF/X output intent

Hi all,
I have a PDF of which I need to determine the ICC output profile (name) of the PDF/X output intent. This is what I have in the 'content stream':
<</Metadata 6 0 R/OutputIntents[<</DestOutputProfile 7 0 R/Info(OFCOM. ISO 12647-2:2004 / Amd 1, Offset commercial and specialty printing according to ISO 12647-2, paper type 1 or 2 $gloss or matte coated offset, 115 g/m2$, screen frequency 60/cm.)/OutputConditionIdentifier(FOGRA39)/RegistryName(http://www.color.org)/S/GTS_PDFX/Type/OutputIntent>>]
How can I, based on this information, determine what the name of the ICC profile in the PDF/X output intent is? Adobe Acrobat's output preview tells me that is should say / find ''ISO Coated v2 300% (ECI)'.
Thanks in advance.
Didier

Thanks! Thought it would be something in that direction. Any tools or libraries you might know that can be used to extract and parse this kind of information (as part of a preflight process or something else)? Adobe tools for instance?

Similar Messages

Can I print to AdobePDF with a pre-determined output file name?

I have a list of PDF files that I need to reduce in size. I have tried many combinations of Adobe's "Save As Reduced PDF", "Save As Optimized PDF", as well as several compression programs. The best results I've found have been to print the PDF via AdobePDF, using the standard quality settings.
This leads me to my problem. It's simple to batch the print process to print multiple files to AdobePDF, however each one requires the user to specify the output file name. Is there a way to interface with the AdobePDF tool in a way that the output file name is already determined? I.e. passed into the program as an argument? Any help would be greatly appreciated.
Thanks,
Dan
EDIT: Under the Adobe PDF Settings, the option for Adobe PDF OUtput Folder is set for Prompt for Adobe PDF filename. There is also an option to dump to Documents\*.pdf, which retains the original filename. Is there a way to specify a different directory, rather than Documents, while retaining the *.pdf argument? Again, thank you.

You would probably get better results printing from Acrobat. The HTMLLoader rasterizes the image first. You could possibly add a JavaScript function inside the PDF that prints and call that from your AIR app.
See http://www.adobe.com/devnet/air/flex/quickstart/scripting_pdf.html for information on calling JS functions in a pdf file from AIR.

ICC v4 profiles converted to v2 profiles when exporting to PDF X4

When will ICC v4 profiles be supported? Is this a InDesign or PDF issue?

Think I have, with the help of a couple of ICC/PDF guys, solved this. I was exporting to PDF X1a. This standard does not support v4 ICC profiles. I have now exported the same file using PDF X4, and the v4 ICC profile is used correctly. So the PDF output engine does accept v4 profiles, if the PDF x standard supports them.

Get ICC Profile name of image in INDD

Hi,
How I can get the Profile name associated to a RGB/CMYK image in InDesign?
The properties profile of image return Embedded instaed of name of ICC profile (Example Adobe RGB (1998)).
From link palette this info is available...
Stefano

Hi,
I found the solution using the power of Sips:
try
    set pathImmagine to "Snow Leopard:Users:stefano:Desktop:roman16_06_yellow.tif"
     set profileName to do shell script "sips -g profile " & quoted form of (POSIX path of pathImmagine) & " | fgrep profile | sed 's/ profile: //g'"
on error msg number errnum
    set profileName to "ND"
end try
Very fast even with big images.
But like Adobe as added the intelligent new Parent page property, this property must be added in InDesign
Stefano Cappello

Epson R1900 and iCC/iCM profiling...when do you give up?

I'm using Windows 7 64bit (non-SP1) and Lightroom 3.3 with a Epson R1900 printer.
Sorry if this is winded, but I've tried a lot myself and had to break down and post here.
I've read a lot of posts already about disabling color management in the printer or in LR 3.3. I've downloaded all possible profiles from Epson or other places that sound logical enough to help with my specific paper. I understand that my screen could be too bright or too dark and lightroom's interface itself could even give the impression of a photo being too bright or dark. I've read about iCC profiling twice, first in software then in the printer. I've used a Spyder3 Print SR and Spyder 3 screen calibrator.
No matter what combintation I try, my photos print too dark of course, but even worse, the color is really off (more than the brightness). Also, I understand there is a lot of printers so it can be hard giving exact toggles in options that might not even exist with ones printer.
Now I'm not nearly as educated as most of you on these issues, so I'm going to ask some questions (sorry if they seem "newbish").
First, I understand (or currently am under the impression) that Lightroom uses something called "MelissaRBG or a.k.a "BastardRGB" to print to the screen (?). If this is true, shouldn't the exporting iCC profile be MelissaRGB.icc? Now if this is true, shouldn't the Host (Win7) look different being set at sRGB than that to what is in Lightroom? It doesn't on my system. So again if this Melissa profile is true, does Lightroom only export in MelissaRGB between the print to screen and whatever given .icc profile you have chosen to export in? In other words, is there only a handshake happening with Melissa.
Second, where does the host .icc start and end. I assume since Lightroom does not come packaged with drivers for every possible graphics card, that the host's color manager has to pass off a matrix for colors to the Lightroom software.
Third, being that the above 2 questions might be out of a users simplistic control and that I can't see what I'm doing wrong, should one just use the basic controls of the printer module? In my case the best prints I get are when I use the printers modules color manager of "Epson Vivid" with a +10 in brightness and +4 in saturation. Of course, this isn't going to help when I want to print to canvas or may other paper types. However, all the profiling in the world with my Spyder3 Print SR might be correct, but I'll never know because the prints always come out way off.
All the trying and failure make me feel like the guy who is barely qualified to make small rocks from a boulder, just give me a hammer. Should I just give up and let it rip with sliders and keep my eyes closed?
By the way, there is really very little found easily through search engines that explain how the profiling should be SET UP on a computer in specific pratice . But yes, there is A LOT that want to walk you through the math and theory of it all, just not how any particular software handles it, not even the operating system.

Just checking off a few things. You may have done all this and some has been said before, I'm just trying for the complete list:
I think you're saying you've calibrated your monitor with Spyder 3. As a check, when you check the profile in W7 control panel, it will show the profile you've created with Spyder 3 as the default for the monitor (if not, something's wrong)
I'm not familiar with Spyder 3 software, but does it give you the option of setting screen brightness? It should be 100-120 cd/m2. No more. If you can't set it in the Spyder s/w, try turning the brightness down and recalibrating with Spyder. You can also use the "Colorimetre HCFR" software (http://www.homecinema-fr.com/colorimetre/index_en.php) to measure profile parameters, including brightness.
Another check on brightness: get a piece of blank printer paper, and with normal room lighting hold it near your monitor when displaying something white. Does the screen look significantly brighter than the paper? If so, it may be too bright. Modern monitors are way too bright by default. My HP monitor brightness is set to 15 out of 100 to get 100 cd/m2.
When printing from LR, select in the "Print Job" area (bottom right in print module) "profile: SPR1900 Premium Glossy", or whatever the profile name is for the paper you're using (I'm guessing the name, I have an R1800). This is telling LR to colour-mange the printer, and telling it which profile to use.
Click Page Setup... (bottom L) and set the paper type in the Epson dialogue. Click Advanced (I think it's a separate tab in R1900, it's a button in Main tab on R1800) and in "Colour management" check ICM and (very important) check "Off (No Color Adjustment)". I'm not sure with the R1900, but on the Main tab, you may also have to "Mode: custom" and "No Color Adjustment" in the drop down. This is telling the printer driver that:
colour management is being used (so don't mess with the colours to make them "pretty", which it would otherwise do)
colour management is being done by the application, not the driver (in other words, telling the driver not to do anything itself)
The important thing is that colour management of the printer should be done in one place only. The method above gets it done in LR, you can also turn it off in LR and use the driver, but I recommend the steps above.
If all that's OK, it ought to work. Printed output is never going to be identical to the screen - they're different physical representations of the image - but colour should be fairly close.
You mentioned LR using a form of ProPhoto colour space as its working space. That's not an issue. It's just a convenience for LR, and has absolutely no bearing on the output. The only point is that the working space should be at least as large as the original image colour space, the monitor colour space and the printer colour space (so it's not limiting the colour). LR automatically converts the image to:
the monitor colour space when displaying images (provided you have an appropriate profile set for the monitor, which should be done by spyder 3)
the printer colour space, which you specify when you print, remembering to set the driver as above.

Error while sending PO output through mail in PDF format - Urgent

Dear friends,
Developed program to send sapscript output through mail in pdf format, the program running properly, even function module SO_NEW_DOCUMENT_ATT_SEND_API1 returning sy-subrc 0. But the external mail is not going to user lying in SAP outbox with message <b>"Wait for communications service"</b> . SCOT is properly configured, tested mails sending through SAP office.
Find below the source code:
REPORT zmm_porder_gm
            NO STANDARD PAGE HEADING.
TABLES: ekko, ekpa, t161t, t052, komv, j_1imocomp, t001, esll.
Internal Tables
DATA : txt LIKE tline-tdline, "HEADER LINE
       your_ref LIKE ekko-ihrez, "your ref
       our_ref LIKE ekko-unsez, "our ref
       mcompname LIKE t001-butxt,
       itemname   LIKE ekpo-txz01,
       del_text LIKE tline-tdline, "delivery text
       mat_po_text LIKE tline-tdline. "material po text
DATA: g_ind TYPE i.
DATA: it_esll LIKE esll OCCURS 0 WITH HEADER LINE.
DATA: sub_packno LIKE esll-sub_packno.
DATA : po_flag(1) TYPE c.
DATA : it_erev LIKE erev OCCURS 0 WITH HEADER LINE.
DATA : nmebeln LIKE thead-tdname,
       obj LIKE thead-tdname.
DATA : tline LIKE tline OCCURS 0 WITH HEADER LINE. "HEADER TEXT
DATA : it_ekko LIKE ekko OCCURS 0 WITH HEADER LINE.
DATA : it_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE.
DATA : it_zmm_porder LIKE zmm_porder OCCURS 0 WITH HEADER LINE.
DATA : it_konv        LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_konv_ftr    LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_konv_rate   LIKE konv OCCURS 0 WITH HEADER LINE.
DATA : it_komv_tax    LIKE komv OCCURS 0 WITH HEADER LINE.           " For Tax Calculation
DATA : it_zmm_house_bank LIKE zmm_house_bank OCCURS 0 WITH HEADER LINE.
*DATA : mrate TYPE konv-kbetr VALUE 0, mrate1(15). rmoved by ganes and added following logic
DATA : mrate TYPE p VALUE 0 DECIMALS 2, mrate1(15).
DATA : mrate_gm TYPE p DECIMALS 2.
DATA : BEGIN OF it_konv1 OCCURS 0,
              knumv LIKE konv-knumv,
              kschl LIKE konv-kschl,
END OF it_konv1.
DATA : BEGIN OF it_t052u OCCURS 0.
        INCLUDE STRUCTURE t052u.
DATA : END OF it_t052u.
DATA : mpay_terms LIKE t052u-text1.
DATA : mwaers     LIKE konv-waers.
DATA : BEGIN OF xt052 OCCURS 0.
        INCLUDE STRUCTURE t052.
DATA : END OF xt052.
DATA : it_t16ct LIKE t16ct OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ztext OCCURS 0.
        INCLUDE STRUCTURE ttext.
DATA : END OF ztext.
DATA : it_t001      LIKE t001 OCCURS 0 WITH HEADER LINE.
DATA : mtext(15)    TYPE c.
DATA : it_adrc      LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_adrc_ven LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_adrc_plt LIKE adrc OCCURS 0 WITH HEADER LINE.
DATA : it_makt      LIKE makt OCCURS 0 WITH HEADER LINE.
DATA : it_eket      LIKE eket OCCURS 0 WITH HEADER LINE.               " Schedulling
DATA : it_eikp      LIKE eikp OCCURS 0 WITH HEADER LINE.               " Export
DATA : it_t001w     LIKE t001w OCCURS 0 WITH HEADER LINE.
DATA : it_t685t     LIKE t685t OCCURS 0 WITH HEADER LINE.
DATA : it_t618t     LIKE t618t OCCURS 0 WITH HEADER LINE.
DATA : it_t685t_ftr LIKE t685t OCCURS 0 WITH HEADER LINE.
DATA : it_lfa1 LIKE lfa1 OCCURS 0 WITH HEADER LINE.
DATA : it_bapi_mltx_ga LIKE bapi_mltx_ga OCCURS 0 WITH HEADER LINE. "Material long text
DATA : mfirst   TYPE i VALUE 0,
       mpay_flag(1) TYPE c VALUE 'X',
       mwerks   LIKE    t001w-werks,
       msr      TYPE i VALUE 0,
       l_rate   TYPE p DECIMALS 2 VALUE 0,
       l_amt    TYPE p DECIMALS 2 VALUE 0,
       mflag(1) TYPE c,
       mlctr    TYPE i VALUE 0,
       mfamt    TYPE p DECIMALS 2 VALUE 0,
       mcfamt(15) TYPE c,
       mfword(100) TYPE c,
       mkschl   LIKE konv-kschl,
       mchgamt TYPE p DECIMALS 2 VALUE 0,
       mkbetr   TYPE p DECIMALS 2 VALUE 0,
       mkwert   TYPE p DECIMALS 2 VALUE 0.
DATA : j_1iexcd     TYPE j_1imocomp-j_1iexcd,
       j_1icstno    TYPE j_1imocomp-j_1icstno,
       j_1ilstno    TYPE j_1imocomp-j_1ilstno.
DATA : mjmop_r    TYPE p DECIMALS 2 VALUE 0,
       mjmoq_r    TYPE p DECIMALS 2 VALUE 0,
       mjecs_r    TYPE p DECIMALS 2 VALUE 0,
       mjvcs_r    TYPE p DECIMALS 2 VALUE 0,
       mjvrd_r    TYPE p DECIMALS 2 VALUE 0,
       mjsep_r    TYPE p DECIMALS 2 VALUE 0.
DATA : mjmop_a    TYPE p DECIMALS 2 VALUE 0,
       mjmoq_a    TYPE p DECIMALS 2 VALUE 0,
       mjecs_a    TYPE p DECIMALS 2 VALUE 0,
       mjvcs_a    TYPE p DECIMALS 2 VALUE 0,
       mjvrd_a    TYPE p DECIMALS 2 VALUE 0,
       mjsep_a    TYPE p DECIMALS 2 VALUE 0.
DATA : mtitle   LIKE t161t-batxt.
DATA :         no_ammend(10),request_by(50),ver_txt(100),ver_reason(100),stext(200).
begin of Email data declarations**************
DATA: BEGIN OF otf OCCURS 0.
        INCLUDE STRUCTURE itcoo .
DATA: END OF otf.
DATA: itcpo LIKE itcpo.
DATA: itcpp LIKE itcpp.
DATA: it_docs TYPE STANDARD TABLE OF docs,
      v_bin_filesize          TYPE i,
      it_lines TYPE STANDARD TABLE OF tline,
      wa_lines TYPE tline.
DATA : i_pdf LIKE tline OCCURS 1000 WITH HEADER LINE,
v_pdf_bytecount TYPE i,
v_pdf_spoolid TYPE tsp01-rqident,
v_otf_pagecount TYPE i,
v_btc_jobname TYPE tbtcjob-jobname,
v_btc_jobcount TYPE tbtcjob-jobcount.
DATA: objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.
DATA: objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.
DATA: vafilename(100) VALUE 'po_output.pdf'.
DATA: jobdata TYPE sxjobdata.
DATA arc_params TYPE arc_params.
DATA print_params TYPE pri_params.
DATA g_send_prog TYPE syrepid VALUE 'ZVF03_TEST_PROG'.
DATA immediate TYPE btcchar1.
DATA: i_jobname TYPE tbtcp-jobname,
i_jobcount TYPE tbtcp-jobcount,
i_jobstepcount TYPE tbtcp-stepcount.
DATA recipient_obj LIKE swotobjid.
CONSTANTS: sx_true TYPE sx_boolean VALUE 'X'.
TABLES: tbtcp.
end of Email data declarations**************
SELECTION-SCREEN : BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   : mebeln FOR ekko-ebeln OBLIGATORY .               " 75
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 12.
SELECTION-SCREEN COMMENT (20) text-b01.
PARAMETERS: b1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : END OF BLOCK block1.
SELECTION-SCREEN: BEGIN OF SCREEN 200 TITLE text-001 AS WINDOW.
PARAMETERS : p_email TYPE ad_smtpadr.     "E-Mail Address
SELECTION-SCREEN: END OF SCREEN 200.
INITIALIZATION.
SET PF-STATUS 'ZMMPORD_STAT'.
AT SELECTION-SCREEN.
CASE sy-ucomm.
    WHEN 'EMAIL'.
      PERFORM zemail.
    WHEN '&IC1'.
      PERFORM load_data.
      PERFORM process.
      IF NOT p_email IS INITIAL.
        PERFORM send_mail.
      ENDIF.
ENDCASE.
*START-OF-SELECTION.
PERFORM load_data.
PERFORM process.
FORM load_data .
DATA : gindex LIKE sy-tabix.
SELECT * FROM t16ct INTO TABLE it_t16ct WHERE spras = 'EN'.
SELECT * FROM ekko INTO TABLE it_ekko WHERE ebeln IN mebeln.
IF sy-subrc EQ 0.
    SELECT * FROM erev INTO CORRESPONDING FIELDS OF TABLE it_erev FOR ALL ENTRIES IN it_ekko
    WHERE edokn = it_ekko-ebeln AND rscod <> '' .
    SORT it_erev BY edokn revno DESCENDING.
    LOOP AT it_ekko.
      IF NOT ( it_ekko-frgke EQ 'O' OR it_ekko-frgke EQ '0' ) .
        MESSAGE e000(zsd) WITH 'Purchase Order is not Realeased'.
      ENDIF.
    ENDLOOP.
    SELECT * FROM ekpo INTO TABLE it_ekpo WHERE ebeln IN mebeln.
    IF sy-subrc EQ 0.
      SELECT * INTO TABLE it_makt
      FROM   makt
      FOR    ALL ENTRIES IN it_ekpo
      WHERE matnr EQ it_ekpo-matnr.
      SELECT * INTO TABLE it_lfa1
      FROM   lfa1
      FOR    ALL ENTRIES IN it_ekko
      WHERE lifnr EQ it_ekko-lifnr.
    ENDIF.
    SELECT *
      INTO TABLE it_t052u
      FROM t052u
       FOR ALL ENTRIES IN it_ekko
     WHERE zterm EQ it_ekko-zterm
      AND spras EQ 'EN'.
    IF sy-subrc EQ 0.
      SORT it_t052u BY zterm.
    ENDIF.
    SELECT * FROM eket INTO TABLE it_eket WHERE ebeln IN mebeln.
    IF sy-subrc EQ 0.
      SORT it_eket BY ebeln ebelp.
    ENDIF.
    SELECT *
      INTO TABLE it_eikp
      FROM eikp
       FOR ALL ENTRIES IN it_ekko
     WHERE exnum EQ it_ekko-exnum.
    IF sy-subrc EQ 0.
      SORT it_eikp BY exnum.
      SELECT *
        INTO TABLE it_t618t
        FROM t618t
         FOR ALL ENTRIES IN it_eikp
       WHERE expvz EQ it_eikp-expvz
         AND spras EQ 'E'
         AND land1 EQ 'IN'.
      IF sy-subrc EQ 0.
        SORT it_t618t BY expvz.
      ENDIF.
    ENDIF.
    REFRESH : it_zmm_porder.
    CLEAR   : it_zmm_porder.
    SELECT * INTO TABLE it_zmm_porder
      FROM zmm_porder
     WHERE flag EQ 'L'.
    IF sy-subrc EQ 0.
      SORT it_zmm_porder BY kschl.
    ENDIF.
    SELECT * FROM konv INTO TABLE it_konv
    FOR ALL ENTRIES IN it_ekko
    WHERE knumv = it_ekko-knumv
      AND kwert NE 0.
    LOOP AT it_konv.
      gindex = sy-tabix.
      READ TABLE it_zmm_porder WITH KEY kschl = it_konv-kschl BINARY SEARCH.
      IF sy-subrc NE 0.
        DELETE it_konv INDEX gindex.
      ENDIF.
    ENDLOOP.
    IF sy-subrc EQ 0.
      SORT it_konv BY knumv kherk kschl.
    ENDIF.
    REFRESH : it_zmm_porder.
    CLEAR   : it_zmm_porder.
    SELECT * INTO TABLE it_zmm_porder
      FROM zmm_porder
     WHERE flag EQ 'F'.
    IF sy-subrc EQ 0.
      SORT it_zmm_porder BY kschl.
    ENDIF.
   SELECT * INTO TABLE IT_KONV_FTR FROM KONV
      FOR ALL ENTRIES IN IT_EKKO
     WHERE KNUMV = IT_EKKO-KNUMV
       AND ( KSCHL = 'ZIN1'
          OR KSCHL = 'ZIN2'
          OR KSCHL = 'ZINS'
          OR KSCHL = 'ZPF1'
          OR KSCHL = 'ZPF2'
          OR KSCHL = 'ZPF3'
          OR KSCHL = 'ZPKG'
          OR KSCHL = 'ZPKF'
          OR KSCHL = 'FRA1'
          OR KSCHL = 'FRB1'
          OR KSCHL = 'FRC1'
          OR KSCHL = 'FRD1'
          OR KSCHL = 'FRD2'
          OR KSCHL = 'FRD3'
          OR KSCHL = 'FRD4'
          OR KSCHL = 'FRD5'
*****Added one condition type below ZFBC as on 05.06.2007 :Rajiv as per mail of Sadiq via mathew sir(RTDK906646)
          OR KSCHL = 'ZFBC' )
       AND KWERT NE 0
       AND KPOSN GT '000000'.
      AND ( KRECH = 'B'                       " RTDK906167
       OR KRECH = 'A' ).
    SELECT * INTO TABLE it_konv_ftr FROM konv
       FOR ALL ENTRIES IN it_ekko
      WHERE knumv = it_ekko-knumv
        AND kwert NE 0
        AND kposn GT '000000'.
    LOOP AT it_konv_ftr.
      gindex = sy-tabix.
      READ TABLE it_zmm_porder WITH KEY kschl = it_konv_ftr-kschl BINARY SEARCH.
      IF sy-subrc NE 0.
        DELETE it_konv_ftr INDEX gindex.
      ENDIF.
    ENDLOOP.
    IF it_konv_ftr[] IS NOT INITIAL.
      SORT it_konv_ftr BY knumv kschl.
    ENDIF.
   SELECT KNUMV KSCHL INTO CORRESPONDING FIELDS OF TABLE IT_KONV1 FROM KONV
   FOR ALL ENTRIES IN IT_EKKO
   WHERE KNUMV = IT_EKKO-KNUMV
       and kherk = 'D'
     AND ( KSCHL = 'ZIN1'
        OR KSCHL = 'ZIN2'
        OR KSCHL = 'ZINS'
        OR KSCHL = 'ZPF1'
        OR KSCHL = 'ZPF2'
        OR KSCHL = 'ZPF3'
        OR KSCHL = 'ZPKG'
        OR KSCHL = 'ZPKF'
        OR KSCHL = 'FRA1'
        OR KSCHL = 'FRB1'
        OR KSCHL = 'FRC1'
        OR KSCHL = 'FRD1'
        OR KSCHL = 'FRD2'
        OR KSCHL = 'FRD3'
        OR KSCHL = 'FRD4'
        OR KSCHL = 'FRD5'
*****Added one condition type below ZFBC as on 05.06.2007 :Rajiv as per mail of Sadiq via mathew sir(RTDK906646)
        OR KSCHL = 'ZFBC' )
     AND KWERT NE 0.
       AND ( KRECH = 'B'                       RTDK906167
        OR KRECH = 'A' ).
    SELECT knumv kschl INTO CORRESPONDING FIELDS OF TABLE it_konv1 FROM konv
    FOR ALL ENTRIES IN it_ekko
    WHERE knumv = it_ekko-knumv
      AND kwert NE 0.
    DELETE ADJACENT DUPLICATES FROM it_konv1 COMPARING knumv kschl.
    LOOP AT it_konv1.
      gindex = sy-tabix.
      READ TABLE it_zmm_porder WITH KEY kschl = it_konv1-kschl BINARY SEARCH.
      IF sy-subrc NE 0.
        DELETE it_konv1 INDEX gindex.
      ENDIF.
    ENDLOOP.
    IF sy-subrc EQ 0.
      SORT it_konv1 BY knumv kschl.
    ENDIF.
    SELECT * INTO TABLE it_t685t
    FROM   t685t
    FOR    ALL ENTRIES IN it_konv
    WHERE kschl EQ it_konv-kschl
      AND kappl EQ it_konv-kappl
      AND spras EQ 'E'.
    SELECT * INTO TABLE it_t685t_ftr
    FROM   t685t
    FOR    ALL ENTRIES IN it_konv_ftr
    WHERE kschl EQ it_konv_ftr-kschl
      AND kappl EQ it_konv_ftr-kappl
      AND spras EQ 'E'.
    it_t685t_ftr-kschl = 'JVCS'.
    it_t685t_ftr-vtext = 'IN CST in vat'.
    APPEND it_t685t_ftr.
    SELECT * INTO TABLE it_zmm_house_bank
      FROM zmm_house_bank
     WHERE ebeln IN mebeln.
ELSE.
    MESSAGE e899(mm) WITH 'Data not found for selection criteria...'.
ENDIF.
ENDFORM.                    " Load_data
FORM process .
DATA : mctr   TYPE i VALUE 1.
DATA : gindex LIKE sy-tabix.
DATA : mline(75) TYPE c.
DATA : mlifn2    LIKE ekpa-lifn2.
DATA : mv_name LIKE lfa1-name1,
         madrnr LIKE lfa1-adrnr.
CLEAR itcpo.
itcpo-tdgetotf = 'X'.
CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form     = 'ZMM_PORDER'
      language = sy-langu
      OPTIONS = itcpo
      dialog   = ' '
    EXCEPTIONS
      OTHERS   = 1.
LOOP AT it_ekko.
    CALL FUNCTION 'START_FORM'
      EXPORTING
        form = 'ZMM_PORDER'.
    SELECT SINGLE *
     FROM t001
     INTO it_t001
    WHERE bukrs EQ it_ekko-bukrs.
    mcompname = it_t001-butxt.
    TRANSLATE mcompname TO UPPER CASE.
    Document Type
    SELECT SINGLE batxt
      INTO mtitle
      FROM t161t
     WHERE bstyp EQ 'F'
     AND   spras EQ 'E'
     AND   bsart EQ it_ekko-bsart.
    REFRESH it_adrc.
    SELECT SINGLE werks
      INTO mwerks
      FROM ekpo
     WHERE ebeln EQ it_ekko-ebeln.
    SELECT SINGLE *
      INTO it_t001w
      FROM t001w
     WHERE werks EQ mwerks.
    REFRESH it_adrc.
    SELECT SINGLE *
      INTO it_adrc_plt
      FROM adrc
     WHERE addrnumber EQ it_t001w-adrnr.
    REFRESH : xt052.
    mfamt = 0.
    msr    = 0.
in 500c this statement failed.
   SELECT SINGLE * FROM T052 INTO XT052 WHERE ZTERM = IT_EKKO-ZTERM.
   CALL FUNCTION 'FI_TEXT_ZTERM'
     EXPORTING
       I_T052 = XT052
     TABLES
       T_ZTEXT = ZTEXT.
    As per Preeti... Shipment address should be shown on top as purchase order company address. 27.04.
    PERFORM writeform USING 'PLANT' 'PLANT'.
    SELECT SINGLE name1 adrnr
      INTO (mv_name,madrnr)
      FROM lfa1
     WHERE lifnr EQ it_ekko-lifnr.
    REFRESH it_adrc[].
    CLEAR   it_adrc[].
    FREE it_adrc[].
    SELECT SINGLE *
      INTO it_adrc_ven
      FROM adrc
     WHERE addrnumber EQ madrnr.
    READ TABLE it_lfa1 WITH KEY lifnr = it_ekko-lifnr.
    PERFORM writeform USING 'VENDOR' 'VENDOR'.
     Shipment
    SELECT SINGLE werks
      INTO mwerks
      FROM ekpo
     WHERE ebeln EQ it_ekko-ebeln.
       up to 1 rows.
    SELECT SINGLE *
      INTO it_t001w
      FROM t001w
     WHERE werks EQ mwerks.
    SELECT SINGLE j_1iexcd j_1icstno j_1ilstno
             INTO (j_1iexcd,j_1icstno,j_1ilstno)
           FROM    j_1imocomp
            WHERE werks = mwerks.
    REFRESH it_adrc.
    SELECT SINGLE *
      INTO it_adrc
      FROM adrc
     WHERE addrnumber EQ it_t001w-adrnr.
    PERFORM writeform USING 'SHIPMNT' 'SHIPMNT'.
    READ TABLE it_eikp WITH KEY exnum = it_ekko-exnum.
    IF sy-subrc EQ 0.
      READ TABLE it_t618t WITH KEY expvz = it_eikp-expvz.
    ENDIF.
    your_ref = it_ekko-ihrez.
    our_ref = it_ekko-unsez.
    READ TABLE it_erev WITH KEY edokn = it_ekko-ebeln.
    IF sy-subrc = 0.
      no_ammend = it_erev-revno.
      request_by = it_erev-crnam.
      ver_txt    = it_erev-txz01.
      READ TABLE it_t16ct WITH KEY rscod = it_erev-rscod.
      IF sy-subrc = 0.
        ver_reason = it_t16ct-rstxt.
      ELSE.
        ver_reason = ''.
      ENDIF.
    ELSE.
      no_ammend = ''.
      request_by = ''.
      ver_txt    = ''.
      ver_reason = ''.
    ENDIF.
    PERFORM writeform USING 'PO_INFO' 'PO_INFO'.
    IF it_zmm_house_bank[] IS NOT INITIAL.
      READ TABLE it_zmm_house_bank INDEX 1.
      PERFORM writeform USING 'BANKDTL' 'BANKDTL'.
    ENDIF.
    PERFORM writeform USING 'HDR_INFO' 'HDR_INFO'.
    PERFORM writeform USING 'BRK_TTL' 'MAIN'.
    msr     = 1.
    mlctr   = 1.
*added by ganesh to prevent deleted items to appear in print out
   LOOP AT IT_EKPO WHERE EBELN EQ IT_EKKO-EBELN.
    LOOP AT it_ekpo WHERE ebeln EQ it_ekko-ebeln AND loekz NE 'L'.
*end of change
      CLEAR: mrate, mrate1.
      SELECT * FROM konv INTO TABLE it_konv_rate
               WHERE knumv EQ it_ekko-knumv
               AND   kposn EQ it_ekpo-ebelp
               AND ( kschl EQ 'PBXX' OR kschl EQ 'PB00' OR kschl EQ 'P001' ).
      LOOP AT it_konv_rate.
       IF it_konv_rate-kpein > 0.             " added by ganesh as per sudhir 12.10.2007
         mrate_gm = it_konv_rate-kbetr / it_konv_rate-kpein.
         mrate = mrate + mrate_gm. " added by ganesh as per sudhir 12.10.2007
       ELSE.
        mrate = mrate + it_konv_rate-kbetr.
       ENDIF.
        IF it_konv_rate-waers IS NOT INITIAL.
          mwaers = it_konv_rate-waers.
        ENDIF.
      ENDLOOP.
    For Japanies Yen   "RTDK906759
      IF it_ekko-waers = 'JPY'.
        mrate = mrate * 100.
      ENDIF.
    End for japanies Yen
      mrate1 = mrate.
           End rate
      mfirst = 0.
            MFAMT = MFAMT + ( IT_EKPO-NETPR * IT_EKPO-MENGE ).
      mfamt = mfamt + ( mrate * it_ekpo-menge ).
      PERFORM get_mat_long_text.
      DATA: lt_ctr TYPE i VALUE 0,lt_ctr1 TYPE i, lt_count TYPE i VALUE 0. " Long text counter
      DESCRIBE TABLE it_bapi_mltx_ga LINES lt_count.
      CLEAR it_bapi_mltx_ga.
*Added by Rajiv 10.05.2007 Read and if condition RTDK906165
      READ TABLE it_konv WITH KEY knumv = it_ekko-knumv
                                  kposn = it_ekpo-ebelp.
      mkbetr = 0.
      mkwert = 0.
      IF sy-subrc EQ 0.
        LOOP AT it_konv WHERE knumv EQ it_ekko-knumv
                           AND kposn EQ it_ekpo-ebelp.
          IF it_konv-krech EQ 'A'.
            mkbetr = it_konv-kbetr / 10.
          ELSE.
            mkbetr = it_konv-kbetr.
          ENDIF.
        For Japanies Yen "RTDK906759
          IF it_ekko-waers = 'JPY'.
            mkbetr = mkbetr * 100.
          ENDIF.
        End for japaies Yen
          IF mkbetr LT '0'.
            mkbetr = mkbetr * ( -1 ).
          ENDIF.
          mkwert   = it_konv-kwert.
        For Japanies Yen "RTDK906759
          IF it_ekko-waers = 'JPY'.
            mkwert = mkwert * 100.
          ENDIF.
        End for japaies Yen
          mfamt = mfamt + mkwert.
          IF mkwert LT '0'.
            mkwert = mkwert * ( -1 ).
          ENDIF.
          IF it_ekpo-matnr IS INITIAL.
            itemname = it_ekpo-txz01.
          ELSE.
            READ TABLE it_makt WITH KEY matnr = it_ekpo-matnr.
            itemname = it_makt-maktx.
          ENDIF.
          READ TABLE it_t685t WITH KEY kschl = it_konv-kschl BINARY SEARCH.
          READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
                                       ebelp = it_ekpo-ebelp BINARY SEARCH.
          IF mfirst EQ 0.
            PERFORM writeform USING 'BRK_INFO' 'MAIN'.
            mfirst = 1.
          ELSE.
            ADD 1 TO lt_ctr.
            CLEAR it_bapi_mltx_ga.
            READ TABLE it_bapi_mltx_ga INDEX lt_ctr. "For long text
            IF sy-subrc NE 0.
              CLEAR it_bapi_mltx_ga.
            ENDIF.
            PERFORM writeform USING 'BRK_INFO1' 'MAIN'.
          ENDIF.
          mlctr = mlctr + 1.
        ENDLOOP.               "   it_konv.
      ELSE.
        IF it_ekpo-matnr IS INITIAL.
          itemname = it_ekpo-txz01.
        ELSE.
          READ TABLE it_makt WITH KEY matnr = it_ekpo-matnr.
          itemname = it_makt-maktx.
        ENDIF.
                    READ TABLE IT_T685T WITH KEY KSCHL = IT_KONV-KSCHL BINARY SEARCH.
        READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
                                     ebelp = it_ekpo-ebelp BINARY SEARCH.
        mfirst = 0.
        IF mfirst EQ 0.
          PERFORM writeform USING 'BRK_INFO' 'MAIN'.
          mfirst = 1.
        ELSE.
          ADD 1 TO lt_ctr.
          CLEAR it_bapi_mltx_ga.
          READ TABLE it_bapi_mltx_ga INDEX lt_ctr. "For long text
          IF sy-subrc NE 0.CLEAR it_bapi_mltx_ga.ENDIF.
          PERFORM writeform USING 'BRK_INFO1' 'MAIN'.
        ENDIF.
      ENDIF.
*Commented by rajiv 10.05.2007 used this code in above condition.
added by ganesh on 260407 to print record
            if it_konv is initial.
                    READ TABLE IT_MAKT WITH KEY MATNR = IT_EKPO-MATNR.
                    READ TABLE IT_T685T WITH KEY KSCHL = IT_KONV-KSCHL BINARY SEARCH.
                    READ TABLE IT_EKET WITH KEY EBELN = IT_EKPO-EBELN
                                                 EBELP = IT_EKPO-EBELP BINARY SEARCH.
                    mFirst = 0.
                    if mFirst eq 0.
                         PERFORM WRITEFORM USING 'BRK_INFO' 'MAIN'.
                         mFirst = 1.
                    else.
                         add 1 to lt_ctr.
                         clear it_bapi_mltx_ga.
                         read table IT_BAPI_MLTX_GA index lt_ctr. "For long text
                         if sy-subrc ne 0.clear it_bapi_mltx_ga.endif.
                         PERFORM WRITEFORM USING 'BRK_INFO1' 'MAIN'.
                    Endif.
            endif.
end of change
      REFRESH it_komv_tax.
      PERFORM get_tax_cal USING it_ekpo-ebeln
                                it_ekpo-ebelp.
                             Changing it_komv_tax.
      REFRESH : it_zmm_porder.
      CLEAR   : it_zmm_porder.
      SELECT * INTO TABLE it_zmm_porder
        FROM zmm_porder
       WHERE flag EQ 'T'.
      IF sy-subrc EQ 0.
        SORT it_zmm_porder BY kschl.
      ENDIF.
      LOOP AT it_komv_tax.
        gindex = sy-tabix.
        READ TABLE it_zmm_porder WITH KEY kschl = it_komv_tax-kschl BINARY SEARCH.
        IF sy-subrc NE 0.
          DELETE it_komv_tax INDEX gindex.
        ENDIF.
      ENDLOOP.
      LOOP AT it_komv_tax WHERE kwert IS NOT INITIAL.
       IF ( IT_KOMV_TAX-KSCHL EQ 'JMOP' OR
            IT_KOMV_TAX-KSCHL EQ 'JECS' OR
            IT_KOMV_TAX-KSCHL EQ 'JSEP' OR
            IT_KOMV_TAX-KSCHL EQ 'JMOQ' OR
            IT_KOMV_TAX-KSCHL EQ 'JVCS' OR
            IT_KOMV_TAX-KSCHL EQ 'JVRD' OR
            IT_KOMV_TAX-KSCHL EQ 'JMIP' OR
*             IT_KOMV_TAX-KSCHL EQ 'JEIP' OR
            IT_KOMV_TAX-KSCHL EQ 'JSEI' OR
            IT_KOMV_TAX-KSCHL EQ 'JSRT' OR
            IT_KOMV_TAX-KSCHL EQ 'JEC3' OR
            IT_KOMV_TAX-KSCHL EQ 'JVRN' )
            AND IT_KOMV_TAX-KWERT IS NOT INITIAL.
        SELECT SINGLE vtext
               INTO   mtext
               FROM   t685t
              WHERE   kschl EQ it_komv_tax-kschl
                AND   spras EQ 'E'.
        l_rate    = it_komv_tax-kbetr / 10.
        l_amt     = it_komv_tax-kwert.
        For Japanies Yen "RTDK906759
        IF it_ekko-waers = 'JPY'.
          l_amt = l_amt * 100.
        ENDIF.
        End for japaies Yen
        ADD l_amt TO mfamt.
        IF lt_ctr LT lt_count. "Long text
          ADD 1 TO lt_ctr.
          READ TABLE it_bapi_mltx_ga INDEX lt_ctr.
        ELSE.
          CLEAR it_bapi_mltx_ga.
        ENDIF.
        IF l_rate EQ 0 OR l_amt EQ 0.
          l_rate = ''.
          l_amt = ''.
        ENDIF.
        PERFORM writeform USING 'TAX_LINE_ITEM' 'MAIN'.
       ENDIF.
      ENDLOOP.
      IF lt_ctr LT lt_count.
        DATA mbal_line TYPE i.
        mbal_line = ( lt_count - lt_ctr ).
        DO mbal_line TIMES.
          ADD 1 TO lt_ctr.
          READ TABLE it_bapi_mltx_ga INDEX lt_ctr.
          IF sy-subrc = 0.
            PERFORM writeform USING 'LTEXT' 'MAIN'.
          ENDIF.
        ENDDO.
      ENDIF.
      CONCATENATE it_ekko-ebeln it_ekpo-ebelp INTO nmebeln.
      REFRESH tline.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          id                      = 'F04'
          language                = sy-langu
          name                    = nmebeln
          object                  = 'EKPO'
        TABLES
          lines                   = tline
        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.
      ENDIF.
      LOOP AT tline.
        IF tline-tdline IS NOT INITIAL.
          del_text = tline-tdline.
        ENDIF.
        CONDENSE del_text.
      ENDLOOP.
      CONCATENATE it_ekko-ebeln it_ekpo-ebelp INTO nmebeln.
      REFRESH tline.
      CALL FUNCTION 'READ_TEXT'
        EXPORTING
          id                      = 'F03'
          language                = sy-langu
          name                    = nmebeln
          object                  = 'EKPO'
        TABLES
          lines                   = tline
        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.
           refresh.
      CLEAR : po_flag, mat_po_text.
      LOOP AT tline.
        IF tline-tdline IS NOT INITIAL.
          MOVE tline-tdline TO mat_po_text.
          CONDENSE mat_po_text.
          PERFORM writeform USING 'MTRL_PO_TEXT' 'MAIN'.
          po_flag = 'X'.
          CLEAR : mat_po_text.
        ENDIF.
      ENDLOOP.
*Added lines below for Schedule delivery for line item on 09.05.2007:Rajiv
      CLEAR g_ind.
      READ TABLE it_eket WITH KEY ebeln = it_ekpo-ebeln
                                   ebelp = it_ekpo-ebelp BINARY SEARCH.
      g_ind = sy-tabix.
      LOOP AT it_eket FROM g_ind.
        IF it_eket-ebeln EQ it_ekpo-ebeln AND it_eket-ebelp = it_ekpo-ebelp.
          PERFORM writeform USING 'SCHEDULE' 'MAIN'.
        ELSE.
          EXIT.
        ENDIF.
      ENDLOOP.
*End Addition:Rajiv
      PERFORM writeform USING 'REQSLP' 'MAIN'.
      mlctr = mlctr + 1.
      msr = msr + 1.
      CLEAR: lt_ctr, lt_ctr1.
following lines added by ganesh to add service po details as per Mr. sadiq 21.08.2007
      IF it_ekpo-packno IS NOT INITIAL.
        CLEAR sub_packno.
        SELECT SINGLE sub_packno INTO sub_packno FROM esll WHERE packno = it_ekpo-packno.
        IF sub_packno IS NOT INITIAL.
          CLEAR it_esll.
          REFRESH it_esll.
          SELECT * FROM esll INTO CORRESPONDING FIELDS OF TABLE it_esll
          WHERE packno = sub_packno.
          IF sy-subrc = 0.
            PERFORM writeform USING 'SERVICE_PO_TEXT' 'MAIN'.
          ENDIF.
          LOOP AT it_esll.
            CONCATENATE sub_packno it_esll-introw INTO obj.
            CALL FUNCTION 'READ_TEXT'   "4500002446 C300
              EXPORTING
                id       = 'LTXT'
                language = sy-langu
                name     = obj
                object   = 'ESLL'
              TABLES
                lines    = tline
              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.
            ENDIF.
            CLEAR stext.
            LOOP AT tline.
              CONCATENATE stext tline-tdline INTO stext SEPARATED BY space.
            ENDLOOP.
            FREE tline.
            CLEAR tline.
            REFRESH tline.
            PERFORM writeform USING 'SERVICE_PO' 'MAIN'.
            PERFORM writeform USING 'SERVICE_TEXT' 'MAIN'.
          ENDLOOP.
        ENDIF.
      ENDIF.
    end of change
    ENDLOOP.             " it_ekpo.
    IF mlctr < 15.
      DO 5 TIMES.
        PERFORM writeform USING 'LINEFEED' 'MAIN'.
      ENDDO.
    ENDIF.
    added by ganesh for allding line before ECC No.
    IF it_ekko-bsart NE 'ZIM'.               " IF EXPORT NO NEED TO PRINT ECC.
      PERFORM writeform USING 'LIN' 'MAIN'.
      PERFORM writeform USING 'WERKS_TAX_DETAIL' 'MAIN'.
    ENDIF.
    end of change
     MFLAG = 'Y'.
    PERFORM writeform USING 'TERMS_VAL' 'MAIN'.
    LOOP AT it_konv1 WHERE knumv EQ it_ekko-knumv.
      mkschl = it_konv1-kschl.
      mchgamt = 0.
      LOOP AT it_konv_ftr WHERE knumv EQ it_konv1-knumv
                           AND kschl EQ mkschl.
        mchgamt = mchgamt + it_konv_ftr-kwert.
      ENDLOOP.
        For Japanies Yen "RTDK906759
      IF it_ekko-waers = 'JPY'.
        mchgamt = mchgamt * 100.
      ENDIF.
        End for japaies Yen
      mfamt = mfamt + mchgamt.
      IF mchgamt LT '0'.
        mchgamt = mchgamt * ( -1 ).
      ENDIF.
      READ TABLE it_t685t_ftr WITH KEY kschl = mkschl.
      PERFORM writeform USING 'TERMS_FTR_VAL' 'MAIN'.
      mlctr = mlctr + 1.
    ENDLOOP.
    mflag = 'T'.
    CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
      EXPORTING
        amt_in_num         = mfamt
      IMPORTING
        amt_in_words       = mfword
      EXCEPTIONS
        data_type_mismatch = 1
        OTHERS             = 2.
    CONDENSE mebeln.
    nmebeln = it_ekko-ebeln.
    REFRESH tline.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        id                      = 'F01'
        language                = sy-langu
        name                    = nmebeln
        object                  = 'EKKO'
      TABLES
        lines                   = tline
      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.
    ENDIF.
*---- CHANGED BY MATHEW BECAUSE THIS STATMENT WORKING FINE IN 300 BUT NOT IN 500C.
   LOOP AT ZTEXT.
     IF ZTEXT-TEXT1 IS NOT INITIAL.
       PERFORM WRITEFORM USING 'TERMS_COND_VAL_PAY' 'MAIN'.
     ENDIF.
     MPAY_FLAG = 'Y'.
   ENDLOOP.
    READ TABLE it_t052u WITH KEY zterm = it_ekko-zterm.
    LOOP AT it_t052u WHERE zterm EQ it_ekko-zterm.
      IF it_t052u-text1 IS NOT INITIAL.
        PERFORM writeform USING 'TERMS_COND_VAL_PAY' 'MAIN'.
      ENDIF.
      mpay_flag = 'Y'.
    ENDLOOP.
    PERFORM writeform USING 'TERMS_COND_VAL' 'MAIN'.
    LOOP AT tline.
      IF tline-tdline IS NOT INITIAL.
        PERFORM writeform USING 'TERMS_COND_VAL_HDR' 'MAIN'.
      ENDIF.
      CONDENSE txt.
    ENDLOOP.
    PERFORM writeform USING 'FTR' 'FTR_LIN3'.
    PERFORM writeform USING 'FTR_LIN1' 'FTR_LIN1'.
    CALL FUNCTION 'END_FORM'.
ENDLOOP.                    "   It_ekko.
CALL FUNCTION 'CLOSE_FORM'
   IMPORTING
   RESULT                         = itcpp
RDI_RESULT                     =
   TABLES
     otfdata                        = otf
   EXCEPTIONS
     unopened                       = 1
     bad_pageformat_for_print       = 2
     send_error                     = 3
     spool_error                    = 4
     codepage                       = 5
     OTHERS                         = 6.
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.                    " Process
*&      Form WRITEFORM
      text
     -->P_0150   text
     -->P_0151   text
FORM writeform USING    value(p_0150)
                         value(p_0151).
CALL FUNCTION 'WRITE_FORM'

Hi
I think some basis related configuartions to be done
Try like this and inform me
A cyclic job runs, which processes the messages seen in the SOST queue.
Are you sure it's not the frequency of the cyclic job, rather than the
number of messages in the queue, that you are observing? In messages
that are queued and before the cyclic job runs, "wait for comm. service"
is the normal status.
If you mean that there are always 4 items queued in SOST regardless of
the cyclic send job, then I have no ideas. I would have thought there
was no way to do that.
when the send job runs it just never
picks them up & sends them, while it picks up many others. The send job
is somehow blind to these; no error message occurs. In this case, I
'delete' them from the queue (in SOST) and then 'undelete' (drop down
menu -> /Go to /Deleted Items) them and then re-queue them. THEN they
actually get picked up & sent when the next cyclic send job executes.
Regards
Pavan

Bridge CS6: Output to Web or PDF - insufficient disk space..

I have recently installed the CS6 cloud version of Bridge, but now get this error when trying to produce (or refresh) a contact sheet using Output to Web or PDF - There is insufficient disk space to complete this operation
The error occurs no matter what the file size is, or if multiple of single files are selected - and as the sole application open. I'm running the application in OS X 10.8, with 8GB of RAM and 512MB of VRAM, so disk space doesn't seem to be the issue?
I've just installed the lastest Bridge update, but this has made no difference. Thanks for your feedback in advance..

I've found an old post which highlights a USERS folder conflict?
Without any significant knowledge about working over a network I do know Bridge uses a Cache file on a user related base. So it might be possible it confuses the two folders if you have both company and private network based on the same user name.
But as said, just a wild guess. If you need to work over a network try the blog from the Image Archivist, he also used to hang around here in the past:
http://imagearchivist.blogspot.nl

My goal: "convert into pdf" -- the file is instantly saved with the same name as pdf. feasible?

Good evening dear experts,
i use Adobe Acrobat 9 pro extend to convert word, ppt, jepgs etc. into pdfs.
No if i
1) convert a ppt into a pdf: it asks --> "save as" --> converts --> opens the file
2) convert a jpeg into a pdf: it instantly --> opens the file as pdf --> i need to save it manual under "save as"
In both cases i want to
my goal: "convert into pdf" --> the file is instantly saved with the same name as pdf
WITHOUT asking me "save as" + "opening of the file".
Is the possible, and if yes, HOW ?
A fast answer is very very much appreciated, for i have to convert hundreds of files tonight in order to get it into 1 pdf
Thx and greetings from Germany,
Julia

We are nearly there!
A] - righclick "convert-to-method": @Bill: thx again, your approach worked for ppt, doc-files etc.
2 problems:
1) exception: for jpegs/bmps it doesn't work (the file is still opened after conversion, strange).
2) the output-folder. it only accepts the standard "output-folder documents/*.pdf" (which is a step further but not my end-goal). If i choose another output-folder via "browse", this setting is NOT SAVED (even after clicking on "accept" + "ok").
my goal: the the file should be automatically saved in THE SAME folder the original file is in (seems that can't be achieved and the standard folder is the only thing where to convert in?).
Personal background for understanding: i have many folders with several ppts in it. Once i send it out to a customer, i always have to convert it into a pdf. thats why i want to save time (i know that i can convert it directly + send per mail, but i want an up-to-date copy of the pdf in the folder as well).
B] - "the automated solution"- @Sandeep:
i just watched your link http://tv.adobe.com/watch/acrobat-tips-and-tricks/automating-tasks-in-acrobat/
about batch processing and i think its really helpful if i want to convert ALL of the files in one folder.
1 question regarding this: are the subfolders also affected?
As i understood from the video, i choose 1 "watched folder" and a "destination folder" (can be the same). E.g i have 1 big folder "designs" with many subfolders. I create a batch converting ppts to pdf to "the same folder" Once i run my batch, it converts ppts in the chosen folder "designs" + all subfolders into the same folder, right?
If this is the case, i get too many pdfs, for i only need the latest ppt-version to be converted (copies of old ppts are also in the files) ;(.
Do you have an idea how can i solve this?
Now we are very near to the end-solution of my goal:
i need this option "to the same folder" in my general settings when i convert a file via right-click. ATM it only works with the standard-folder documents/*.pdf
In A], my files are now instantly saved with the same name in 1 specific folder. I would be completely happy, if this folder would be alwys the same as the one with the original file (and not 1 specific folder)
2nd problem with a]: it does not apply to picture files (bmp, jpegs..)
So if we could solve this, i would be a completely happy girl
Guys, you are great, thx again for the whole struggle with my concerns!!

Setting output file name in export transaction data package

Hi all,
I am running an "export transaction data" package in the data manager. I wanted to set the output file name so that it will be a constant value. I wrote the following in the package editor:
INFO(%FILE%,\ROOT\WEBFOLDERS\COLMOBIL\VEHICLES1\DATAMANGER\DATAFILES\vehicles_to_pca2.txt)
TASK(/CPMB/TD_FILE_TARGET,FULLFILENAME,%FILE%)
The system run the package and reported success but the file was not created. When i did the same with an existing file name, it was not updated.
When I run the same package with the following PROMPT command instead of the INFO command:
PROMPT(OUTFILE,,"Please enter an output file",Data files (*.txt)|*.txt|All files(*.*)|*.*)
The system works fine.
Any ideas?
TIA
Avihay

I am sad to report that apparently Adobe does not do a very good job with the PDF printer. I have just spent over an hour with support to get the answer we can not help you. I guess I will have to spend $50 for NovaPDF to handle my problem. It's a shame when a superior overall product like Acrobat is not able to keep up with the knockoffs on the small things.

Output file name in publication object

Hello,
I trying to change the default delivery behavior of publication object via C#.
I have a publication object which contain some source reports (CR 2008) and CR report which is the dynamic recipient source.
I need to retrieve full file name and path of output report from dynamic recipient source (e.g. C:\Myfolder\Recipient_ID\recipient_name.doc), and retrieve only file name from dynamic recipient source and send file via email (e. g. recipient_name.doc)
I also want to manipulate some additional parameters from dynamic recipient source like report date (not start date of publication). Default behavior of CMC is that I have only few placeholders.
Can I do it programatically?
Thanks.

Hi Leon.
I have the same trouble with publication filename.
How can I proceed to assign dinamicaly a filename to a bobj publication?
I have some crystal Reports that take data from SAP Queries.
And I have joined together the crystals in one publication on the BOBJ portal.
My problem start when I try to assign a filename to the PDF result of the publication.
The options I have are not sufficient because I need it to be according to the filter of the SAP queries,
just to know exactly by the filename, what's the Crystal PDF result about.
I have that descriptions in a SAP queryable infoobject.
Is it possible to do what I want.
Please how can I proceed or how could I do something similar.

How to programmatically disable prompts for output file names in Acrobat X

My code to programmatically disable output file names (below) is not working on a Windows 7 64-bit machine using Acrobat Distiller X. It works perfectly on a Windows XP machine with Acrobat Distiller 8.
The latest API Reference I was able to find is dated June 2008. My logic follows this convention.
I have confirmed that the registry key is updated as specified below. I have also confirmed that I am able to write to the directory indicated.
Please provide any suggestions to resolve.
Thank You!
~Lori
'Create the Registry Key where Acrobat looks for a file name
        CreateNewRegistryKey HKEY_CURRENT_USER, _
                     "Software\Adobe\Acrobat Distiller\PrinterJobControl"
'Put the output filename (FilePath) where Acrobat could find it
        SetRegistryValue HKEY_CURRENT_USER, _
                 "Software\Adobe\Acrobat Distiller\PrinterJobControl", _
                 C:\Program Files (x86)\Microsoft Office\Office12\MSACCESS.EXE, _
                 T:\PDF Files\Current Week\NFS_Lori,Test.pdf

I remember seeing that the problem is thunking. A little more specifically, because it's a 32-bit driver but a 64-bit executable, there's a 32-bit system spooler process which will always show up as the EXE name.

Including CMYK profile in InDesign PDF Export

Hi,
I'm trying to export from InDesign a pdf file, which includes embedded profiles both in RGB and CMYK images. There are two linked images in my INDD layout, one embedded with RGB profile and another with CMYK profile.
In Output I have the settings NO COLOR CONVERSION.
When in PROFILE INCLUSION POLICY I try to include profiles to images, I only can have the CMYK profile with the setting INCLUDE ALL PROFILES. But with that setting also native CMYK elements like text will be tagged with a profile, and that I do not want to have.
With the RGB image the profile is included.
Question # 1: Why do not CMYK profiles will be included with the settings: INCLUDE TAGGED SOURCE PROFILES and INCLUDE ALL RGB AND TAGGED CMYK SOURCE PROFILES??? According to the help they should do that.
Question #2: Is the item CREATE TAGGED PDF in the GENERAL tab related to this somehow?
Best Regards
Erkki H

If you choose Include All RGB and Tagged Source CMYK Profiles any placed CMYK objects that have profiles that match the document's CMYK profile are considered Device CMYK, and no conversion is necessary at output. So in this PDF I have the same image profiled with the document's GRACol CMYK profile (top) and US Newsprint (bottom). Acrobat's Output Preview tells me that the top image is Device CMYK (it matches the PDF/X Output Intent) and the bottom image has the US Newsprint profile:
The bottom image sampled
But with that setting also native CMYK elements like text will be tagged with a profile, and that I do not want to have.
If you don't use the PDF/X-4 standard and change the output to Include All Profiles then all color including native ID colors gets profiled. In that case my top image would have the GRACol profile and as you noted any native colors would also be profiled.
I'm not following why placed image color should be profiled, but a native ID color shouldn't?

Soft-Proofing with .icc color profiles

Hello!
I'm currently working on a book in InDesign. I've calibrated my monitor with X-rite, and have installed an .icc profile from my outside printer (Blurb Books). Of course when I use it to soft-proof, I see a change on my monitor, so if I dion't like what I see (how it will print), I would have to go back to my working space and make changes, etc and keep rechecking. This seems so weird to me yet nowhere in all the forums and internet have I run across an answer to my question:
Why not just work entirely in this .icc profile so one doesn't have to go back and forth? You'd see immediately what you're going to get, even though it may not look as pretty on the monitor set in another color space?
It seems so obvious to me that I know I must be missing something here (as I usually do the obvious), as no-one has addressed it that I can find, anywhere, even Blurb support. They don't even understand what I'm asking!
thanks!

In fact, that is one perfectly valid method of working, and I would not have a problem at all using that profile as the working space in ID (I have a number of printer supplied profiles that I rotate, depending onthe destination of the job). But there's a downside to working on images in a device-specific output space. It limits your ability to use the same image in multiple output scenarios, and many (most) output profiles have a smaller gamut (sometimes significantly smaller) than a device-independent RGB space like Adobe RGB, so you lose some colors. That's going to happen no matter what when you convert for output, but if you do your editing and save in the output space, those losses are permanent, even if you later want to ooutput on a different device with larger gamut capability. Profile-to-profile conversion never adds new colors.

My code not give error nut not give pdf report output

hi master
sir see my code not give error nut not give pdf report output
String reportSource = "./WEB-INF/reports/mfa.jasper";
String reportDest = "./reports/mfa1.html";
Connection conn = null ;
Statement msqlStatement = null ;
ResultSet mrs = null ;
Connection mconn = null ;
ExternalContext econtext = getExternalContext();
InputStream stream = econtext.getResourceAsStream(reportSource);
if (stream == null) {
throw new IllegalArgumentException("Unknown report name '" + reportSource
+ "' requested");
try {
String mfat = ac_categoryDataProvider.getCachedRowSet().getDataSourceName();
javax.naming.Context mctx = new javax.naming.InitialContext() ;
DataSource mds = (DataSource)mctx.lookup(mfat);
Connection mcon= mds.getConnection();
mcon.setAutoCommit(false) ;
JasperPrint jasperPrint = null;
//getSessionBean1().getTripRowSet(),
//getSessionBean1().getAc_categoryRowSet(), mfat getSessionBean1().getAc_categoryRowSet()
jasperPrint = JasperFillManager.fillReport(stream, null,mcon);
JRExporter exporter = null;
HttpServletResponse response = (HttpServletResponse)econtext.getResponse();
FacesContext fcontext = FacesContext.getCurrentInstance();
exporter = new JRPdfExporter();
exporter.setParameter(JRExporterParameter.JASPER_PRINT, jasperPrint);
exporter.setParameter(JRExporterParameter.OUTPUT_STREAM,
response.getOutputStream());
exporter.exportReport();
fcontext.responseComplete();
} catch (Exception ex) {
log(" Error Description" , ex);
error("Error counting rows: " + ex.getMessage() );
error("Error counting rows: " + ex );
please give me idea
thank's
aamir

Thanks Sven.
The query works but the other way. The output is for all the targets, not for the respective target which we select from :p1_target.
select target_name,target_type, column_label,
warning_threshold,critical_threshold,occurrence_count
from sysman.MGMT$TARGET_METRIC_SETTINGS@crmodem
where target_name in (select MEMBER_TARGET_NAME from MGMT$TARGET_FLAT_MEMBERS@crmodem
where upper(AGGREGATE_TARGET_NAME) like '%X' || :P1_TARGET || '%')
Thanks again.

PO output with XML and PDF format

Hi All,
I need PO output with XML and PDF format. when I give print it shld go to vendor with xml and pdf format through mail. please kindly guide me on this .
Thanks in advance
JK

hi,
try this code to get in pdf form
REPORT zsuresh_test.
Variable declarations
DATA:
w_form_name TYPE tdsfname VALUE 'ZSURESH_TEST',
w_fmodule TYPE rs38l_fnam,
w_cparam TYPE ssfctrlop,
w_outoptions TYPE ssfcompop,
W_bin_filesize TYPE i, " Binary File Size
w_FILE_NAME type string,
w_File_path type string,
w_FULL_PATH type string.
Internal tables declaration
Internal table to hold the OTF data
DATA:
t_otf TYPE itcoo OCCURS 0 WITH HEADER LINE,
Internal table to hold OTF data recd from the SMARTFORM
t_otf_from_fm TYPE ssfcrescl,
Internal table to hold the data from the FM CONVERT_OTF
T_pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE.
This function module call is used to retrieve the name of the Function
module generated when the SMARTFORM is activated
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = w_form_name
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
fm_name = w_fmodule
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Calling the SMARTFORM using the function module retrieved above
GET_OTF parameter in the CONTROL_PARAMETERS is set to get the OTF
format of the output
w_cparam-no_dialog = 'X'.
w_cparam-preview = space. " Suppressing the dialog box
" for print preview
w_cparam-getotf = 'X'.
Printer name to be used is provided in the export parameter
OUTPUT_OPTIONS
w_outoptions-tddest = 'LP01'.
CALL FUNCTION w_fmodule
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
control_parameters = w_cparam
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
output_options = w_outoptions
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
job_output_info = t_otf_from_fm
JOB_OUTPUT_OPTIONS =
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
t_otf[] = t_otf_from_fm-otfdata[].
Function Module CONVERT_OTF is used to convert the OTF format to PDF
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
ARCHIVE_INDEX = ' '
COPYNUMBER = 0
ASCII_BIDI_VIS2LOG = ' '
PDF_DELETE_OTFTAB = ' '
IMPORTING
BIN_FILESIZE = W_bin_filesize
BIN_FILE =
TABLES
otf = T_OTF
lines = T_pdf_tab
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
ERR_BAD_OTF = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
To display File SAVE dialog window
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
WINDOW_TITLE =
DEFAULT_EXTENSION =
DEFAULT_FILE_NAME =
FILE_FILTER =
INITIAL_DIRECTORY =
WITH_ENCODING =
PROMPT_ON_OVERWRITE = 'X'
CHANGING
filename = w_FILE_NAME
path = w_FILE_PATH
fullpath = w_FULL_PATH
USER_ACTION =
FILE_ENCODING =
EXCEPTIONS
CNTL_ERROR = 1
ERROR_NO_GUI = 2
NOT_SUPPORTED_BY_GUI = 3
others = 4
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Use the FM GUI_DOWNLOAD to download the generated PDF file onto the
presentation server
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = W_bin_filesize
filename = w_FULL_PATH
FILETYPE = 'BIN'
APPEND = ' '
WRITE_FIELD_SEPARATOR = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = ' '
WRITE_LF = 'X'
COL_SELECT = ' '
COL_SELECT_MASK = ' '
DAT_MODE = ' '
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = ' '
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH =
tables
data_tab = T_pdf_tab
FIELDNAMES =
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
reward points if useful,
siri

Determine ICC output profile (name) in PDF/X output intent

Similar Messages

Maybe you are looking for