The program APF3812/PRSCOPY delivered with InterForm400 can be used to create a new SCS spooled file with multiple copies of selected pages, from an input spooled file with data type *SCS. The program can be used with AFC function 8=Call Program.
TIP: A simular function can be obtained by using Copy Management (graphical designers Copy management) and stating *VAR as the number of copies.
The input spool entry should have a number from 1-9 placed in position 1 line 1, which PRSCOPY takes as information on how many copies to generate. The copies will be placed immediately after the original in the new spool entry. Page one of the copies (the original) will have a “C” placed in position 1 line 1. This field can be used for selecting specific forms using the “Overlay Selector”. Pages with a blank or characters other than 1-9 in position 1 line 1 will be copied to the resulting spool entry as they are.
The resulting spool entry can be recognised by the characters “PRS”, which has been added
as the last 3 characters of the formtype. If the original form type name used all available characters, the last 3 characters of the form type will be replaced with “PRS”.
The PRSCOPY program is called in this manner:
Seqnbr Function 5,0 8 Program call
Program name . . . . . PRSCOPY Name Library . . . . . . APF3812 Name, *LIBL User profile . . . . *OWNER *OWNER, user profile Parameter format . . . 2 1, 2
|
It is recommended to only call the PRSCOPY program with the parameter format =2, which has been implemented with the 2016 versions of InterForm400.
Format 2 enables InterForm400 to handle identical spooled files (i.e. spooled files with identical ID - except system name and/or creation date). If you are trying to call the program with parameter format 1 and there are more than one spooled file with the same ID, then the AFC job will stop with this error:
Message ID . . . . . . : APF5050 Severity . . . . . . . : 00 Message type . . . . . : Inquiry
Message . . . . : Another spooled file with identical job and spooled file number exists. (C R I) Cause . . . . . : Unable to use parameter format 1 for the PRSCOPY program when another spooled file with identical job and spooled file number exists. Possible choices for replying to message . . . . . . . . . . . . . . . : C -- End AFC job for this output queue in error. R -- Retry (after the duplicate spooled file has been deleted manually). I -- Skip this step to create the duplicate spooled file.
|