Welcome to Code400.com    Okay...We all like to get free stuff..Right?!? Well thats what we are offering here....Free Stuff Free storage for your source code. Post Your Source Free access to code samples. (site search) Free place to ask questions or just say what you want.  Share your thoughts We are interested in what you have to say. If you can’t find what your’e looking for on this site....   Tell us  We will add it. The small print says: We provide the source code on this site as only a guide. We do not recommend that anyone run any of the code provided on this site without first testing it. If you choose to download source from this site directly onto your production box without testing....Well, YOU are completely to blame and we don’t want to hear about it. Random Quote Know the true value of time; snatch, seize, and enjoy every moment of it. No idleness; no laziness; no procrastination; never put off till tomorrow what you can do today. Lord Chesterfield

Written by: Yakov Shapiro

CPYFRMSPLF 
command duplicates spooled file from one outq to another. 
Command does not have a limitation for a printer device 
type (allow to duplicate *SCS, *IPDS, *AFPDS spoolfiles). 
User has to enter spooled file name, outq for copying 
spooled file, job name, user and job number 
(or * for current job) and a spooled file number.



Some Notes (from John Marchant(Thank-you))


Comments: I've been trying to use the CPYFRMSPLF command 
          that you have recently put on your web site and 
          have found a few issues with it. This program 
          needs to be amended depending on what release 
          of OS/400 you use. It seems that the value of 
          field RECLEN in the RPG source needs to be 
          changed as follows;


Value Version

3320  V2R3M0
3446  V3R1M0, V3R2M0, and V3R6M0
3745  V3R7M0, V4R1M0, and V4R1M4
3772  V4R2M0
3784  V4R3M0, V4R4M0, and V4R5M0
3816  V5R1M0
3824  V5R2M0 and V5R3M0  

This is due to changes in the QSPCRTSP API over the years and 
should be easy to implement if it is possible to return the OS 
release as a value into the program.


To get version use this code snippet:


      *
      * Variable Definition
      *
     d VerRelMod       S             10I 0
     d OSPlatform      S             10I 0
      * ================================================
      * M A I N   L I N E
      * ================================================

     c                   callb     'CEEGPID'
     c                   Parm                    VerRelMod
     c                   Parm                    OSPlatform
      *
     c                   If        VerRelMod >= 510
      * Insert V5R1 and later code here
     c                   endif
      * ================================================
     c                   eval      *INLR = *on 




Also, it's worth pointing out that if this facility is used to 
copy a spool file containing page segments, the page segment 
object must be in the library list when calling this command 
as this doesn't copy of the page segment held in the
'from' spool file.