Dummy program for the REXX Wrapper

 
/*                                                                    */
/* save this code in the file DBLOGIN.CMD                             */
/*                                                                    */
/* This program is only useful as a dummy file for testing the        */
/* program REXX Wrapper for textmode programs                         */
/*                                                                    */
  say "This is a DBLOGIN dummy for testing only!"

                    /* get the parameters                             */
  parse arg thisParms
  say "Parameters are " thisParms

                    /* read the user input from STDIN                 */
                    /* (and write it to STDOUT)                       */
  thisUserID = lineIn()
  say "UserID is " || thisUserID

  thisPassword = lineIn()
  say "Password is " || thisPassword

  thisDataBase = lineIN()
  say "Database is " || thisDataBase

                    /* write some further lines to STDOUT             */
  do i = 1 to 10
    say "This is testline "i" ..."
  end /* do i = 1 to 10 */

                    /* write another line to STDERR                   */
  call LineOut "STDERR", "This error message goes to STDERR!"

exit