No list output in SP01

Hi Experts,
I am trying to display a Spool number using SP01.
This spool number is present in table TSP01.
But when i enter that particular Spool number then it display output as 'List contains no data'.
But in the bottom of output it shows '1 spool request displayed'.
Is this issue belongs to Basis team?
Please guide me.Suggestions will be apprected.
Regards,
Amit

Hi Amit,
Go to your printer option.
remove check at
1. print immediately
2. delete after output.
then your spool will be displayed in SP01.
Regards,
Vijay

Similar Messages

PRINTING A LIST OUTPUT WITHOUT USING SP01 TCODE

Dear All
I have developed an pf report which is of list output format i have used WRITE statements ...and i want to print this output ; like whenever i click print option on menu bar it should ask for print preview option and after confirmation i will print it without going to SP01 tcode .is there any way i could achieve this functionality .. kindly help me in this regard or suggest me a better way of doing it
Thanking you

do a F1 on NEW-PAGE statement its all there...

Convert ABAP list output to PDF without spool

Hi All,
We have used the FM 'CONVERT_ABAPSPOOLJOB_2_PDF' to convert the list output to PDF. It creates the spool number in SP01 and PDF is getting generated.
But, in our SAP ECC 6.0 server all spools are redirected to printer by default and get printed because it configured like that. We requested BASIS people to reconfigure but they said no for a single report.
So we need to find the alternate solution to generate the PDF without spool. We have searched in sdn, but didnot get any alternate solution.
Please help us in this regard.
Thanks in advance.

data: begin of i_list occurs 0,
line(255),
end of i_list.
data:i_mara like mara occurs 0 with header line.
parameters: p_matnr like mara-matnr.
start-of-selection.
set pf-status 'PDFFILE'.
select *
     from mara
     into table i_mara
    where matnr = p_matnr.
loop at i_mara.
write:i_mara-matnr,i_mara-ernam,i_mara-pstat.
endloop.
at user-command.
if sy-ucomm = 'PDF'.
DO.
READ LINE SY-INDEX.
IF SY-SUBRC NE 0.
EXIT.
ELSE.
I_LIST = SY-LISEL.
APPEND I_LIST.
ENDIF.
ENDDO.
NEW-PAGE PRINT ON DESTINATION 'LP03' IMMEDIATELY ' ' COVER TEXT ' ' KEEP IN SPOOL 'X' NEW LIST IDENTIFICATION 'X' LINE-SIZE 132 LINE-COUNT 65 NO DIALOG.
LOOP AT I_LIST.
IF I_LIST-LINE IS INITIAL.
SKIP.
ELSE.
at first.
write: TEXT-001.
endat.
WRITE: I_LIST-LINE+0(132).
ENDIF.
ENDLOOP.
NEW-PAGE PRINT OFF.
data:filename like RLGRAP-filename value 'C:\PDFFILE.PDF'.
DATA: SPOOL TYPE TSP01-RQIDENT.
SPOOL = SY-SPONO.
SUBMIT rstxpdft4
WITH spoolno = spool
WITH download = 'X'
WITH p_file = filename
AND RETURN.
if sy-subrc = 0.
write: 'pdf file generated'.
else.
write:'pdf file not generated'.
EXIT.
endif.
      endif.
please paste this code and check once ,if it works modify the code according to ur requirement.
regards,
padmaja

I wnat to add new fieldtext in the alv list output plz tell me

hi,
i whant add new fieldtext in the list output, plz tell me where can i modify it.
CORRECTIONS
DATE CORRECTION NOTE AUTHOR DESCRIPTION
09.03.2001 L9CK045451 0388404 XSC Wrong list output for multiple Os
05.06.2001 AL0K023393 0410219 Lud Wrong keydate for search with
 Pchbegda and pchendda.
22.04.2004 S6BK024775 730486 PS Too many selection parameters in
 header
19.06.2006 S6BK035494 956731 JF No sorting by qualification
REPORT RHPK_FIND_PERS_WITH_EXPIRED_QU MESSAGE-ID PQ.
DATA AUFRUF(8).
TABLES : OBJEC, GDSET.
DATA LIST.
DATA MARKFIELD(1) TYPE C.
ALV_POOL
TYPE-POOLS SLIS.
INCLUDES
INCLUDE .
INCLUDE RHPEINI0.
TABLES
DATA: orgeh_BUFFER like hrobject OCCURS 1 WITH HEADER LINE.
DATA: OBJECTS LIKE HRSOBID OCCURS 1 WITH HEADER LINE.
DATA: h_OBJEC LIKE objec OCCURS 0 WITH HEADER LINE.
DATA: pers_objects LIKE HRSOBID OCCURS 1 WITH HEADER LINE.
DATA: QUALI_TAB LIKE QUALI_PROF OCCURS 1 WITH HEADER LINE.
DATA: PERSONS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: H_PERSONS LIKE HRPE_PROFL OCCURS 1 WITH HEADER LINE.
DATA: LIST_OUTPUT LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: BOOK_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: PLAN_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA H_SUITED LIKE DYNP_PCRIT-SUITED.
DATA: O_COLOR LIKE STREEATTR-COLOR.
DATA: O_INTENSIV LIKE STREEATTR-INTENSIV.
DATA SHOW_KEY.
DATA EVENT.
DATA: HTEXT LIKE P1000-STEXT.
DATA: EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: COLLECTED_EVENTS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: SUBTY_TAB LIKE HRPE_OTYPE_SUBTY OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF HIDE_STRU,
 PERSTYPE LIKE HROTYPE-OTYPE,
 PERSOBID LIKE HRSOBID-SOBID,
 PERSTXT LIKE PERSQ_PROF-STEXT,
 SCALE_ID LIKE HRPE_PROFQ-SCALE_ID,
 TRAININGTYPE LIKE HRP1000-OTYPE,
 TRAININGID LIKE HRP1000-OBJID,
 TRAININGSTXT LIKE HRP1000-STEXT,
 QUALID LIKE QUALI_PROF-QUALID,
 QUALTEXT LIKE QUALI_PROF-QUALSTXT,
 END OF HIDE_STRU.
DATA: BEGIN OF EXTAB OCCURS 10,
 FCODE LIKE RSMPE-FUNC,
 END OF EXTAB.
DATA: CURRENT_QUALID LIKE QUALI_PROF-QUALID.
DATA: CURRENT_TRAININGSID LIKE HRP1000-OBJID.
DATA: CURRENT_TRAININGTYPE LIKE HRP1000-OTYPE.
DATA: SUBRC LIKE SY-SUBRC.
VARIABLES
DATA: OBJID LIKE P1000-OBJID.
DATA: H_LINE_COUNT TYPE I.
DATA: H_TABIX1 LIKE SY-TABIX.
ALV-Variables
DATA: alv_events_line TYPE slis_alv_event. "header line
DATA ALV_EVENTS TYPE SLIS_T_EVENT.
DATA GT_ALV_LIST_TOP_OF_LIST TYPE SLIS_T_LISTHEADER.
DATA: gt_events TYPE SLIS_T_EVENT.
DATA G_REPID LIKE SY-REPID.
DATA G_VARIANT LIKE DISVARIANT.
DATA ALV_USERCOMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
DATA G_USERCOMMAND_FOR_RANKINGLIST TYPE SLIS_FORMNAME VALUE
'USER_COMMAND_FOR_RANKINGLIST'.
DATA ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: ALV_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
DATA: Help_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
begin of Dynpro 5020 - POPUP: WEITER
DATA: OK_CODE_5020 LIKE SY-UCOMM.
DATA: NO_ORG. "if no org selected
DATA: H_TABIX LIKE SY-TABIX.
begin of Dynpro 20nn - Header
TABLES: DYNP_RHPP.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-005.
PARAMETERS:
 H_EVENTS LIKE DYNP_RHPP-GEN_TRAIN, "with training sugg
 H_QUAL LIKE DYNP_RHPP-EXPIRED_QUAL. "with Qual
SELECTION-SCREEN END OF BLOCK B3.
INITIALIZATION
INITIALIZATION.
PERFORM READ_T77S0_PARAMETERS_FOR_PE.
get user parameters/Planvariante und Beginndatum setzen:
PCHOTYPE = $ORGEH.
CALL FUNCTION 'RHP0_USER_PARAMETERS_GET'
 EXPORTING
 FILL_IF_INITIAL = 'X'
 IMPORTING
 PLVAR = PCHPLVAR
 BEGDA = PCHBEGDA
 endda = Pchendda "Correction 0410219
 WITH_KEY = SHOW_KEY
 SUBSTITUTE =
 ESSENTIAL = only_essential
 ORG_UNIT = PCHOBJID-LOW
 EXCEPTIONS
 OTHERS = 0.
PCHBEGDA = LOW_DATE. "Correction note: 0410219 / AL0K023393
get menu text for key on/off
PERFORM USER_MENU_TEXT_KEY(SAPLRHP0) USING G_MENU_TEXT_KEY.
start-of-selection
START-OF-SELECTION.
terminate the selection if objid isn't given
READ TABLE PCHOBJID INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0
AND PCHOBJID IS INITIAL.
 PCHOBJID-SIGN = 'I'.
 PCHOBJID-OPTION = 'EQ'.
 PCHOBJID-LOW = '00000001'.
 APPEND PCHOBJID.
 NO_ORG = TRUE.
ELSE.
 NO_ORG = FALSE.
ENDIF.
GET OBJEC.
terminate the selection if objid isn't given
IF NO_ORG = TRUE.
 EXIT.
ENDIF.
OBJECTS-PLVAR = PCHPLVAR.
OBJECTS-OTYPE = PCHOTYPE.
OBJECTS-SOBID = OBJEC-REALO.
APPEND OBJECTS.
Für das lesen der Organisationseinheit
h_OBJEC-PLVAR = OBJEC-PLVAR.
h_OBJEC-OTYPE = OBJEC-OTYPE.
h_OBJEC-OBJID = OBJEC-objid.
append h_objec.
Read table h_objec index 1 transporting no fields.
if sy-subrc = 0.
Fill Buffer
 orgeh_BUFFER = h_OBJEC.
 orgeh_BUFFER[] = h_OBJEC[].
 CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
 TABLES
 OBJECTS = orgeh_BUFFER.
 Loop at h_OBJEC.
 H_TABIX = SY-TABIX.
Read text of organisation
 CALL FUNCTION 'RH_READ_OBJECT'
 EXPORTING
 PLVAR = h_OBJEC-plvar
 OTYPE = h_OBJEC-otype
 OBJID = h_OBJEC-OBJID
 IMPORTING
 OBEG = h_objec-begda
 OEND = h_objec-endda
 SHORT = short
 STEXT = h_OBJEC-stext
 EXCEPTIONS
 NOT_FOUND = 1
 OTHERS = 2.
 IF SY-SUBRC = 0.
 modify h_OBJEC index H_TABIX.
 ENDIF.
 endloop.
endif.
end-of-selection
END-OF-SELECTION.
read objects of the organizational unit
OBJID = OBJECTS-SOBID.
CALL FUNCTION 'RHPH_PICK_UP_PERSONS'
 EXPORTING
 BEGDA = PCHBEGDA "Correction 0410219
 ENDDA = PCHENDDA "Correction 0410219
 STATUS = '1'
 WITH_STEXT = 'X'
 TABLES
 OBJECTS = OBJECTS
 PERSONS = H_PERSONS
 EXCEPTIONS
 UNDEFINED = 1
 OTHERS = 2.
IF SY-SUBRC = 0.
prepare objects !
 objects-otype = h_persons-ttype.
 objects-sobid = h_persons-tobid.
 append objects.
ELSE.
 EXIT.
ENDIF.
CLEAR OBJECTS. REFRESH OBJECTS.
prepare sel_objects !
pers_objects-PLVAR = PCHPLVAR.
LOOP AT H_PERSONS.
 pers_objects-OTYPE = H_PERSONS-TTYPE.
 pers_objects-SOBID = H_PERSONS-TOBID.
 APPEND pers_objects.
ENDLOOP.
sort objects and delete adjacent duplicates
SORT Pers_OBJECTS BY PLVAR OTYPE SOBID.
DELETE ADJACENT DUPLICATES FROM Pers_OBJECTS COMPARING PLVAR OTYPE
SOBID.
CALL FUNCTION 'RHPK_FIND_PERS_WITH_EXPIRED_Q'
 EXPORTING
 PLVAR = PCHPLVAR
 CHECK_BEGDA = PCHBEGDA
 CHECK_ENDDA = PCHENDDA
 SUBTY = $ownsb "'B032'
 only_essential =
 target_otype =
 target_ap_iea =
 TABLES
 IMP_PER_TAB = pers_objects
 QUALI_TAB = QUALI_TAB
 PERSONS = LIST_OUTPUT
 altq_tab =
 EXCEPTIONS
 NO_QUALIFICATION = 1
 NO_PERSON_FOUND = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
100% case
READ TABLE pers_objects INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0.
 sort pers_objects by otype sobid.
check the selected persons: if org.unit was selected !
 Loop at pers_objects.
 H_TABIX = SY-TABIX.
 READ TABLE LIST_OUTPUT WITH KEY OTYPE = pers_objects-OTYPE
 SOBID = pers_objects-SOBID
 BINARY SEARCH.
 IF SY-SUBRC <> 0.
 person doesn't belong to the selected org.unit
 DELETE LIST_OUTPUT INDEX H_TABIX.
 ENDIF.
 ENDLOOP.
ENDIF. "org.unit check needed ?
end-of-selection.
sort h_objec by otype objid.
sort list_output by otype sobid.
sort h_persons by ttype tobid.
ALV-Liste aufbauen
loop at h_objec.
 loop at h_persons where otype = h_objec-otype "XSC
 and sobid = h_objec-objid. "XSC
 Read table list_output with key
 otype = h_persons-ttype
 sobid = h_persons-tobid
 binary search.
 if sy-subrc = 0.
 h_tabix1 = sy-tabix.
 while sy-subrc = 0.
 clear alv_output. "XSC
 ALV_OUTPUT-otype = h_objec-otype.
 ALV_OUTPUT-sobid = h_objec-objid.
 ALV_OUTPUT-stext = h_objec-stext.
 ALV_OUTPUT-Ptype = LIST_OUTPUT-otype.
 ALV_OUTPUT-pobid = LIST_OUTPUT-sobid.
 ALV_OUTPUT-pshort = LIST_OUTPUT-short.
 ALV_OUTPUT-ptext = LIST_OUTPUT-stext.
 ALV_OUTPUT-qualid = LIST_OUTPUT-qualid.
 ALV_OUTPUT-qualstxt = LIST_OUTPUT-qualstxt.
 ALV_OUTPUT-expbegda = LIST_OUTPUT-vbegda.
 ALV_OUTPUT-expendda = LIST_OUTPUT-vendda.
 PERFORM FIND_TRAINING TABLES QUALI_TAB EVENT_TAB COLLECTED_EVENTS
 USING $PLVAR $GDATE H_EVENTS H_QUAL.
 IF NOT EVENT_TAB[] IS INITIAL.
 READ TABLE COLLECTED_EVENTS WITH KEY
 QUALID = LIST_OUTPUT-QUALID.
 IF SY-SUBRC = 0.
 ALV_OUTPUT-ICON_S_EVENTS = ICON_BOOKEVENT.
 endif.
 ENDIF.
 Append ALV_OUTPUT.
 h_tabix1 = h_tabix1 + 1.
 READ TABLE list_output INDEX h_tabix1
 COMPARING otype sobid.
 endwhile.
 endif.
 endloop.
endloop.
check if indicator for qualification view is set
IF h_qual = 'X'. "note 956731
 SORT alv_output by qualid OTYPE SOBID ptype pobid "note 956731
 expbegda expendda. "note 956731
ELSE. "note 956731
 SORT alv_output by OTYPE SOBID ptype pobid qualid expbegda expendda.
ENDIF. "note 956731
DELETE ADJACENT DUPLICATES FROM ALV_OUTPUT COMPARING OTYPE SOBID ptype
 pobid qualid expbegda expendda.
stext_AQ und icon-Feld noch nicht gefüllt
 perform PREPARE_TOP_OF_LIST.
 perform Build_FIELDCAT using GT_FIELDCAT[] H_EVENTS.
 perform ALV_LAYOUT USING alv_layout.
 G_REPID = SY-REPID.
 G_VARIANT-REPORT = G_REPID.
 PERFORM EVENTTAB_BUILD USING GT_EVENTS.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = 'X'
 I_CALLBACK_PROGRAM = G_REPID
 I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
 I_CALLBACK_USER_COMMAND = ALV_USERCOMMAND
 I_STRUCTURE_NAME = 'HRPDV_EXPIRED_Q'
 IS_LAYOUT = ALV_LAYOUT
 IT_FIELDCAT = GT_FIELDCAT[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'A'
 IS_VARIANT = G_VARIANT
 IT_EVENTS = GT_EVENTS
 IT_EVENT_EXIT =
 IS_PRINT =
 IS_REPREP_ID =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = ALV_OUTPUT
 EXCEPTIONS
 PROGRAM_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.
*& Form FIND_TRAINING
 text
 -->P_QUALI_TAB text
 -->P_EVENT_TAB text
 -->P_$PLVAR text
 -->P_GDATE text
 -->P_H_EVENT text
 -->P_H_QUAL text
FORM FIND_TRAINING TABLES P_QUALI_TAB STRUCTURE QUALI_TAB
 P_EVENT_TAB STRUCTURE EVENT_TAB
 P_COLLECTED_EVENTS STRUCTURE COLLECTED_EVENTS
 USING VALUE(P_$PLVAR) LIKE P1000-PLVAR
 VALUE(P_GDATE) LIKE P1000-GDATE
 VALUE(P_H_EVENT) TYPE ANY
 VALUE(P_H_QUAL) TYPE ANY.
IF NOT P_H_EVENT IS INITIAL.
 READ TABLE EVENT_TAB INDEX 1 TRANSPORTING NO FIELDS.
 IF SY-SUBRC <> 0.
 CLEAR P_EVENT_TAB. REFRESH EVENT_TAB.
 CLEAR P_COLLECTED_EVENTS. REFRESH P_COLLECTED_EVENTS.
 IF EVENT = FALSE.
 EVENT = TRUE.
 ELSE.
 EVENT = FALSE.
 ENDIF.
 CALL FUNCTION 'RHPH_FIND_TRAINING_FOR_QUAL'
 EXPORTING
 PLVAR = PCHPLVAR
 GDATE = SY-DATUM
 GET_NAME = 'X'
 TABLES
 QUALI_TAB = QUALI_TAB
 TO_Q_TAB = EVENT_TAB
 EXCEPTIONS
 NO_QUALIFICATION = 1
 NO_OBJECT_FOUND = 2
 TECHNICAL_ERROR = 3
 OTHERS = 4.
 IF SY-SUBRC = 0.
the found qualifications are picked up into table event_tab
 ENDIF.
 IF SY-SUBRC = 1.
 MESSAGE S015. "Zu den Eingaben wurden keine Daten gefunden
 ENDIF.
 IF SY-SUBRC > 2.
 EXIT.
 ENDIF.
collect events when there are double.
Veranstaltungen kollektieren, Können mehrfach auftauchen, da
verschiedenen Qualifikationen von gleichen Veranstaltungen vermittelt
 LOOP AT P_EVENT_TAB INTO P_COLLECTED_EVENTS.
 APPEND P_COLLECTED_EVENTS.
 ENDLOOP.
 SORT P_COLLECTED_EVENTS BY QUALID STEXT.
 ENDIF.
ENDIF.
ENDFORM. " FIND_TRAINING
*& Form PREPARE_TOP_OF_LIST
 text
--> p1 text
<-- p2 text
FORM PREPARE_TOP_OF_LIST.
DATA ALV_TOP_OF_LIST TYPE SLIS_LISTHEADER. "typ, key, info
DATA STEXT LIKE HRPDV_SUCCESSOR_VIEW-TTEXT.
DATA P_SUBRC LIKE SY-SUBRC.
DATA P_STEXT LIKE T777O-OTEXT.
DATA l_tabix like sy-tabix value 0.
DATA: h_counter TYPE i. "note 730486
ALV_TOP_OF_LIST-TYP = 'H'.
ALV_TOP_OF_LIST-INFO = TEXT-REQ.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
Organisationseinheit
ALV_TOP_OF_LIST-typ = 'S'.
Read text for organisationunit
PERFORM READ_TEXT_OTYPE_T777O(SAPLRHP0) USING SY-LANGU $ORGEH
 P_STEXT P_SUBRC.
ALV_TOP_OF_LIST-key = P_STEXT.
fill buffer for read organisation-text
CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
 EXPORTING
 CHECK_STRU_AUTH = 'X'
 WITH_EXTINT = ' '
 TABLES
 OBJECTS = OBJECTS.
loop at objects for multipleselection
clear h_counter. "note 730486
LOOP AT OBJECTS.
 $OBJID = OBJECTS-SOBID.
 CALL FUNCTION 'RH_READ_OBJECT'
 EXPORTING
 PLVAR = OBJECTS-PLVAR
 OTYPE = OBJECTS-OTYPE
 OBJID = $OBJID
 IMPORTING
 SHORT = short
 STEXT = STEXT
 EXCEPTIONS
 NOT_FOUND = 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.
 IF h_counter >= 15. "note 730486
 MOVE '( ... )' TO ALV_TOP_OF_LIST-INFO. "note 730486
 APPEND ALV_TOP_OF_LIST TO gt_alv_list_top_of_list.
 "note 730486
 EXIT. "note 730486
 ENDIF. "note 730486
 CONCATENATE $ORGEH OBJECTS-SOBID STEXT INTO
 ALV_TOP_OF_LIST-INFO SEPARATED BY SPACE.
 APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
 CLEAR ALV_TOP_OF_LIST.
 ALV_TOP_OF_LIST-typ = 'S'.
 l_tabix = l_tabix + 1.
 ADD 1 TO h_counter. "note 730486
ENDLOOP.
CLEAR ALV_TOP_OF_LIST.
ALV_TOP_OF_LIST-TYP = 'S'.
ALV_TOP_OF_LIST-key = TEXT-003.
WRITE PCHBEGDA TO ALV_TOP_OF_LIST-INFO.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
clear ALV_TOP_OF_LIST-INFO.
ALV_TOP_OF_LIST-key = TEXT-004.
WRITE PCHENDDA TO ALV_TOP_OF_LIST-INFO.
Append ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
ENDFORM. " PREPARE_TOP_OF_LIST
*& Form BUILD_FIELDCAT
 text
 -->P_GT_FIELDCAT[] text
FORM BUILD_FIELDCAT USING P_GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV
 P_H_EVENTS.
DATA: WA_FIELDCAT LIKE LINE OF P_GT_FIELDCAT.
DATA: P_REPNAME LIKE SY-REPID,
 L_TABIX LIKE SY-TABIX. "local variable for sy-tabix.
P_REPNAME = SY-REPID.
Erstellen des Feldkataloges
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = P_REPNAME
 I_INTERNAL_TABNAME =
 I_STRUCTURE_NAME = 'HRPDV_EXPIRED_Q'
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = PRONAME
 CHANGING
 CT_FIELDCAT = P_GT_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 0
 PROGRAM_ERROR = 0
 OTHERS = 0.
LOOP AT P_GT_FIELDCAT INTO WA_FIELDCAT.
 l_tabix = sy-tabix.
 CASE WA_FIELDCAT-FIELDNAME.
 when 'OTYPE'.
 WA_FIELDCAT-DDICTXT = 'L'.
 when 'SOBID'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'STEXT'.
 WA_FIELDCAT-DDICTXT = 'L'.
 when 'PTYPE'.
 WA_FIELDCAT-DDICTXT = 'L'.
 when 'POBID'.
 WA_FIELDCAT-DDICTXT = 'L'.
 when 'PSHORT'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'PTEXT'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'QUALID'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'QUALSTXT'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'EXPBEGDA'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'EXPENDDA'.
 WA_FIELDCAT-DDICTXT = 'L'.
 WHEN 'ICON_S_EVENTS'.
 IF P_H_EVENTS IS INITIAL.
 WA_FIELDCAT-NO_OUT = 'X'.
 else.
 WA_FIELDCAT-DDICTXT = 'X'.
 endif.
 ENDCASE.
 MODIFY P_GT_FIELDCAT FROM WA_FIELDCAT INDEX l_tabix.
ENDLOOP.
ENDFORM. " BUILD_FIELDCAT
*& Form ALV_LAYOUT
 text
 -->P_L_ALV_LAYOUT text
FORM ALV_LAYOUT USING P_ALV_LAYOUT TYPE slis_layout_alv.
build layout
P_LAYOUT-BOX_FIELDNAME = 'MARK_X'. "fieldname for checkbox
P_ALV_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
P_ALV_LAYOUT-BOX_TABNAME = ALV_OUTPUT. "tabname for checkbox
p_ALV_layout-info_fieldname = 'ALV_COLOR'.
ENDFORM. " ALV_LAYOUT
FORM eventtab_build USING
FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
APPEND LS_EVENT TO RT_EVENTS.
ENDFORM. "EVENTTAB_BUILD
*FORM TOP_OF_PAGE
FORM TOP_OF_PAGE. "#EC CALLED
NEW-PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = GT_ALV_LIST_TOP_OF_LIST[].
ENDFORM. "TOP_OF_PAGE
 FORM USER_COMMAND *
USER_COMMAND for the list of successor view *
--> r_ucomm *
--> rs_selfield *
FORM USER_COMMAND USING ALV_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD. "#EC CALLED
DATA: SELECTED_LINE LIKE HRPDV_expired_q.
DATA: SOBID_QUA LIKE P1000-OBJID.
DATA: LT_PERS_TAB LIKE HRSOBID OCCURS 0 WITH HEADER LINE.
CASE ALV_UCOMM.
 WHEN '&IC1'. "per Doppelklick auswählen
 READ TABLE ALV_OUTPUT INDEX
 RS_SELFIELD-TABINDEX INTO SELECTED_LINE.
 CASE RS_SELFIELD-FIELDNAME.
 WHEN 'POTYPE' or 'POBID' or 'PTEXT' or 'OTYPE' or 'SOBID' or
'STEXT' or 'QUALID' or 'QUALSTXT' or 'EXPBEGDA' or 'EXPENDDA'.
 READ TABLE ALV_OUTPUT INDEX RS_SELFIELD-TABINDEX INTO
 Help_output.
 IF SY-SUBRC <> 0.
 MESSAGE S027. "Bitte gültige Zeile auswählen
 EXIT.
 Endif.
 IF ALV_OUTPUT-SOBID IS INITIAL.
 MESSAGE S015. "Zu den Eingaben wurden keine Daten gefunden
 ELSE.
 converte the variable because of the different types
 SOBID_QUA = SELECTED_LINE-SOBID_QUA.
 CALL FUNCTION 'RHPP_SHOW_PROFILE'
 EXPORTING
 PLVAR = pchplvar
 OTYPE = SELECTED_LINE-PTYPE "XSC
 OBJID = SELECTED_LINE-POBID "XSC
 BEGDA = PCHBEGDA
 ENDDA = PCHENDDA
 MAINTAIN = ' '
 EXCEPTIONS
 NO_AUTHORITY = 1
 NOT_FOUND = 2
 OTHERS = 3.
 CASE SY-SUBRC.
 WHEN 0.
 All right.
 WHEN 1.
 MESSAGE S015.
 Zu Ihren Eingaben konnten keine Daten gefunden werden!
 WHEN 2.
 MESSAGE E000.
 Dazu haben sie keine berechtigung!
 WHEN OTHERS.
 MESSAGE E008.
 Es ist ein unvorhergesehener Fehler aufgetreten.
 ENDCASE. "sy-subrc.
 CLEAR ALV_OUTPUT.
 ENDIF. "IF ALV_OUTPUT-SOBID IS INITIAL.
 CLEAR ALV_OUTPUT-SOBID.
 when 'ICON_S_EVENTS'.
 IF SELECTED_LINE-ICON_S_EVENTS IS INITIAL.
 MESSAGE S027. "Bitte gültige Zeile auswählen
 EXIT.
 ENDIF.
 CLEAR LT_PERS_TAB.
 REFRESH LT_PERS_TAB.
 LT_PERS_TAB-PLVAR = pchPLVAR.
 LT_PERS_TAB-OTYPE = SELECTED_LINE-PTYPE. "XSC
 LT_PERS_TAB-SOBID = SELECTED_LINE-POBID. "XSC
 APPEND LT_PERS_TAB.
 SOBID_QUA = SELECTED_LINE-QUALID.
 CALL FUNCTION 'RHPP_SHOW_SUGGEST_EVENTS'
 EXPORTING
 P_PLVAR = pchPLVAR
 P_SOBID_QUA = SOBID_QUA
 P_PROFCY_REQ = SELECTED_LINE-RATING_REQ
 P_GDATE = sy-datum
 TABLES
 EVENT_TAB =
 PERS_TAB = LT_PERS_TAB.
 endcase.
 CLEAR SELECTED_LINE.
ENDCASE. "case sy-ucomm
CLEAR SY-UCOMM.
ENDFORM. "USER_COMMAND

Pls be more specific in your question. If you want to include an extra field in your alv output, then read the field catalog table you created through "Reuse_alv_fieldcatalog_merge" and then add an extra entry in it giving the details of the field you want to add.. and then call the "resuse_alv_grid_display",
Hope this helps. To be able to help you in a better way, kindly revert with any specific issue.
Reward if helpful,
Karan

Printing List output

Hi,
i have a list output like this, i want to print this in an A4 size paper, how can i do this...
 page no : 1
Name : 111111111111
Occupation : 22222222
Country : 33333333333
 page no : 2
Name : 444444444444
Occupation : 555555
Country : 666666666
thanks in advance,
vinayaka

Hi,
Try out using the help of below programs.
Printing without archiving
DATA PARAMS LIKE PRI_PARAMS.
DATA: 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 = 'Test NEW-PAGE PRINT ON'
 IMMEDIATELY = 'X'
 RELEASE = 'X'
 NEW_LIST_ID = 'X'
 EXPIRATION = DAYS
 LINE_SIZE = 79
 LINE_COUNT = 23
 LAYOUT = 'X_PAPER'
 SAP_COVER_PAGE = 'X'
 RECEIVER = 'SAP*'
 DEPARTMENT = 'System'
 NO_DIALOG = ' '
IMPORTING OUT_PARAMETERS = PARAMS
 VALID = VALID.
IF VALID <> SPACE.
NEW-PAGE PRINT ON PARAMETERS PARAMS NO DIALOG.
WRITE / 'First line'.
ENDIF.
Example
Printing with archiving
DATA: PARAMS LIKE PRI_PARAMS,
 ARPARAMS LIKE ARC_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 = 'Test NEW-PAGE PRINT ON'
 IMMEDIATELY = 'X'
 RELEASE = 'X'
 NEW_LIST_ID = 'X'
 EXPIRATION = DAYS
 LINE_SIZE = 79
 LINE_COUNT = 23
 LAYOUT = 'X_PAPER'
 SAP_COVER_PAGE = 'X'
 RECEIVER = 'SAP*'
 DEPARTMENT = 'System'
 SAP_OBJECT = 'RS'
 AR_OBJECT = 'TEST'
 ARCHIVE_ID = 'XX'
 ARCHIVE_INFO = 'III'
 ARCHIVE_TEXT = 'Description'
 NO_DIALOG = ' '
IMPORTING OUT_PARAMETERS = PARAMS
 OUT_ARCHIVE_PARAMETERS = ARPARAMS
 VALID = VALID.
IF VALID <> SPACE.
NEW-PAGE PRINT ON PARAMETERS PARAMS
 ARCHIVE PARAMETERS ARPARAMS
 NO DIALOG.
WRITE / 'First line'.
ENDIF.
Thanks,
Kartavya

Problem while saving list output as local file.

Hi Gurus!
i want to save the list output of classical report into excel but complete data is not coming into excel file.
[SYSTEM - > LIST ->SAVE -> LOCAL ->SPREADSHEET ]
when same output is transfer to unconverted file [notepad ] then completed data is coming.
please help me ,
points sure!
Rahul
Message was edited by:
rahul deshmukh

Yes Rahul, I know that and you have to do the formating. This is how you can do.
Open the unconverted file in Excel format.
Select the first column and then goto Data - Text to Columns , a pop up will come.
Select Delimited, then press next.
Then selct the delimeter that is used in the unconverted file to seperate two columns. Say for example if ' | ' is used then in others write ' | ' and press next.
IN the data preview section select all the columns and then select text radio button on top and press finish finally.
Now u will get the proper format of the file. Delete all the empty rows and columns that u don't want.
Reward if you find it useful.
Regards.
Akhil.

Invoice List Output

Hello Friends,
I am having issue with Invoice list output, when I print my invoice it prints the shipping quantity of material only as only ONE even when there is a multiple quantity, I want my invoice list output to print exact amount of quantity.Is there anyway I can deal with this issue to make sure that it prints multiple quantity in one line or in multiple line.,whatever--,I am a functional consultant not very comfortable with coding, detail explanation will be helpful.
Appreciate ur reply.
Thanks.
Mohammed.

DEAR I HAVE TO ASK SOME QUESTIONS
what is the program logic
if you have ABAP person ask him what is the layout type
like SMARTFOEM, SCRIPT or ALV
really issue is in the program layout.

End of page in alv list output.

Hi All,
Can any body help me out for how to show end of page in alv list output.
Thanks,
Rakesh Singh

Refer this link:
http://www.sap-img.com/abap/sample-programs-on-alv-grid.htm
Regards,
Ravi

ABAP List Output Printing Error

Hi All,
I am facing a problem while printing the ABAP List Output. First Page is printing fine and from the second page its not printing. Where as in Standard reports everything is printing OK.
Thanks in Advance.
Best regards,
Shahid Malayil

Hello Shahid,
For list printing: Add to affected reports with NEW-PAGE PRINT ON LAYOUT/ SUBMIT... TO SAP-SPOOL LAYOUT (print at list generation). For printing from list display, adjust REPORT width specification to force selection of the format and move format to SAP namespace (name "X....").
May be this can help you.
Cheers
Mudassir.

To download a list output to excel sheet

Hi All,
I am running the transaction MD47 for Product Group Planning.
I get a list output with as many as 90 columns.
When I try to download the output into an excel (System > List > Save > Local File ) only the columns which appear on the screen are being downloaded. Does any one have pointers on how can I download the whole list into an excel?
Regards,
Karthik

Hey Gabriel,
I am doing good. How are you today?
How do I do that?
This is a list output not an ALV. I dint find any option to choose an ALV layout.
Regards,
Karthik

Regarding Downloading of Report[List] output into Excel Sheet

Hi All,
Hi i have written one Classical report. I got the output Correctly.
Now i want to download that data into Excel Sheet in excatly the way it displayed in List[Report] output.
I had followed the path System->List->Save->LocalFile->Spread Sheet and tried to download the same.
Though it is downloaded it has not come in exact format.
Now what i want is to add a button above that report & write a program in that to download that data into Excel Sheet.
Can anybody tell me how can solve this issue. If i follow above procedure will the data[List Output] be downloaded into exact format into excel.
If anybody knows other way please sujjest.
Thanks in advance.
Thanks & Regards,
Prasad.

Hi Prasad,
I have done a program which downloads the output in the excel sheet in the correct format.
Just check the program. The code given in bold is what you have to use.
REPORT zexp MESSAGE-ID f4 LINE-SIZE 195.
 Tables Used ***********************************
TABLES : bseg, bkpf, bsak, lfa1, payr .
Declaring Internal Tables **************************
DATA :
Internal table to hold header data *************
BEGIN OF header OCCURS 0,
 ext_date(10) TYPE c,
 delimit(1) TYPE c,
 ext_time(8) TYPE c,
END OF header,
Internal table to hold detail info **************
BEGIN OF i_data OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data,
Internal table to to collect *****************
BEGIN OF i_data1 OCCURS 0,
 belnr LIKE bsak-belnr,
 gjahr LIKE bsak-gjahr,
 bukrs LIKE bsak-bukrs,
 bldat LIKE bsak-bldat,
 xblnr LIKE bsak-xblnr,
 blart LIKE bsak-blart,
 augdt LIKE bsak-augdt,
 augbl LIKE bsak-augbl,
 wrbtr LIKE bsak-wrbtr,
 shkzg LIKE bsak-shkzg,
 lifnr LIKE bsak-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
 chect LIKE payr-chect,
 status(1) TYPE c,
END OF i_data1,
String variables for formatting file data *************
 fidoc_year TYPE string,
 comp_code TYPE string,
 check_numbr TYPE string,
 vendor TYPE string,
 inv_date TYPE string,
 inv_nbr TYPE string,
 paid_dat TYPE string,
 inv_amt TYPE string,
 status TYPE string,
 ref_doc TYPE string,
************Internal table to store the file contents **************
BEGIN OF i_final_file OCCURS 0,
 record(300) TYPE c,
END OF i_final_file,
Internal table to store the list of allowed document types ****
BEGIN OF i_doctype OCCURS 0,
 blart LIKE bsak-blart,
END OF i_doctype,
Internal table to hold vendor information ************
BEGIN OF i_lfa1 OCCURS 0,
 lifnr LIKE lfa1-lifnr,
 name1 LIKE lfa1-name1,
 sortl LIKE lfa1-sortl,
END OF i_lfa1,
Internal table to hold check information *************
BEGIN OF i_payr OCCURS 0,
 chect LIKE payr-chect,
 vblnr LIKE payr-vblnr,
 gjahr LIKE payr-gjahr,
 zbukr LIKE payr-zbukr,
END OF i_payr.
Data declarations **************************
DATA : ws_stblg TYPE bkpf-stblg,
 todate TYPE bsak-augdt,
 fromdate TYPE bsak-augdt,
 w_day LIKE dtresr-weekday,
 day LIKE scal-indicator,
 d TYPE n,
 e_date LIKE sy-datum,
 e_time LIKE sy-uzeit,
 dd(2) TYPE c,
 mm(2) TYPE c,
 yy(4) TYPE c,
 hh(2) TYPE c,
 min(2) TYPE c,
 sec(2) TYPE c.
DATA : wa_filepath(50) TYPE c,
 wa_filename(50) TYPE c,
 wa_c_filename(100) TYPE c,
 arch_path(50) TYPE c.
* Data for downloading to list
DATA : list LIKE TABLE OF abaplist WITH HEADER LINE.
DATA : BEGIN OF list_asc OCCURS 0,
msg(300) TYPE c,
END OF list_asc.
DATA: BEGIN OF i_invoiceheader OCCURS 0,
name(30) TYPE c,
END OF i_invoiceheader.
RANGES dates FOR bkpf-budat.
Selection Screen ************************
SELECTION-SCREEN SKIP 2.
SELECT-OPTIONS:
 s_bukrs FOR bkpf-bukrs ,
 s_blart FOR bkpf-blart ,
 s_augdt FOR bsak-augdt. " memory id todat TO fromdat.
PARAMETERS :submit AS CHECKBOX DEFAULT ' ' .
* Download list to file.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'LIST'.
 PERFORM download.
 WHEN 'BACK'.
 EXIT.
ENDCASE.
----
 FORM download *
FORM download.
if s_augdt is initial.
dates-sign = 'I'.
dates-option = 'BT'.
dates-low = '20050901'.
dates-high = '20050920'.
APPEND dates.
else.
dates = s_augdt.
append dates.
endif.
/* Submit the same program .
SUBMIT zexp WITH s_augdt IN dates
 EXPORTING LIST TO MEMORY
 AND RETURN.
CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = list
 EXCEPTIONS
 not_found = 1.
CALL FUNCTION 'LIST_TO_ASCI'
EXPORTING
LIST_INDEX = -1 "LIST_INDEX SY-LSIND.
TABLES
listasci = list_asc
listobject = list.
PERFORM download_file.
ENDFORM.
 FORM download_file *
FORM download_file.
DATA fname TYPE rlgrap-filename VALUE 'c:\audit_report.xls'.
DATA ftype TYPE rlgrap-filetype VALUE 'DAT'.
DATA numeric_data(10) TYPE c VALUE '0123456789'.
*Table structure should match with list output.
DATA : BEGIN OF i_data1 OCCURS 0,
 belnr(12) TYPE c,
 gjahr(6) TYPE c,
 bukrs(8) TYPE c,
 chect(13) TYPE c,
 lifnr(12) TYPE c,
 name1(37) TYPE c,
 bldat(14) TYPE c,
 xblnr(18) TYPE c,
 augdt(14) TYPE c,
 wrbtr(17) TYPE c,
 status(4) TYPE c,
 augbl(18) TYPE c,
 sortl(17) TYPE c,
 END OF i_data1.
Header record of the excel sheet.
PERFORM fill_header.
LOOP AT list_asc.
Reads lines starting from the first record in the report. All informatory statements in the report are not read.
 IF list_asc+1(10) CO numeric_data.
 i_data1 = list_asc .
 APPEND i_data1.
 ENDIF.
ENDLOOP.
Call the download function.
CALL FUNCTION 'DOWNLOAD'
 EXPORTING
 filename = fname
 filetype = ftype
 TABLES
 data_tab = i_data1
 FIELDNAMES = i_invoiceheader.
ENDFORM.
 FORM fill_header *
FORM fill_header.
i_invoiceheader-name = 'Doc Number'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Fsc Year'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Cmp Code'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Check No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Vendor No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Entered by'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Doc Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Ref Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Date'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Amount'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Status'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Clearing Doc No'.
APPEND i_invoiceheader.
i_invoiceheader-name = 'Sort field'.
APPEND i_invoiceheader.
ENDFORM. " fill_header
 Initialization *************************
INITIALIZATION.
To initialize the date parameter on the selection screen.
The date by default ranges from previous Monday to Sunday.
todate = sy-datum.
CALL FUNCTION 'DATE_COMPUTE_DAY'
 EXPORTING
 date = todate
 IMPORTING
 day = day.
d = day.
if d < 4.
 todate = sy-datum - d - 4 .
else.
 todate = sy-datum - d + 3 .
endif.
fromdate = todate - 6.
MOVE: 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
APPEND s_augdt.
Start of Selection **************************
START-OF-SELECTION.
Checking the validity of the inputted dates ****************
IF s_augdt-low > sy-datum OR s_augdt-high > sy-datum.
 MESSAGE i999 WITH 'You cannot input future date'.
 EXIT.
ENDIF.
IF NOT s_bukrs IS INITIAL.
MESSAGE i999 WITH 'Program will run with input parameters in screen!!'.
ENDIF.
Initialize the header data ***********************
e_time = sy-uzeit.
MOVE e_time+0(2) TO hh.
MOVE e_time+2(2) TO min.
MOVE e_time+4(2) TO sec.
CONCATENATE hh min sec INTO header-ext_time SEPARATED BY ':'.
e_date = sy-datum.
MOVE e_date+0(4) TO yy.
MOVE e_date+4(2) TO mm.
MOVE e_date+6(2) TO dd.
CONCATENATE mm dd yy INTO header-ext_date SEPARATED BY '/'.
header-delimit = '~'.
APPEND header.
List allowed document types **********************
PERFORM fill_doc_types.
**To select the documents within the range of week or as inputted **
IF s_augdt IS INITIAL.
 MOVE: 'I' TO s_augdt-sign,
 'BT' TO s_augdt-option,
 fromdate TO s_augdt-low,
 todate TO s_augdt-high.
 APPEND s_augdt.
ENDIF.
Selecting the records from the database ****************
IF s_bukrs IS INITIAL AND s_blart IS INITIAL.
Select all documents of company code 1000, *********
4200 and 8000, and allowed document types *********
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND ( bukrs = '1000' OR bukrs ='4200' OR
 ( bukrs = '8000' AND blart NE 'ZP' ) ).
 loop at i_data.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 endif.
 endloop.
ELSEIF s_blart IS INITIAL.
Select all documents of allowed document types ******
 and inputted company code ************
 SELECT belnr gjahr augdt augbl bukrs
 blart bldat xblnr lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 FOR ALL ENTRIES IN i_doctype
 WHERE blart EQ i_doctype-blart
 AND augdt IN s_augdt
 AND bukrs IN s_bukrs .
 LOOP AT i_data.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ELSE.
Select the documents matching the company codes *****
and document types inputted in the selection screen ****
 SELECT belnr gjahr augdt augbl bukrs bldat xblnr
 blart lifnr wrbtr shkzg
 FROM bsak INTO CORRESPONDING FIELDS OF TABLE i_data
 WHERE bukrs IN s_bukrs AND blart IN s_blart
 AND augdt IN s_augdt.
 SORT i_data BY blart.
 LOOP AT i_data.
Filtering the records selected
based on the document type
 READ TABLE i_doctype WITH KEY blart = i_data-blart.
 IF sy-subrc NE 0.
 DELETE i_data.
 continue.
 ENDIF.
Exclude documents of type ZP
for company code 8000.
 IF i_data-bukrs = '8000' AND i_data-blart = 'ZP'.
 DELETE i_data.
 continue.
 ENDIF.
Exclude reversed documents.
 select single stblg into ws_stblg
 from bkpf
 where bukrs = i_data-bukrs
 and gjahr = i_data-gjahr
 and belnr = i_data-belnr.
 if not ws_stblg is initial.
 delete i_data.
 continue.
 endif.
 ENDLOOP.
 READ TABLE i_data INDEX 1.
 IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
 ENDIF.
ENDIF.
IF sy-subrc NE 0.
 MESSAGE i999 WITH 'No records have been selected'.
 EXIT.
ENDIF.
credit/debit identification ***********************
LOOP AT i_data.
 IF i_data-shkzg EQ 'H'.
 i_data-wrbtr = i_data-wrbtr * 1.
 ELSEIF i_data-shkzg EQ 'S'.
 i_data-wrbtr = i_data-wrbtr * -1.
 ENDIF.
 MODIFY i_data.
ENDLOOP.
for summarizing ******************************
LOOP AT i_data.
 MOVE-CORRESPONDING i_data TO i_data1.
 COLLECT i_data1.
ENDLOOP.
Vendor informations and Check Informations *****************
SELECT lifnr name1 sortl
 FROM lfa1
 APPENDING CORRESPONDING FIELDS OF TABLE i_lfa1
 FOR ALL ENTRIES IN i_data1
 WHERE lifnr = i_data1-lifnr.
SELECT chect vblnr gjahr zbukr FROM payr APPENDING CORRESPONDING
 FIELDS OF TABLE i_payr FOR ALL ENTRIES
 IN i_data1 WHERE vblnr = i_data1-augbl
 AND gjahr = i_data1-augdt(4)
 AND zbukr = i_data1-bukrs.
SORT i_data1 BY augbl gjahr bukrs lifnr.
SORT i_payr BY vblnr gjahr zbukr.
SORT i_lfa1 BY lifnr.
LOOP AT i_data1.
 READ TABLE i_payr WITH KEY vblnr = i_data1-augbl
 gjahr = i_data1-gjahr
 zbukr = i_data1-bukrs.
 IF sy-subrc EQ 0.
 i_data1-chect = i_payr-chect.
 ENDIF.
 READ TABLE i_lfa1 WITH KEY lifnr = i_data1-lifnr.
 IF sy-subrc EQ 0.
 i_data1-name1 = i_lfa1-name1.
 i_data1-sortl = i_lfa1-sortl.
 ENDIF.
 i_data1-status = 'X'.
 MODIFY i_data1.
ENDLOOP.
**The records are sorted by clearing date, check number and doc type**
SORT i_data1 BY augdt chect blart.
**********The header record is outputted on the screen****************
PERFORM write_header.
********Data is moved to internal table in the file format *************
PERFORM move_data.
Line items are outputted on the screen *********************
PERFORM write_output.
*& Form write_header &*
*& This outputs the header information to screen &*
FORM write_header.
SKIP.
 SET PF-STATUS 'LIST'.
Outputting the header information *********************
WRITE : / 'Extraction Date : ' , header-ext_date.
WRITE : / 'Extraction Time : ' , header-ext_time.
FORMAT COLOR 1." INTENSIFIED.
SKIP.
ULINE AT 0(190) NO-GAP.
Outputting line level information **********************
WRITE:/ sy-vline NO-GAP,
 (10) 'DOC NUMBER',
 sy-vline NO-GAP,
 (4) 'F-YR',
 sy-vline NO-GAP,
 (6) 'C-CODE',
 sy-vline NO-GAP,
 (10) 'CHECK NUM',
 sy-vline NO-GAP,
 (10) 'VENDOR NUM',
 sy-vline NO-GAP,
 (35) 'VENDOR NAME',
 sy-vline NO-GAP,
 (12) 'INVOICE DATE',
 sy-vline NO-GAP,
 (16) 'INVOICE NUMBER',
 sy-vline NO-GAP,
 (12) 'PAID DATE',
 sy-vline NO-GAP,
 (15) 'INVOICE AMOUNT',
 sy-vline NO-GAP,
 (2) 'SC',
 sy-vline NO-GAP,
 (16) 'REFERENCE FI DOC',
 sy-vline NO-GAP,
 (15) 'SORT FIELD',
 sy-vline NO-GAP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_header
*& FORM MOVE_DATA &*
*& Formats data in internal table as is required in the file &*
FORM move_data.
LOOP AT i_data1.
Document number and fiscal year should be separted by '|' *****
 CONCATENATE i_data1-belnr i_data1-gjahr INTO fidoc_year
 SEPARATED BY '|'.
 MOVE i_data1-bukrs TO comp_code.
 MOVE i_data1-chect TO check_numbr.
Vendor number and vendor name should be separted by '|' *****
 CONCATENATE i_data1-lifnr i_data1-name1 INTO vendor
 SEPARATED BY '|'.
 SHIFT vendor LEFT DELETING LEADING '0'.
 SHIFT vendor RIGHT DELETING TRAILING space.
Date fields converted to MM/DD/YYYY format ****************
 MOVE i_data1-bldat+0(4) TO yy.
 MOVE i_data1-bldat+4(2) TO mm.
 MOVE i_data1-bldat+6(2) TO dd.
 CONCATENATE mm dd yy INTO inv_date SEPARATED BY '/'.
 MOVE i_data1-xblnr TO inv_nbr.
 SHIFT inv_nbr RIGHT DELETING TRAILING space.
 MOVE i_data1-augdt+0(4) TO yy.
 MOVE i_data1-augdt+4(2) TO mm.
 MOVE i_data1-augdt+6(2) TO dd.
 CONCATENATE mm dd yy INTO paid_dat SEPARATED BY '/'.
 MOVE i_data1-wrbtr TO inv_amt.
 CONDENSE inv_amt.
 SHIFT inv_amt RIGHT DELETING TRAILING space.
 MOVE i_data1-status TO status.
 MOVE i_data1-augbl TO ref_doc.
 CONCATENATE fidoc_year
 comp_code
 check_numbr
 vendor
 inv_date
 inv_nbr
 paid_dat
 inv_amt
 status
 ref_doc
 INTO i_final_file-record SEPARATED BY '~'.
 APPEND i_final_file.
ENDLOOP.
ENDFORM. " MOVE_DATA
*& Form write_output &*
*& Outputs all data to screen &*
FORM write_output.
LOOP AT i_data1.
 FORMAT COLOR 2 INTENSIFIED.
Outputting line level information *******************
 WRITE : / sy-vline NO-GAP,
 (10) i_data1-belnr,
 sy-vline NO-GAP,
 (4) i_data1-gjahr,
 sy-vline NO-GAP,
 (6) i_data1-bukrs,
 sy-vline NO-GAP,
 (10) i_data1-chect,
 sy-vline NO-GAP,
 (10) i_data1-lifnr,
 sy-vline NO-GAP,
 (35) i_data1-name1,
 sy-vline NO-GAP,
 (12) i_data1-bldat MM/DD/YYYY,
 sy-vline NO-GAP,
 (16) i_data1-xblnr,
 sy-vline NO-GAP,
 (12) i_data1-augdt MM/DD/YYYY,
 sy-vline NO-GAP,
 (15) i_data1-wrbtr,
 sy-vline NO-GAP,
 (2) i_data1-status,
 sy-vline NO-GAP,
 (16) i_data1-augbl,
 sy-vline NO-GAP,
 (15) i_data1-sortl,
 sy-vline NO-GAP.
ENDLOOP.
ULINE AT 0(190) NO-GAP.
ENDFORM. " write_output
In the program, I am downloading only the list.. The description of report outputted in the beginning of the report is not downloaded to excel.
What has to be taken into consideration is that, the structure of the table i_data1 which contains the data to be downloaded to the table.
I hope that this will help you.
Regards,
Susmitha

Export Simple list output to Excel sheet.

Hi gurus,
I have a list output as follows.
A main header
Sub header 1
table entries.
sub header 2.
table entries ,......etc.
now i want to export the same format to an excel sheet which need to sent as a mail attachment.
Is there any FM for this ? i dont want the format to be disturbed.
can headers and other entries defferentiated with colors ?
kindly help on this.
Edited by: deepan adhi on Oct 4, 2009 9:52 AM

write the list to memory,
and the read this memory into an internal table. this will be exactly the same way as its printed on your screen. download it.
or
create an internal table of type string, add pass data from your final internal table in the exact way you are putting it in the output.
and download this string internal table.

List output in ALV grid

Hi all,
I need the list output of one program in my program in a grid(single column).
I am doing the below..
TYPES: BEGIN OF tp_ascitab ,
 line(150),
 END OF tp_ascitab.
DATA: dt_ascitab TYPE TABLE OF tp_ascitab,
 ds_ascitab TYPE tp_ascitab.
 SUBMIT zlist_program WITH p-gmn EQ matno
 WITH p-plant EQ plant
 EXPORTING LIST TO MEMORY
 AND RETURN.
 CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = gmn_info_tab
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 CALL FUNCTION 'LIST_TO_ASCI'
 TABLES
 listobject = gmn_info_tab
 listasci = dt_ascitab.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 IF dg_gridcont IS INITIAL.
Create controls
 CREATE OBJECT dg_gridcont
 EXPORTING container_name = 'GRID_CONT'.
 ENDIF.
 CREATE OBJECT dg_grid
 EXPORTING i_parent = dg_gridcont.
 ds_layout-no_hgridln = 'X'.
 ds_layout-no_toolbar = 'X'.
 CALL METHOD dg_grid->set_table_for_first_display
 EXPORTING
 is_layout = ds_layout
 CHANGING
 it_fieldcatalog = dt_fcat[]
 it_outtab = dt_ascitab.
The table dt_ascitab has data in correct format until it is passed to grid.
After that, there is change in alignmentt. The grid output has data with
improper alignment. Could anyone help me with this.
thanks,
Keerthi.

Hi Keerthi,
Try Using following FM before Method 'set_table_for_first_display'
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_buffer_active = ' '
 i_structure_name = 'structure in which format u need output'
 i_client_never_display = 'X'
 i_bypassing_buffer = 'X'
 CHANGING
 ct_fieldcat = dt_fcat[]
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 OTHERS = 3.
Hope, it will help u.

How to append ALV grid output to LIST output

Hi,
I am working with Basis AUDIT MANUAL report for which i have to integrate around 50 standard transactions (SM37,SM35...etc) output and make it into one single report.
On execution of my report i have to get all the 50 transaction outputs sequentially.
Some standard transactions have ALV list display output and some have GRID display.I can able to append only list outputs by submit program and exporting list to memory.
Please suggest me how to get Alv grid output in midst of list output.
Regards
Kalpana.

You should post your question to the ABAP forum:
ABAP Development

Clarifications in pick list output type EK00

Hello ,
Have any one of you used the pick list output EK00 . I have
tried this and I do have some issues with
We are using SAP R/3 4.7 x 200 version .
Output type EK00 is not available in the application V2 (
Shipping ) . Its available in application V4 (Shipping special
case).
1. I have assigned the shipping points through T code VOK2 as I
am not able to find the output EK00 through customization menu.
2. I have maintained the printers details through VP01SHP ( correct me if I am wrong) . I am using the standard program RVADEK01 and form
SD_PICK_SINGLE in the output EK00.
After doing the above setting when I am creating delivery in
VL01N , the output type EK00 is not assigned automatically and
when I try to assign it manually , it gives an error message
"Processing program missing for output EK00 (medium 1)in
application V2" . I dont know why the system is looking for
application V2 when it is not available in V2 and only available
in V4 .
Am I missing anything in my process . Can some one help me in this .
With regards,
Joseph Anand.B

Dear Joseph,
Have you done the following setting in transaction v/38:
1.On the Display View "Output Types": Overview screen, in the Output type group box, select EK00. (Application V4)
2.In the left frame, under Dialog Structure, double-click on the Processing routines folder.
3.On the Change View "Processing Routines": Overview screen, choose .
4.In the first medium, for Print output, enter the Smart Form print program /SMB40/RVADEK01 under Program and Smart Form /SMB40/SDPIK_L under SmartForm.
Document Types        Picking List
Output Types          EK00
Transaction Code      v/38
Smart Form Program    /SMB40/RVADEK01
Smart Form            /SMB40/SDPIK_L
                      /SMB40/SDPIK_A
5. Save the changes.
Regards,
Naveen.

No list output in SP01

Similar Messages

Maybe you are looking for