Re: Replicating spool files from one AS/400 to another

["Bob P. Roche" <BRoche@xxxxxxxxxxxxxxxxx>]

I believe backups can now save spool files to tape just like other files.



From:
Alan Shore <AlanShore@xxxxxxxx>
To:
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date:
10/19/2009 12:52 PM
Subject:
Replicating spool files from one AS/400 to another
Sent by:
<midrange-l-bounces@xxxxxxxxxxxx>



Hi everyone

Due to a system crash, we are now working off our DR system and we are
looking to go back to using the production system this weekend.
Its been many winters have passed since I last replicated spool files from
one AS/400 to another
The procedure that I last used was as follows (with thanks to Tim 
Granatir,
Search400.com expert):-

                          On AS/400 that contains the spool file:
                          Step 1. Create a physical file that is at least 
1
                          character  bigger than the size of the spool 
file
                          you wish to replicate.
                          Step  2.  Copy  the spool file into your 
database
                          file. Make sure you specify *FCFC for the 
control
                          character parameter.
                          Step  3.  Transfer  this  database  file  to 
your
                          target  AS/400  using  whatever method you 
choose
                          (FTP, File Transfer, etc.).

                          On AS/400 that you wish to print:

                          Step  4.  Override  print file to specify 
control
                          character *FCFC.
                          Step  5.  Copy  your  database  file to the 
spool
                          file.

                          Your  print file is now duplicated on your 
target
                          AS/400.

                          Example Commands:

                          CRTPF FILE(MYLIB/FILE133) RCDLEN(133)
                          CPYSPLF  FILE(MYSPLF)  TOFILE(MYLIB/FILE133) JOB
                          (123456/*N/QPADEV0032) CTLCHAR(*FCFC)

                          Transfer  FILE133 in library MYLIB to your 
target
                          AS/400


                          OVRPRTF FILE(QSYSPRT) CTLCHAR(*FCFC)
                          CPYF FROMFILE(MYLIB/FILE133) TOFILE(QSYSPRT)

However, we may have a LARGE number of these spoolf files to migrate
We are presently on V5r4.
Is there a simpler and/or more automated method to achieve this?
Or do I have to cut and paste the spool file attributes (Job, User, 
Number,
File and Number) of each and every spool file that needs to be migrated

Thanks in advance


Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill