Wf_notification_out table dropped, how to recreat urgent help !!!!!!!!!!!!

Hi all,
I was following tech note *"Workflow Mailers Not Sending Notifications [ID 560472.1]"*.
As per this tech note i dropped wf_notification_out table, i was not able to take backup of this table beacuse of space issues.
As the table size was 10 GB. Now i dropped the table. How to recreate this table?
I have another test Instance, from this Instance i tried to perform export and import nut export is not working for this table.
I have cold backup, but it will take long time to restore, flashback is not enabled.
This is development Instance (critical).
Any inputs and suggestion on this is greatly appreciated.
Thanks in advance.

Hi Hussein,
As always thanks for your prompt response.
When im trying to use the script ist giving error:
SQL> @wfntfqup APPS **** APPLSYS
declare
ERROR at line 1:
ORA-20000: Oracle Error = 100 - ORA-01403: no data found
ORA-06512: at line 87
As per the tech note *560472.1*
1. Backup the Oracle Alert messages that are unprocessed on the WF_NOTIFICATION_OUT.
create table APPLSYS.AQ$WF_NOTIFICATION_OUT_BAK
as
select *
from APPLSYS.AQ$WF_NOTIFICATION_OUT
where CORR_ID like 'APPS:ALR%' and msg_state in ('READY','WAIT');
But unfortunately i missed this step beacues of space issues i thought *@wfntfqup.sql* will create new wf_notification_out table, but this script is just to create queues it seems.
Now the object wf_notification_out does not exists.
So please suggest me accordingly.

Similar Messages

OIM 10g Database App Table GTC Issue Provisioing Failing --- Urgent Help :(

I am new to OIM.
I installed DB Table GTC pointing to one of the MySql table.
Now when tried to provisioin a user from amdin screen after approval it is faling at Systemvalidation stage with status "Rejected"
The meesage is "Setting task status... "Approve" does not correspond to a known Response Code. Using "UNKNOWN"."
Any idea on how to resolve the same?
Thanks,
Anirban
Edited by: 944058 on Sep 18, 2012 9:21 AM

I found where the issue was.
probbaly the connector was not configured properly.
In the process detials there is a task
System validation
I added response code "Approve" and "Approved" to "C" (earllier not there) and added "create user" task for both of them as "Task to generate"
Then direct assignment worked

DiskSpace Report Alert Error - Urgently Help Needed

Hell All
I have been take the scripts from https://gallery.technet.microsoft.com/scriptcenter/Disk-Space-Report-Reports-98e64d65
Which is working fine , but my end of scripts out Auto Disclaimer is added and the output has little bit collapsed
Disclaimer HAS BEEN added to the waring and critical Table which is mentioned on this script which is underlined now. and how avoid this
Urgent help is needed
# Check disk space and send an HTML report as the body of an email. #
# Reports only disks on computers that have low disk space. #
# Author: Mike Carmody #
# Some ideas extracted from Thiyagu's Exchange DiskspaceHTMLReport module. #
# Date: 8/10/2011 #
# I have not added any error checking into this script yet. #
# Continue even if there are errors
$ErrorActionPreference = "Continue";
# Items to change to make it work for you.
# EMAIL PROPERTIES
# - the $users that this report will be sent to.
# - near the end of the script the smtpserver, From and Subject.
# REPORT PROPERTIES
# - you can edit the report path and report name of the html file that is the report.
# Set your warning and critical thresholds
$percentWarning = 15;
$percentCritcal = 10;
# EMAIL PROPERTIES
# Set the recipients of the report.
$users = "[email protected]"
#$users = "[email protected]" # I use this for testing by uing my email address.
#$users = "[email protected]", "[email protected]", "[email protected]"; # can be sent to individuals.
# REPORT PROPERTIES
# Path to the report
$reportPath = "D:\Jobs\DiskSpaceQuery\Reports\";
# Report name
$reportName = "DiskSpaceRpt_$(get-date -format ddMMyyyy).html";
# Path and Report name together
$diskReport = $reportPath + $reportName
#Set colors for table cell backgrounds
$redColor = "#FF0000"
$orangeColor = "#FBB917"
$whiteColor = "#FFFFFF"
# Count if any computers have low disk space. Do not send report if less than 1.
$i = 0;
# Get computer list to check disk space
$computers = Get-Content "servers_c.txt";
$datetime = Get-Date -Format "MM-dd-yyyy_HHmmss";
# Remove the report if it has already been run today so it does not append to the existing report
If (Test-Path $diskReport)
Remove-Item $diskReport
# Cleanup old files..
$Daysback = "-7"
$CurrentDate = Get-Date;
$DateToDelete = $CurrentDate.AddDays($Daysback);
Get-ChildItem $reportPath | Where-Object { $_.LastWriteTime -lt $DatetoDelete } | Remove-Item;
# Create and write HTML Header of report
$titleDate = get-date -uformat "%m-%d-%Y - %A"
$header = "
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>
<title>DiskSpace Report</title>
<STYLE TYPE='text/css'>

</style>
</head>
<body>
<table width='100%'>
<tr bgcolor='#CCCCCC'>
<td colspan='7' height='25' align='center'>
<font face='tahoma' color='#003399' size='4'><strong>AEM Environment DiskSpace Report for $titledate</strong></font>
</td>
</tr>
</table>
Add-Content $diskReport $header
# Create and write Table header for report
$tableHeader = "
<table width='100%'><tbody>
<tr bgcolor=#CCCCCC>
<td width='10%' align='center'>Server</td>
<td width='5%' align='center'>Drive</td>
<td width='15%' align='center'>Drive Label</td>
<td width='10%' align='center'>Total Capacity(GB)</td>
<td width='10%' align='center'>Used Capacity(GB)</td>
<td width='10%' align='center'>Free Space(GB)</td>
<td width='5%' align='center'>Freespace %</td>
</tr>
Add-Content $diskReport $tableHeader
# Start processing disk space reports against a list of servers
foreach($computer in $computers)
$disks = Get-WmiObject -ComputerName $computer -Class Win32_LogicalDisk -Filter "DriveType = 3"
$computer = $computer.toupper()
foreach($disk in $disks)
$deviceID = $disk.DeviceID;
$volName = $disk.VolumeName;
[float]$size = $disk.Size;
[float]$freespace = $disk.FreeSpace;
$percentFree = [Math]::Round(($freespace / $size) * 100, 2);
$sizeGB = [Math]::Round($size / 1073741824, 2);
$freeSpaceGB = [Math]::Round($freespace / 1073741824, 2);
$usedSpaceGB = $sizeGB - $freeSpaceGB;
$color = $whiteColor;
# Set background color to Orange if just a warning
if($percentFree -lt $percentWarning)
$color = $orangeColor
# Set background color to Orange if space is Critical
if($percentFree -lt $percentCritcal)
$color = $redColor
# Create table data rows
$dataRow = "
<tr>
<td width='10%'>$computer</td>
<td width='5%' align='center'>$deviceID</td>
<td width='15%' >$volName</td>
<td width='10%' align='center'>$sizeGB</td>
<td width='10%' align='center'>$usedSpaceGB</td>
<td width='10%' align='center'>$freeSpaceGB</td>
<td width='5%' bgcolor=`'$color`' align='center'>$percentFree</td>
</tr>
Add-Content $diskReport $dataRow;
Write-Host -ForegroundColor DarkYellow "$computer $deviceID percentage free space = $percentFree";
$i++
# Create table at end of report showing legend of colors for the critical and warning
$tableDescription = "
</table><br><table width='20%'>
<tr bgcolor='White'>
<td width='10%' align='center' bgcolor='#FBB917'>Warning less than 15% free space</td>
<td width='10%' align='center' bgcolor='#FF0000'>Critical less than 10% free space</td>
</tr>
Add-Content $diskReport $tableDescription
Add-Content $diskReport "</body></html>"
# Send Notification if alert $i is greater then 0
if ($i -gt 0)
foreach ($user in $users)
Write-Host "Sending Email notification to $user"
$smtpServer = "MySMTPServer"
$smtp = New-Object Net.Mail.SmtpClient($smtpServer)
$msg = New-Object Net.Mail.MailMessage
$msg.To.Add($user)
$msg.From = "[email protected]"
$msg.Subject = "Environment DiskSpace Report for $titledate"
$msg.IsBodyHTML = $true
$msg.Body = get-content $diskReport
$smtp.Send($msg)
$body = ""
https://gallery.technet.microsoft.com/scriptcenter/Disk-Space-Report-Reports-98e64d65

Hi,
I want to double confirm which version are you used, please also refer to scripting center for the similar scripts:
Disk Space Monitoring - HTML EMAIL Report
http://gallery.technet.microsoft.com/scriptcenter/6e935887-6b30-4654-b977-6f5d289f3a63
Monitor Free Disk Space Information on a Computer
http://gallery.technet.microsoft.com/scriptcenter/04c29c84-5ecc-4bf6-8dd4-2940db63d9f3
List Available Disk Space
http://gallery.technet.microsoft.com/scriptcenter/7fa38863-ad6f-4f46-ac91-9b7d4a30f52b
Disk Space monitoring
http://gallery.technet.microsoft.com/scriptcenter/fd4f5235-1a80-41ed-87e2-189278fd376c
If you encounter any difficulties when customizing the scripts, you may submit a new question in
The Official Scripting Guys Forum! which is a best resource for scripting related issues.
Best Regards,
Allen Wang

URGENT HELP PLEASE - drop index hangs on SAP

Hi all,
OS = Linux
DBVersion = Oracle10.2.0.2
Need some urgent help advise please on how to get around this problem.
On a SAP system, am trying to drop six indexes, largest is 300MB and smallest is 50MB.
I tried running drop index sapusername.index_name on the 50MB index via SQL*Plus and it seems to be taking forever. Can anyone please suggest if there is anything I can check on the database on why it is taking such a long time?
I can leave it to run overnight but worried that when I come back the next day, it will still be hanged. Is there any quick way of dropping the index, .i.e. drop immediate ... :-)
Am not using SAP's BRTOOLs as it is also hanging from there and the SAP-ADMIN had approved for the DBA to drop it from our end instead.
Any response and advise on this will be very much appreciated.
From Google'ing, I found some that mentioned that the fault could be because of the existence of the constraints on the table that I am dropping the index of.
Checking the table, it has 17 SYS_ named constraints. None of these constraints have INDEX_NAME that refers to the indexes that am dropping.
Should I disable the constraints and then run the drop index again?
Thanks in advance.
Edited by: user649596 on Apr 13, 2010 11:49 PM

Should I disable the constraints and then run the drop index again?NO, certainly not !!
Ask SAP Support on what methods you should use to diagnose the "hang" and what your next step(s) should be.
Hemant K Chitale

Urgent help needed!! Layout table and Draw layout cell dissapeared.

I need some urgent help. I'm using CS3 but for a while my
Layout Table and Draw Layout Cell icons appear greyed and can't use
them at all. Is there any kind soul out there who knows how to fix
this? I'm going nuts trying all the possible options but none seem
to work.
Help please!!!!!!

> How would you about designing a page without using html?
You don't. But I don't recall suggesting that you not use
HTML. I just
suggested that you use best-practice HTML, no? Or maybe you
meant to ask
how you would go about building your site without learning
HTML? In that
case, I think you are outta luck. Using DW without knowing
HTML is a very
punishing experience, I'm afraid.
> PS: A virtual box of 12 bottles of Moet Chandon is
already on your way!!
I'd prefer Cristal, please.
Murray --- ICQ 71997575
Adobe Community Expert
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.projectseven.com/go
- DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs,
Tutorials & Resources
==================
"Untersberg" <[email protected]> wrote in
message
news:g4tj9a$m5o$[email protected]..
> Ahhhhhh!!!!! They came up!!!! They came up again!!
> I was on standard mode. Now going back to your
suggestion, which I really
> appreciate. How would you about designing a page without
using html? I'm
> just
> redesigning my website at the moment and need it to get
going urgently,
> hence
> the reluctance to start learning HTML at the moment.
I'll do after but I
> need
> to get this up and running fairly quickly.
>
> Cheers.
>
> PS: A virtual box of 12 bottles of Moet Chandon is
already on your way!!
>

Urgent help!!how to count the no of fields retrieved by recordset??

hello friends,
i need to count the no of fields and not rows returned by the recordset
plz. help me soon,
Ex. rs.executeQuery("select * from table");
now how many columns will be there in the table,i need to know that
thanx in advance,its urgent so reply soon,
Vishal

hey, i am getting an error as follows
cannot resolve symbol
symbol : method getMetaData (java.lang.String)
location: class front1
ResultSetMetaData rmd= getMetaData(globals.s);
^
1 error
can u expand the code a bit , so this error is solved ?
thanx again

Urgent help needed! How do I use Time Machine to restore my System disc?

I need urgent help. First I discovered that my Library folder was empty. When I tried to restore the library to an earlier version via Timemachine it would not let me because it said the system was in use. Trying to start-up from another system on another internal drive and using various disc repairs resulted in the whole volume to disappear.
Question is how do I get the earlier system from my Timemachine backup drive? I have another Mac where I can attach the TIme machine HD to. Can I restore it from there and then copy the files over to my corrupted disc? All my programs are on there as well, which would take me days to re-install and then there are the other bits, emails, photos etc. Can anyone help?

lightandmagic wrote:
Thanks for your sympathy Pondini and the encouragement. You just reminded me that I will lose a whole working day restoring !!! Do you happen to know where the emails are kept on the system and the address book? I better nick those as well as my other life sustaining bits before its too late. I don't trust anything any more.
I don't know what you mean by "nick those." Time Machine will put everything back the way it was at the time of the backup (unless you'd excluded things).
Do you mean you want to restore things from the period after the backup you selected?
For Address Book or Apple Mail, start the application, then +Enter Time Machine,+ navigate to your latest backup, and you'll have a prompt to restore. For Mail, you can restore an entire mailbox. When you exit from TM, you'll see a new folder in your Mail sidebar with the restored items, so you can sift through them and move, delete, or leave them as you wish.
Other items, you'll have to locate and restore via the Finder > Time Machine.

Urgent help needed - new to Macs, accidently cut and paste over top of photo folder and now no sign of folder or file, no auto back-up in place, how can I restore photos pls

Urgent help needed - new to Macs, accidently cut and paste over top of photo folder and now no sign of folder or file, no auto back-up in place, how can I restore photos pls

Thanks for prompt reply, yes we have tried that but have now closed down the browser we where the photos were.
We haven't sent up time machine, do you know whether there is any roll-back function on a Mac?
Thanks

How to create Search Help for a field in Table control !!

Hello Friends,
              I like to know - How to create Search Help for a field in Table control. Is it possible, if it is please share ur knowledge, I wud be happy if U provide some source code example for this.
Thanks,
Senthil

Check the sample code:
*& Include           ZSRO_MPRN_SEARCH                                 *
MODULE PSTLZ_F4 INPUT
MODULE pstlz_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
        stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR:   lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl     = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = c_x
      determine_loop_index = c_x
    TABLES
      dynpfields           = lt_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
    MOVE lt_dynpfields-fieldvalue TO ws_outcode.
    ws_len = STRLEN( lt_dynpfields-fieldvalue ).
    IF ws_len GE 7.
      ws_len = ws_len - 3.
     ws_icode = ws_code+ws_len(3).
      lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
      CONCATENATE lt_dynpfields-fieldvalue '%'
          INTO ws_outcode.
      CONDENSE lt_dynpfields-fieldvalue.
   REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
    ELSE.
      CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
        INTO ws_outcode.
    ENDIF.
   ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR:   lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl     = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = lt_dnpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode.
    ELSE.
MPRN blank and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1.
    ENDIF.
ELSE.
MPRN exist and Post code exist
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode AND
                   mprn EQ lt_dnpfields-fieldvalue.
    ELSE.
MPRN exist and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE mprn EQ lt_dnpfields-fieldvalue.
    ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MPRN'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select MPRN'
      value_org       = 'S'
    TABLES
      value_tab       = i_mprn1 "lt_mprn
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
    IF sy-subrc EQ 0.
Updating post code
      CONCATENATE i_mprn1-outcode i_mprn1-incode
                    INTO ws_postcode
                         SEPARATED BY space.
      MOVE ws_postcode TO i_mprn-post_code.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
      ws_dynpfld-fieldvalue = ws_postcode .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
Updating MPRN
      MOVE i_mprn1-mprn TO i_mprn-mprn.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-MPRN'.
      ws_dynpfld-fieldvalue = i_mprn1-mprn .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
    ENDIF.
ELSEIF sy-subrc EQ 2.
    MESSAGE s005(zspa) WITH ws_postcode .
ENDIF.
ENDMODULE.                    "PSTLZ_F4 INPUT
MODULE MPRN_F4 INPUT
MODULE mprn_f4 INPUT.
reading post code
DATA: stepl TYPE systepl,
       stepl_index TYPE systepl.
CLEAR: stepl, stepl_index.
CLEAR:   lt_returntab,lt_dynpfields,i_mprn1.
REFRESH: lt_returntab,lt_dynpfields,i_mprn1.
lt_dynpfields-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields-stepl     = stepl.
APPEND lt_dynpfields. CLEAR lt_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = c_x
      determine_loop_index = c_x
    TABLES
      dynpfields           = lt_dynpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields INDEX 1.
ENDIF.
ws_outcode = lt_dynpfields-fieldvalue.
stepl_index = lt_dynpfields-stepl.
REPLACE '*' WITH ' ' INTO lt_dynpfields-fieldvalue.
IF NOT lt_dynpfields-fieldvalue IS INITIAL.
    MOVE lt_dynpfields-fieldvalue TO ws_outcode.
    ws_len = STRLEN( lt_dynpfields-fieldvalue ).
    IF ws_len GE 7.
      ws_len = ws_len - 3.
     ws_icode = ws_code+ws_len(3).
      lt_dynpfields-fieldvalue = lt_dynpfields-fieldvalue+0(ws_len).
      CONCATENATE lt_dynpfields-fieldvalue '%'
          INTO ws_outcode.
      CONDENSE lt_dynpfields-fieldvalue.
   REPLACE ws_icode WITH ' ' INTO lt_dynpfields-fieldvalue.
    ELSE.
      CONCATENATE lt_dynpfields-fieldvalue+0(4) '%'
        INTO ws_outcode.
    ENDIF.
   ws_ocode = ws_code+0(3).
ENDIF.
reading MPRN
CLEAR:   lt_returntab,lt_dnpfields,i_mprn1.
REFRESH: lt_returntab,lt_dnpfields,i_mprn1.
lt_dnpfields-fieldname = 'I_MPRN-MPRN'.
lt_dnpfields-stepl     = stepl_index.
APPEND lt_dnpfields. CLEAR lt_dnpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
    TABLES
      dynpfields           = lt_dnpfields
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dnpfields INDEX 1.
ENDIF.
MPRN blank and Post code exist
IF lt_dnpfields-fieldvalue IS INITIAL.
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode.
    ELSE.
MPRN blank and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1.
    ENDIF.
ELSE.
MPRN exist and Post code exist
    IF NOT lt_dynpfields-fieldvalue IS INITIAL.
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE outcode LIKE ws_outcode AND
                   mprn EQ lt_dnpfields-fieldvalue.
    ELSE.
MPRN exist and Post code blank
      SELECT mprn ser_num sub_bud bud_name del_pt_alias
             bud_num dep_street prin_street dbl_dep_street
             dep_locty post_town county outcode incode
             lg_site_ind file_date FROM zspa_mprn INTO
             CORRESPONDING FIELDS OF TABLE i_mprn1
             WHERE mprn EQ lt_dnpfields-fieldvalue.
    ENDIF.
ENDIF.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'MPRN'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select MPRN'
      value_org       = 'S'
    TABLES
      value_tab       = i_mprn1 "lt_mprn
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    READ TABLE i_mprn1 WITH KEY mprn = lt_returntab-fieldval.
    IF sy-subrc EQ 0.
Updating MPRN
      MOVE i_mprn1-mprn TO i_mprn-mprn.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-MPRN'.
      ws_dynpfld-fieldvalue = i_mprn1-mprn .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
     ws_dynpfld-stepl = mprn-current_line.
**code changed by laxman 10.08.2005
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
Updating post code
      CONCATENATE i_mprn1-outcode i_mprn1-incode
                    INTO ws_postcode
                         SEPARATED BY space.
      MOVE ws_postcode TO i_mprn-post_code.
      CLEAR   : i_dnpfld,
                ws_dynpfld.
      REFRESH : i_dnpfld.
      ws_dyname   = 'ZSRO_MASTER_DATA'.
      ws_dynumb   = '0301'.
      ws_dynpfld-fieldname ='I_MPRN-POST_CODE'.
      ws_dynpfld-fieldvalue = ws_postcode .
      ws_dynpfld-stepl      = stepl_index.
      APPEND ws_dynpfld TO i_dnpfld.
**code changed by laxman 10.08.2005
     break gblap0.
     ws_dynpfld-stepl = mprn-current_line.
     LOOP AT i_mprn.
       MOVE i_mprn1-mprn TO i_mprn-mprn.
       MOVE ws_postcode TO i_mprn-post_code.
       MODIFY i_mprn INDEX
                mprn-current_line." transporting MPRN POST_CODE.
     ENDLOOP.
**code changed by laxman 10.08.2005
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname               = ws_dyname
          dynumb               = ws_dynumb
        TABLES
          dynpfields           = i_dnpfld
        EXCEPTIONS
          invalid_abapworkarea = 1
          invalid_dynprofield = 2
          invalid_dynproname   = 3
          invalid_dynpronummer = 4
          invalid_request      = 5
          no_fielddescription = 6
          undefind_error       = 7
          OTHERS               = 8.
      IF sy-subrc <> 0.
      ENDIF.
    ENDIF.
ELSEIF sy-subrc EQ 2.
    MESSAGE s006(zspa) WITH i_mprn1-mprn .
ENDIF.
ENDMODULE.                    "MPRN_F4 INPUT
MODULE GNTC_F4 INPUT
MODULE gntc_f4 INPUT.
DATA: BEGIN OF lt_gntc OCCURS 0,
          gntc LIKE iflot-zzgntc,
        END OF lt_gntc.
CLEAR:   lt_returntab, lt_gntc.
REFRESH: lt_returntab, lt_gntc.
lt_gntc-gntc = 'DM'.
APPEND lt_gntc. CLEAR lt_gntc.
lt_gntc-gntc = 'NDM'.
APPEND lt_gntc. CLEAR lt_gntc.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZZGNTC'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      window_title    = 'Select Gas Nomination Type Code'
      value_org       = 'S'
    TABLES
      value_tab       = lt_gntc
      return_tab      = lt_returntab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
IF sy-subrc EQ 0.
    READ TABLE lt_returntab INDEX 1.
    i_mprn-dm_ndm = lt_returntab-fieldval.
ENDIF.
ENDMODULE.                    "GNTC_F4 INPUT
*&      Module mprn1_f4 INPUT
      text
MODULE mprn1_f4 INPUT.
DATA: lt_f4          TYPE ddshretval OCCURS 0 WITH HEADER LINE,
        lt_returntab1 LIKE ddshretval OCCURS 0 WITH HEADER LINE,
        lt_dynpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE,
        lt_dnpfields1 LIKE dynpread OCCURS 0 WITH HEADER LINE.
DATA: stepl1 TYPE systepl,
        stepl_index1 TYPE systepl.
DATA : i_dnpfld1      LIKE dynpread OCCURS 0 WITH HEADER LINE,
         ws_dyname1     LIKE d020s-prog,
         ws_dynumb1     LIKE d020s-dnum,
         ws_dynpfld1    LIKE dynpread.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
         lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
         stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-POST_CODE'.
lt_dynpfields1-stepl     = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
      determine_loop_index = 'X'
    TABLES
      dynpfields           = lt_dynpfields1
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname           = 'IFLOT'
      fieldname         = 'I_MPRN-MPRN'
      searchhelp        = 'ZS_MPRN_PC'
      dynpprog          = sy-repid
      dynpnr            = sy-dynnr
    TABLES
      return_tab        = lt_f4
    EXCEPTIONS
      field_not_found   = 1
      no_help_for_field = 2
      inconsistent_help = 3
      no_values_found   = 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.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-mprn.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
    ws_dynpfld1-fieldvalue = i_mprn-mprn.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-post_code.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
    ws_dynpfld1-fieldvalue = i_mprn-post_code.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDMODULE.                 " mprn1_f4 INPUT
*&      Module pstlz1_f4 INPUT
      text
MODULE pstlz1_f4 INPUT.
CLEAR: i_dnpfld1, ws_dyname1, ws_dynumb1, ws_dynpfld1,
          lt_f4, lt_returntab1,lt_dynpfields1, lt_f4,
          stepl1, stepl_index1.
REFRESH: i_dnpfld1, lt_returntab1,lt_dynpfields1, lt_f4.
To Determine Steploop Index
lt_dynpfields1-fieldname = 'I_MPRN-MPRN'.
lt_dynpfields1-stepl     = stepl1.
APPEND lt_dynpfields1. CLEAR lt_dynpfields1.
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = sy-repid
      dynumb               = sy-dynnr
      translate_to_upper   = 'X'
      determine_loop_index = 'X'
    TABLES
      dynpfields           = lt_dynpfields1
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription = 6
      invalid_parameter    = 7
      undefind_error       = 8
      double_conversion    = 9
      stepl_not_found      = 10
      OTHERS               = 11.
IF sy-subrc EQ 0.
    READ TABLE lt_dynpfields1 INDEX 1.
ENDIF.
stepl_index1 = lt_dynpfields1-stepl.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      tabname           = 'IFLOT'
      fieldname         = 'I_MPRN-POST_CODE'
      searchhelp        = 'ZS_MPRN_PC'
      dynpprog          = sy-repid
      dynpnr            = sy-dynnr
    TABLES
      return_tab        = lt_f4
    EXCEPTIONS
      field_not_found   = 1
      no_help_for_field = 2
      inconsistent_help = 3
      no_values_found   = 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.
Update tablecontrol
READ TABLE lt_f4 WITH KEY fieldname = 'ZZPSTLZ'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-post_code.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-POST_CODE'.
    ws_dynpfld1-fieldvalue = i_mprn-post_code.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
CLEAR : i_dnpfld1, ws_dynpfld1.
REFRESH: i_dnpfld1.
READ TABLE lt_f4 WITH KEY fieldname = 'MPRN'.
IF sy-subrc = 0.
    MOVE lt_f4-fieldval TO i_mprn-mprn.
    ws_dyname1   = 'ZSRO_MASTER_DATA'.
    ws_dynumb1   = '0301'.
    ws_dynpfld1-fieldname ='I_MPRN-MPRN'.
    ws_dynpfld1-fieldvalue = i_mprn-mprn.
    ws_dynpfld1-stepl      = stepl_index1.
    APPEND ws_dynpfld1 TO i_dnpfld1.
    CALL FUNCTION 'DYNP_VALUES_UPDATE'
      EXPORTING
        dyname               = ws_dyname1
        dynumb               = ws_dynumb1
      TABLES
        dynpfields           = i_dnpfld1
      EXCEPTIONS
        invalid_abapworkarea = 1
        invalid_dynprofield = 2
        invalid_dynproname   = 3
        invalid_dynpronummer = 4
        invalid_request      = 5
        no_fielddescription = 6
        undefind_error       = 7
        OTHERS               = 8.
    IF sy-subrc <> 0.
    ENDIF.
ENDIF.
ENDMODULE.                 " pstlz1_f4 INPUT
Regards,
Prakash.

How to add F4 help for the custom field of a custom table

Hi All,
How to add F4 help to the custom table field? in the table maintainance when user clicks on F4 i want to provide possible values for this field I am trying to write the code in the screen of table maintainace like the following
PROCESS ON VALUE-REQUEST.
FIELD ZTEST_MAH_F4-KUNNR MODULE zVALUE_kunnr .
But when i am double clicking on module it's giving options to create include program but after that it's giving user is currently editing the table i am not getting this can some body clarify my doubt it's gr8 if some body give some examp code
Thanks&Regards
mahesh

Hi,
Create a subroutine under the event and call the following FM
1. Select all the related data into an itab, for ex i_kunnr
2.    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
    DDIC_STRUCTURE         = ' '
       retfield               = 'KUNNR'
    PVALKEY                = ' '
       dynpprog               = sy-repid
       dynpnr                 = '1000'
       dynprofield            = <selection screen field>
    STEPL                  = 0
    WINDOW_TITLE           =
    VALUE                  = ' '
       value_org              = 'S'
    MULTIPLE_CHOICE        = ' '
    DISPLAY                = ' '
    CALLBACK_PROGRAM       = ' '
    CALLBACK_FORM          = ' '
    MARK_TAB               =
IMPORTING
    USER_RESET             =
      TABLES
       value_tab              = <b>i_kunnr</b>
    FIELD_TAB              =
       return_tab             = < return table >
    DYNPFLD_MAPPING        =
     EXCEPTIONS
       parameter_error        = 1
       no_values_found        = 2
       OTHERS                 = 3

How to keep f4 help for a particular field in module pool problem-urgent

hi all,
i am displaying output using alv list display. here i am showing my pf status here. in this status i have one button called position. when i click this button it is showing pop up inside this pop up i am showing appln
for this i need keep f4 help. anybody can tell me how to keep f4 help fo this field.
thanks,
maheedhar.t

Hi Maheedhar,
You need to use function module POPUP_GET_VALUES.
If you want see sampl eprogram for this check the program RSSPO410.
Execute this program and input Example2 = X in the selection screen.
Code from the above Program:
DATA: BEGIN OF FIELDS OCCURS 1.
        INCLUDE STRUCTURE SVAL.
DATA: END OF FIELDS,
      RETURNCODE(1)       TYPE C,
      POPUP_TITLE(30)     TYPE C.
POPUP_TITLE       = 'Nachrichten anzeigen'(200).
CLEAR FIELDS.
FIELDS-TABNAME    = 'T100'.
FIELDS-FIELDNAME = 'ARBGB'.
FIELDS-FIELDTEXT = 'Arbeitsgebiet'(202). "Text nicht aus DTEL
APPEND FIELDS.
CALL FUNCTION 'POPUP_GET_VALUES'
       EXPORTING POPUP_TITLE     = POPUP_TITLE
       IMPORTING RETURNCODE      = RETURNCODE
       TABLES    FIELDS          = FIELDS.
IF RETURNCODE = 'A'.
    If Cancel is clicked
ELSE.
    If OK is clicked.
    Table FIELDS congtains the input data.
ENDIF.
Thank you
Ramakrishna

I need to sort and organize all my email addresses in apple mail? - where are they and how can I organize and copy them ? urgent help needed please

really need urgent help - where do I find the entire list of all my email addresses? and how do I sort and organize them into folders ?

really need urgent help - where do I find the entire list of all my email addresses? and how do I sort and organize them into folders ?

Urgent help!! how to cal Good will in HFM?

Hi Professionals,
I need urgent help from you. I would like to know how to calculate Good will % from ownership.
I dint work on tht before. And i posted this query before but dint not get any answer.
Thanks in Advance
Edited by: 897162 on Nov 27, 2011 1:56 AM

Hi
I found a thread in this forum on "Ownership calculation" which also talking about the good will calculation.
Ultimate Ownership calculation in HFM
This could give some idea.
thank you
Regards,
Mahe

How to Recreate DBA,AQ_Administrator Roles if Dropped

How to Recreate DBA,AQ_Administrator,exp_full_database and other admin scripts which was dropped.

hi bahadir,
this is the OracleAS Portal Content Management forum. Please post your question in the Database forum
General Database Discussions
thanks,
christian

How to convert PO sapscript layout to pdf - need VERY URGENT Help

Dear All,
Requirement: PO sapscript layout after some modifications (say, ZMEDRUCK) has to be converted to pdf. Through me9f user will be able to give ranges of PO numbers and can view the print preview for the po. After that on clicking the print button we get the printout of the pos one after another based on the user input of PO numbers.
Our requirement is that when the user will click on the "Print Preview" of po (rather than pressing the print button) it i.e. PO sapscript layout has to get converted to pdf.
If you have already encountered this scenario, could you please send me the source code regarding this at the earliest. If you want to email it to my personal id, please let me know so that I can give it to you. Thank you.
It will be very beneficial for mine if you can send me some source code in this regard. (FYI. We want only Print output of PO sapscript. So, Print Program /SMB40/FM06P [after copying it to our ZSMB40/FM06P program] need to be modified for downloading the PO into PDF where there is no FMs like OPEN_FORM, WRITE_FORM, CLOSE_FORM. So already available source code in SAP forums can not help me.)). Kindly help me at the earliest. Its VERY URGENT
Thank you.
Thanks & Regards
Sudipta

Hi Chaith,
Could you please provide me the source code regarding this at the earliest.
We want only Print output of PO sapscript. So we need to modify only the Print Program SAPFM06P after copying it to ZSAPFM06P for downloading of modified PO (ZMEDRUCK) sapscript layout into PDF.
I am already having some source code from sdn portral. I am attaching it herewith. But it's not working as some constants and variable values need to be given. We want to take download of PO into PDF from ME9F transaction itself.
Could you please provide necessary values in the missing constants and variables and kindly resend the corrected modified Source code to me so that I can run the same code to download the modified PO ZMEDRUCK into PDF . Need YOUR URGENT HELP...
DATA: l_druvo LIKE t166k-druvo,
        l_nast LIKE nast,
        aux_nast LIKE nast,
        l_from_memory,
        l_doc   TYPE meein_purchase_doc_print,
        ent_screen TYPE c,
        ent_retco TYPE i,
        toa_dara TYPE toa_dara,
        arc_params LIKE arc_params,
        aux_form LIKE tnapr-fonam.
DATA: otf LIKE itcoo OCCURS 0 WITH HEADER LINE,
        lt_docs      TYPE TABLE OF docs,
        pdf_bytecount TYPE i,
        nom_archivo TYPE string.
aux_form = 'ZMEDRUCK'.
l_from_memory = c_true.
SELECT *
    FROM nast
    INTO aux_nast
    UP TO 1 ROWS
    WHERE kappl = c_po     " Purchase Order
    AND   objky = t_datos-ebeln
    AND   aktiv = space
    ORDER BY erdat DESCENDING eruhr DESCENDING.
ENDSELECT.
aux_nast-sort1 = c_swp.
CLEAR ent_screen.
CLEAR ent_retco.
IF aux_nast-aende EQ space.
    l_druvo = c_1.
ELSE.
    l_druvo = c_2.
ENDIF.
l_druvo = '2'.
CALL FUNCTION 'ME_READ_PO_FOR_PRINTING'
    EXPORTING
      ix_nast        = aux_nast
      ix_screen      = ent_screen
    IMPORTING
      ex_retco       = ent_retco
      ex_nast        = l_nast
      doc            = l_doc
    CHANGING
      cx_druvo       = l_druvo
      cx_from_memory = l_from_memory.
CHECK ent_retco EQ 0.
CALL FUNCTION 'ECP_PRINT_PO'
    EXPORTING
      ix_nast        = l_nast
      ix_druvo       = l_druvo
      doc            = l_doc
      ix_screen      = ent_screen
      ix_from_memory = l_from_memory
      ix_toa_dara    = toa_dara
      ix_arc_params = arc_params
      ix_fonam       = aux_form
    IMPORTING
      ex_retco       = ent_retco.
CLEAR otf.
CALL FUNCTION 'READ_OTF_FROM_MEMORY'
    EXPORTING
      memory_key   = l_nast-objky " PO Number
    TABLES
      otf          = otf
    EXCEPTIONS
      memory_empty = 1
      OTHERS       = 2.
CALL FUNCTION 'CONVERT_OTF_2_PDF'
    IMPORTING
      bin_filesize           = pdf_bytecount
    TABLES
      otf                    = otf
      doctab_archive         = lt_docs
      lines                  = pdfout
    EXCEPTIONS
      err_conv_not_possible = 1
      err_otf_mc_noendmarker = 2
      OTHERS                 = 3.
CONCATENATE c_dest t_datos-ebeln c_ext INTO nom_archivo.
CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      bin_filesize = pdf_bytecount
      filename     = nom_archivo
      filetype     = c_bin
    IMPORTING
      filelength   = pdf_bytecount
    TABLES
      data_tab     = pdfout.

Wf_notification_out table dropped, how to recreat urgent help !!!!!!!!!!!!

Similar Messages

Maybe you are looking for