Check for INI, create if necessary (Beginning level)
Contributed by: Doug Rickman, Global Hydrology and Climate Center, MSFC, NASA
This is aimed at beginning REXX users.
/*****************************************************************************/
/***************************** Create INI ************************************/
/* this will check to see if an .ini exists, if not it will make one */
rc = syssearchpath('..','program.ini') /* does INI exist? */
if rc = ' ' then /* ini file does not exist here, make one */
do
rc=sysini('program.ini','program','InputFile',"default")
rc=sysini('program.ini','program','key1','DefaultKey1')
rc=sysini('program.ini','program','key2','DefaultKey2')
rc=sysini('program.ini','program','key3','DefaultKey3')
InputFile="*.AIF"
key1='stuff here'
key2='more stuff here'
key3='yet more stuff'
end
else /* But if INI does exist then */
do /* get the name of the previous InputFile */
InputFile=sysini('program.ini','program','InputFile')
key1=sysini('program.ini','program','key1')
key2=sysini('program.ini','program','key2')
key3=sysini('program.ini','program','key3')
end
