DYNPRO_SEND_IN_BACKGROUND pls respond immediately

Hi,
I am gettting DYNPRO_SEND_IN_BACKGROUND short dump.
Creating order for material thru online and RFC(Z function module) is used to connect to SAP and create.
How to check from which point of the program the dump is coming in the RFC?
Can I see this problem in debug mode?
Thanks.

Pls find the dump below....
ABAP runtime errors    DYNPRO_SEND_IN_BACKGROUND
       Occurred on     05/01/2007 at 15:20:29
>> Short dump has not been completely stored. It is too big.
Screen output without connection to user.
What happened?
The current ABAP/4 program "SAPMSSY0 " had to be terminated because
one of the statements could not be executed.
This is probably due to an error in the ABAP/4 program.
What can you do?
Note the actions and input that caused the error.
Inform your SAP system administrator.
You can print out this message by choosing "Print". Transaction ST22
allows you to display and manage termination messages, including keeping
them beyond their normal deletion date.
Error analysis
During background processing, the system attempted to send a
screen to a user.
Current screen: "SAPMSSY0 " 0120.
How to correct the error
If the error occurred in one of your own programs or in an SAP program
that you modified, try to correct it yourself.
If the error occurred in a non-modified SAP program, you may be
able to find a solution in the SAP note system.
If you have access to the note system yourself, use the following
search criteria:
"DYNPRO_SEND_IN_BACKGROUND"
"SAPMSSY0 " or " "
"%_CTL_OUTPUT"
If you cannot solve the problem yourself, please send the
following documents to SAP:
1. A hard copy print describing the problem.
   To obtain this, select the "Print" function on the current screen.
2. A suitable hardcopy prinout of the system log.
   To obtain this, call the system log with Transaction SM21
   and select the "Print" function to print out the relevant
   part.
3. If the programs are your own programs or modified SAP programs,
   supply the source code.
   To do this, you can either use the "PRINT" command in the editor or
   print the programs using the report RSINCL00.
4. Details regarding the conditions under which the error occurred
   or which actions and input led to the error.
System environment
SAP Release.............. "46C"
Application server....... "voyager"
Network address.......... "130.29.148.43"
Operating system......... "HP-UX"
Release.................. "B.11.23"
Hardware type............ "9000/800"
Database server.......... "voyager"
Database type............ "ORACLE"
Database name............ "CP0"
Database owner........... "SAPR3"
Character set............ "en_US.iso88591"
SAP kernel............... "46D"
Created on............... "Jul 18 2005 20:43:50"
Created in............... "HP-UX B.11.00 U 9000/800"
Database version......... "OCI_805_64__OCI_7_API "
Patch level.............. "2090"
Patch text............... " "
Supported environment....
Database................. "ORACLE 8.0.5.., ORACLE 8.0.6.., ORACLE
8.1.6.., ORACLE 8.1.7.., ORACLE 9.2.0.."
SAP database version..... "46D"
Operating system......... "HP-UX B.10, HP-UX B.11, , System build information:,
, LCHN : 766946"
User, transaction...
Client.............. 100
User................ "ZECOMMERCEUS"
Language key........ "E"
Transaction......... " "
Program............. "SAPMSSY0 "
Screen.............. "SAPMSSY0 0120"
Screen line......... 0
Information on where termination occurred
The termination occurred in the ABAP/4 program "SAPMSSY0 " in
"%_CTL_OUTPUT".
The main program was "SAPMSSY1 ".
The termination occurred in line 37
of the source code of program " " (when calling the editor 370).
Source code extract
000070   *
000080
000090   TABLES rsjobinfo.                      "for SUBMIT .. VIA JOB ..
000100
000110   INCLUDE    %_PREDEFINED.
000200
000210   DATA: %_repid     TYPE syst-repid   %_PREDEFINED,
000220         %_viaselscr TYPE x VALUE '04' %_PREDEFINED.
000230
000240   SYSTEM-EXIT.
000250   PERFORM (sy-xform) IN PROGRAM (sy-xprog).
000260
000270   * Nach Laden des Dynpros
000280   MODULE %_ctl_init OUTPUT.
000290     %_repid = sy-repid.
000300     PERFORM %_ctl_init IN PROGRAM sapmssyd USING %_repid IF FOUND.
000310   ENDMODULE.
000320
000330   * Um DCO
000340   MODULE %_ctl_output OUTPUT.
000350     %_repid = sy-repid.
000360     PERFORM %_ctl_output IN PROGRAM sapmssyd USING %_repid IF FOUND.
  ENDMODULE.
000380
000390   * Um DCI
000400   MODULE %_ctl_input INPUT.
000410     %_repid = sy-repid.
000420     PERFORM %_ctl_input IN PROGRAM sapmssyd USING %_repid IF FOUND.
000430   ENDMODULE.
000440
000450   * Erstes Modul in PAI
000460   MODULE %_ctl_pai INPUT.
000470     %_repid = sy-repid.
000480     PERFORM %_ctl_pai IN PROGRAM sapmssyd USING %_repid IF FOUND.
000490   ENDMODULE.
000500
000510   * Dynpro Ende
000520   MODULE %_ctl_end INPUT.
000530     %_repid = sy-repid.
000540     PERFORM %_ctl_end IN PROGRAM sapmssyd USING %_repid IF FOUND.
000550   ENDMODULE.
000560
Contents of system fields
SY field contents..................... SY field contents.....................
SY-SUBRC 0                             SY-INDEX 1
SY-TABIX 3                             SY-DBCNT 1
SY-FDPOS 0                             SY-LSIND 0
SY-PAGNO 1                             SY-LINNO 6
SY-COLNO 1
Chosen variables
Name.......................... Contents.1........2........3....+....4
SY-XPROG                       SAPLATP2
                               5454455322222222222222222222222222222222
                               310C140200000000000000000000000000000000
SY-XFORM                       CONVERSION_EXIT
                               444545544454545222222222222222
                               3FE65239FEF5894000000000000000
SY                             ########################################
                               0000000000000000000000000000000000000000
                               0001000100030000000000000000000000000000
... +  40                      #######################################ÿ
                               000000000000000000000008000000000000000F
                               000100000001000000060004000000000000000F
... +  80                      ########################################
                               0000000000000000000000000000000000000000
                               0000000000000000000300000000000000000000
... + 120                      #######################################B
                               00000000
                               0000000
%_PRINT                            000
                               2222333222222222222222222222222222222222
                               0000000000000000000000000000000000000000
... +  40
                               2222222222222222222222222222222222222222
                               0000000000000000000000000000000000000000
... +  80                                0 ########
                               2222222222320000000022222222222222222222
                               0000000000000000000000000000000000000000
... + 120
                               22222222
                               0000000
%_?NOT_ASSIGNED?
                               2222
                               0000
%_REPID                        SAPMSSY0
                               5454555322222222222222222222222222222222
                               310D339000000000000000000000000000000000
Active calls / events
No.... Type........ Name..........................
       Programm
       Include                                  Line
     1 MODULE (PBO) %_CTL_OUTPUT
       SAPMSSY0
                                           37
     2 FUNCTION     COPO_POPUP_TO_DISPLAY_TEXTLIST
       SAPLCOPO
       LCOPOU01                                    25
     3 FORM         HP_ERRORS_CHECK
       SAPMV45A
       ZIHRT001                                   536
     4 FORM         USEREXIT_SAVE_DOCUMENT_PREPARE
       SAPMV45A
       MV45AFZZ                                   445
     5 FORM         BELEG_SICHERN
       SAPMV45A
       ZZIFOHRT003                                 20
     6 FUNCTION     SD_SALES_DOCUMENT_SAVE
       SAPLV45A
       LV45AU03                                    76
     7 FUNCTION     SD_ORDER_CREATE
       SAPLV45J
       LV45JU01                                   250
     8 FUNCTION     SD_ORDER_CREATE_WWW
       SAPLV46W
       LV46WU01                                   160
     9 FUNCTION     BAPI_SALESDOCU_CREATEFROMDATA
       SAPL2032
       L2032U07                                    94
    10 FUNCTION     Z_ECOM_CREATE_SALESORDER
       SAPLZWWW
       LZWWWU07                                   221
    11 FORM         Z_ECOM_CREATE_SALESORDER
       SAPLZWWW
       LZWWWV07                                   116
    12 FORM         REMOTE_FUNCTION_CALL
       SAPMSSY1
       SAPMSSY1                                    69
    13 MODULE (PBO) %_RFC_START
       SAPMSSY1
       SAPMSSY1                                    31
Internal notes
The termination occurred in the function "dynpex00" of the SAP
Basis System, specifically in line 1337 of the module
"//bas/46D/src/krn/dynp/dymain.c#27".
The internal operation just processed is "ENDM".
The internal session was started at 20070501152028.
Active calls in SAP kernel
( 0)  0x4000000000bcbefc   CTrcStack2 + 0x1fc  dw.sapCP0_DVEBMGS00
( 1)  0x4000000000bcc020   CTrcStack + 0x18  dw.sapCP0_DVEBMGS00
( 2)  0x4000000000d7c258   rabax_CStackSave + 0xe8  dw.sapCP0_DVEBMGS00
( 3)  0x4000000000d84eac   ab_rabax + 0x7e4  dw.sapCP0_DVEBMGS00
( 4)  0x400000000080f3e0   dypex00 + 0x508  dw.sapCP0_DVEBMGS00
( 5)  0x400000000080e414   dynpout0 + 0x11c  dw.sapCP0_DVEBMGS00
( 6)  0x4000000000883248   dynprctl + 0x160  dw.sapCP0_DVEBMGS00
( 7)  0x4000000000899ebc   dynpen00 + 0x45c  dw.sapCP0_DVEBMGS00
( 8)  0x4000000000869aec   Thdynpen00 + 0x1bc  dw.sapCP0_DVEBMGS00
( 9)  0x400000000092ddcc   TskhLoop + 0x3694  dw.sapCP0_DVEBMGS00
(10)  0x4000000000a5e210   tskhstart + 0x198  dw.sapCP0_DVEBMGS00
(11)  0x40000000008b8e30   DpMain + 0x368  dw.sapCP0_DVEBMGS00
(12)  0x40000000006440ec   main + 0x14  dw.sapCP0_DVEBMGS00
(13)  0xc00000000000a158   $START$ + 0xa0  /usr/lib/pa20_64/dld.sl
List of ABAP programs affected
Type
Program
Gen. date  time
LoadSize
Prg
SAPMSSY1
01/04/2000 19:06:59
20480
Prg
SAPLSYST
05/25/2002 08:06:09
38912
Prg
SAPLZWWW
03/17/2007 10:26:40
267264
Typ
BAPISDHEAD
08/16/2000 13:16:51
10240
Typ
BAPICCARD
11/29/1999 17:37:40
3072
Typ
BAPICUBLB
11/10/1999 17:37:30
1024
Typ
BAPICUINS
12/09/1999 18:51:23
3072
Typ
BAPICUPRT
10/14/1999 21:54:07
2048
Typ
BAPICUCFG
02/14/2000 14:06:17
3072
Typ
BAPICUVAL
12/09/1999 18:51:23
2048
Typ
BAPIITEMIN
05/25/2002 08:06:40
11264
Typ
BAPIITEMEX
05/26/2002 21:03:15
8192
Typ
BAPIPARTNR
05/26/2002 21:03:16
5120
Typ
BAPISDTEXT
11/30/1998 22:05:51
2048
Typ
MVKE
05/25/2002 08:07:40
9216
Prg
SAPL2032
05/13/2006 09:22:24
548864
Prg
SAPLDLOG
01/04/2000 19:06:44
7168
Typ
TVAK
05/25/2002 08:32:12
13312
Prg
SAPLV46B
01/13/2007 13:09:29
67584
Typ
TPAR
08/27/1994 21:59:27
2048
Prg
SAPLV46W
01/13/2007 13:09:29
98304
Prg
SAPLCUXC
01/13/2007 13:09:29
232448
Prg
SAPLV45J
01/13/2007 13:09:29
133120
Prg
SAPLV45A
02/24/2007 10:28:26
920576
Prg
SAPMV45A
03/17/2007 10:26:40
2098176
Prg
SAPLSEU1
02/12/2005 05:10:32
282624
Prg
CL_CTMENU_LOAD_TEXTS==========
02/12/2005 05:10:55
169984
Typ
D345T
07/29/1998 18:19:12
2048
Typ
D346T
07/29/1998 18:19:13
2048
Prg
CL_CTMENU_LOAD================
01/04/2000 19:06:00
94208
Prg
SAPLV09A
02/13/2005 05:29:08
500736
Prg
SAPLFRC4
02/04/2006 07:52:55
126976
Prg
SAPLJ1AZ
02/12/2005 07:45:07
29696
Prg
SAPLV61B
02/24/2007 10:28:26
450560
Prg
SAPLIPW1
02/04/2006 07:52:55
585728
Prg
SAPLIE01
02/12/2005 07:47:26
286720
Prg
SAPLITO1
02/12/2005 07:09:27
89088
Prg
SAPLITOBS
02/12/2005 07:02:21
130048
Prg
SAPLITOBBUFEQ
02/12/2005 07:06:52
163840
Prg
SAPLITOBBUFFL
02/12/2005 07:09:27
112640
Prg
SAPLITOBBUFIL
02/12/2005 07:02:21
43008
Prg
SAPLV61A
02/24/2007 10:28:26
902144
Prg
SAPLV05E
02/04/2006 07:52:55
411648
Prg
SAPLVADR
02/12/2005 07:46:07
69632
Prg
SAPLV09B
02/13/2005 05:29:08
183296
Prg
SAPLV09C
02/13/2005 05:29:08
444416
Prg
SAPLV09D
02/13/2005 05:29:08
169984
Prg
SAPLV09E
02/13/2005 05:29:08
41984
Prg
SAPLSLG0
02/12/2005 04:57:41
117760
Prg
SAPLSBAL_SERVICE
02/12/2005 05:19:04
135168
Typ
BALOBJ
08/13/1997 13:16:25
1024
Typ
BALSUB
08/13/1997 13:16:26
1024
Typ
BAL_S_LFIL
02/24/1999 03:05:04
12288
Prg
SAPLSBAL
02/12/2005 05:19:04
272384
Prg
SAPLSZA0
04/23/2005 04:01:25
2200576
Prg
SAPLAIEV
05/15/2002 17:25:04
14336
Prg
CL_OS_TRANSACTION_END_NOTIFIER
02/12/2005 05:14:30
8192
Typ
TSAD3T
02/14/1998 17:01:10
2048
Typ
ADCNTRYQU
05/25/2002 08:05:29
1024
Prg
SAPLSZA13
05/15/2002 17:33:08
12288
Prg
SAPLV45T
02/04/2006 07:52:55
141312
Typ
STXDRNAME
05/25/2002 08:20:31
2048
Prg
SAPLSTXD
02/12/2005 05:18:33
410624
Prg
SAPCNVE
01/04/2000 19:06:37
7168
Prg
SAPLLANG
01/04/2000 19:06:49
9216
Prg
SAPLV70T
02/04/2006 07:52:55
211968
Prg
SAPFV45E
02/24/2007 10:28:26
756736
Prg
SAPFV45P
02/24/2007 10:28:26
1394688
Prg
SAPFV45S
02/24/2007 10:28:26
799744
Prg
SAPLV45CU
01/13/2007 13:09:29
61440
Prg
SAPLCUINIT
05/27/2002 11:34:50
7168
Prg
SAPLCUEV
05/27/2002 11:34:50
11264
Prg
SAPLBSVA
02/12/2005 05:42:59
274432
Prg
SAPLBSVX
02/13/2005 05:29:51
99328
Prg
SAPLCO61
01/13/2007 13:09:29
422912
Prg
SAPLCKKA
01/13/2007 13:09:29
93184
Prg
SAPLCK10
01/13/2007 13:09:29
742400
Prg
CL_COSTING_PERSISTENCE========
01/13/2007 13:09:26
160768
Typ
CKIKEKOKEY
11/30/1993 13:25:34
2048
Typ
CKF_PM_COSTING_OBJECT_LINE
11/29/1999 17:38:34
2048
Typ
CKKEKOKEY
02/24/1999 03:07:01
2048
Prg
SAPLCK_ECP_EXITS
01/13/2007 13:09:29
67584
Typ
KINX
05/25/2002 08:11:37
1024
Prg
SAPLCK2U
01/13/2007 13:09:31
376832
Prg
SAPLKKCP
02/12/2005 06:35:44
52224
Prg
SAPLCK00
01/13/2007 13:09:29
379904
Prg
SAPLCKDI
01/13/2007 13:09:29
1000448
Prg
SAPLCKKVMK
11/10/1998 07:16:33
11264
Prg
SAPLCK36
01/13/2007 13:09:29
153600
Prg
SAPFV45V
02/24/2007 10:28:26
794624
Prg
SAPLV45L
02/28/2007 00:00:53
433152
Prg
SAPLV51P
01/13/2007 13:09:29
887808
Typ
HEADER51
02/08/2003 02:38:52
4096
Prg
SAPLV45W
01/13/2007 13:09:29
235520
Prg
SAPLVFRF
01/13/2007 13:09:29
76800
Typ
FPLT
03/17/1999 13:43:44
7168
Prg
SAPLV45I
01/13/2007 13:09:29
514048
Prg
SAPLVKMP
01/13/2007 13:09:30
485376
Prg
SAPLCRDM
02/12/2005 07:37:00
102400
Prg
SAPFV45K
02/24/2007 10:28:26
648192
Prg
SAPLASTAT_TRIG
02/12/2005 05:00:41
12288
Prg
SAPLVS01
06/12/2004 17:01:09
182272
Typ
TVKO
05/06/1998 02:22:47
4096
Prg
SAPLSCAL
02/12/2005 05:15:05
26624
Typ
CVERS
04/26/1999 17:21:32
2048
Typ
KNVP
08/22/1995 12:24:17
3072
Prg
SAPLNDAC
10/14/1999 23:32:54
7168
Prg
SAPLBUOP
06/17/2006 17:03:18
73728
Prg
SAPLITSR
02/12/2005 05:42:29
88064
Typ
TPS01
02/20/1998 09:19:57
2048
Typ
TPS31
09/03/1997 03:01:33
1024
Prg
CONTEXT_X_SP_INFO
05/25/2002 18:07:09
35840
Typ
TPS32
09/03/1997 03:28:18
2048
Typ
TPS34
09/03/1997 03:28:18
2048
Prg
SAPLNDIA
11/08/2003 14:44:32
7168
Prg
SAPLV45K
01/13/2007 13:09:29
114688
Typ
TBE01
08/28/1997 08:32:41
1024
Typ
TBE31
09/03/1997 03:01:11
1024
Typ
TBE32
09/03/1997 03:27:20
2048
Typ
TBE34
09/03/1997 03:27:24
2048
Typ
VBAKKOZ
04/04/1995 16:28:13
1024
Typ
ADRSTATUS
01/29/1997 19:04:23
1024
Typ
ADRC
05/25/2002 08:00:08
11264
Typ
ADRCT
08/28/1997 08:35:27
2048
Typ
ADRG
07/03/1996 22:44:47
1024
Prg
SAPLSZAD
06/12/2004 17:01:09
61440
Prg
SAPLSADR
04/23/2005 04:02:48
207872
Typ
T005
05/25/2002 08:29:07
7168
Typ
T001
05/25/2002 08:28:59
9216
Prg
SAPLV07DCORE
02/08/2003 05:35:56
20480
Typ
TVTA
09/03/1997 03:28:25
3072
Typ
TVKOV
03/30/1998 10:08:08
2048
Typ
TVKOS
05/27/1992 18:18:00
2048
Typ
TVKOT
02/14/1998 14:49:14
2048
Typ
TVTW
05/27/1992 18:19:33
1024
Typ
TVTWT
02/14/1998 14:57:37
2048
Typ
TSPA
06/10/1992 12:18:00
1024
Typ
TSPAT
02/14/1998 14:28:17
2048
Typ
TVSB
03/08/1992 18:33:20
1024
Typ
TVAKT
02/14/1998 14:38:43
2048
Typ
TVAKZ
07/22/1996 17:22:20
2048
Prg
SAPFV45C
03/17/2007 10:26:17
628736
Prg
SAPLSBDC
05/15/2002 17:30:50
66560
Typ
T180
02/20/1998 09:17:43
2048
Prg
SAPLV86E
05/13/2006 09:22:25
344064
Prg
SAPLVFSP
05/13/2006 09:22:25
262144
Prg
SAPLV01Z
01/13/2007 13:09:29
207872
Prg
SAPLCLFM
02/12/2005 07:46:55
697344
Prg
SAPLCUOB
02/12/2005 07:47:11
34816
Prg
SAPLCLSE
02/12/2005 06:58:31
181248
Prg
SAPLCTMS
02/12/2005 07:47:09
957440
Prg
SAPLCTCV
02/12/2005 07:47:09
195584
Prg
SAPLCTCF
02/08/2003 04:58:13
24576
Prg
SAPLV01P
01/13/2007 13:09:29
168960
Prg
SAPLV21F
01/13/2007 13:09:29
149504
Typ
T176
06/09/1992 19:10:22
1024
Prg
SAPLMGF2
01/04/2000 19:06:50
21504
Prg
SAPLSDEX
01/04/2000 19:06:52
20480
Typ
DD07L
05/07/1997 13:31:32
2048
Typ
VBPAKOM
02/12/2005 06:37:19
6144
Prg
CONTEXT_X_SD_PARTNER_CONTEXT
02/13/2005 05:29:05
134144
Prg
SAPLV08D
02/12/2005 07:09:59
20480
Typ
KNA1
05/25/2002 08:11:39
16384
Typ
VBPAVB
05/25/2002 08:24:47
6144
Typ
TPAKD
10/26/1994 17:32:29
1024
Typ
ASTAT_TYP2
11/10/1998 05:35:18
1024
Typ
ASTAT_TYP1
11/30/1998 15:54:16
1024
Typ
TPAER
05/25/2002 08:23:58
2048
Typ
TVPG
08/28/1997 09:10:35
1024
Prg
SAPLSZA8
02/12/2005 05:18:51
74752
Typ
TSAD3
07/16/1997 14:46:19
2048
Typ
VBADR
02/12/2005 06:37:14
5120
Typ
KNVV
11/30/1999 10:18:28
9216
Prg
SAPLWY14
02/12/2005 07:10:19
26624
Typ
KNVK
05/25/2002 08:11:42
10240
Typ
ADRP
04/14/1998 11:18:32
6144
Typ
ADRGP
07/03/1996 22:44:47
1024
Typ
ADCP
04/23/1998 14:45:51
5120
Typ
ADR2
01/25/1999 13:08:51
3072
Typ
ADRT
02/14/1998 05:38:23
2048
Prg
SAPLV02H
02/12/2005 07:49:02
141312
Typ
KNVH
04/04/1995 17:06:51
3072
Typ
THIT
08/27/1994 21:58:41
1024
Prg
SAPLSMOD
02/12/2005 05:11:06
252928
Typ
TFDIR
07/29/1998 19:49:08
2048
Prg
SAPLV45F
05/13/2006 09:22:25
26624
Typ
TVUVF
08/20/1998 11:31:14
2048
Prg
SAPLV04A
01/04/2000 19:06:55
10240
Typ
TPAUM
02/14/1998 14:03:47
2048
Typ
VBPA
05/25/2002 08:24:46
4096
Typ
KUAGV
05/25/2002 08:11:54
9216
Typ
KUPAV
05/25/2002 08:11:54
7168
Prg
SAPLSUNI
02/12/2005 05:10:18
141312
Prg
SAPLSUSM
06/12/2004 17:01:18
35840
Typ
USR21
03/10/1999 18:32:06
2048
Prg
SAPLSUGS
01/04/2000 19:06:54
15360
Prg
SAPLSUG2
01/04/2000 19:06:54
38912
Typ
SVERS
07/30/1992 18:39:23
1024
Typ
UVERS
07/16/1997 14:46:33
3072
Typ
V_ADDR_USR
05/25/2002 12:40:15
15360
Typ
TSADCORR
02/12/2005 04:57:41
1024
Typ
T005T
04/23/2005 04:01:16
2048
Prg
CL_EXITHANDLER================
02/12/2005 05:10:57
13312
Prg
CL_ABAP_TYPEDESCR=============
01/04/2000 19:06:00
17408
Prg
CL_ABAP_ELEMDESCR=============
01/04/2000 19:06:00
13312
Prg
CL_ABAP_DATADESCR=============
01/04/2000 19:06:00
11264
Prg
CL_ABAP_REFDESCR==============
01/04/2000 19:06:00
14336
Prg
CL_ABAP_STRUCTDESCR===========
01/04/2000 19:06:00
16384
Prg
CL_ABAP_COMPLEXDESCR==========
01/04/2000 19:06:00
11264
Prg
CL_ABAP_TABLEDESCR============
01/04/2000 19:06:00
16384
Prg
CL_ABAP_CLASSDESCR============
01/04/2000 19:06:00
23552
Prg
CL_ABAP_OBJECTDESCR===========
01/04/2000 19:06:00
28672
Prg
CL_ABAP_INTFDESCR=============
01/04/2000 19:06:00
21504
Prg
IF_EX_ADDR_PRINTFORM_SHORT====
04/23/2005 04:01:19
7168
Typ
SXS_INTER
11/30/1998 15:55:16
1024
Prg
SAPLSEXV
02/12/2005 05:04:49
154624
Prg
SAPLSXCH
02/12/2005 05:15:27
80896
Typ
V_EXT_ACT
10/14/1999 22:16:55
2048
Prg
CL_EX_ADDR_PRINTFORM_SHORT====
04/23/2005 04:01:18
15360
Prg
CL_EXIT_MASTER================
05/25/2002 08:19:36
10240
Typ
V_EXT_IMP
10/14/1999 22:16:55
2048
Typ
KUWEV
05/25/2002 08:11:54
11264
Typ
KURGV
05/25/2002 08:11:54
7168
Typ
TCSPF
03/01/1999 13:49:57
2048
Typ
T683V
02/24/1999 03:31:49
2048
Typ
KNVA
07/10/1993 03:46:26
5120
Prg
SAPLV52E
05/13/2006 09:22:25
525312
Typ
KNEX
04/15/1998 00:23:05
4096
Prg
SAPLSYGU
05/15/2002 17:17:41
26624
Prg
SAPLRKSRCORE
05/27/2002 01:07:53
41984
Prg
SAPLFACSCORE
05/25/2002 12:35:04
12288
Typ
TKA02
07/10/1993 03:23:03
1024
Typ
TKA01
04/12/1999 16:16:35
6144
Typ
TCURO
04/12/1999 16:16:26
1024
Prg
SAPLFCUE1
04/21/1999 19:18:41
16384
Typ
TCURE
05/04/1999 11:55:27
2048
Typ
TTXOB
08/27/1999 17:40:40
2048
Typ
RVTXOBJ
08/13/1997 12:53:30
1024
Typ
TTXID
08/27/1999 17:40:33
2048
Typ
TTXER
06/09/1992 19:26:49
2048
Prg
SAPLV01A
05/25/2002 12:14:32
36864
Typ
SDPROTTYP
07/10/1997 00:36:13
1024
Typ
SDCTRLFLAG
04/04/1996 12:58:57
1024
Typ
TTXVR
05/25/2002 08:24:11
3072
Typ
STXH
05/25/2002 10:46:15
4096
Prg
SAPLMCS1
01/13/2007 13:09:29
562176
Typ
TVSFK
10/28/1997 17:31:29
2048
Typ
T683C
04/23/1996 20:18:10
2048
Typ
T691U
08/13/1997 13:52:14
2048
Typ
VBKD
05/25/2002 08:45:43
11264
Prg
SAPLSCUR
05/15/2002 17:10:13
57344
Prg
SAPLSCUN
02/12/2005 05:14:57
59392
Prg
/1BCDWBEN/SAPLVEN0000
05/13/2006 09:24:15
152576
Prg
SAPLSENA
01/04/2000 19:06:53
28672
Prg
SAPLBOTM
02/12/2005 05:42:10
23552
Typ
TJ03
05/25/2002 08:31:44
2048
Typ
TJ20
05/12/1997 16:50:45
2048
Typ
TJ21
11/30/1993 16:45:19
1024
Typ
TJ04
11/30/1993 16:45:08
2048
Typ
TJ30
05/25/2002 08:31:45
2048
Prg
SAPLXVVA
02/04/2006 07:52:55
68608
Typ
T014
07/10/1997 00:37:38
2048
Typ
KNKK
11/29/1999 17:40:59
5120
Prg
SAPLF035
02/12/2005 07:47:16
154624
Typ
T000CM
07/29/1998 19:20:34
2048
Typ
T024P
08/27/1994 21:52:42
2048
Prg
SAPLV45C
01/13/2007 13:09:29
358400
Prg
SAPLFACS
02/12/2005 07:44:55
272384
Typ
T009
06/01/1992 11:17:16
2048
Typ
T009B
02/20/1998 09:01:22
2048
Typ
BOOLE
04/04/1995 15:41:35
1024
Typ
COBL
02/12/2005 06:35:48
19456
Typ
VBAK
11/08/2003 14:27:56
21504
Typ
VBAP
02/04/2006 07:52:52
29696
Prg
SAPLAD19
02/04/2006 07:52:54
51200
Typ
TKA00
05/25/2002 08:31:45
5120
Prg
SAPLKACG
02/04/2006 07:52:55
98304
Typ
BAPICOBL_CI
05/06/1998 01:56:08
1024
Prg
SAPLRWIN
02/08/2003 05:30:04
28672
Typ
TRWCI
05/25/2002 08:24:05
1024
Typ
TRWPR
05/25/2002 08:24:05
2048
Typ
TRWCA
05/25/2002 08:24:05
2048
Prg
SAPLSMSG
02/12/2005 05:17:38
110592
Prg
SAPLKACB
02/12/2005 07:37:17
89088
Prg
SAPLKAIP
02/24/2007 10:28:26
367616
Prg
SAPLKAIPTRACE
02/13/2005 05:30:54
51200
Prg
SAPLKOTR
02/12/2005 07:21:39
118784
Prg
SAPLKAIS
02/13/2005 05:30:54
98304
Typ
TJ01
03/01/1999 13:50:12
4096
Typ
TTXD
05/26/2002 22:24:20
2048
Prg
SAPLFMCO
02/12/2005 07:28:10
109568
Typ
TKAZE
11/30/1993 16:46:08
2048
Typ
COBK
05/25/2002 08:08:07
6144
Prg
SAPLGBL5
02/08/2003 05:16:35
34816
Prg
SAPFGBBA
01/04/2000 19:06:37
36864
Prg
GBAAAAAA
05/26/2002 12:06:29
62464
Prg
SAPLGBL6
05/15/2002 15:51:19
106496
Typ
T80D
05/12/1997 15:23:48
1024
Prg
GBTAACO0
03/04/

Similar Messages

  • Why am I continually getting Firefox updates every day for 4.01, I already updated 3x now, Pls respond immediately re possible security breach

    Just keep getting the pop up saying I have to update my firefox browser to 4.01. I already did this and have done so a few more times and keep getting this message which my norton confirms is okay. Pls. help
    PS: Regarding educated guesses below, perhaps it is my Yahoo active x plugin bridge. In any case, how do I resolve this problem?
    Thanks,
    Donna
    [email protected]

    If you have problems with updating then best is to download the full version and uninstall the currently installed version.
    Download a fresh Firefox copy and save the file to the desktop.
    * Firefox 4.0.x: http://www.mozilla.com/en-US/firefox/all.html
    * Uninstall your current Firefox version.
    * Do not remove personal data when you uninstall the current version.
    Remove the Firefox program folder before installing that newly downloaded copy of the Firefox installer.
    * It is important to delete the Firefox program folder to remove all the files and make sure that there are no problems with files that were leftover after uninstalling.
    Your bookmarks and other profile data are stored elsewhere in the [http://kb.mozillazine.org/Profile_folder_-_Firefox Firefox Profile Folder] and won't be affected by a reinstall, but make sure that you do not select to remove personal data if you uninstall Firefox.

  • Extraction from 0HR_PY_1 error??????? pls respond immediately

    i would need to extract data for payroll data from data source 0HR_PY_1 to BW based on the period of time say for example 01.2007 to 12.2007, the infopackage in Production is in full load i would need to initalise it to Delta. for this, i can first run full load for the period 01.2007 to 12.2007 then go for init of delta without data transfer and delta will be intialized and then select the radio button delta and go for delta extractions. this is what i need to do now.
    for this i have extracted data from 0HR_PY_1 from R/3 to BW in full load, but in after extracting more than one crore records were extracted with a failure(red color status), it says that data is not extracted from correct client which seems to be wrong because only one client is maintained for R/3 Production and in RSA3 i could see no record for that data source, i wonder how those many records were extracted from ????.
    and i also see the error saying "No assignment of payroll data to BW month". it is giving this error while extracting for the year 2007 but for the year 2006,2005 full load is done and it has not thrown such error.
    do you think Assignment of payroll data to BW is compulsory, because i could see no assignment in R/3, if that is not done then how could 2006, 2005 years of data been extracted and when they are extracted i am not sure when and how they were extracted.

    Hi,
    Take a look on the notes:  585682,590957
    With rgds,
    Anil Kumar Sharma .P

  • Query related to interface programming(pls respond immediately)

    Hi ,
    I am uploading the data to Application server. I have created a new directory by using the transaction 'AL11'. But the thing is that when I execute the program it is giving short dump mentioning that unable to open the file. But when I am trying with the existing directories the data is getting uploaded.
    Can somebody help me on this.
    Reward points are assured for the appropriate answer.
    Best Regards
    Bhagat.

    Hi,
    if you haven't done yet, please compare the authorisations of the new directory with that one which works.
    Regards
    Bernd

  • ITunes stops responding immediately after opening

    My iTunes stops responding immediately after opening and even force-quit doesn't do.
    Baically it freezes between pressing it and opening the window. In my large library, I can see that it loads it and then nothing more. The menu appears and then the wheel. Force quitting doesn't shut the program, no matter how I do it. It leaves the arrow and the only way is to restart the computer and start again.
    I tried using another account, and it does the same. I tried with a new library. I tried with new prefs folder both on the user and on the Mac HD. I tried reinstalling iTunes. I even tried reinstalling the whole OS X - but nothing. The only thing is that after zapping PRAM it might work once or twice, but no more.
    This is with iTunes 7.0.2, QuickTime 7.1.3 and OS 10.4.8
    I don't know what else to do.
    Any ideas?

    I'm having the same problem. It started recently - maybe about two weeks ago - and occasionally when I launch iTunes it just freezes. I can't force quit it completely - it still shows in the Dock as though it's running, though it's not present in Activity Monitor.
    Curiously, I've also had a couple of kernel panics when clicking iTunes buttons in the past week. I don't recall any system update that might have affected either iTunes or QuickTime, so I'm stumped... The only way to get iTunes back is to log out or restart.
    Kirk

  • During typing sporadically keys do not respond immediately.

    Sometimes (not constant) when typing, the key does not respond immediately. If I wait 15-30 sec. Then it responds as we'll as additional keys I may have tapped. Also when attempting to save an email to a specific folder, I tap the "save" icon then in the left when I tap on the specific email account to get to th specific folder, the iPad 4 freezes momentarily and after a few seconds (5-15) it decides to continue. This doesn't happen all the time only intermittently.

    Hi, and welcome to the Palm Community Forums.
    It seems likely that your digitizer (which is the top portion of the screren which recognizes your stylus taps and converts them into commands) is failing, although there are things that you can try to diagnose it.  One thing is to remove any screen protector you have installed, and see if the behavior continues.  The second is to fold over the corner of a piece of paper  and use the folded edge as a "scoop" by sliding it underneath the frame that goes around the screen.  The idea is to pull out any dirt or grit that has accumulated under there over time, which can interfere with the digitizer's function.
    If that does not remedy the problem, you can try one of several software fixes such as DigiFix which can help in some cases.
    If none of that works, you might just be in need of a replacement digitizer.  They can be found at www.pdaparts.com or www.usedpdaparts.com and you can either do the repair yourself, or they will do it for you at a reasonable cost.
    All of these solutions, and more, are discussed in this lengthy thread in the Hardware board.
    Good luck.
    Post relates to: None
    smkranz
    I am a volunteer, and not an HP employee.
    Palm OS ∙ webOS ∙ Android

  • Changing the Address for Shipto party for a Service Order..... pls respond

    Hi friends,
    When i create a Service Order, using CRM_ORDER_MAINTAIN, I want to pass Ship to party number and its address.(its not Master data from BUT000, ADRC tables.).
    THe address data what i mean is when we go to Partners tab, the address you see is not master data.
    I want to update this address.
    Somehow i was able to create with my Shipto party , but im not able to give the address in the IT_PARTNER parameter of Crm_order_maintain.
    How can i give the address aswell, when i create Service order, or even changing a service order.
    Basically i want to change the address of ship to for a SO.
    kindly respond....
    thanks in advance,
    Niraja

    THis is the code i wrote to update the street: . but its not updating.. :((((((((((
    pls hlp fnds...
        CLEAR: ls_input_fields.
        ls_input_fields-objectname  = 'PARTNER'.
        ls_input_fields-ref_kind    = c_a.
        IF p_header-guid IS INITIAL.              
          ls_input_fields-ref_handle = c_handle.
          ls_sconf_partner-ref_handle = c_handle.
        ELSE.
          ls_input_fields-ref_guid = p_header-guid.
          ls_sconf_partner-ref_guid   = p_header-guid.
        ENDIF.
        ls_partfieldnames-fieldname =  'ADDR_NP'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'ADDR_NR'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'ADDR_ORIGIN'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'ADDR_TYPE'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'STD_BP_ADDRESS'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'KIND_OF_ENTRY'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_partfieldnames-fieldname = 'STREET'.
        INSERT ls_partfieldnames INTO TABLE lt_partfieldnames.
        ls_input_fields-field_names = lt_partfieldnames.
        CONCATENATE '000000000055 ' p_header-shipto_no '        BPBP'
               INTO  ls_input_fields-logical_key.
        INSERT ls_input_fields INTO TABLE lt_input_fields.
        ls_sconf_partner-ref_partner_handle = '0001'.
        ls_sconf_partner-ref_kind = c_a.
        ls_sconf_partner-ref_partner_fct = c_00000055.
        ls_sconf_partner-ref_partner_no  =  p_header-shipto_no. "'0010017295'.  "
        ls_sconf_partner-ref_no_type = 'BP'.
        ls_sconf_partner-ref_display_type = 'BP'.
        ls_sconf_partner-kind_of_entry = 'C'.
        ls_sconf_partner-partner_fct = c_00000055.
        ls_sconf_partner-partner_no  =  p_header-shipto_no. "'0010017295'.  "
        ls_sconf_partner-no_type = 'BP'.
        ls_sconf_partner-display_type = 'BP'.
        ls_sconf_partner-mainpartner = 'X'.
        ls_sconf_partner-addr_nr = '0000060435'.
        ls_sconf_partner-addr_np = ''.
        ls_sconf_partner-addr_type = 1.
        ls_sconf_partner-addr_origin = 'B'.
        ls_sconf_partner-relation_partner = '48222495E5735887E1000000CC9AA02A'.
        ls_sconf_partner-std_bp_address = ''.
        ls_sconf_partner-street = 'helloteststreet'.
        INSERT ls_sconf_partner INTO TABLE lt_sconf_partner.
    Can somebody give me any hints. pls ......
    thanks in advance,
    Niraja

  • Firefox 29 either will not startup or stops responding immediately

    I just downloaded the latest version of Firefox and immediately found it to be unstable; stopped responding 4 times within minutes of updating. Most of the time all I had to do was click Bookmarks and it would stop responding. Tried searching for help on here and tried a few things including clearing my cache, removing cookies and setting it clear history when it closes... etc
    Now Firefox is completely unusable. Sometimes it won't start at all and when it does startup it immediately stops responding altogether. I have to force it to close by ending the processes. I have tried opening FF in safe mode, resetting it, uninstalling it and going back to ver 28, restarting my laptop... nothing works. Am assuming this is because it remembers my settings each time. I don't want to lose my bookmarks and extensions etc. so don't delete them along with uninstalling FF.
    What can I do to fix this?

    Think I might've found a solution.
    AppData/Roaming/Mozilla/Firefox/Profiles - went into the profile I currently use (left the default one alone) and removed the following: cookies.sqlite, cookies.sqlite-shm and cookies.sqlire-wal.
    Then Firefox started normally and would respond, allowing me to return settings to what they were i.e deselecting 'Clear history when Firefox closes' which I've read is buggy in ver 29.
    Firefox is now working normally and so far hasn't crashed.

  • Hi pls respond my code its urgent

    hi,
    my prblm is in this program i used bapi function module for upload excel data.
    bapi_incominginvoice_park.
    in my output park number showing increasing for each item.
    so i need parknumber it should be same for all items.
    i am sending my code pls check this.
    *& Report  ZBAPI_MIRO
    && Developed By : ESWAR
    *& Created Date : 29.10.2007
    *& Requested By : GANESH(MM)
    *& SAP Area     : MM
    *& Output       : Excel format,Using BDC for Tcode MIRO
    REPORT  ZBAPI_MIRO.
    DATA: BEGIN OF INTERN OCCURS 0.
            INCLUDE STRUCTURE  ALSMEX_TABLINE.
    DATA: END OF INTERN.
    DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
      No of columns
    DATA: BEGIN OF DATA_TAB OCCURS 0,
          VALUE_0001(10), "DOC.TYPE
          VALUE_0002(10), "DOC DATE
          VALUE_0003(10), " PSTNG.DATE
        VALUE_0003(10), " GROSS_AMNT
          VALUE_0004(10), " REF_DOC_NO
          VALUE_0005(10),  "BLINE_DATE
          VALUE_0006(10),  "HEADER_TXT
          VALUE_0007(10),  "INVOICE_DOC_ITEM
          VALUE_0008(10),  "PO_NUMBER
          VALUE_0009(10), " PO_ITEM
          VALUE_0010(10),  "TAX_CODE
          VALUE_0011(11), "ITEM_AMOUNT
          VALUE_0012(10),  "SHEET_NO
          VALUE_0013(10),  "ITEM_TEXT
          VALUE_0014(10),  "SHEET_ITEM
          END OF DATA_TAB.
    DATA : BEGIN OF IT_DATA OCCURS 0,
         invoice_ind like  BAPI_INCINV_CREATE_HEADER-invoice_ind,
          doc_type    like  BAPI_INCINV_CREATE_HEADER-doc_type,
          doc_date    like  BAPI_INCINV_CREATE_HEADER-doc_date,
         pstng_date  like  BAPI_INCINV_CREATE_HEADER-pstng_date,
         comp_code   like  BAPI_INCINV_CREATE_HEADER-comp_code,
         currency    like  BAPI_INCINV_CREATE_HEADER-currency,
         gross_amount like  BAPI_INCINV_CREATE_HEADER-gross_amount,
         calc_tax_ind like  BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
        REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
          bline_date like  BAPI_INCINV_CREATE_HEADER-bline_date,
          header_txt like  BAPI_INCINV_CREATE_HEADER-header_txt,
        invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
        po_number like    BAPI_INCINV_CREATE_ITEM-po_number,
        po_item like    BAPI_INCINV_CREATE_ITEM-po_item,
        tax_code like    BAPI_INCINV_CREATE_ITEM-tax_code,
        item_amount like    BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
        sheet_no like    BAPI_INCINV_CREATE_ITEM-sheet_no,
        item_text like    BAPI_INCINV_CREATE_ITEM-item_text,
        sheet_item like    BAPI_INCINV_CREATE_ITEM-sheet_item,
          END OF IT_DATA.
         DATA : BEGIN OF IT_CHAR OCCURS 0,
           IND(6) TYPE N,     ""Index for comparison
           CHARN LIKE RCTMS-MNAME, "CHAR NAME
           CHARV LIKE RCTMS-MWERT, "CHAR VALUE
          END OF IT_CHAR.
          DATA: BEGIN OF it_msg OCCURS 0,
            po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
            po_item like BAPI_INCINV_CREATE_ITEM-po_item,
            message(20),
            message1(90),
            mblnr     TYPE mkpf-mblnr,
          END OF it_msg.
    DATA : W_DATA LIKE LINE OF IT_DATA.
    DATA : W_CHAR LIKE LINE OF IT_CHAR.
    DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
    FIELD-SYMBOLS : <L_FS> .
    DATA : W_INTERN   LIKE LINE OF INTERN,
           W_INTERN1  LIKE LINE OF IT_INTERN,
          W_DATA_TAB LIKE LINE OF DATA_TAB.
      DATA: TIND(4) TYPE N.
    DATA: ZWFELD(19),ZWFELD1(19).
    FIELD-SYMBOLS: <FS1>,<FS2>.
    DATA : G_MODE(1),G_UPDATE(1).
    DATA :   G_FLG(1).
    DATA : TOT_REC(6) TYPE N,
           DUP_REC(6) TYPE N,
           UPL_REC(6) TYPE N.
        DATA:  WA_DATA LIKE LINE OF IT_DATA,
                WA_DATA1 LIKE WA_DATA.
       DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
            WA_INVOICEDOCNUMBER  TYPE BAPI_INCINV_FLD-INV_DOC_NO,
            IT_ITEM LIKE   BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
            IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
    DATA:BEGIN OF IT_MBLNR OCCURS 0,
           MBLNR LIKE MKPF-MBLNR,
          MJAHR LIKE MKPF-MJAHR,
       END OF IT_MBLNR.
    *& Selection screen
    SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_FILE   LIKE RLGRAP-FILENAME OBLIGATORY.
    SELECTION-SCREEN END  OF BLOCK BLK.
    *& AT SELECTION-SCREEN
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
      PERFORM GET_FILE.
    *& Start of selection
    START-OF-SELECTION.
      PERFORM GET_BDC_DATA.
      PERFORM PROCESS_BDC_DATA.
      PERFORM BDC_UPLOAD.
      PERFORM display_log.
    *&      Form  GET_FILE
    FORM GET_FILE .
    *F4-HELP FILE
      CALL FUNCTION 'F4_FILENAME'
       EXPORTING
         PROGRAM_NAME        = SYST-CPROG
      DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = ' '
       IMPORTING
         FILE_NAME           = P_FILE.
    ENDFORM.                    " GET_FILE
    FORM GET_BDC_DATA .
      DATA : WRK_FLG(1).
      DATA : GIDX LIKE SY-TABIX.
      CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          FILENAME                = P_FILE
          I_BEGIN_COL             = '1'
          I_BEGIN_ROW             = '1'
          I_END_COL               = '250'
          I_END_ROW               = '50000'
        TABLES
          INTERN                  = INTERN
        EXCEPTIONS
          INCONSISTENT_PARAMETERS = 1
          UPLOAD_OLE              = 2
          OTHERS                  = 3.
      IF SY-SUBRC <> 0.
        WRITE:/ 'Upload Error ', SY-SUBRC.
      ELSE.
        SORT INTERN BY ROW COL.
        LOOP AT INTERN.
          TIND = INTERN-COL.
          CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
          ASSIGN (ZWFELD) TO <FS1>.
          <FS1> = INTERN-VALUE.
          AT END OF ROW.
            APPEND DATA_TAB.
            CLEAR:IT_CHAR,DATA_TAB.
          ENDAT.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " GET_BDC_DATA
    *&      Form  PROCESS_BDC_DATA
    FORM PROCESS_BDC_DATA .
      DATA : WRK_IND(6) TYPE N.
      DATA : WRK_ROW TYPE I,
             GIDX LIKE SY-TABIX.
      IF NOT DATA_TAB[] IS INITIAL.
        LOOP AT DATA_TAB INTO W_DATA_TAB.
          WRK_ROW = SY-TABIX.
         IT_DATA-DOC_TYPE    = W_DATA_TAB-VALUE_0001.
          IT_DATA-DOC_DATE    = W_DATA_TAB-VALUE_0002.
          IT_DATA-PSTNG_DATE    = W_DATA_TAB-VALUE_0003.
          it_data-ref_doc_no   = w_data_tab-value_0004.
         IT_DATA-GROSS_AMOUNT    = W_DATA_TAB-VALUE_0004.
          IT_DATA-BLINE_DATE     = W_DATA_TAB-VALUE_0005.
          IT_DATA-HEADER_TXT      = W_DATA_TAB-VALUE_0006.
          IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
          IT_DATA-PO_NUMBER      = W_DATA_TAB-VALUE_0008.
          IT_DATA-PO_ITEM     = W_DATA_TAB-VALUE_0009.
          IT_DATA-TAX_CODE     = W_DATA_TAB-VALUE_0010.
          IT_DATA-ITEM_AMOUNT     = W_DATA_TAB-VALUE_0011.
          IT_DATA-SHEET_NO   = W_DATA_TAB-VALUE_0012.
          IT_DATA-ITEM_TEXT  = W_DATA_TAB-VALUE_0013.
          IT_DATA-SHEET_ITEM  = W_DATA_TAB-VALUE_0014.
          APPEND IT_DATA.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    FORM BDC_UPLOAD.
    DATA:LW_DATE(10).
    DELETE ADJACENT DUPLICATES FROM it_data.
    LOOP AT IT_DATA INTO WA_DATA1.
    WA_DATA = WA_DATA1.
    While program finds the header record, post the previous entries
      if      WA_data-DOC_TYPE   NE ' '
         AND  wa_data-doc_date NE ' '
          AND wa_data-pstng_date NE ' '
          AND WA_data-REF_DOC_NO NE ' '
          AND WA_data-BLINE_DATE NE ' '
          AND WA_data-HEADER_TXT NE ' ' .
                  WA_HEADER-INVOICE_IND = 'X'.
                  WA_HEADER-COMP_CODE           = 'TSKY'.
                  WA_HEADER-CURRENCY            = 'INR'.
                  WA_HEADER-CALC_TAX_IND        = 'X'.
          IF sy-tabix NE 1.
    update
            PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
            REFRESH it_item.
            CLEAR: it_item, wa_header.
          ENDIF.
    *CONCATENATE WA_DATA-PSTNG_DATE+4(4)
                WA_DATA-PSTNG_DATE+2(2)
                WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
                WA_HEADER-DOC_DATE = LW_DATE.
                WA_HEADER-PSTNG_DATE = LW_DATE.
              wa_header-doc_type = wa_data-doc_type.
             wa_header-doc_date  =  WA_DATA-DOC_DATE.
           wa_header-pstng_date =  WA_DATA-PSTNG_DATE.
           WA_HEADER-REF_DOC_NO  = WA_DATA-REF_DOC_NO.
           WA_HEADER-BLINE_DATE =  WA_DATA-BLINE_DATE.
           WA_HEADER-HEADER_TXT =  WA_DATA-HEADER_TXT.
          ENDIF.
          IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
          IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
          IT_item-PO_ITEM = WA_DATA-PO_ITEM.
          IT_item-TAX_CODE = WA_DATA-TAX_CODE.
          IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
          IT_item-SHEET_NO = WA_DATA-SHEET_NO.
          IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
          IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
          APPEND it_item.
        CLEAR it_item.
      ENDLOOP.
      PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
    ENDFORM.                    " f0200_UPDATE
       FORM f0301_exe_bapi  TABLES   p_it_item STRUCTURE it_item
                         USING    p_wa_header.
         CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
          EXPORTING
            headerdata                = wa_header
          ADDRESSDATA               =
         IMPORTING
           INVOICEDOCNUMBER          = WA_INVOICEDOCNUMBER
          FISCALYEAR                = lc_gjahr
          tables
            itemdata                  = it_item
          ACCOUNTINGDATA            =
          GLACCOUNTDATA             =
          MATERIALDATA              =
          TAXDATA                   =
          WITHTAXDATA               =
          VENDORITEMSPLITDATA       =
            return                    = it_return.
            READ TABLE it_return INDEX 1.
      READ TABLE it_item INDEX 1.
      IF it_return-type EQ 'E'.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_itm.
        MOVE 'Discrepancy in PO' TO it_msg-message.
        MOVE it_return-message to it_msg-message1.
        APPEND it_msg.
        CLEAR it_msg.
        clear it_return.
      ELSE.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_item.
        MOVE 'Successfully parked' TO it_msg-message.
       MOVE  WA_INVOICEDOCNUMBER TO it_msg-mblnr.
        APPEND it_msg.
        CLEAR: it_msg, WA_INVOICEDOCNUMBER.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      ENDIF.
    ENDFORM.                    "f0301_exe_bapi
    FORM display_log .
    Display the log
      WRITE :  '10 Po_number',  25 'Message',  55 'Error message' ,135 'ParkedDocumentNumber'.
      ULINE.
      LOOP AT it_msg.
        WRITE : /10 it_msg-po_number,
              25 it_msg-message,
              55 it_msg-message1,
              135 it_msg-mblnr.
              ULINE.
      ENDLOOP.
    ENDFORM.                    " display_log

    hi,
    my prblm is in this program i used bapi function module for upload excel data.
    bapi_incominginvoice_park.
    in my output park number showing increasing for each item.
    so i need parknumber it should be same for all items.
    i am sending my code pls check this.
    *& Report  ZBAPI_MIRO
    && Developed By : ESWAR
    *& Created Date : 29.10.2007
    *& Requested By : GANESH(MM)
    *& SAP Area     : MM
    *& Output       : Excel format,Using BDC for Tcode MIRO
    REPORT  ZBAPI_MIRO.
    DATA: BEGIN OF INTERN OCCURS 0.
            INCLUDE STRUCTURE  ALSMEX_TABLINE.
    DATA: END OF INTERN.
    DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
      No of columns
    DATA: BEGIN OF DATA_TAB OCCURS 0,
          VALUE_0001(10), "DOC.TYPE
          VALUE_0002(10), "DOC DATE
          VALUE_0003(10), " PSTNG.DATE
        VALUE_0003(10), " GROSS_AMNT
          VALUE_0004(10), " REF_DOC_NO
          VALUE_0005(10),  "BLINE_DATE
          VALUE_0006(10),  "HEADER_TXT
          VALUE_0007(10),  "INVOICE_DOC_ITEM
          VALUE_0008(10),  "PO_NUMBER
          VALUE_0009(10), " PO_ITEM
          VALUE_0010(10),  "TAX_CODE
          VALUE_0011(11), "ITEM_AMOUNT
          VALUE_0012(10),  "SHEET_NO
          VALUE_0013(10),  "ITEM_TEXT
          VALUE_0014(10),  "SHEET_ITEM
          END OF DATA_TAB.
    DATA : BEGIN OF IT_DATA OCCURS 0,
         invoice_ind like  BAPI_INCINV_CREATE_HEADER-invoice_ind,
          doc_type    like  BAPI_INCINV_CREATE_HEADER-doc_type,
          doc_date    like  BAPI_INCINV_CREATE_HEADER-doc_date,
         pstng_date  like  BAPI_INCINV_CREATE_HEADER-pstng_date,
         comp_code   like  BAPI_INCINV_CREATE_HEADER-comp_code,
         currency    like  BAPI_INCINV_CREATE_HEADER-currency,
         gross_amount like  BAPI_INCINV_CREATE_HEADER-gross_amount,
         calc_tax_ind like  BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
        REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
          bline_date like  BAPI_INCINV_CREATE_HEADER-bline_date,
          header_txt like  BAPI_INCINV_CREATE_HEADER-header_txt,
        invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
        po_number like    BAPI_INCINV_CREATE_ITEM-po_number,
        po_item like    BAPI_INCINV_CREATE_ITEM-po_item,
        tax_code like    BAPI_INCINV_CREATE_ITEM-tax_code,
        item_amount like    BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
        sheet_no like    BAPI_INCINV_CREATE_ITEM-sheet_no,
        item_text like    BAPI_INCINV_CREATE_ITEM-item_text,
        sheet_item like    BAPI_INCINV_CREATE_ITEM-sheet_item,
          END OF IT_DATA.
         DATA : BEGIN OF IT_CHAR OCCURS 0,
           IND(6) TYPE N,     ""Index for comparison
           CHARN LIKE RCTMS-MNAME, "CHAR NAME
           CHARV LIKE RCTMS-MWERT, "CHAR VALUE
          END OF IT_CHAR.
          DATA: BEGIN OF it_msg OCCURS 0,
            po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
            po_item like BAPI_INCINV_CREATE_ITEM-po_item,
            message(20),
            message1(90),
            mblnr     TYPE mkpf-mblnr,
          END OF it_msg.
    DATA : W_DATA LIKE LINE OF IT_DATA.
    DATA : W_CHAR LIKE LINE OF IT_CHAR.
    DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
    FIELD-SYMBOLS : <L_FS> .
    DATA : W_INTERN   LIKE LINE OF INTERN,
           W_INTERN1  LIKE LINE OF IT_INTERN,
          W_DATA_TAB LIKE LINE OF DATA_TAB.
      DATA: TIND(4) TYPE N.
    DATA: ZWFELD(19),ZWFELD1(19).
    FIELD-SYMBOLS: <FS1>,<FS2>.
    DATA : G_MODE(1),G_UPDATE(1).
    DATA :   G_FLG(1).
    DATA : TOT_REC(6) TYPE N,
           DUP_REC(6) TYPE N,
           UPL_REC(6) TYPE N.
        DATA:  WA_DATA LIKE LINE OF IT_DATA,
                WA_DATA1 LIKE WA_DATA.
       DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
            WA_INVOICEDOCNUMBER  TYPE BAPI_INCINV_FLD-INV_DOC_NO,
            IT_ITEM LIKE   BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
            IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
    DATA:BEGIN OF IT_MBLNR OCCURS 0,
           MBLNR LIKE MKPF-MBLNR,
          MJAHR LIKE MKPF-MJAHR,
       END OF IT_MBLNR.
    *& Selection screen
    SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_FILE   LIKE RLGRAP-FILENAME OBLIGATORY.
    SELECTION-SCREEN END  OF BLOCK BLK.
    *& AT SELECTION-SCREEN
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
      PERFORM GET_FILE.
    *& Start of selection
    START-OF-SELECTION.
      PERFORM GET_BDC_DATA.
      PERFORM PROCESS_BDC_DATA.
      PERFORM BDC_UPLOAD.
      PERFORM display_log.
    *&      Form  GET_FILE
    FORM GET_FILE .
    *F4-HELP FILE
      CALL FUNCTION 'F4_FILENAME'
       EXPORTING
         PROGRAM_NAME        = SYST-CPROG
      DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = ' '
       IMPORTING
         FILE_NAME           = P_FILE.
    ENDFORM.                    " GET_FILE
    FORM GET_BDC_DATA .
      DATA : WRK_FLG(1).
      DATA : GIDX LIKE SY-TABIX.
      CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          FILENAME                = P_FILE
          I_BEGIN_COL             = '1'
          I_BEGIN_ROW             = '1'
          I_END_COL               = '250'
          I_END_ROW               = '50000'
        TABLES
          INTERN                  = INTERN
        EXCEPTIONS
          INCONSISTENT_PARAMETERS = 1
          UPLOAD_OLE              = 2
          OTHERS                  = 3.
      IF SY-SUBRC <> 0.
        WRITE:/ 'Upload Error ', SY-SUBRC.
      ELSE.
        SORT INTERN BY ROW COL.
        LOOP AT INTERN.
          TIND = INTERN-COL.
          CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
          ASSIGN (ZWFELD) TO <FS1>.
          <FS1> = INTERN-VALUE.
          AT END OF ROW.
            APPEND DATA_TAB.
            CLEAR:IT_CHAR,DATA_TAB.
          ENDAT.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " GET_BDC_DATA
    *&      Form  PROCESS_BDC_DATA
    FORM PROCESS_BDC_DATA .
      DATA : WRK_IND(6) TYPE N.
      DATA : WRK_ROW TYPE I,
             GIDX LIKE SY-TABIX.
      IF NOT DATA_TAB[] IS INITIAL.
        LOOP AT DATA_TAB INTO W_DATA_TAB.
          WRK_ROW = SY-TABIX.
         IT_DATA-DOC_TYPE    = W_DATA_TAB-VALUE_0001.
          IT_DATA-DOC_DATE    = W_DATA_TAB-VALUE_0002.
          IT_DATA-PSTNG_DATE    = W_DATA_TAB-VALUE_0003.
          it_data-ref_doc_no   = w_data_tab-value_0004.
         IT_DATA-GROSS_AMOUNT    = W_DATA_TAB-VALUE_0004.
          IT_DATA-BLINE_DATE     = W_DATA_TAB-VALUE_0005.
          IT_DATA-HEADER_TXT      = W_DATA_TAB-VALUE_0006.
          IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
          IT_DATA-PO_NUMBER      = W_DATA_TAB-VALUE_0008.
          IT_DATA-PO_ITEM     = W_DATA_TAB-VALUE_0009.
          IT_DATA-TAX_CODE     = W_DATA_TAB-VALUE_0010.
          IT_DATA-ITEM_AMOUNT     = W_DATA_TAB-VALUE_0011.
          IT_DATA-SHEET_NO   = W_DATA_TAB-VALUE_0012.
          IT_DATA-ITEM_TEXT  = W_DATA_TAB-VALUE_0013.
          IT_DATA-SHEET_ITEM  = W_DATA_TAB-VALUE_0014.
          APPEND IT_DATA.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    FORM BDC_UPLOAD.
    DATA:LW_DATE(10).
    DELETE ADJACENT DUPLICATES FROM it_data.
    LOOP AT IT_DATA INTO WA_DATA1.
    WA_DATA = WA_DATA1.
    While program finds the header record, post the previous entries
      if      WA_data-DOC_TYPE   NE ' '
         AND  wa_data-doc_date NE ' '
          AND wa_data-pstng_date NE ' '
          AND WA_data-REF_DOC_NO NE ' '
          AND WA_data-BLINE_DATE NE ' '
          AND WA_data-HEADER_TXT NE ' ' .
                  WA_HEADER-INVOICE_IND = 'X'.
                  WA_HEADER-COMP_CODE           = 'TSKY'.
                  WA_HEADER-CURRENCY            = 'INR'.
                  WA_HEADER-CALC_TAX_IND        = 'X'.
          IF sy-tabix NE 1.
    update
            PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
            REFRESH it_item.
            CLEAR: it_item, wa_header.
          ENDIF.
    *CONCATENATE WA_DATA-PSTNG_DATE+4(4)
                WA_DATA-PSTNG_DATE+2(2)
                WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
                WA_HEADER-DOC_DATE = LW_DATE.
                WA_HEADER-PSTNG_DATE = LW_DATE.
              wa_header-doc_type = wa_data-doc_type.
             wa_header-doc_date  =  WA_DATA-DOC_DATE.
           wa_header-pstng_date =  WA_DATA-PSTNG_DATE.
           WA_HEADER-REF_DOC_NO  = WA_DATA-REF_DOC_NO.
           WA_HEADER-BLINE_DATE =  WA_DATA-BLINE_DATE.
           WA_HEADER-HEADER_TXT =  WA_DATA-HEADER_TXT.
          ENDIF.
          IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
          IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
          IT_item-PO_ITEM = WA_DATA-PO_ITEM.
          IT_item-TAX_CODE = WA_DATA-TAX_CODE.
          IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
          IT_item-SHEET_NO = WA_DATA-SHEET_NO.
          IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
          IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
          APPEND it_item.
        CLEAR it_item.
      ENDLOOP.
      PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
    ENDFORM.                    " f0200_UPDATE
       FORM f0301_exe_bapi  TABLES   p_it_item STRUCTURE it_item
                         USING    p_wa_header.
         CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
          EXPORTING
            headerdata                = wa_header
          ADDRESSDATA               =
         IMPORTING
           INVOICEDOCNUMBER          = WA_INVOICEDOCNUMBER
          FISCALYEAR                = lc_gjahr
          tables
            itemdata                  = it_item
          ACCOUNTINGDATA            =
          GLACCOUNTDATA             =
          MATERIALDATA              =
          TAXDATA                   =
          WITHTAXDATA               =
          VENDORITEMSPLITDATA       =
            return                    = it_return.
            READ TABLE it_return INDEX 1.
      READ TABLE it_item INDEX 1.
      IF it_return-type EQ 'E'.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_itm.
        MOVE 'Discrepancy in PO' TO it_msg-message.
        MOVE it_return-message to it_msg-message1.
        APPEND it_msg.
        CLEAR it_msg.
        clear it_return.
      ELSE.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_item.
        MOVE 'Successfully parked' TO it_msg-message.
       MOVE  WA_INVOICEDOCNUMBER TO it_msg-mblnr.
        APPEND it_msg.
        CLEAR: it_msg, WA_INVOICEDOCNUMBER.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      ENDIF.
    ENDFORM.                    "f0301_exe_bapi
    FORM display_log .
    Display the log
      WRITE :  '10 Po_number',  25 'Message',  55 'Error message' ,135 'ParkedDocumentNumber'.
      ULINE.
      LOOP AT it_msg.
        WRITE : /10 it_msg-po_number,
              25 it_msg-message,
              55 it_msg-message1,
              135 it_msg-mblnr.
              ULINE.
      ENDLOOP.
    ENDFORM.                    " display_log

  • Firefox stops responding immediately after startup. I've tried all the recommended troubleshooting methods and cannot figure out why.

    I have tried all of the recommended troubleshooting methods but none of them seem to work. This issue began despite no change being made to Firefox, or my computer; it just spontaneously stopped responding after launch.
    Not only does Firefox stop responding, but it also prevents any other programs from being launched, and make already launched programs extremely slow. Furthermore, once it stops responding, it becomes impossible to get rid of; the only way is to log off, or restart the computer entirely.

    Do a malware check with several malware scanning programs on the Windows computer.
    Please scan with all programs because each program detects different malware.
    All these programs have free versions.
    Make sure that you update each program to get the latest version of their databases before doing a scan.
    *Malwarebytes' Anti-Malware:<br>http://www.malwarebytes.org/mbam.php
    *AdwCleaner:<br>http://www.bleepingcomputer.com/download/adwcleaner/<br>http://www.softpedia.com/get/Antivirus/Removal-Tools/AdwCleaner.shtml
    *SuperAntispyware:<br>http://www.superantispyware.com/
    *Microsoft Safety Scanner:<br>http://www.microsoft.com/security/scanner/en-us/default.aspx
    *Windows Defender:<br>http://windows.microsoft.com/en-us/windows/using-defender
    *Spybot Search & Destroy:<br>http://www.safer-networking.org/en/index.html
    *Kasperky Free Security Scan:<br>http://www.kaspersky.com/security-scan
    You can also do a check for a rootkit infection with TDSSKiller.
    *Anti-rootkit utility TDSSKiller:<br>http://support.kaspersky.com/5350?el=88446
    See also:
    *"Spyware on Windows": http://kb.mozillazine.org/Popups_not_blocked
    *https://support.mozilla.org/kb/troubleshoot-firefox-issues-caused-malware

  • Hi pls respond my code

    Program Name: ZMM_MIRO                         Date       : 05/01/07        *
                                                   Version    : Final           *
    Author  : Rashmi Patil                         Last Update: 08/01/07        *
    Description : Program to print invoice document.                            *
    Includes          : None                                                    *
    Logical Databases : None                                                    *
    External Calls    :                                                         *
          Function Modules : POPUP_TO_INFORM                                    *
          Transactions     : ZMIRO                                              *
    Scheduling Issues :  None, run manually                                     *
    *Request      Owner  Date           Description                               *
    DEVK906817   Rashmi 16/03/2007     Addition of Service tax, vat & tds details
    *DEVK907005   Rashmi 10/04/2007     Addition of ecess,netpr in doc currency   *
    *DEVK907017   Rashmi 12/04/2007     Correction in netpr                       *
    DEVK907045   Rashmi 17/04/2007     Correction in o/p for multiple TDS entries
    *DEVK907292   Rashmi 21/05/2007     Correction in object key and fiscal year  *
    *DEVK907460   Dharani 06/06/2007    PIR-60118_Addition planned delivery cost  *
                                      in MIRO print                             *
    REPORT  zmm_miro        LINE-SIZE       132
                            LINE-COUNT       60
                            MESSAGE-ID       00
                            NO STANDARD PAGE HEADING.
    TABLES: ekbe.
    DATA : ebeln LIKE ekbe-ebeln,
           ebeln1(90),
           ebeln_1(10),
           ebeln_2(10),
           ebeln_3(10),
           gjahr LIKE ekbe-gjahr,
           mjahr LIKE mkpf-mjahr,
           addrnr LIKE lfa1-adrnr,
           mblnr LIKE mseg-mblnr,
           belnr1 LIKE bkpf-belnr,
           belnr2 LIKE bkpf-belnr,
           objkey1(14),
           objkey2(14),
           total(10) TYPE p DECIMALS 2,
           v_lines TYPE i,
           count TYPE i,
           start_at_line TYPE i,
           end_at_line TYPE i,
           counter TYPE i,
           x TYPE f,
           tot_number_of_lines TYPE i,
           tot_number_of_pages TYPE i,
           page_number VALUE 1 TYPE i,
           ernam LIKE ekbe-ernam,
           total1(10) TYPE p DECIMALS 2.                        "DEVK907005
    DATA : BEGIN OF it_ekbe OCCURS 0,
           ebeln LIKE ekbe-ebeln,
           END OF it_ekbe.
    DATA : BEGIN OF it_mkpf OCCURS 0,
           ebeln LIKE ekbe-ebeln,
           mblnr LIKE mkpf-mblnr,
           budat LIKE mkpf-budat,
           belnr LIKE bkpf-belnr,                               "DEVK907031
           END OF it_mkpf.
    DATA : BEGIN OF it_bseg OCCURS 0,
           belnr LIKE bseg-belnr,
           umskz LIKE bseg-umskz,
           hkont LIKE bseg-hkont,
           shkzg LIKE bseg-shkzg,
           dmbtr LIKE bseg-dmbtr,
           koart LIKE bseg-koart,
           mwskz LIKE bseg-mwskz,
           txt20 LIKE skat-txt20,
           ktosl LIKE bseg-ktosl,                               "DEVK906817
           fwbas LIKE bseg-fwbas,                               "DEVK906817
           wrbtr LIKE bseg-wrbtr,
           END OF it_bseg.
    DATA : BEGIN OF it_final OCCURS 0,
           belnr LIKE ekbe-belnr,
           budat3 LIKE ekbe-budat,
           lifnr LIKE ekko-lifnr,
           name1 LIKE lfa1-name1,
           street LIKE adrc-street,
           str_suppl3 LIKE adrc-str_suppl3,
           location LIKE adrc-location,
           city1 LIKE adrc-city1,
           city2 LIKE adrc-city2,
           j_1ipanno LIKE j_1imovend-j_1ipanno,
           j_1isern LIKE j_1imovend-j_1isern,
           j_1ilstno LIKE j_1imovend-j_1ilstno,
           belnr1 LIKE bkpf-belnr,
           budat1 LIKE bkpf-budat,
           belnr2 LIKE bkpf-belnr,
           budat2 LIKE bkpf-budat,
           xblnr LIKE bkpf-xblnr,                               "DEVK906817
           mblnr LIKE mkpf-mblnr,
           budat4 LIKE mkpf-budat,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           mwskz LIKE bseg-mwskz,
           umskz LIKE bseg-umskz,
           aufnr LIKE rbco-aufnr,
           kostl LIKE rbco-kostl,
           amount1(20),
           amount2(20),
           ktosl LIKE bseg-ktosl,                               "DEVK906817
           fwbas LIKE bseg-fwbas,                               "DEVK906817
           dc LIKE bkpf-waers,
           lc LIKE bkpf-hwaer,
           END OF it_final.
    ***Begin of DEVK906817
    DATA : BEGIN OF it_stax OCCURS 0,
           mwskz LIKE bseg-mwskz,
           text1 LIKE t007s-text1,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,               "Base amount
          amount(20),                                         "DEVK907005
           amount(10) TYPE p DECIMALS 2,                        "DEVK907005
           dc_indicator(10),
           END OF it_stax.
    DATA : BEGIN OF it_tds OCCURS 0,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,               "Base amount
          amount(20),                                         "DEVK907005
           amount(10) TYPE p DECIMALS 2,                        "DEVK907005
           dc_indicator(10),
           END OF it_tds.
    DATA : BEGIN OF it_vat OCCURS 0,
           mwskz LIKE bseg-mwskz,
           text1 LIKE t007s-text1,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,               "Base amount
          amount(20),                                         "DEVK907005
           amount(10) TYPE p DECIMALS 2,                        "DEVK907005
           dc_indicator(10),
           END OF it_vat.
    DATA : tds_base(20) VALUE 0.
    ***End of DEVK906817
    ***Begin of DEVK907005
    DATA : BEGIN OF it_ecess OCCURS 0,
           mwskz LIKE bseg-mwskz,
           text1 LIKE t007s-text1,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,               "Base amount
           amount(10) TYPE p DECIMALS 2,
           dc_indicator(10),
           END OF it_ecess.
    ***End of DEVK907005
    ***BEGIN OF DEVK907045
    DATA : BEGIN OF it_tds1 OCCURS 0,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,
           amount(10) TYPE p DECIMALS 2,
           dc_indicator(10),
           END OF it_tds1.
    DATA : BEGIN OF it_tds2 OCCURS 0,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,
           amount(10) TYPE p DECIMALS 2,
           dc_indicator(10),
           END OF it_tds2.
    DATA : BEGIN OF it_tds3 OCCURS 0,
           hkont LIKE bseg-hkont,
           txt20 LIKE skat-txt20,
           fwbas LIKE bseg-fwbas,
           amount(10) TYPE p DECIMALS 2,
           dc_indicator(10),
           END OF it_tds3.
    ***END OF DEVK907045
    data: year like bkpf-gjahr,        "DEVK907292
          bkpf_year like bkpf-gjahr .  "DEVK907292
    SELECTION-SCREEN
    SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    *PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
    SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
    SELECTION-SCREEN: END OF BLOCK b1.
    START-OF-SELECTION.
      IF p_belnr NE ''.
        SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
          WHERE belnr IN p_belnr.
    Start of changes by 147547 on 06/06/2007     DEVK907460   PIR-60118_Addition planned delivery cost  in MIRO print
          if sy-subrc ne 0.
          select single ebeln gjahr from rseg into (ebeln,gjahr)
           where belnr IN p_belnr.
           if sy-subrc = 0.
           select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
           where belnr IN  p_belnr.
           endif.
          endif.
    End of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost in MIRO print
      ENDIF.
    *---IF ENTERED RECORD IS INVALID
    Start of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost in MIRO print
    IF sy-subrc <> 0.
    End of changes by 147547 on 06/06/2007  DEVK907460   PIR-60118_Addition planned delivery cost   in MIRO print
    if p_belnr eq ''.
        CALL FUNCTION 'POPUP_TO_INFORM'
          EXPORTING
            titel = sy-repid
            txt1  = text-002
            txt2  = text-003.
        EXIT.
      ELSE.
    *---TO FETCH VENDOR NUMBER
    if it_final-lifnr = ''.
        SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
         WHERE ebeln = ebeln .
    endif.
    *---TO FETCH VENDOR ADDRESS
        SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
        SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
          INTO CORRESPONDING FIELDS OF it_final
              WHERE addrnumber = addrnr.
        SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
         WHERE lifnr = it_final-lifnr.
    *---TO FETCH MATERIAL DOCUMENT NUMBER
        SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
        SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
          WHERE mblnr = mblnr.
    ***BEGIN OF DEVK907292
       CONCATENATE: p_belnr gjahr INTO objkey1,
                    it_final-mblnr mjahr INTO objkey2.
       select single gjahr from rbkp into year
         where belnr = p_belnr and budat = it_final-budat3.
         concatenate p_belnr year into objkey1.
    ***END OF DEVK907292
    ***Begin of DEVK906817
       SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
        WHERE awkey = objkey1.
       SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
       WHERE awkey = objkey1.                                     "DEVK907292
        SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
        WHERE awkey = objkey1.                                      "DEVK907292
    ***End of DEVK906817
        SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
         WHERE awkey = objkey2.
    *---TO FETCH DATA FROM TABLE BSEG
    Begin of DEVK906817
       SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
         WHERE belnr = it_final-belnr1.
        SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
          WHERE belnr = it_final-belnr1
          AND gjahr = bkpf_year.                           "DEVK907292
    ***End of DEVK906817
        LOOP AT it_bseg.
          SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
           WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
          IF it_bseg-koart = 'K'.
            MOVE it_final-name1 TO it_bseg-txt20.
            MOVE : it_bseg-dmbtr TO total,                      "DEVK907017
                   it_bseg-wrbtr TO total1.                     "DEVK907017
          ENDIF.
          MODIFY it_bseg.
        ENDLOOP.
        SORT it_bseg BY shkzg.
       total = 0.                       "DEVK907017
       total1 = 0.                      "DEVK907017
        LOOP AT it_bseg.
          AT FIRST.
            SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
              WHERE belnr = p_belnr.
            CONDENSE it_final-aufnr.
          ENDAT.
          MOVE : p_belnr TO it_final-belnr,
                 it_bseg-hkont TO it_final-hkont,
                 it_bseg-txt20 TO it_final-txt20,
                 it_bseg-mwskz TO it_final-mwskz,
                 it_bseg-umskz TO it_final-umskz,
                 it_bseg-ktosl TO it_final-ktosl,               "DEVK906817
                 it_bseg-fwbas TO it_final-fwbas.               "DEVK906817
          IF it_bseg-shkzg = 'H'.
            MOVE '' TO it_final-amount2.
            MOVE it_bseg-dmbtr TO it_final-amount1.
            tds_base = tds_base + it_final-amount1.             "DEVK906817
    Begin of DEVK907017
           IF it_bseg-mwskz = ''.
             SUBTRACT it_bseg-dmbtr FROM total.
             SUBTRACT it_bseg-wrbtr FROM total1.               "DEVK907005
           ELSE.
             ADD it_bseg-dmbtr TO total.
             ADD it_bseg-wrbtr TO total1.                      "DEVK907005
           ENDIF.
    End of DEVK907017
          ELSE.
            MOVE '' TO it_final-amount1.
            MOVE it_bseg-dmbtr TO it_final-amount2.
          ENDIF.
          APPEND it_final.
          it_final-kostl = ''.
          it_final-aufnr = ''.
        ENDLOOP.
    Begin of DEVK906817
    *--- To get service tax details .
       LOOP AT it_final WHERE ktosl = 'ESE'                                      "DEVK907005
        LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'.  "DEVK907005
          MOVE-CORRESPONDING it_final TO it_stax.
          SELECT SINGLE text1 FROM t007s INTO it_stax-text1
            WHERE mwskz = it_stax-mwskz
            AND spras = 'E'
            AND kalsm = 'ZTAXIN'.
          it_stax-amount = it_final-amount1 + it_final-amount2.
          IF it_final-amount1 = ''.
            MOVE 'DEBIT' TO it_stax-dc_indicator.
          ELSE .
            MOVE 'CREDIT' TO it_stax-dc_indicator.
          ENDIF.
        ENDLOOP.
    Begin of DEVK907005
    *--- To get ecess details .
        LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'.  "DEVK907005
          MOVE-CORRESPONDING it_final TO it_ecess.
          SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
            WHERE mwskz = it_ecess-mwskz
            AND spras = 'E'
            AND kalsm = 'ZTAXIN'.
          it_ecess-amount = it_final-amount1 + it_final-amount2.
          IF it_final-amount1 = ''.
            MOVE 'DEBIT' TO it_ecess-dc_indicator.
          ELSE .
            MOVE 'CREDIT' TO it_ecess-dc_indicator.
          ENDIF.
        ENDLOOP.
    End of DEVK907005
    *--- To get TDS details .
        LOOP AT it_final WHERE mwskz = ''.
          MOVE-CORRESPONDING it_final TO it_tds.
          it_tds-amount = it_final-amount1 + it_final-amount2.
          MOVE tds_base TO it_tds-fwbas.
          MOVE 'CREDIT' TO it_tds-dc_indicator.
    ***BEGIN OF DEVK907045
         ENDLOOP.
          APPEND it_tds.
        ENDLOOP.
        LOOP AT it_tds.
          IF sy-tabix = 1.
            MOVE it_tds TO it_tds1.
          ENDIF.
          IF sy-tabix = 2.
            MOVE it_tds TO it_tds2.
          ENDIF.
          IF sy-tabix = 3.
            MOVE it_tds TO it_tds3.
          ENDIF.
        ENDLOOP.
    ***END OF DEVK907045
    *--- To get VAT/Sales tax details .
        LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
          MOVE-CORRESPONDING it_final TO it_vat.
          SELECT SINGLE text1 FROM t007s INTO it_vat-text1
            WHERE mwskz = it_vat-mwskz
            AND spras = 'E'
            AND kalsm = 'ZTAXIN'.
          it_vat-amount = it_final-amount1 + it_final-amount2.
          IF it_final-amount1 = ''.
            MOVE 'DEBIT' TO it_vat-dc_indicator.
          ELSE .
            MOVE 'CREDIT' TO it_vat-dc_indicator.
          ENDIF.
        ENDLOOP.
    End of DEVK906817
    *---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
        SELECT ebeln FROM ekbe INTO TABLE it_ekbe
          WHERE belnr IN p_belnr.
        LOOP AT it_ekbe.
          SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
    ***BEGIN OF DEVK907031
         SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
            WHERE mblnr = mblnr.
          SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
          WHERE mblnr = mblnr.
          CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
          SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
          WHERE awkey = objkey2.
    ***END OF DEVK907031
          MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
          APPEND it_mkpf.
          CLEAR it_mkpf.
        ENDLOOP.
      ENDIF.
      CALL FUNCTION 'OPEN_FORM'
        EXPORTING
          form     = 'ZMIRO'
          language = 'E'.
      CLEAR it_final.
      DESCRIBE TABLE it_final LINES tot_number_of_lines.
      x = tot_number_of_lines / 20.
      tot_number_of_pages = CEIL( x ).
      WHILE page_number LE tot_number_of_pages.
    *--- START OF PAGE
        CALL FUNCTION 'START_FORM'
          EXPORTING
            form        = 'ZMIRO'
            language    = 'E'
            startpage   = 'FIRST'
            program     = 'ZMM_MIRO'
          EXCEPTIONS
            form        = 1
            format      = 2
            unended     = 3
            unopened    = 4
            unused      = 5
            spool_error = 6
            codepage    = 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.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            window                   = 'FIRST'
          EXCEPTIONS
            element                  = 1
            function                 = 2
            type                     = 3
            unopened                 = 4
            unstarted                = 5
            window                   = 6
            bad_pageformat_for_print = 7
            spool_error              = 8
            codepage                 = 9
            OTHERS                   = 10.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            element                  = 'HEADER'
            window                   = 'MAIN'
          EXCEPTIONS
            element                  = 1
            function                 = 2
            type                     = 3
            unopened                 = 4
            unstarted                = 5
            window                   = 6
            bad_pageformat_for_print = 7
            spool_error              = 8
            codepage                 = 9
            OTHERS                   = 10.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
    *---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
        start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
        end_at_line = 20 * page_number.
        IF end_at_line GT tot_number_of_lines.
          end_at_line = tot_number_of_lines.
        ENDIF.
        DESCRIBE TABLE it_final LINES v_lines.
        LOOP AT it_final FROM start_at_line TO end_at_line.
          CALL FUNCTION 'WRITE_FORM'
            EXPORTING
              element                  = 'LINE_ITEMS'
              window                   = 'MAIN'
            EXCEPTIONS
              element                  = 1
              function                 = 2
              type                     = 3
              unopened                 = 4
              unstarted                = 5
              window                   = 6
              bad_pageformat_for_print = 7
              spool_error              = 8
              codepage                 = 9
              OTHERS                   = 10.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
          CALL FUNCTION 'WRITE_FORM'
            EXPORTING
              window                   = 'WINDOW3'
            EXCEPTIONS
              element                  = 1
              function                 = 2
              type                     = 3
              unopened                 = 4
              unstarted                = 5
              window                   = 6
              bad_pageformat_for_print = 7
              spool_error              = 8
              codepage                 = 9
              OTHERS                   = 10.
          IF sy-subrc <> 0.
            MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
          ENDIF.
    hi ,
    pls  help me, this is my print program . my requirement is print multiple invoice documents,.
    earlier it was print single t invoice docment.so in selection screen   they used parameter for invoice.
    now my requirement is make it parameter as select-option.
    pls i have to submit today only pls help me.
    check my print program below.
        ENDLOOP.
        CALL FUNCTION 'END_FORM'
        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 NEXT PAGE.
        page_number = page_number + 1.
        start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
        end_at_line = 20 * page_number.
        IF end_at_line GT tot_number_of_lines.
          end_at_line = tot_number_of_lines.
        ENDIF.
      ENDWHILE.
    *--- START OF LAST PAGE
      CALL FUNCTION 'START_FORM'
        EXPORTING
          form        = 'ZMIRO'
          language    = 'E'
          startpage   = 'PAGE1'
          program     = 'ZMM_MIRO'
        EXCEPTIONS
          form        = 1
          format      = 2
          unended     = 3
          unopened    = 4
          unused      = 5
          spool_error = 6
          codepage    = 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.
    CALL FUNCTION 'WRITE_FORM'
         EXPORTING
           window                   = 'WINDOW6'
         EXCEPTIONS
           element                  = 1
           function                 = 2
           type                     = 3
           unopened                 = 4
           unstarted                = 5
           window                   = 6
           bad_pageformat_for_print = 7
           spool_error              = 8
           codepage                 = 9
           OTHERS                   = 10.
       IF sy-subrc <> 0.
         MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
       ENDIF.
      LOOP AT it_mkpf.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            window                   = 'WINDOW4'
          EXCEPTIONS
            element                  = 1
            function                 = 2
            type                     = 3
            unopened                 = 4
            unstarted                = 5
            window                   = 6
            bad_pageformat_for_print = 7
            spool_error              = 8
            codepage                 = 9
            OTHERS                   = 10.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                  WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
      ENDLOOP.
    ***Begin of DEVK906817
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window                   = 'WINDOW7'
        EXCEPTIONS
          element                  = 1
          function                 = 2
          type                     = 3
          unopened                 = 4
          unstarted                = 5
          window                   = 6
          bad_pageformat_for_print = 7
          spool_error              = 8
          codepage                 = 9
          OTHERS                   = 10.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ***End of DEVK906817
      CALL FUNCTION 'WRITE_FORM'
        EXPORTING
          window                   = 'WINDOW5'
        EXCEPTIONS
          element                  = 1
          function                 = 2
          type                     = 3
          unopened                 = 4
          unstarted                = 5
          window                   = 6
          bad_pageformat_for_print = 7
          spool_error              = 8
          codepage                 = 9
          OTHERS                   = 10.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CALL FUNCTION 'END_FORM'
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
      CALL FUNCTION 'CLOSE_FORM'.

    hi ,
    my requirement is print multiple  invoice documents.earlier it was printed only sinle invoice document.
    now i made invoice as a select-option instead of parameter .
    but remaining code  how &where should i write,
    pls provide code for this program.
    Program Name: ZMM_MIRO Date : 05/01/07 *
    Version : Final *
    Author : Rashmi Patil Last Update: 08/01/07 *
    Description : Program to print invoice document. *
    Includes : None *
    Logical Databases : None *
    External Calls : *
    Function Modules : POPUP_TO_INFORM *
    Transactions : ZMIRO *
    Scheduling Issues : None, run manually *
    *Request Owner Date Description *
    DEVK906817 Rashmi 16/03/2007 Addition of Service tax, vat & tds details
    *DEVK907005 Rashmi 10/04/2007 Addition of ecess,netpr in doc currency *
    *DEVK907017 Rashmi 12/04/2007 Correction in netpr *
    DEVK907045 Rashmi 17/04/2007 Correction in o/p for multiple TDS entries
    *DEVK907292 Rashmi 21/05/2007 Correction in object key and fiscal year *
    *DEVK907460 Dharani 06/06/2007 PIR-60118_Addition planned delivery cost *
    in MIRO print *
    REPORT zmm_miro LINE-SIZE 132
    LINE-COUNT 60
    MESSAGE-ID 00
    NO STANDARD PAGE HEADING.
    TABLES: ekbe.
    DATA : ebeln LIKE ekbe-ebeln,
    ebeln1(90),
    ebeln_1(10),
    ebeln_2(10),
    ebeln_3(10),
    gjahr LIKE ekbe-gjahr,
    mjahr LIKE mkpf-mjahr,
    addrnr LIKE lfa1-adrnr,
    mblnr LIKE mseg-mblnr,
    belnr1 LIKE bkpf-belnr,
    belnr2 LIKE bkpf-belnr,
    objkey1(14),
    objkey2(14),
    total(10) TYPE p DECIMALS 2,
    v_lines TYPE i,
    count TYPE i,
    start_at_line TYPE i,
    end_at_line TYPE i,
    counter TYPE i,
    x TYPE f,
    tot_number_of_lines TYPE i,
    tot_number_of_pages TYPE i,
    page_number VALUE 1 TYPE i,
    ernam LIKE ekbe-ernam,
    total1(10) TYPE p DECIMALS 2. "DEVK907005
    DATA : BEGIN OF it_ekbe OCCURS 0,
    ebeln LIKE ekbe-ebeln,
    END OF it_ekbe.
    DATA : BEGIN OF it_mkpf OCCURS 0,
    ebeln LIKE ekbe-ebeln,
    mblnr LIKE mkpf-mblnr,
    budat LIKE mkpf-budat,
    belnr LIKE bkpf-belnr, "DEVK907031
    END OF it_mkpf.
    DATA : BEGIN OF it_bseg OCCURS 0,
    belnr LIKE bseg-belnr,
    umskz LIKE bseg-umskz,
    hkont LIKE bseg-hkont,
    shkzg LIKE bseg-shkzg,
    dmbtr LIKE bseg-dmbtr,
    koart LIKE bseg-koart,
    mwskz LIKE bseg-mwskz,
    txt20 LIKE skat-txt20,
    ktosl LIKE bseg-ktosl, "DEVK906817
    fwbas LIKE bseg-fwbas, "DEVK906817
    wrbtr LIKE bseg-wrbtr,
    END OF it_bseg.
    DATA : BEGIN OF it_final OCCURS 0,
    belnr LIKE ekbe-belnr,
    budat3 LIKE ekbe-budat,
    lifnr LIKE ekko-lifnr,
    name1 LIKE lfa1-name1,
    street LIKE adrc-street,
    str_suppl3 LIKE adrc-str_suppl3,
    location LIKE adrc-location,
    city1 LIKE adrc-city1,
    city2 LIKE adrc-city2,
    j_1ipanno LIKE j_1imovend-j_1ipanno,
    j_1isern LIKE j_1imovend-j_1isern,
    j_1ilstno LIKE j_1imovend-j_1ilstno,
    belnr1 LIKE bkpf-belnr,
    budat1 LIKE bkpf-budat,
    belnr2 LIKE bkpf-belnr,
    budat2 LIKE bkpf-budat,
    xblnr LIKE bkpf-xblnr, "DEVK906817
    mblnr LIKE mkpf-mblnr,
    budat4 LIKE mkpf-budat,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    mwskz LIKE bseg-mwskz,
    umskz LIKE bseg-umskz,
    aufnr LIKE rbco-aufnr,
    kostl LIKE rbco-kostl,
    amount1(20),
    amount2(20),
    ktosl LIKE bseg-ktosl, "DEVK906817
    fwbas LIKE bseg-fwbas, "DEVK906817
    dc LIKE bkpf-waers,
    lc LIKE bkpf-hwaer,
    END OF it_final.
    ***Begin of DEVK906817
    DATA : BEGIN OF it_stax OCCURS 0,
    mwskz LIKE bseg-mwskz,
    text1 LIKE t007s-text1,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas, "Base amount
    amount(20), "DEVK907005
    amount(10) TYPE p DECIMALS 2, "DEVK907005
    dc_indicator(10),
    END OF it_stax.
    DATA : BEGIN OF it_tds OCCURS 0,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas, "Base amount
    amount(20), "DEVK907005
    amount(10) TYPE p DECIMALS 2, "DEVK907005
    dc_indicator(10),
    END OF it_tds.
    DATA : BEGIN OF it_vat OCCURS 0,
    mwskz LIKE bseg-mwskz,
    text1 LIKE t007s-text1,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas, "Base amount
    amount(20), "DEVK907005
    amount(10) TYPE p DECIMALS 2, "DEVK907005
    dc_indicator(10),
    END OF it_vat.
    DATA : tds_base(20) VALUE 0.
    ***End of DEVK906817
    ***Begin of DEVK907005
    DATA : BEGIN OF it_ecess OCCURS 0,
    mwskz LIKE bseg-mwskz,
    text1 LIKE t007s-text1,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas, "Base amount
    amount(10) TYPE p DECIMALS 2,
    dc_indicator(10),
    END OF it_ecess.
    ***End of DEVK907005
    ***BEGIN OF DEVK907045
    DATA : BEGIN OF it_tds1 OCCURS 0,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas,
    amount(10) TYPE p DECIMALS 2,
    dc_indicator(10),
    END OF it_tds1.
    DATA : BEGIN OF it_tds2 OCCURS 0,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas,
    amount(10) TYPE p DECIMALS 2,
    dc_indicator(10),
    END OF it_tds2.
    DATA : BEGIN OF it_tds3 OCCURS 0,
    hkont LIKE bseg-hkont,
    txt20 LIKE skat-txt20,
    fwbas LIKE bseg-fwbas,
    amount(10) TYPE p DECIMALS 2,
    dc_indicator(10),
    END OF it_tds3.
    ***END OF DEVK907045
    data: year like bkpf-gjahr, "DEVK907292
    bkpf_year like bkpf-gjahr . "DEVK907292
    SELECTION-SCREEN
    SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    *PARAMETERS: p_belnr LIKE ekbe-belnr OBLIGATORY.
    SELECT-OPTIONS: p_belnr FOR EKBE-BELNR .
    SELECTION-SCREEN: END OF BLOCK b1.
    START-OF-SELECTION.
    IF p_belnr NE ''.
    SELECT SINGLE ebeln gjahr budat ernam FROM ekbe INTO (ebeln,gjahr,it_final-budat3,ernam)
    WHERE belnr IN p_belnr.
    Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
    if sy-subrc ne 0.
    select single ebeln gjahr from rseg into (ebeln,gjahr)
    where belnr IN p_belnr.
    if sy-subrc = 0.
    select single budat usnam lifnr from rbkp into (it_final-budat3,ernam,it_final-lifnr)
    where belnr IN p_belnr.
    endif.
    endif.
    End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
    ENDIF.
    *---IF ENTERED RECORD IS INVALID
    Start of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
    IF sy-subrc 0.
    End of changes by 147547 on 06/06/2007 DEVK907460 PIR-60118_Addition planned delivery cost in MIRO print
    if p_belnr eq ''.
    CALL FUNCTION 'POPUP_TO_INFORM'
    EXPORTING
    titel = sy-repid
    txt1 = text-002
    txt2 = text-003.
    EXIT.
    ELSE.
    *---TO FETCH VENDOR NUMBER
    if it_final-lifnr = ''.
    SELECT SINGLE lifnr FROM ekko INTO it_final-lifnr
    WHERE ebeln = ebeln .
    endif.
    *---TO FETCH VENDOR ADDRESS
    SELECT SINGLE adrnr FROM lfa1 INTO addrnr WHERE lifnr = it_final-lifnr.
    SELECT SINGLE name1 street str_suppl3 location city1 city2 FROM adrc
    INTO CORRESPONDING FIELDS OF it_final
    WHERE addrnumber = addrnr.
    SELECT SINGLE j_1ipanno j_1isern j_1ilstno FROM j_1imovend INTO CORRESPONDING FIELDS OF it_final
    WHERE lifnr = it_final-lifnr.
    *---TO FETCH MATERIAL DOCUMENT NUMBER
    SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = ebeln.
    SELECT SINGLE mblnr budat mjahr FROM mkpf INTO (it_final-mblnr, it_final-budat4, mjahr)
    WHERE mblnr = mblnr.
    ***BEGIN OF DEVK907292
    CONCATENATE: p_belnr gjahr INTO objkey1,
    it_final-mblnr mjahr INTO objkey2.
    select single gjahr from rbkp into year
    where belnr = p_belnr and budat = it_final-budat3.
    concatenate p_belnr year into objkey1.
    ***END OF DEVK907292
    ***Begin of DEVK906817
    SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr1,it_final-budat1)
    WHERE awkey = objkey1.
    SELECT SINGLE belnr budat xblnr waers hwaer FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc)
    WHERE awkey = objkey1. "DEVK907292
    SELECT SINGLE belnr budat xblnr waers hwaer gjahr FROM bkpf INTO (it_final-belnr1,it_final-budat1,it_final-xblnr,it_final-dc,it_final-lc,bkpf_year)
    WHERE awkey = objkey1. "DEVK907292
    ***End of DEVK906817
    SELECT SINGLE belnr budat FROM bkpf INTO (it_final-belnr2,it_final-budat2)
    WHERE awkey = objkey2.
    *---TO FETCH DATA FROM TABLE BSEG
    Begin of DEVK906817
    SELECT belnr umskz hkont dmbtr koart shkzg mwskz FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
    WHERE belnr = it_final-belnr1.
    SELECT belnr umskz hkont dmbtr wrbtr koart shkzg mwskz ktosl fwbas FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_bseg
    WHERE belnr = it_final-belnr1
    AND gjahr = bkpf_year. "DEVK907292
    ***End of DEVK906817
    LOOP AT it_bseg.
    SELECT SINGLE txt20 FROM skat INTO it_bseg-txt20
    WHERE saknr = it_bseg-hkont AND ktopl = 'TSKY'.
    IF it_bseg-koart = 'K'.
    MOVE it_final-name1 TO it_bseg-txt20.
    MOVE : it_bseg-dmbtr TO total, "DEVK907017
    it_bseg-wrbtr TO total1. "DEVK907017
    ENDIF.
    MODIFY it_bseg.
    ENDLOOP.
    SORT it_bseg BY shkzg.
    total = 0. "DEVK907017
    total1 = 0. "DEVK907017
    LOOP AT it_bseg.
    AT FIRST.
    SELECT SINGLE kostl aufnr FROM rbco INTO CORRESPONDING FIELDS OF it_final
    WHERE belnr = p_belnr.
    CONDENSE it_final-aufnr.
    ENDAT.
    MOVE : p_belnr TO it_final-belnr,
    it_bseg-hkont TO it_final-hkont,
    it_bseg-txt20 TO it_final-txt20,
    it_bseg-mwskz TO it_final-mwskz,
    it_bseg-umskz TO it_final-umskz,
    it_bseg-ktosl TO it_final-ktosl, "DEVK906817
    it_bseg-fwbas TO it_final-fwbas. "DEVK906817
    IF it_bseg-shkzg = 'H'.
    MOVE '' TO it_final-amount2.
    MOVE it_bseg-dmbtr TO it_final-amount1.
    tds_base = tds_base + it_final-amount1. "DEVK906817
    Begin of DEVK907017
    IF it_bseg-mwskz = ''.
    SUBTRACT it_bseg-dmbtr FROM total.
    SUBTRACT it_bseg-wrbtr FROM total1. "DEVK907005
    ELSE.
    ADD it_bseg-dmbtr TO total.
    ADD it_bseg-wrbtr TO total1. "DEVK907005
    ENDIF.
    End of DEVK907017
    ELSE.
    MOVE '' TO it_final-amount1.
    MOVE it_bseg-dmbtr TO it_final-amount2.
    ENDIF.
    APPEND it_final.
    it_final-kostl = ''.
    it_final-aufnr = ''.
    ENDLOOP.
    Begin of DEVK906817
    To get service tax details .
    LOOP AT it_final WHERE ktosl = 'ESE' "DEVK907005
    LOOP AT it_final WHERE ktosl = 'ESE' OR ktosl = 'YSE'. "DEVK907005
    MOVE-CORRESPONDING it_final TO it_stax.
    SELECT SINGLE text1 FROM t007s INTO it_stax-text1
    WHERE mwskz = it_stax-mwskz
    AND spras = 'E'
    AND kalsm = 'ZTAXIN'.
    it_stax-amount = it_final-amount1 + it_final-amount2.
    IF it_final-amount1 = ''.
    MOVE 'DEBIT' TO it_stax-dc_indicator.
    ELSE .
    MOVE 'CREDIT' TO it_stax-dc_indicator.
    ENDIF.
    ENDLOOP.
    Begin of DEVK907005
    To get ecess details .
    LOOP AT it_final WHERE ktosl = 'ZSE' OR ktosl = 'YEC'. "DEVK907005
    MOVE-CORRESPONDING it_final TO it_ecess.
    SELECT SINGLE text1 FROM t007s INTO it_ecess-text1
    WHERE mwskz = it_ecess-mwskz
    AND spras = 'E'
    AND kalsm = 'ZTAXIN'.
    it_ecess-amount = it_final-amount1 + it_final-amount2.
    IF it_final-amount1 = ''.
    MOVE 'DEBIT' TO it_ecess-dc_indicator.
    ELSE .
    MOVE 'CREDIT' TO it_ecess-dc_indicator.
    ENDIF.
    ENDLOOP.
    End of DEVK907005
    To get TDS details .
    LOOP AT it_final WHERE mwskz = ''.
    MOVE-CORRESPONDING it_final TO it_tds.
    it_tds-amount = it_final-amount1 + it_final-amount2.
    MOVE tds_base TO it_tds-fwbas.
    MOVE 'CREDIT' TO it_tds-dc_indicator.
    ***BEGIN OF DEVK907045
    ENDLOOP.
    APPEND it_tds.
    ENDLOOP.
    LOOP AT it_tds.
    IF sy-tabix = 1.
    MOVE it_tds TO it_tds1.
    ENDIF.
    IF sy-tabix = 2.
    MOVE it_tds TO it_tds2.
    ENDIF.
    IF sy-tabix = 3.
    MOVE it_tds TO it_tds3.
    ENDIF.
    ENDLOOP.
    ***END OF DEVK907045
    To get VAT/Sales tax details .
    LOOP AT it_final WHERE ktosl = 'JP5' OR ktosl = 'NVV'.
    MOVE-CORRESPONDING it_final TO it_vat.
    SELECT SINGLE text1 FROM t007s INTO it_vat-text1
    WHERE mwskz = it_vat-mwskz
    AND spras = 'E'
    AND kalsm = 'ZTAXIN'.
    it_vat-amount = it_final-amount1 + it_final-amount2.
    IF it_final-amount1 = ''.
    MOVE 'DEBIT' TO it_vat-dc_indicator.
    ELSE .
    MOVE 'CREDIT' TO it_vat-dc_indicator.
    ENDIF.
    ENDLOOP.
    End of DEVK906817
    *---TO FETCH PURCHASE OREDER AND MATERIAL DOCUMENT NUMBERS
    SELECT ebeln FROM ekbe INTO TABLE it_ekbe
    WHERE belnr IN p_belnr.
    LOOP AT it_ekbe.
    SELECT SINGLE mblnr FROM mseg INTO mblnr WHERE ebeln = it_ekbe-ebeln.
    ***BEGIN OF DEVK907031
    SELECT SINGLE mblnr budat FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
    WHERE mblnr = mblnr.
    SELECT SINGLE mblnr budat mjahr FROM mkpf INTO CORRESPONDING FIELDS OF it_mkpf
    WHERE mblnr = mblnr.
    CONCATENATE: it_mkpf-mblnr mjahr INTO objkey2.
    SELECT SINGLE belnr FROM bkpf INTO it_mkpf-belnr
    WHERE awkey = objkey2.
    ***END OF DEVK907031
    MOVE it_ekbe-ebeln TO it_mkpf-ebeln.
    APPEND it_mkpf.
    CLEAR it_mkpf.
    ENDLOOP.
    ENDIF.
    CALL FUNCTION 'OPEN_FORM'
    EXPORTING
    form = 'ZMIRO'
    language = 'E'.
    CLEAR it_final.
    DESCRIBE TABLE it_final LINES tot_number_of_lines.
    x = tot_number_of_lines / 20.
    tot_number_of_pages = CEIL( x ).
    WHILE page_number LE tot_number_of_pages.
    START OF PAGE
    CALL FUNCTION 'START_FORM'
    EXPORTING
    form = 'ZMIRO'
    language = 'E'
    startpage = 'FIRST'
    program = 'ZMM_MIRO'
    EXCEPTIONS
    form = 1
    format = 2
    unended = 3
    unopened = 4
    unused = 5
    spool_error = 6
    codepage = 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.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'FIRST'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    element = 'HEADER'
    window = 'MAIN'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    *---CHOOSE APPROPRIATE SEGMENT OF IT_FINAL TO BE DISPLAYED IN THE PAGE
    start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
    end_at_line = 20 * page_number.
    IF end_at_line GT tot_number_of_lines.
    end_at_line = tot_number_of_lines.
    ENDIF.
    DESCRIBE TABLE it_final LINES v_lines.
    LOOP AT it_final FROM start_at_line TO end_at_line.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    element = 'LINE_ITEMS'
    window = 'MAIN'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'WINDOW3'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    hi ,
    pls help me, this is my print program . my requirement is print multiple invoice documents,.
    earlier it was print single t invoice docment.so in selection screen they used parameter for invoice.
    now my requirement is make it parameter as select-option.
    pls i have to submit today only pls help me.
    check my print program below.
    ENDLOOP.
    CALL FUNCTION 'END_FORM'
    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 NEXT PAGE.
    page_number = page_number + 1.
    start_at_line = ( 20 * ( page_number - 1 ) ) + 1.
    end_at_line = 20 * page_number.
    IF end_at_line GT tot_number_of_lines.
    end_at_line = tot_number_of_lines.
    ENDIF.
    ENDWHILE.
    START OF LAST PAGE
    CALL FUNCTION 'START_FORM'
    EXPORTING
    form = 'ZMIRO'
    language = 'E'
    startpage = 'PAGE1'
    program = 'ZMM_MIRO'
    EXCEPTIONS
    form = 1
    format = 2
    unended = 3
    unopened = 4
    unused = 5
    spool_error = 6
    codepage = 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.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'WINDOW6'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    LOOP AT it_mkpf.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'WINDOW4'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    ENDLOOP.
    ***Begin of DEVK906817
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'WINDOW7'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    ***End of DEVK906817
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    window = 'WINDOW5'
    EXCEPTIONS
    element = 1
    function = 2
    type = 3
    unopened = 4
    unstarted = 5
    window = 6
    bad_pageformat_for_print = 7
    spool_error = 8
    codepage = 9
    OTHERS = 10.
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'END_FORM'
    IF sy-subrc 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CALL FUNCTION 'CLOSE_FORM'.

  • How to set a attribute value of a sub node binded to a table.. pls respond.

    Hi friends,
    I have context defined like this.
         Head_node ( table 1)
              Item_node ( table 2, sub node ).  ( now this im saving in global internal table).
    so now when i hit save button, im passing my internal table (it has col1- sales order no, col2 item details(table type, which can have more than one record) to a FM, to create sales order.
    My sales order is getting saved.
    But the function module will return some new values (like sales order number, item number etc).
    Now i want these values to be updated in my context.
    Meaning whenever after that i do get_attribute, i should get these new (sales order no, item no ) also.
    I dont know how to set the context values of sub nodes , so im missing these values.
    kindly respond back to me..
    thanks in advance,
    Niraja

    Its very simple.
    Follow these steps. e.g you want to get the new sales order number. Define a attribute in ur node (or set of attributes in ur case as per reqruirement) say new_so_number.
    Check your FM, if its returning new_so_number then it's fine, otherwise you have to change the FM to return the new_so_number or you have to get from db table somehow, which best suites your req.
    So once you have new_so_number after calling the FM, say in lv_new_so_number field. Then write this code to set the attribute (change the variables as per your context attributes)
    DATA lo_nd_head TYPE REF TO if_wd_context_node.
      DATA lo_el_head TYPE REF TO if_wd_context_element.
      DATA ls_head TYPE wd_this->element_head.
      DATA lv_new_so_number LIKE ls_head-new_so_number.
    * navigate from <CONTEXT> to <HEAD> via lead selection
      lo_nd_head = wd_context->get_child_node( name = wd_this->wdctx_head ).
    * get element via lead selection
      lo_el_head = lo_nd_head->get_element(  ).
    lv_new_so_number = new_so_number. " (You got this as a exporting parameter of FM etc..)
    * get single attribute
      lo_el_head->set_attribute(
        EXPORTING
          name =  `NEW_SO_NUMBER`
          value = lv_new_so_number ).
    Hope it works.

  • Mail Stops Responding Immediately after Starting up

    Mail is not behaving today. As soon as I start it up, the beachball spins for about 15 seconds and the app stops responding. Any assistance would be grand.
    Works fine on my Macbook and I have already checked nd repaired permissions.
    Thanks!

    Verify/repair your disk (not just permissions), as described here:
    The Repair functions of Disk Utility: what's it all about?
    Now, go to Apple Menu > System Preferences > Network > Show: Network Port Configurations, and make sure that the configuration used to connect to Internet is at the top of the list.
    Finally, try launching Mail under the following conditions (you may need to force quit it first if it's running):
    1. Holding the Shift key down until the main window appears.
    2. With no Internet connection.
    Post back with your observations.

  • Pls respond

    hi,all respond
    differnce between sap scripts and smartforms

    Hi Srinivas,
    Post this in the Abap forum, You will get more replies....
    1).Smartforms are client independent and Sapscripts are client dependent.
    2).Multiple page formats are possible in smartforms which is not the case in SAPScripts
    3).It is possible to have a smartform without a main window .
    4).Labels cannot be created in smartforms.
    5).Routines can be written in smartforms tool.
    6).Smartforms generates a function module when activated.
    Cheers...
    Vasu
    <b>** REward POints if found useful **</b>

  • BLUETOOTH: APPLE PLEASE RESPOND IMMEDIATELY!!!!

    Thousands of users experience the same issue since upgrading to yosemite. Bluetooth devices will not connect. I love the Magic Mouse, in fact it's the only mouse I use on my Mac. Since Yosemite-Bluetooth refuses to connect to bluetooth devices, this is like a system freeze. The Mac becomes nothing but a chunk of hardware. Impossible to navigate, impossible to use.
    Please Apple fix this immediately or send me replacement for the magic mouse. Send all the users with the same issue a wide keyboard and a wired mouse! Only this way we can continue to use our Macs.
    I don't like to do this, but I might start a campaign with the only goal, that any Yosemite user has the right to claim a free keyboard and mouse
    Resetting PRAM did solve the problem until next sleep mode / restart.
    Restarting doe's not fix the issue
    Any other hack I found on the internet was unsuccessful
    best
    Andreas

    Send Apple feedback
    Not here
    Pete

Maybe you are looking for