topic Re: creating different spool requests based on sorting -part II in Application Development and Automation Discussions

creating different spool requests based on sorting -part II

Former Member — Sun, 04 Sep 2005 20:13:27 GMT

hi folks,

Now I have added the group field to 'accitab' and as mentioned I have another itable (same as 'accitab') called 'final_accitab where I have the recrods for all the customers and their corresponding group types too.

something like this..

customernumber ........ sortgroup

1000001 1

1000012 1

1000112 1

10000002 2

10000003 3 and so on

Now I have to print the customers based on the sorting therefore I should be passing the records of all the customers that come under a common sort type into one spool request,( I think that way!!) and how to do that ?

ii)how to print separate statements for each customer

for the same sort within the same spool request.

Thanks in advance

Vinu

Re: creating different spool requests based on sorting -part II

Former Member — Sun, 04 Sep 2005 20:53:35 GMT

you have to open your sapscript or your smartform every time you have to create a new spool.

So, if I remember well you use a smartform, you shoUld use the function to open and close smartform to part from smartforms:

DATA: E_SSFCOMPIN TYPE SSFCOMPIN,

SORT LIKE FINAL_ACCITAB-SORTGROUP,

FL_OPEN,

T_CUSTOMER LIKE STANDARD TABLE OF FINAL_ACCITAB.

LOOP AT FINAL_ACCITAB.

Create a new spool while sortgroup is changing

IF FINAL_ACCITAB-SORTGROUP <> SORT.

SORT = FINAL_ACCITAB-SORTGROUP.

Before you close previous print (smartform and spool)

IF FL_OPEN = 'X'.

CALL FUNCTION 'SSF_CLOSE'.

ENDIF.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

INPUT = E_SSFCOMPIN

EXCEPTIONS

ERROR = 1

OTHERS = 2.

IF SY-SUBRC = 0. FL_OPEN = 'X'. ENDIF.

ENDIF.

Print data while customer is changing

AT NEW CUSTOMER.

IF NOT T_CUSTOMER[] IS INITIAL.

CALL FUNCTION FM_NAME_OF_SMART

.......

TABLES

CUSTOMER = T_CUSTOMER.

After printing data, clear the customer table

REFRESH T_CUSTOMER.

ENDIF.

ENDAT.

Append records of the same customer

INSERT FINAL_ACCITAB INTO TABLE T_CUSTOMER.

ENDLOOP.

IF SY-SUBRC = 0.

Print data of last customer

IF NOT T_CUSTOMER[] IS INITIAL.

CALL FUNCTION FM_NAME_OF_SMART

.......

TABLES

CUSTOMER = T_CUSTOMER.

CALL FUNCTION 'SSF_CLOSE'.

After printing data, clear the customer table

REFRESH T_CUSTOMER.

ENDIF.

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 15:02:43 GMT

hi folks,

Max happen to share this piece of information here.

Thanks a lot for the help. But I am finding hard to incorporate thsi piece into my code

I am not able to understand that 'CUSTOMER' he has used and

I am getting an error at 'AT NEW CUSTOMER'

The function module that I have declared for the smartform goes like this...

Can ANY ONE OF you help me understand THIS piece of code w.r.t the function module I am using?

now call the generated function module

call function fm_name

exporting

archive_index =
archive_parameters =
control_parameters = control
mail_appl_obj =
mail_recipient =
mail_sender =
output_options = output_options
user_settings = 'X'

ZTOTAL = ZTOTALAMOUNT

zscan_code = scan_number

zpartner = bpartner

z_bdate = e_date

zadnumber = adnumber

zadnumber1 = zzadnumber

zagencynumber = agencynumber

z_payment_terms = v_payment_terms

zzadname = adname1

zadname = adname

zagencyname = agencyname

zphone = bphone

zcreditgroup = zcredittext

z_bperiod = monthn

ztotalcredits = zappliedcredits1

ztotalbalance = zcurrenttotal

ZZEXTZIP = zzextensionzip

bookings = bookings

importing document_output_info =
job_output_info =
job_output_options =

tables

stribunecustomer = customer

accountdata = T_CUSTOMER

zcdatar = zcdata

zaging = agingdataitab

ZADDRESS = i_address_number

exceptions formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

others = 5.

Thanks for your help..

VINU

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 15:19:27 GMT

The customer should be the name of field where customer number is stored, I don't know how you have called it.

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 16:28:06 GMT

thanks Max,

I have to declare the export parameter 'INPUT = E_SSFCOMPIN' IN THE SMARTFORM.

Can you elaborate as how to declare them in the smartform?

Vinu

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 16:52:42 GMT

Hi Max,

I have added your peice of code in this way...

ERROR** tHE parameter 'INPUT' has not been defined.

Just take a llok into my code and can you help me through here?

Thanks

call function 'SSF_FUNCTION_MODULE_NAME'

exporting formname = p_form

variant = ' '
direct_call = ' '

importing fm_name = fm_name

exceptions no_form = 1

no_function_module = 2

others = 3.

if sy-subrc <> 0.

error handling

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

exit.

endif.

DATA:E_SSFCOMPIN TYPE SSFCOMPIN,

SORT LIKE FINAL_ACCITAB-ZSORTGROUP,

FL_OPEN,

T_CUSTOMER LIKE STANDARD TABLE OF FINAL_ACCITAB.

LOOP AT FINAL_ACCITAB.

IF FINAL_ACCITAB-ZSORTGROUP <> SORT.

SORT = FINAL_ACCITAB-ZSORTGROUP.

IF FL_OPEN = 'X'.

CALL FUNCTION 'SSF_CLOSE'.

ENDIF.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

INPUT = E_SSFCOMPIN

EXCEPTIONS

ERROR = 1

OTHERS = 2.

IF SY-SUBRC = 0. FL_OPEN = 'X'.

ENDIF.

AT NEW zadvertiser.

IF NOT T_CUSTOMER[] IS INITIAL.

now call the generated function module

call function fm_name

exporting

archive_index =
archive_parameters =
control_parameters = control
mail_appl_obj =
mail_recipient =
mail_sender =
output_options = output_options
user_settings = 'X'

ZTOTAL = ZTOTALAMOUNT

zscan_code = scan_number

zpartner = bpartner

z_bdate = e_date

zadnumber = adnumber

zadnumber1 = zzadnumber

zagencynumber = agencynumber

z_payment_terms = v_payment_terms

zzadname = adname1

zadname = adname

zagencyname = agencyname

zphone = bphone

zcreditgroup = zcredittext

z_bperiod = monthn

ztotalcredits = zappliedcredits1

ztotalbalance = zcurrenttotal

ZZEXTZIP = zzextensionzip

bookings = bookings

importing document_output_info =
job_output_info =
job_output_options =

tables

stribunecustomer = customer

accountdata = T_CUSTOMER

zcdatar = zcdata

zaging = agingdataitab

ZADDRESS = i_address_number

exceptions formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

others = 5.

REFRESH T_CUSTOMER.

ENDIF.

ENDAT.

INSERT FINAL_ACCITAB INTO TABLE T_CUSTOMER.

ENDLOOP.

IF SY-SUBRC = 0.

Print data of last customer

IF NOT T_CUSTOMER[] IS INITIAL.

call function fm_name

exporting

archive_index =
archive_parameters =
control_parameters = control
mail_appl_obj =
mail_recipient =
mail_sender =
output_options = output_options
user_settings = 'X'

ZTOTAL = ZTOTALAMOUNT

zscan_code = scan_number

zpartner = bpartner

z_bdate = e_date

zadnumber = adnumber

zadnumber1 = zzadnumber

zagencynumber = agencynumber

z_payment_terms = v_payment_terms

zzadname = adname1

zadname = adname

zagencyname = agencyname

zphone = bphone

zcreditgroup = zcredittext

z_bperiod = monthn

ztotalcredits = zappliedcredits1

ztotalbalance = zcurrenttotal

ZZEXTZIP = zzextensionzip

bookings = bookings

importing document_output_info =
job_output_info =
job_output_options =

tables

stribunecustomer = customer

accountdata = T_CUSTOMER

zcdatar = zcdata

zaging = agingdataitab

ZADDRESS = i_address_number

exceptions formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

others = 5.

CALL FUNCTION 'SSF_CLOSE'.

After printing data, clear the customer table

REFRESH T_CUSTOMER.

ENDIF.

if sy-subrc <> 0.

error handling

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 17:07:25 GMT

This code is extracted from my old program, but it should be good for you (I hope):

Open smartforms:

IF E_SSFCOMPIN IS INITIAL.

Get user data:

SELECT SINGLE * FROM USR01 INTO W_USR01 WHERE BNAME = SY-UNAME.

E_SSFCOMPIN-TDDEST = W_USR01-SPLD.

IF W_USR01-SPDB = 'G'.

E_SSFCOMPIN-TDIMMED = 'X'.

ENDIF.

E_SSFCOMPIN-TDNEWID = 'X'.

IF W_USR01-SPDA = 'D'.

E_SSFCOMPIN-TDDELETE = 'X'.

ENDIF.

Open dialog

E_SSFCOMPIN-DIALOG = 'X'.

ELSE.

Only first time it opens dialog

CLEAR E_SSFCOMPIN-DIALOG.

ENDIF.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

INPUT = E_SSFCOMPIN

IMPORTING
RESULT = I_SSFCRESOP

EXCEPTIONS

ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE S012(SSFCOMPOSER).

STOP.

ENDIF.

........

CALL SMARTFORMS

DATA: SSFCTRLOP LIKE SSFCTRLOP.

Set this flag becouse you drive opening and closing
smartforms

SSFCTRLOP-NO_OPEN = 'X'.

SSFCTRLOP-NO_CLOSE = 'X'.

CALL FUNCTION FM_NAME

EXPORTING

ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS = ARC_PARAMS

CONTROL_PARAMETERS = SSFCTRLOP

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 17:16:56 GMT

I think it should works, try:

DATA:E_SSFCOMPIN TYPE SSFCOMPIN,

SORT LIKE FINAL_ACCITAB-ZSORTGROUP,

FL_OPEN,

T_CUSTOMER LIKE STANDARD TABLE OF FINAL_ACCITAB.

Fill structure E_SSFCOMPIN with print parameters, if
you don't know them open dialog:
You can get user parameters:

SELECT SINGLE * FROM USR01 INTO W_USR01 WHERE BNAME = SY-UNAME.

E_SSFCOMPIN-TDDEST = W_USR01-SPLD.

IF W_USR01-SPDB = 'G'.

E_SSFCOMPIN-TDIMMED = 'X'.

ENDIF.

E_SSFCOMPIN-TDNEWID = 'X'.

IF W_USR01-SPDA = 'D'.

E_SSFCOMPIN-TDDELETE = 'X'.

ENDIF.

Open dialog

E_SSFCOMPIN-DIALOG = 'X'.

Block opening and closing in FM of smartforms

DATA: SSFCTRLOP LIKE SSFCTRLOP

SSFCTRLOP-NO_OPEN = 'X'.

SSFCTRLOP-NO_CLOSE = 'X'.

LOOP AT FINAL_ACCITAB.

IF FINAL_ACCITAB-ZSORTGROUP <> SORT.

SORT = FINAL_ACCITAB-ZSORTGROUP.

IF FL_OPEN = 'X'.

CALL FUNCTION 'SSF_CLOSE'.

ENDIF.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

INPUT = E_SSFCOMPIN

EXCEPTIONS

ERROR = 1

OTHERS = 2.

IF SY-SUBRC = 0.

FL_OPEN = 'X'.

Only first time it opens dialog

CLEAR E_SSFCOMPIN-DIALOG.

ENDIF.

AT NEW ZADVERTISER.

IF NOT T_CUSTOMER[] IS INITIAL.

now call the generated function module

CALL FUNCTION FM_NAME

EXPORTING

archive_index =
archive_parameters =

control_parameters = SSFCTRLOP

mail_appl_obj =
mail_recipient =
mail_sender =
output_options = output_options
user_settings = 'X'

ZTOTAL = ZTOTALAMOUNT

ZSCAN_CODE = SCAN_NUMBER

zpartner = bpartner

Z_BDATE = E_DATE

ZADNUMBER = ADNUMBER

ZADNUMBER1 = ZZADNUMBER

ZAGENCYNUMBER = AGENCYNUMBER

Z_PAYMENT_TERMS = V_PAYMENT_TERMS

ZZADNAME = ADNAME1

ZADNAME = ADNAME

ZAGENCYNAME = AGENCYNAME

ZPHONE = BPHONE

ZCREDITGROUP = ZCREDITTEXT

Z_BPERIOD = MONTHN

ZTOTALCREDITS = ZAPPLIEDCREDITS1

ZTOTALBALANCE = ZCURRENTTOTAL

ZZEXTZIP = ZZEXTENSIONZIP

bookings = bookings

importing document_output_info =
job_output_info =
job_output_options =

TABLES

STRIBUNECUSTOMER = CUSTOMER

ACCOUNTDATA = T_CUSTOMER

ZCDATAR = ZCDATA

ZAGING = AGINGDATAITAB

ZADDRESS = I_ADDRESS_NUMBER

EXCEPTIONS FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5.

REFRESH T_CUSTOMER.

ENDIF.

ENDAT.

INSERT FINAL_ACCITAB INTO TABLE T_CUSTOMER.

ENDLOOP.

IF SY-SUBRC = 0.

Print data of last customer

IF NOT T_CUSTOMER[] IS INITIAL.

CALL FUNCTION FM_NAME

EXPORTING

archive_index =
archive_parameters =
control_parameters = control
mail_appl_obj =
mail_recipient =
mail_sender =
output_options = output_options
user_settings = 'X'

ZTOTAL = ZTOTALAMOUNT

ZSCAN_CODE = SCAN_NUMBER

zpartner = bpartner

Z_BDATE = E_DATE

ZADNUMBER = ADNUMBER

ZADNUMBER1 = ZZADNUMBER

ZAGENCYNUMBER = AGENCYNUMBER

Z_PAYMENT_TERMS = V_PAYMENT_TERMS

ZZADNAME = ADNAME1

ZADNAME = ADNAME

ZAGENCYNAME = AGENCYNAME

ZPHONE = BPHONE

ZCREDITGROUP = ZCREDITTEXT

Z_BPERIOD = MONTHN

ZTOTALCREDITS = ZAPPLIEDCREDITS1

ZTOTALBALANCE = ZCURRENTTOTAL

ZZEXTZIP = ZZEXTENSIONZIP

bookings = bookings

importing document_output_info =
job_output_info =
job_output_options =

TABLES

STRIBUNECUSTOMER = CUSTOMER

ACCOUNTDATA = T_CUSTOMER

ZCDATAR = ZCDATA

ZAGING = AGINGDATAITAB

ZADDRESS = I_ADDRESS_NUMBER

EXCEPTIONS FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5.

CALL FUNCTION 'SSF_CLOSE'.

After printing data, clear the customer table

REFRESH T_CUSTOMER.

ENDIF.

IF SY-SUBRC <> 0.

error handling

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 18:27:53 GMT

Max, I did not understand the purpose of getting this user data. Can you just elaborate on that?

Thanks

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 18:28:53 GMT

thanks Max I will go through it. I will getback and award full points once I get it right.

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 19:17:07 GMT

Max, the error points to the function module 'SSF_OPEN' with the parameter 'INPUT' and this parameter is not found.

I need to enter the input parameters where should I be doing it?

Can you help me out here?

Thanks

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 19:35:24 GMT

hi Max,

It is showing an runtime error saying that the parameter 'INPUT' is not defined.

I would appreciate your help in this regard.

thanks

Vinu

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 20:11:17 GMT

I'm sorry but I wasn't conneted to the forum.

Anyway the problem depend on release which are you using.

My piece of code is extracted from a program in release 4.6C, in this release the function SSF_OPEN has a parameter called INPUT (as structure SSFCOMPIN), but I could see this function in rel. 4.7 and there isn't parameter INPUT but there is OUTPUT_OPTIONS as structure SSFCOMPOP.

So I believe you should use OUTPUT_OPTIONS instead of INPUT

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 21:14:55 GMT

Thanks for your time,

Now, I am going through runtime analysis and in the dialog box, but when I check the 'Print' button it throws an error,

Handle not valid for open spool request.

The release 4.7 so I need to be using the structure SSFCOMPOP and it does not have the

E_SSFCOMPOP-DIALOG field, I commented it, For the version 4.7 is there any changes that I need to make in the code?

Can you help me on that?

Thanks in advance.

vinu

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 21:33:22 GMT

You also mentioned to use print parameters like from the structure 'SSFCOMPOP'

'TDDEST' 'TDPRINTER', 'TDNEWID', 'TDIMMED', something like that... which print parameters to be used because they have not highlighted anything related to that in the requirement.

all they have asked is customers need to be grouped according to their sort type and directed into one spool request and within that spool request the statements for these customers have to be printed separately.

HOPE YOU CAN HELP ME THROUGH THIS ISSUE.

THANKS

VINU

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 21:36:43 GMT

Check your code, I think you call FM for closing before printing something.

Re: creating different spool requests based on sorting -part II

Former Member — Tue, 06 Sep 2005 23:57:55 GMT

Thanks Max,

the issue is in a far better shape.

Question: while looping through 'final_accitab' into 'T_Customers' I am gathering the data for each customer number separately through the

' INSERT FINAL_ACCITAB INTO TABLE T_CUSTOMER' within the 'function fm_name'

once the entire data is gathered for a customer it runs through the FM FM_name to REFRESH T_CUSTOMER AND IT DOES NOT PRINT ANY STATEMENTS AT THIS TIME BUT IT RUNS THROUGH THE LOOP AGAIN GATHERS DATA INTO T_CUSTOMER AND NOW IT PRINTS THE STATEMENT THAT HAS THE DATA OF BOTH THE CUSTOMERS IN ONE PAGE.

one more thing, in the fm module

ZADNUMBER = ADNUMBER

ZADNUMBER1 = ZZADNUMBER

ZADNAME = ADNAME

ZAGENCYNAME = AGENCYNAME

these values pick up the last record of the final_accitab i.e the last customer number.

It is one of the major issues I am working on, I would really appreciate if you could help me in this regard.

Thanks

Vinu.

Re: creating different spool requests based on sorting -part II

Former Member — Wed, 07 Sep 2005 07:52:57 GMT

The print starts when the closing (FM SSF_CLOSE) is called.

The system should print as many documents as many calling of smartforms, and for every calling it should create a new page: check your smartform.

You can try to test this situation creating a case like this:

- Open smartform,

- Load customer table,

- Call smartform,

- Load customer table;

- Call smartform;

- Close smartform;

Save your data ADNUMBER,..... at end of loop or after inserting a record into T_CUSTOMER.

Re: creating different spool requests based on sorting -part II

Former Member — Wed, 07 Sep 2005 13:53:24 GMT

hi Max,

The program code is throwing up a different error (I was not changed anything) now it is gathering the data based on the customer into 'T_customer' but is not printing any statement out here

It throws a cancel dialog box gives an error message :

'No output request open. End not possible'.

what does that mean?

I have not explored a lot in this area (generating spool requests) , henceforth seeking your help a lot. Thanks a lot for your help in advance.

Vinu

Re: creating different spool requests based on sorting -part II

Former Member — Wed, 07 Sep 2005 14:39:37 GMT

i Vinu

You have that error becouse you close your print without printing something before.

I can't know how your smartform is, but I create an example in my system and I hope it can help you.

So I create a smartform ZTEST with only one page, after I create a control program that calls my smartform:

it open my smartform for 3 times (so I have 3 spool) and for every opening It calls my smartform for 4 times: so I have 4 prints in each spool.

DATA FM_NAME TYPE RS38L_FNAM.

DATA: SSFCTRLOP TYPE SSFCTRLOP,

SSFCTRLOP_OPEN TYPE SSFCTRLOP,

SSFCRESOP TYPE SSFCRESOP,

SSFCOMPOP TYPE SSFCOMPOP.

Get FM name

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZTEST'

IMPORTING

FM_NAME = FM_NAME.

DO 3 TIMES.

IF NOT SSFCOMPOP IS INITIAL.

After first time dialog doesn't open

SSFCTRLOP_OPEN-NO_DIALOG = 'X'.

ENDIF.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

USER_SETTINGS = SPACE

OUTPUT_OPTIONS = SSFCOMPOP

CONTROL_PARAMETERS = SSFCTRLOP_OPEN

IMPORTING

JOB_OUTPUT_OPTIONS = SSFCRESOP

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR = 2

SEND_ERROR = 3

USER_CANCELED = 4

OTHERS = 5.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

Get print parameter choosen in the first print and
transfer them for next call of fm SSF_OPEN

MOVE-CORRESPONDING SSFCRESOP TO SSFCOMPOP.

ENDIF.

Block open and close of smartform in FM

SSFCTRLOP-NO_OPEN = 'X'.

SSFCTRLOP-NO_CLOSE = 'X'.

DO 4 TIMES.

Print my document for three times

CALL FUNCTION FM_NAME

EXPORTING

CONTROL_PARAMETERS = SSFCTRLOP.

ENDDO.

CALL FUNCTION 'SSF_CLOSE'.

ENDDO.

This example works fine: I run it.

I think your program should be organized as my example:

- Call fM SSF_OPEN everytime you want to create a new spool, but before you have to close the previous spool (SSF_CLOSE);

- Call FM of smartform as many time as prints which should be in a spool.

Max

Message was edited by: max bianchi