Skip to Content
0
Former Member
Dec 07, 2006 at 11:47 PM

Smartform Spool issue - Not pulling all pages

84 Views

Hi,

I am expecting aorund 2000 pages of spool file with a smartform driver program.

My spooljob is limiting me to only 33 pages and job is still active when i check using SM37.

Anything related to spooling is wrong in my code?

SORT T_ITEM BY FKDAT.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = P_FORM

IMPORTING

FM_NAME = FM_NAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 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.

LS_COMPOSER_PARAM-TDNEWID = 'X'.

LS_CONTROL_PARAM-PREVIEW = ''.

SORT T_HEADER BY NAME1 KUNNR.

DATA: V_PREV_CUR LIKE BSID-WAERS.

LOOP AT T_HEADER INTO WA_HEADER.

REFRESH: ITEM_ITAB, ITEM_ITAB_TMP.

CLEAR: V_PREV_CUR.

LOOP AT T_ITEM WHERE KUNRG = WA_HEADER-KUNNR.

MOVE-CORRESPONDING T_ITEM TO ITEM_ITAB.

APPEND ITEM_ITAB.

ENDLOOP.

SORT ITEM_ITAB BY WAERS.

LOOP AT ITEM_ITAB.

IF SY-TABIX <> 1.

IF V_PREV_CUR <> ITEM_ITAB-WAERS.

SORT ITEM_ITAB_TMP BY FKDAT.

CALL FUNCTION FM_NAME

EXPORTING

ARCHIVE_INDEX = TOA_DARA

ARCHIVE_INDEX_TAB = ARC_IND_TAB

ARCHIVE_PARAMETERS = ARC_PARAMS

CONTROL_PARAMETERS = LS_CONTROL_PARAM

MAIL_APPL_OBJ = LS_RECIPIENT

MAIL_RECIPIENT = LS_RECIPIENT

MAIL_SENDER = LS_SENDER

OUTPUT_OPTIONS = LS_COMPOSER_PARAM

USER_SETTINGS = SPACE

WA_ITAB = WA_HEADER

IMPORTING

DOCUMENT_OUTPUT_INFO = DOCUMENT_OUTPUT_INFO

JOB_OUTPUT_INFO = JOB_OUTPUT_INFO

JOB_OUTPUT_OPTIONS = JOB_OUTPUT_OPTIONS

TABLES

WA_DEP = ITEM_ITAB_TMP

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4.

IF SY-SUBRC <> 0.

WRITE: / 'ERROR in passing variables to the smartforms '.

ENDIF.

LS_COMPOSER_PARAM-TDNEWID = SPACE.

LS_CONTROL_PARAM-NO_DIALOG = 'X'.

LS_CONTROL_PARAM-PREVIEW = ''.

REFRESH ITEM_ITAB_TMP.

MOVE-CORRESPONDING ITEM_ITAB TO ITEM_ITAB_TMP.

APPEND ITEM_ITAB_TMP.

ELSE.

MOVE-CORRESPONDING ITEM_ITAB TO ITEM_ITAB_TMP.

APPEND ITEM_ITAB_TMP.

ENDIF.

ELSE.

REFRESH ITEM_ITAB_TMP.

MOVE-CORRESPONDING ITEM_ITAB TO ITEM_ITAB_TMP.

APPEND ITEM_ITAB_TMP.

ENDIF.

AT LAST.

CALL FUNCTION FM_NAME

EXPORTING

ARCHIVE_INDEX = TOA_DARA

ARCHIVE_INDEX_TAB = ARC_IND_TAB

ARCHIVE_PARAMETERS = ARC_PARAMS

CONTROL_PARAMETERS = LS_CONTROL_PARAM

MAIL_APPL_OBJ = LS_RECIPIENT

MAIL_RECIPIENT = LS_RECIPIENT

MAIL_SENDER = LS_SENDER

OUTPUT_OPTIONS = LS_COMPOSER_PARAM

USER_SETTINGS = SPACE

WA_ITAB = WA_HEADER

IMPORTING

DOCUMENT_OUTPUT_INFO = DOCUMENT_OUTPUT_INFO

JOB_OUTPUT_INFO = JOB_OUTPUT_INFO

JOB_OUTPUT_OPTIONS = JOB_OUTPUT_OPTIONS

TABLES

WA_DEP = ITEM_ITAB_TMP

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4.

IF SY-SUBRC <> 0.

WRITE: / 'ERROR in passing vars to the smartforms '.

ENDIF.

LS_COMPOSER_PARAM-TDNEWID = SPACE.

LS_CONTROL_PARAM-NO_DIALOG = 'X'.

LS_CONTROL_PARAM-PREVIEW = ''.

ENDAT.

V_PREV_CUR = ITEM_ITAB-WAERS.

ENDLOOP.

ENDLOOP.