# Write out the data (with the appropriate intervening blank
# lines) to the input file for the program.

#---------------------------------------------------------------------
# Data for database ready check
#
printresult "DBNAME\n";
printresult $input_delimiter;

#---------------------------------------------------------------------
# Data for user access to data check
#
printresult sprintf "%s\n", $query->param("username");
printresult "i\n";
printresult sprintf "%s\n", $query->param("grant");
printresult $input_delimiter;

#---------------------------------------------------------------------
# Data for application program, including user authentication
#
printresult sprintf "%s\n", $query->param("username");
printresult sprintf "%s\n", $query->param("password");
printresult "\n";
printresult "C\n";
printresult sprintf "%s\n", $query->param("asof_date");
printresult "S\n";
printresult sprintf "%s\n", $query->param("grant");
printresult "\n";
printresult "999\n";
printresult "N\n";