How to print the following output
hi everyone,
I want to print the output like this
deptno ename
10 CLARK KING MILLER
20 SMITH JONES SCOTT ADAMS FORD
in a particular dept who are the emp's working .....I am using oracle 8i...if any idea let me know...
thanks & regards
sekhar.
Hi~
following code will helpful to you. but, still have 4000 bytes restriction, because of in 8i, clob||varchar2 is not working.
so, i use res varchar2(4000) instead of res clob;
Thanks.
create or replace function get_all_ename(p_deptno in number)
return varchar2
is
res varchar2(4000);
i number:=0;
v_ename emp.ename%TYPE;
cursor c1 is
select ename from emp where deptno=p_deptno;
begin
open c1;
loop
fetch c1 into v_ename;
EXIT WHEN c1%NOTFOUND;
res :=res||' '||v_ename;
end loop;
close c1;
return res;
end;
select get_all_ename(deptno) from dept;
GET_ALL_ENAME(DEPTNO)
CLARK KING MILLER
SMITH JONES SCOTT ADAMS FORD
ALLEN WARD MARTIN BLAKE TURNER JAMES
Similar Messages
-
How to print the form output in news paper format
Hi All,
How we will print the data in the output in newspaper format in SAP script?
Can any body give some idea on this.
Thanks&Regards
MaheshIf what I understand is correct..!!!!!!!!!
design the windows in required format. and make the window belongs to all required pages and just type the matter there itself. then run the form from ABAP editor.
Cheers. -
How to get the following output
Table 1 Table 2
EmpCode EmpName EmpCode EmpPhone
10001 ABC 10001 12345
10002 BCD 10001 23456
10003 CDE 10001 34567
10004 EFG 10006 45678
10005 FGH 10007 56789
10006 GHI 10007 67890
10007 HIJ 10010 78901
10008 IJK 10010 89012
10009 JKL 10010 90123
10010 KLM 10011 13579
10011 LMN 10012 35791
10012 MNO 10012 57913
10013 NOP 10012 79135
10014 OPQ 10017 91357
10015 PQR 10017 12390
10016 QRS 10019 23479
10017 RST
10018 STU
10019 TUV
output
EmpCode EmpName EmpPhone
10001 ABC 12345/23456/34567
10002 BCD
10003 CDE
10004 EFG
10005 FGH
10006 GHI 45678
10007 HIJ 56789/67890
10008 IJK
10009 JKL
10010 KLM 78901/89012/90123
10011 LMN 13579
10012 MNO 35791/57913/79135
10013 NOP
10014 OPQ
10015 PQR
10016 QRS
10017 RST 91357/12390
10018 STU
10019 TUV 23479
Srimanta,
Check this:
select t1.EmpCode,t1.EmpName,STUFF((select '/'+EmpPhone from Table2 where EmpCode=t1.EmpCode for xml path('')),1,1,'') as PhoneNum
from Table1 t1
left join Table2 t2 on t1.EmpCode=t2.EmpCode
group by t1.EmpCode,t1.EmpName
Edited : small change in code(highlighted - t1 instead of t2)
Thanks,
Jay
<If the post was helpful mark as 'Helpful' and if the post answered your query, mark as 'Answered'> -
How to print the output of the screen in Dialog Programming
Hi,
Could anybody help how to print the output of a screen in the dialog programming. i can select 'Hard Copy' option in the 'Custumizing of Local Layout' Icon in the standard tool bar. but that prints the whole screen with the toolbar. i want to print only the output which is displayed on the screen. Please help..
Regards,
SwathiHi Swathi,
Ok. Do One thing. Go to menu bar and select Systems -> Own pool Request -> here you get the spool number. Select it and select the option "Print Directly" in tool bar.
Thanks. -
How to print the list outout with out getting output?
How to print the list outout with out getting output?
My requirement is that when i exicute the program the list output has to print with out getting output list display on the screen.
if possible cana anyone share the code....
Phani,See this Sample Program.
DATA: PARAMS LIKE PRI_PARAMS,
DAYS(1) TYPE N VALUE 2,
COUNT(3) TYPE N VALUE 1,
VALID TYPE C.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING DESTINATION = 'LT50'
COPIES = COUNT
LIST_NAME = 'TEST'
LIST_TEXT = 'SUBMIT ... TO SAP-SPOOL'
IMMEDIATELY = 'X'
RELEASE = 'X'
NEW_LIST_ID = 'X'
EXPIRATION = DAYS
LINE_SIZE = 79
LINE_COUNT = 23
LAYOUT = 'X_PAPER'
SAP_COVER_PAGE = 'X'
COVER_PAGE = 'X'
RECEIVER = 'SAP*'
DEPARTMENT = 'System'
NO_DIALOG = ' '
IMPORTING OUT_PARAMETERS = PARAMS
VALID = VALID.
IF VALID <> SPACE.
SUBMIT RSTEST00 TO SAP-SPOOL
SPOOL PARAMETERS PARAMS
WITHOUT SPOOL DYNPRO.
ENDIF.
Awrd POints If useful
Bhupal -
How to generate the following XML-Output?
Hi all,
I would like to generate the following XML-Output without defining any types or tables:
<?xml version = '1.0'?>
<DEPARTMENTS_EMPLOYEES>
<DEPARTMENT NAME="ACCOUNTING">
<DEPTNO>10</DEPTNO>
<LOC>NEW YORK</LOC>
<EMPLOYEES_OF_DEPARTMENT>
<EMPNO>...</EMPNO>
<ENAME>...</ENAME>
</EMPLOYEES_OF_DEPARTMENT>
</DEPARTMENT>
<DEPARTMENT NAME="RESEARCH">
<DEPTNO>20</DEPTNO>
<LOC>DALLAS</LOC>
<EMPLOYEES_OF_DEPARTMENT>
</EMPLOYEES_OF_DEPARTMENT>
</DEPARTMENT>
</DEPARTMENTS_EMPLOYEES>
Unfortunately the following SQL-Statement does not working:
select xmlElement("DEPARTMENTS_EMPLOYEES",
xmlAttributes(d.deptno as "DEPTNO"),
xmlElement("DNAME", d.dname),
xmlElement("LOC", d.loc),
xmlElement("EMPLOYEES_OF_DEPARTMENT",
(select xmlAgg(xmlElement("EMPLOYEE", xmlAttributes(e.empno as "EMPNO"), xmlForest(e.ename as "ENAME", e.job as "JOB", e.hiredate as "HIREDATE", e.sal as "SAL", e.comm as "COMM", m.empno as "MGRNO", m.ename as "MGRNAME" ) )
from emp e, emp m
where e.deptno = d.deptno
and m.empno = e.mgr
) as XML
from dept d;
1. When I provide this statement with SQL*Plus
(unfortunately 9.0.1.3.0) then I get the
following output:
XML()
XMLTYPE()
XMLTYPE()
XMLTYPE()
XMLTYPE()
2. When I provide this statement with SQL Navigator
4.3.0.456 then I get the following error:
[1]: (Error): OCI-21560: argument 3 is null, invalid,
or out of range
3. When I execute the following PL/SQL-Code then I get
the XML-Error message:
DECLARE
x CLOB;
xmlstr VARCHAR2(32767);
line VARCHAR2(2000);
BEGIN
x := dbms_xmlquery.getxml('select xmlElement("DEPARTMENT",
xmlAttributes(d.deptno as "DEPTNO"),
xmlElement("DNAME", d.dname),
xmlElement("LOC", d.loc),
xmlElement("EMPLOYEELIST",
(select xmlAgg(xmlElement("EMPLOYEE",
xmlAttributes(e.empno as "EMPNO"),
xmlForest(e.ename as "ENAME",
e.job as "JOB",
e.hiredate as "HIREDATE",
e.sal as "SAL",
e.comm as "COMM",
m.empno as "MGRNO",
m.ename as "MGRNAME"
from emp e, emp m
where e.deptno = d.deptno
and m.empno = e.mgr
) as XML
from dept d');
xmlstr := dbms_lob.SUBSTR(x,32767);
LOOP
EXIT WHEN xmlstr IS NULL;
line := SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10))-1);
DBMS_OUTPUT.PUT_LINE(line);
xmlstr := SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);
END LOOP;
END;
<?xml version = '1.0'?>
<ERROR>oracle.xml.sql.OracleXMLSQLException: Unimplemented Feature</ERROR>
4. When I provide the following PL/SQL-Code then I get the same xml-error:
DECLARE
x CLOB;
xmlstr VARCHAR2(32767);
line VARCHAR2(2000);
BEGIN
x := dbms_xmlquery.getxml('select xmlElement("SYSDATE", xmlElement("Datum", to_char(sysdate,''DD.MM.YYYY'')),
xmlElement("Zeit", to_char(sysdate,''HH24:MI:SS''))) as XML
from dual');
xmlstr := dbms_lob.SUBSTR(x,32767);
LOOP
EXIT WHEN xmlstr IS NULL;
line := SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10))-1);
DBMS_OUTPUT.PUT_LINE(line);
xmlstr := SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);
END LOOP;
END;
<?xml version = '1.0'?>
<ERROR>oracle.xml.sql.OracleXMLSQLException: Unimplemented Feature</ERROR>
Can I generate the needed XML-Output from Database with SQL or PL/SQL?
Can anybody help me?
Regards
Leonid PavlovI have this done with:
DECLARE
qryCtx DBMS_XMLGEN.ctxHandle;
result CLOB;
xmlstr VARCHAR2(32767);
line VARCHAR2(2000);
BEGIN
qryCtx := dbms_xmlquery.newContext('select deptno, dname, loc, cursor(select e.empno, e.ename, e.job,
to_char(e.hiredate,''DD.MM.YYYY'') hiredate, e.sal, e.comm,
m.empno MGRNO, m.ename MGRNAME
from emp e, emp m
where e.deptno = dept.deptno
and m.empno(+) = e.mgr) emp
from dept');
dbms_xmlquery.useNullAttributeIndicator(qryCtx, FALSE);
dbms_xmlquery.setRowsetTag(qryCtx, 'DEPARTMENTS_EMPLOYEES');
dbms_xmlquery.setrowtag(qryCtx, 'DEPARTMENT');
DBMS_XMLQuery.setRowIdAttrName(qryCtx, 'ID');
DBMS_XMLQuery.setRowIdAttrValue(qryCtx, 'DEPTNO');
-- dbms_xmlquery.setrowidattrname(qryCtx, NULL);
result := dbms_xmlquery.getXML(qryCtx);
DBMS_XMLQuery.closeContext(qryCtx);
xmlstr := dbms_lob.SUBSTR(result,32767);
LOOP
EXIT WHEN xmlstr IS NULL;
line := SUBSTR(xmlstr,1,INSTR(xmlstr,CHR(10))-1);
DBMS_OUTPUT.PUT_LINE(line);
xmlstr := SUBSTR(xmlstr,INSTR(xmlstr,CHR(10))+1);
END LOOP;
END;
But how can I rename the <EMP>-Element to Employees? -
How to print the Terms and Condition page ine the sap-script
Hi experts,
i got the requirement that how to print the Terms and condition page in the script,i have the three pages, having the same main window, in the last of the main window(all three pages) i have called the hard coded text(i.e so10 text), but when i am displaying the output data get printed in the first page but i am getting the second page heading on the top of the terms and condiions page. In all the three pages i have the same main window, if i make change in any window i will affect all the other main windows. so please suggest me how i need to go.HOW TO GET GRID OF THE TEXT ON THE TOP OF THE SECOND PAGE OF THE TERMS AND CONDITONS.
like this i have called in the MAIN WINDOW
/E : LAST ( IN ALL THREE PAGES)
INCLUDE ZSD_INVOICE_TERMS TEXT OBJECT TEXT LANGUAGE EN.
IN THE TCODE SO10
NEW PAGE TERMS.
1) TERM MS AND CONDITONS TEXT.................................................
FIRST->NEXT, NEXT->NEXT,, TERMS--->TERMS.Hi,
1. Create a new page by Name : LAST
2. Identify the text element which will be the last element in the form in the debug mode.
Mostly Ex: SUM, TOTAL, LAST etc.,
3. the page linking should be
First --> Next
Next --> Next
4. In the Text element identified in the step 3.
Write the following code
/: NEW PAGE LAST
/: INCLUDE the standard text created for the terms and conditions in SO10
Check the syntax for the command but the logic will be the same.
It should resolve your problem. -
In cursor i have two queries where put the condition and how to print the d
hi i have 2 tables 1 is emp(empid,empname,dept,grade)
2 is salary(grade,salary)
in cursor when ever grade is increased salary automatically increased
in 2 diffrent queries where i will put the if condition and how to print the output.
any one can please suggest me.
finally my required out put is
empid,empname,grade,salary
thanksIt is always helpful to provide the following:
1. Oracle version (SELECT * FROM V$VERSION)
2. Sample data in the form of CREATE / INSERT statements.
3. Expected output
4. Explanation of expected output (A.K.A. "business logic")
5. Use \ tags for #2 and #3. See FAQ (Link on top right side) for details. -
HOW TO PRINT THE EXCEL CELL COMMENT IN JAVA SWING FRAME ?
How to print the excel cell comment in java swing frame
user can print the data of cell with comment in bracket in java swing frame.
please make one java code to read an excel spreed sheet and print the output in Java swing frame as follows
EMP NO - 1, 2, 3
EMP NAME - aname (amitesh:very good), bname (amitesh: average), cname (amitesh: very bad)
EMP AGE - 11, 22, 33
EMP DESG - ad, bd, cd
Note: the bracket portion is the excel comments put in that cellhello everyone i'm new to this forum..how are you all...
Jack Brosnan
[mobile phone|http://www.mobilephonesforsale.net.au/apple-iphone-f-2.html] -
How to print the single layout in N no times
Hi,
I have developed 1 cheque printing report using developer6i for Oracle Applications i want to print the same output 4 times
1st output will directly printon the cheque and
2nd output should contain the note as "ORIGINAL" and it should come on a A4 paper
3rd should contain as the "FOR ACCOUNTS", and it should come on a A4 paper
4th should contain the "FOR SUPPLIER" and it should come on a A4 paper
does any body know how to get this output it will be a great help if any body through some light on this.
Regards,I found the following thread discussing sending report to multiple printers.
Re: Printing Report Out Put on Different Trays
I have in the past defined each printer tray as a separate printer in order to control the paper type.
Maybe you could define the first page output as the check output to one printer then send following three pages as the A4 printer, repeating the frame for each literal.
Message was edited by:
user623321 -
How to print the error records and success records in bdc
how to print the number of error records and success records in bdc
hai,
plz refer this program,
Z_130399130271_A
REPORT Z_130399130271_A
NO STANDARD PAGE HEADING LINE-SIZE 325.
*INCLUDE YVALIDATE.
*include bdcrecx1.
INCLUDE YINCLUDE399.
DATA ITAB LIKE TABLE OF FILE_TABLE WITH HEADER LINE.
PARAMETERS: DATASET(132) LOWER CASE.
DATA : RC TYPE I,
ERR(40) TYPE C,
SUCCESSCNT TYPE I VALUE 0,
FAILCOUNT TYPE I VALUE 0.
DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
If it is nessesary to change the data section use the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
'* data element: ' followed with the data element
which describes the field.
If you don't have a data element use the
comment without a data element name
3.) The second line shows the fieldname of the
structure, the fieldname must consist of
a fieldname and optional the character '_' and
three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting - DO NOT CHANGE ***
DATA: BEGIN OF RECORD OCCURS 0,
data element: LIF16
LIFNR_001(016),
data element: KTOKK
KTOKK_002(004),
data element: ANRED
ANRED_003(015),
data element: NAME1_GP
NAME1_004(035),
data element: SORTL
SORTL_005(010),
data element: STRAS_GP
STRAS_006(035),
data element: PFACH
PFACH_007(010),
data element: ORT01_GP
ORT01_008(035),
data element: ORT02_GP
ORT02_009(035),
data element: LAND1_GP
LAND1_010(003),
data element: REGIO
REGIO_011(003),
data element: SPRAS
SPRAS_012(002),
data element: TELF1
TELF1_013(016),
data element: TELF2
TELF2_014(016),
data element: BANKS
BANKS_01_015(003),
data element: BANKK
BANKL_01_016(015),
data element: BANKN
BANKN_01_017(018),
END OF RECORD.
DATA: BEGIN OF ERRORITAB OCCURS 0,
LIFNR_001 LIKE LFA1-LIFNR,
KTOKK_002 LIKE LFA1-KTOKK,
ANRED_003 LIKE LFA1-ANRED,
NAME1_004 LIKE LFA1-NAME1,
SORTL_005 LIKE LFA1-SORTL,
STRAS_006 LIKE LFA1-STRAS,
PFACH_007 LIKE LFA1-PFACH,
ORT01_008 LIKE LFA1-ORT01,
ORT02_009 LIKE LFA1-ORT02,
LAND1_010 LIKE LFA1-LAND1,
REGIO_011 LIKE LFA1-REGIO,
SPRAS_012 LIKE LFA1-SPRAS,
TELF1_013 LIKE LFA1-TELF1,
TELF2_014 LIKE LFA1-TELF2,
BANKS_01_015 LIKE LFBK-BANKS,
BANKL_01_016 LIKE LFBK-BANKL,
BANKN_01_017 LIKE LFBK-BANKN,
ERRORMSG(60) TYPE C,
SERIAL TYPE I VALUE '1',
END OF ERRORITAB.
End generated data section ***
AT SELECTION-SCREEN ON VALUE-REQUEST FOR DATASET.
CALL FUNCTION 'TMP_GUI_FILE_OPEN_DIALOG'
EXPORTING
WINDOW_TITLE = 'select a file '
DEFAULT_EXTENSION = 'TXT'
DEFAULT_FILENAME = 'ASSIGN5.TXT'
FILE_FILTER =
INIT_DIRECTORY =
MULTISELECTION =
IMPORTING
RC =
TABLES
FILE_TABLE = ITAB
EXCEPTIONS
CNTL_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TABLE ITAB INDEX 1.
DATASET = ITAB-FILENAME.
WRITE DATASET.
START-OF-SELECTION.
*perform open_dataset using dataset.
*perform open_group.
DATA T TYPE STRING.
T = DATASET.
IF T EQ ' '.
MESSAGE E110(ZX).
ENDIF.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = T
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =
TABLES
DATA_TAB = RECORD
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
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 RECORD.
CLEAR RC.
CLEAR ERR.
*read dataset dataset into record.
IF SY-SUBRC <> 0. EXIT. ENDIF.
RECORD-KTOKK_002 = '0001'.
PERFORM BDC_DYNPRO USING 'SAPMF02K' '0100'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'RF02K-KTOKK'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'RF02K-LIFNR'
RECORD-LIFNR_001.
PERFORM BDC_FIELD USING 'RF02K-KTOKK'
RECORD-KTOKK_002.
PERFORM BDC_DYNPRO USING 'SAPMF02K' '0110'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'LFA1-TELX1'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'/00'.
PERFORM BDC_FIELD USING 'LFA1-ANRED'
RECORD-ANRED_003.
PERFORM BDC_FIELD USING 'LFA1-NAME1'
RECORD-NAME1_004.
PERFORM BDC_FIELD USING 'LFA1-SORTL'
RECORD-SORTL_005.
PERFORM BDC_FIELD USING 'LFA1-STRAS'
RECORD-STRAS_006.
PERFORM BDC_FIELD USING 'LFA1-PFACH'
RECORD-PFACH_007.
PERFORM BDC_FIELD USING 'LFA1-ORT01'
RECORD-ORT01_008.
PERFORM BDC_FIELD USING 'LFA1-ORT02'
RECORD-ORT02_009.
PERFORM BDC_FIELD USING 'LFA1-LAND1'
RECORD-LAND1_010.
PERFORM BDC_FIELD USING 'LFA1-REGIO'
RECORD-REGIO_011.
PERFORM BDC_FIELD USING 'LFA1-SPRAS'
RECORD-SPRAS_012.
PERFORM BDC_FIELD USING 'LFA1-TELF1'
RECORD-TELF1_013.
PERFORM BDC_FIELD USING 'LFA1-TELF2'
RECORD-TELF2_014.
PERFORM BDC_DYNPRO USING 'SAPMF02K' '0120'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'LFA1-KUNNR'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=VW'.
PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'LFBK-BANKN(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=ENTR'.
PERFORM BDC_FIELD USING 'LFBK-BANKS(01)'
RECORD-BANKS_01_015.
PERFORM BDC_FIELD USING 'LFBK-BANKL(01)'
RECORD-BANKL_01_016.
PERFORM BDC_FIELD USING 'LFBK-BANKN(01)'
RECORD-BANKN_01_017.
PERFORM BDC_DYNPRO USING 'SAPMF02K' '0130'.
PERFORM BDC_FIELD USING 'BDC_CURSOR'
'LFBK-BANKS(01)'.
PERFORM BDC_FIELD USING 'BDC_OKCODE'
'=UPDA'.
PERFORM BDC_TRANSACTION USING 'XK01' CHANGING ERR RC.
DATA: SERIAL TYPE I VALUE 1.
IF RC <> 0.
FAILCOUNT = FAILCOUNT + 1.
CLEAR ERRORITAB.
ERRORITAB-SERIAL = SERIAL.
ERRORITAB-LIFNR_001 = RECORD-LIFNR_001.
ERRORITAB-KTOKK_002 = RECORD-KTOKK_002.
ERRORITAB-ANRED_003 = RECORD-ANRED_003.
ERRORITAB-NAME1_004 = RECORD-NAME1_004.
ERRORITAB-SORTL_005 = RECORD-SORTL_005.
ERRORITAB-STRAS_006 = RECORD-STRAS_006.
ERRORITAB-PFACH_007 = RECORD-PFACH_007.
ERRORITAB-ORT01_008 = RECORD-ORT01_008.
ERRORITAB-ORT02_009 = RECORD-ORT02_009.
ERRORITAB-LAND1_010 = RECORD-LAND1_010.
ERRORITAB-REGIO_011 = RECORD-REGIO_011.
ERRORITAB-SPRAS_012 = RECORD-SPRAS_012.
ERRORITAB-TELF1_013 = RECORD-TELF1_013.
ERRORITAB-TELF2_014 = RECORD-TELF2_014.
ERRORITAB-BANKS_01_015 = RECORD-BANKS_01_015.
ERRORITAB-BANKL_01_016 = RECORD-BANKL_01_016.
ERRORITAB-BANKN_01_017 = RECORD-BANKN_01_017.
ERRORITAB-ERRORMSG = ERR.
SERIAL = SERIAL + 1.
APPEND ERRORITAB.
MODIFY RECORD TRANSPORTING KTOKK_002.
DELETE RECORD WHERE KTOKK_002 = '0001'.
ELSE.
SUCCESSCNT = SUCCESSCNT + 1.
ENDIF.
ENDLOOP.
display output********************************************************
SKIP.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE:/ 'No. of records successfully uploaded: '.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE: SUCCESSCNT.
Displaying the success table******************************************
IF SUCCESSCNT <> 0.
SKIP.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE:/ 'Successful Records'.
FORMAT COLOR 7 INTENSIFIED ON.
WRITE:/(261) SY-ULINE,
/ SY-VLINE,
'S.NO', 007 SY-VLINE,
'VENDOR ACC.NUM', 023 SY-VLINE,
'VENDOR ACC GROUP', 041 SY-VLINE,
'TITLE', 048 SY-VLINE,
'VENDOR NAME', 064 SY-VLINE,
'SORT FIELD', 076 SY-VLINE,
'HOUSE NO.& STREET', 101 SY-VLINE,
'PO.BOX NO', 116 SY-VLINE,
'CITY', 129 SY-VLINE,
'DISTRICT', 141 SY-VLINE,
'COUNTRY KEY', 156 SY-VLINE,
'REGION', 166 SY-VLINE,
'LANGUAGE KEY', 180 SY-VLINE,
'TELEPHONE NO 1', 196 SY-VLINE,
'TELEPHONE NO 2', 213 SY-VLINE,
'BANK COUNTRY KEY', 231 SY-VLINE,
'BANK KEY', 241 SY-VLINE,
'BANK ACC.NO', 261 SY-VLINE,
/1(261) SY-ULINE.
FORMAT COLOR 4 INTENSIFIED ON.
SERIAL = 1.
SORT RECORD BY LIFNR_001.
LOOP AT RECORD.
WRITE:/ SY-VLINE,
SERIAL LEFT-JUSTIFIED, 007 SY-VLINE,
RECORD-LIFNR_001(016), 023 SY-VLINE,
RECORD-KTOKK_002(004), 041 SY-VLINE,
RECORD-ANRED_003(015), 048 SY-VLINE,
RECORD-NAME1_004(035), 064 SY-VLINE,
RECORD-SORTL_005(010), 076 SY-VLINE,
RECORD-STRAS_006(035), 101 SY-VLINE,
RECORD-PFACH_007(010), 116 SY-VLINE,
RECORD-ORT01_008(035), 129 SY-VLINE,
RECORD-ORT02_009(035), 141 SY-VLINE,
RECORD-LAND1_010(003), 156 SY-VLINE,
RECORD-REGIO_011(003), 166 SY-VLINE,
RECORD-SPRAS_012(002), 180 SY-VLINE,
RECORD-TELF1_013(016), 196 SY-VLINE,
RECORD-TELF2_014(016), 213 SY-VLINE,
RECORD-BANKS_01_015(003), 231 SY-VLINE,
RECORD-BANKL_01_016(015), 241 SY-VLINE,
RECORD-BANKN_01_017(018), 261 SY-VLINE.
WRITE:/(261) SY-ULINE.
SERIAL = SERIAL + 1.
ENDLOOP.
WRITE:/1(261) SY-ULINE.
ENDIF.
SKIP.
FORMAT COLOR 5 INTENSIFIED OFF.
WRITE:/ 'No. of records not uploaded: '.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE: FAILCOUNT.
*Displaying the error table
IF FAILCOUNT <> 0.
SKIP.
FORMAT COLOR 4 INTENSIFIED OFF.
WRITE:/(320) SY-ULINE,
'Error Records'.
FORMAT COLOR 7 INTENSIFIED ON.
WRITE:/ SY-ULINE, SY-VLINE,
'S.NO', 007 SY-VLINE,
'VENDOR ACC.NUM', 023 SY-VLINE,
'VENDOR ACC GROUP', 041 SY-VLINE,
'TITLE', 048 SY-VLINE,
'VENDOR NAME', 064 SY-VLINE,
'SORT FIELD', 076 SY-VLINE,
'HOUSE NO.& STREET', 101 SY-VLINE,
'PO.BOX NO', 116 SY-VLINE,
'CITY', 129 SY-VLINE,
'DISTRICT', 141 SY-VLINE,
'COUNTRY KEY', 156 SY-VLINE,
'REGION', 166 SY-VLINE,
'LANGUAGE KEY', 180 SY-VLINE,
'TELEPHONE NO 1', 196 SY-VLINE,
'TELEPHONE NO 2', 213 SY-VLINE,
'BANK COUNTRY KEY', 231 SY-VLINE,
'BANK KEY', 241 SY-VLINE,
'BANK ACC.NO', 261 SY-VLINE,
'ERROR MESSAGE', 320 SY-VLINE.
WRITE:/(320) SY-ULINE.
FORMAT COLOR 4 INTENSIFIED ON.
SORT ERRORITAB BY LIFNR_001.
LOOP AT ERRORITAB.
WRITE:/ SY-VLINE,
ERRORITAB-SERIAL LEFT-JUSTIFIED, 007 SY-VLINE,
ERRORITAB-LIFNR_001 , 023 SY-VLINE,
ERRORITAB-KTOKK_002, 041 SY-VLINE,
ERRORITAB-ANRED_003, 048 SY-VLINE,
ERRORITAB-NAME1_004, 064 SY-VLINE,
ERRORITAB-SORTL_005, 076 SY-VLINE,
ERRORITAB-STRAS_006, 101 SY-VLINE,
ERRORITAB-PFACH_007, 116 SY-VLINE,
ERRORITAB-ORT01_008, 129 SY-VLINE,
ERRORITAB-ORT02_009, 141 SY-VLINE,
ERRORITAB-LAND1_010, 156 SY-VLINE,
ERRORITAB-REGIO_011, 166 SY-VLINE,
ERRORITAB-SPRAS_012, 180 SY-VLINE,
ERRORITAB-TELF1_013, 196 SY-VLINE,
ERRORITAB-TELF2_014, 213 SY-VLINE,
ERRORITAB-BANKS_01_015, 231 SY-VLINE,
ERRORITAB-BANKL_01_016, 241 SY-VLINE,
ERRORITAB-BANKN_01_017, 261 SY-VLINE,
ERRORITAB-ERRORMSG, 320 SY-VLINE.
WRITE:/(320) SY-ULINE.
ENDLOOP.
WRITE:/ SY-ULINE.
ENDIF.
hope this ll help you..
regards,
prema.A -
How to print the script in condensed mode
Hi to all,
Pls help me.
How to print the script in condensed mode and particular window only print in the condensed mode.Hi,
Hi
It will remove the blank spaces in front of the variable
and if you use the extension NO-GAPS
It will remove all the blank spaces in the variable field.
DATA: ws_val1 type char12.
ws_val1 = ' 100 123'.
Condense ws_val1.
Write / ws_val1.
Condense ws_val1 no-gaps.
write / ws_val1.
It will give output as
100 123
100123
The CONDENSE statement deletes redundant spaces from a string:
CONDENSE c NO-GAPS.
This statement removes any leading blanks in the field c and replaces other sequences of blanks by exactly one blank. The result is a left-justified sequence of words, each separated by one blank. If the addition NO-GAPS is specified, all blanks are removed.
Please check this link for sample code.
http://help.sap.com/saphelp_nw2004s/helpdata/en/fc/eb33e6358411d1829f0000e829fbfe/content.htm
Regards,
Raj. -
Need to Print the Report Output
Hi,
I want to print the report output. How to install a printer in Oracle Appls. If i give number of copies 1 or morethan 1(from SRS Window)...the report is completed-warning. pls advice
Thanks in advance.Hi,
I changed the printer to Epson LQ2170 and Epson LQ2180 but since I don't know the initialization and reset parameter (already search for the manual but couldn't find it, downloaded from Epson's website but couldn't find it either) so I register it with LQ1070. I'd tested to print the reports directly from Reports Builder 6i and it printed just as I wanted to but when I tried to print from oracle apps it only printed up to about 3/4 width of the paper. I tried to change the report's height and width, paper size, orientation but no luck. What should I do? Thanks -
How to print the components in scrollpane
hi there,
can anyone tell me how to print the scrollpane components, i mean the headers & the main view of the component. i've a scrollpane with the following code and i want to print the components:
JScrollPane pane = new JScrollPane(aTextPane);
pane.setRowHeaderView(aLineNumberComponent);my requirement is i've a editor & lineno component as textpanes and added to scrollpane & when asked to print it should print the lineno component which resides in scrollpane's row header & the editor textpane which is the main view in the scrollpane. how can i achieve this?
i'd would appreciate any suggestions & codes given.
thanx in advance.After adding/removing components to/from a panel try:
panel.revalidate();
panel.repaint() // sometimes this is also needed, I'm
not sure whyI'm not certain, but I think that panel.revalidate() implicitly calls repaint() only if something actually changed in the layout. If nothing changed, it sees no reason to repaint; hence, if something changed in appearance but not in layout, you have to repaint it yourself.
Or something like that. I'm no expert. ;) -
How to print the texts retrived by using READ_TEXT fun module in Smartform
Please tell me how to print the text which is rertrived by using the READ_TEXT function module in smartform.
I have coded all things in the program lines and in that i am retriveing the long texts.
I am getting the text lines in my internal table clearly, the thing is that I am not able to pass these lines to the text.
I have to print the trouble ticket. in that the notes log I have to pass.
its urgent. Points will be rewarded for any type of clue. whether it will work or not.There are a few ways to do it. If you need to take all of the text in the text type, in your SF text element choose "Include Text".
Populate the fields with the data that corresponds to the text type. It is similar to the interface to the FM "Read_Text.
Text Name
Text Obje
Text ID
Language
Encase any variables with the "&" symbol.
If you have already coded the call to the FM "READ_TEXT" and loaded the text into an internal table, create a loop and loop through the itab. Inside of the loop create a text element and add a variable in the text element for the field you are looking to output.
Maybe you are looking for
-
Using PhotoShop CS2: should i adjust my display colours?
I've never had to consider this before, but seeing my images on a pc made me wonder: I have a lot of slides that I used to teach a course in photography, about 15 years ago. They are photos of images in books, mostly taken on tungsten slide film beca
-
I have 6 streams of data that I want to plot on waveform charts. The first 4 have the same y-scaling, so I have them clustered together into a chart. The other 2 streams have a different y-scaling, so I have them each on their own chart. All 6 sha
-
Hi Friends, I've a requiremnet to create SO where data will be provided in JAVA screens. Is there any way to access SAP from java as we can do this through VB using API methods. Regards, Anupam
-
How to handle DLSw for SDLC and token-ring to same remote peer
We have the need to have SDLC and token-ring connections from one local router to a the same remote site. Currently we have a remote peer for token-ring: dlsw port-list 10 TokenRing0/0 dlsw remote-peer 10 tcp a.b.c.d lf 1500 We have an SDLC link on a
-
Want a random sorting of photos in album/slideshow
This is killing me. I have 238 photos that I would like to be randomly sorted so that I can then create a permenant slideshow. I certainly do not want to manually sort each one!! It is my understanding that you cannot create a random or shuffled slid