Displaying spool requests

Question

Dear experts ,
      My requirement is ,displaying the spool requests according to user name ,date created ,and Title.for that i am using the following two function modules.
RSPO_RINIT_SPOOL_SP01
RSPO_RDISPLAY_SPOOLREQ
i appended the title of spool request to the internal table and passed that interanal table to RSPO_RINIT_SPOOL_SP01 ,up to now its working fine .but what my requirement is ,i should pass the username and date through selection screen.in the same way i have appended data from the selection screen to respective internal tables and passed through the internal table.if i give wrong 'username ' in selection screen it should not display any spool job.even though its showing spool requests based on title.what was wrong?please help me out.
Thanks and regards
naresh bammidi

Answer 1

Hi Naresh,
Use below report for your porpose.
TABLES : RQIDEN_T,RQOWNE_T,RQCRED_T,RQTITL_T.
SELECT-OPTIONS : s_spool for RQIDEN_T.
SELECT-OPTIONS : s_owner for RQOWNE_T.
SELECT-OPTIONS :s_date  for RQCRED_T.
SELECT-OPTIONS  : s_rqtitl  for RQTITL_T.
type-POOLs : slis.
data : lt_SPORQ   TYPE TABLE OF tsp01sys,
       ws_SPORQ   TYPE tsp01sys,
       goto_sel.
data : lw_sel TYPE SLIS_SELFIELD.
data: lt_sysid type TABLE OF ALSYSID,
      ws_sysid type ALSYSID.
    ws_sysid-SYSID = SY-SYSID.
    append ws_sysid to lt_sysid.
CALL FUNCTION 'RSPO_RINIT_SPOOL_SP01'
    EXPORTING
      SAVEFLAG = 'A'
      SUMMARY   = 'X'
      LOCAL     = 'X'
      OWNER     = ' '
      CLIENT    = ' '
      RQNONE    = 'X'
      RQPROC    = 'X'
      RQSUCC    = 'X'
      RQERR     = 'X'
      PJPROC    = 'X'
      PJSUCC    = 'X'
      PJPROB    = 'X'
      PJERR     = 'X'
    TABLES
      SYSLIST   = lt_sysid
      S_RQIDEN  = s_spool
      S_RQOWNE = s_owner
      s_rqcred = s_date
       s_rqtitl    = s_rqtitl.
call function 'RSPO_RDISPLAY_SPOOLREQ'
       exporting
            use           = ' '
       importing
            goto_sel      = goto_sel
     TABLES
          SPORQ         = lt_SPORQ
          OUTRQ         =
       changing
            rs_selfield   = lw_sel
       exceptions
            others        = 1.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
Thanks,
Vijay