/*-------------------------------------------------------------------*/         
/*    Vengoal Chang Development Resource         Copyright  1998     */         
/*                                                                   */         
/*                             \\\\\\\                               */         
/*                            ( o   o )                              */         
/*------------------------oOO----(_)----OOo--------------------------*/         
/*                                                                   */         
/*  System name  . . . :   Technical Support                         */         
/*  Command name . . . :   SPLRTVSPLF                                */         
/*  Text . . . . . . . :   Reprint Spooled File From User Space      */         
/*                                                                   */         
/*  Author . . . . . . :   Vengoal Chang                             */         
/*  Description. . . . :   Reprint spooled file from a               */         
/*                         User Space object.                        */         
/*                                                                   */         
/*                     ooooO              Ooooo                      */         
/*                     (    )             (    )                     */         
/*----------------------(   )-------------(   )----------------------*/         
/*                       (_)               (_)                       */         
/*  ===============================================================  */         
/*  =  Command....... SplRtvSplF                                  =  */         
/*  =                                                             =  */         
/*  =  Description... Spool retrieved spooled file                =  */         
/*  =                                                             =  */    =  */         
/*  =                 Command processing program is SplRtvSplC    =  */         
/*  =                (CHOOSE ONE USE)                             =  */         
/*  =  CrtCmd     Cmd( YourLib/SplRtvSplF )          +            =  */         
/*  =             Pgm( YourLib/SplRtvSplC )                       =  */         
/*  ===============================================================  */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
                                                                                
             Cmd        Prompt( 'Spool Retrieved Spooled File' )                
                                                                                
             Parm       Kwd( UsrSpc )                                 +         
                        Type( QualSpcLib )                            +         
                        Min( 1 )                                      +         
                        Prompt( 'User space' 1 )                                
                                                                                
             Parm       Kwd( OutQ )                                   +         
                        Type( QualOQLib )                             +         
                        Min( 1 )                                      +         
                        Prompt( 'Output queue' 2 )                              
                                                                                
QualSpcLib:  Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Min( 1 )                                                
                                                                                
             Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Dft( *LibL )                                  +         
                        SpcVal(( *CurLib )                            +         
                               ( *LibL ))                             +         
                        Prompt( 'Library' )                                     
                                                                                
QualOQLib:   Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Min( 1 )                                      +         
                        SpcVal( *SavOutQ )                                      
                                                                                
             Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Dft( *LibL )                                  +         
                        SpcVal(( *CurLib )                            +         
                               ( *LibL ))                             +         
                        Prompt( 'Library' )                                     
