:
#$$$$
#
# @(#)genscript1 1.00
#
# NAME
# genscript1 - Generate BuildPro script file
#
# SYNOPSIS
# genscript1 < screens_list > script_file
#
# DESCRIPTION
# Generates BuildPro script for mass-edit of screen field
# properties.
#
# SYNTAX
# genscript1 < screens_list > script_file
#
# where:
# 'screens_file' is a text file containing screen name and field
# number of the field to modify. File should
# contain two columns: screen_name <space> fieldno
# 'script_file' the generated script file.
#$$$$

#=============================================================================
# Generate script file:
#=============================================================================
while read screen_name field_no
do
#=====================================================================
# Open the Screen Fields Properties dialog for the current
# screen/fieldno:
#=====================================================================
echo M-Tools, Screen Properties...
echo V-$screen_name
echo B-OK
echo B-Fields
echo F-ScreenFieldNo
echo V-$field_no
#=====================================================================
# Modify below to select the properties you want to change:
#=====================================================================
echo F-ApplyLogic
echo "V-Always (after)"
#=====================================================================
# Save changes:
#=====================================================================
echo B-Apply
echo B-Cancel
echo B-Cancel
done
#=============================================================================