/*-------------------------------------------------------------------*/         
/*    Vengoal Chang Development Resource         Copyright  1998     */         
/*                                                                   */         
/*                             \\\\\\\                               */         
/*                            ( o   o )                              */         
/*------------------------oOO----(_)----OOo--------------------------*/         
/*                                                                   */         
/*  System name  . . . :   Technical Support                         */         
/*  Command name . . . :   RTVSPLF                                   */         
/*  Text . . . . . . . :   Retrieve Spooled File To User Space       */         
/*                                                                   */         
/*  Author . . . . . . :   Vengoal Chang                             */         
/*  Description. . . . :   Retrieves spooled file into a             */         
/*                         User Space object.                        */         
/*                                                                   */         
/*                     ooooO              Ooooo                      */         
/*                     (    )             (    )                     */         
/*----------------------(   )-------------(   )----------------------*/         
/*                       (_)               (_)                       */         
/*  ===============================================================  */         
/*  =  Command....... RtvSplF                                     =  */         
/*  =                                                             =  */         
/*  =  Description... Retrieve spooled file to user space         =  */         
/*  =                                                             =  */         
/*  =                 Command processing program is RtvSplFC      =  */         
/*  =                                                             =  */         
/*  =  CrtCmd     Cmd( YourLib/RtvSplF )             +            =  */         
/*  =             Pgm( YourLib/RtvSplFC )                         =  */         
/*  ===============================================================  */         
/*                                                                   */         
/*-------------------------------------------------------------------*/         
                                                                                
             Cmd        Prompt( 'Retrieve Spooled File' )                       
                                                                                
             Parm       Kwd( File )                                   +         
                        Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Min( 1 )                                      +         
                        Expr( *Yes )                                  +         
                        Prompt( 'Spooled file' 1 )                              
                                                                                
             Parm       Kwd( UsrSpc )                                 +         
                        Type( QualObjLib )                            +         
                        Min( 1 )                                      +         
                        Prompt( 'To user space' 2 )                             
                                                                                
             Parm       Kwd( Job )                                    +         
                        Type( QualJob )                               +         
                        Dft( * )                                      +         
                        SngVal(( * ))                                 +         
                        Prompt( 'Job name' 3 )                                  
                                                                                
             Parm       Kwd( SplNbr )                                 +         
                        Type( *Int4 )                                 +         
                        Dft( *Only )                                  +         
                        Range( 1 9999 )                               +         
                        SpcVal(( *Only 0 )                            +         
                               ( *Last -1 ))                          +         
                        Expr( *Yes )                                  +         
                        Prompt( 'Spooled file number' 4 )                       
                                                                                
QualJob:     Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Min( 1 )                                      +         
                        Expr( *Yes )                                            
                                                                                
             Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Expr( *YES )                                  +         
                        Prompt( 'User' )                                        
                                                                                
             Qual       Type( *Char )                                 +         
                        Len( 6 )                                      +         
                        Range( 000000                                 +         
                               999999 )                               +         
                        Full( *Yes )                                  +         
                        Expr( *Yes )                                  +         
                        Prompt('Number')                                        
                                                                                
QualObjLib:  Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Min( 1 )                                                
                                                                                
             Qual       Type( *Name )                                 +         
                        Len( 10 )                                     +         
                        Dft( *LibL )                                  +         
                        SpcVal(( *CurLib )                            +         
                               ( *LibL ))                             +         
                        Prompt( 'Library' )                                     
