outq to another outq

["Segars, Steven " <Steven_Segars@xxxxxxx>]

First things First: Also note that on V5R1, the layout of the spool file is
a little different.

1. create a physical file defining the layout of the spool:

     A          R SPLREC                                                
     A            FILLER1        1A                                     
     A            FMFILE        10A                                     
     A            FILLER2        1A                                     
     A            FMUSR         10A                                     
     A            FILLER3        1A                                     
     A            FMUSRDATA     10A                                     
     A            FILLER4        2A                                     
     A            FMSTATUS       3A                                     
     A            FILLER5        2A                                     
     A            FMPAGES        6S 0                                   
     A            FILLER6        4A                                     
     A            FMCOPIES       2A                                     
     A            FILLER7        2A                                     
     A            FMTYPE        10A                                     
     A            FILLER8        1A                                     
     A            FMPTY          2A                                 
     A            FILLER9        5A                                 
     A            FMSPLFNBR      4S 0                               
     A            FILLER10       5A                                 
     A            FMJOB         10A                                 
     A            FILLER11       1A                                 
     A            FMNUMBER       6A                                 
     A            FILLER12       1A                                 
     A            FMDATE         8A                                 
     A            FILLER13       1A                                 
     A            FMTIME         8A                                 
     A            FILLER14      17A                                 

2. then create a logical file over the physical file:

     A          R SPLREC                    PFILE(SPLFILEPF)            
     A            FMFILE        10A                                     
     A            FMUSR         10A                                     
     A            FMUSRDATA     10A                                     
     A            FMSTATUS       3A                                     
     A            FMPAGES        6S 0                                   
     A            FMCOPIES       2A                                     
     A            FMTYPE        10A                                     
     A            FMPTY          2A                                     
     A            FMSPLFNBR      4S 0                                   
     A            FMJOB         10A                                     
     A            FMNUMBER       6A                                     
     A            FMDATE         8A                                     
     A            FMTIME         8A                                     
     A          K FMFILE                                                
     A          O FMTYPE                    COMP(EQ 'eue       ')      
     A          O FMTYPE                    COMP(EQ 'Form Type ')      
     A          O FMTYPE                    COMP(EQ ' * * *    ')      

3. then create a CL program to read the logical file:

             PGM        
                                                                        
            DCLF       FILE(SPLFILELF)                                 
                                                                       
            MONMSG     MSGID(CPF0000)                                  
                                                                       
            OVRPRTF    FILE(QPRTSPLQ) HOLD(*YES)                       
            WRKOUTQ    OUTQ(&FMLIB/&FMQUEUE) OUTPUT(*PRINT)            
            CPYSPLF    FILE(QPRTSPLQ) TOFILE(SPLFILEPF) SPLNBR(*LAST)  
                                                                       
STRFORM:    RCVF       RCDFMT(SPLREC)                                  
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDEOF))        
                                                                       
            SBMJOB     CMD(CHGSPLFA FILE(&FMFILE)
JOB(&FMNUMBER/&FMUSR/&FMJOB) +                     
                         SPLNBR(&FMSPLFNBR)) JOB(CHGSPLDTA) OUTQ(XXXXXXXXXX)
<----- output queue name          
                   
            GOTO       CMDLBL(STRFORM)                                 
                                                                        
 ENDEOF:     DLTSPLF    FILE(QPRTSPLQ) SPLNBR(*LAST)                    
             DLTOVR     FILE(QPRTSPLQ)                                  
             RETURN                                                     
             ENDPGM

Steven Segars
AS/400 Systems Administrator
CSX Technology
Work: 904-633-5650
Fax:   904 633-1051