Abbildung 1
Befehl FTPTFR - Parameterschnittstelle

/*===================================================================*/
/*  Befehl . . . .  FTPTFR                                           */
/*  zugehöriges CPP FTPTFRC                                          */
/*  Beschreibung .  Benutzerschnittstelle für parametergesteuerte    */
/*                  FTP-Übertragung                                  */
/*===================================================================*/
    Cmd        Prompt( 'FTP Übertragung' )

    Parm       Kwd( RmtSys )                                 +
               Type( *Char )                                 +
               Len( 100 )                                    +
               Min( 1 )                                      +
               Expr( *Yes )                                  +
               Prompt( 'entferntes System' )

    Parm       Kwd( User )                                   +
               Type( *Char )                                 +
               Len( 10 )                                     +
               Min( 1 )                                      +
               Expr( *Yes )                                  +
               Prompt( 'FTP-Benutzerprofil' )

    Parm       Kwd( Password )                               +
               Type( *Char )                                 +
               Len( 50 )                                     +
               Min( 1 )                                      +
               Expr( *Yes )                                  +
 (A)           DspInput( *No )                               +
               Prompt( 'FTP-Kennwort' )

    Parm       Kwd( QuellDat )                               +
               Type( qualDat )                               +
               Min( 1 )                                      +
               Prompt( 'QuellDatei' )

    Parm       Kwd( ZielDat )                                +
               Type( qualDat )                               +
               Min( 1 )                                      +
               Prompt( 'Zieldatei' )

    qualDat:   Qual                                          + 
               Type( *Name )                                 +
               Len( 10 )                                     +
               Min( 1 )                                      +
               Expr( *Yes )

               Qual                                          +              
               Type( *Name )                                 +
               Len( 10 )                                     +
               Min( 1 )                                      +
               Expr( *Yes )                                  +
               Prompt( 'Bibliothek' )