Contributed by: Doug Rickman, Global Hydrology and Climate Center, MSFC, NASA
This is aimed at beginning REXX users.
/*****************************************************************************/
/*** Initial input/output and line error check and help *******************/
if in='' | in='?' | in='-?' | in='/?' then call Help
if dosisfile(in)<>1 then do
say 'The input file: ' in' is not a valid file.'
exit
end /* do */
if dosisfile(out) then do
say 'The file ' out' already exists, do you want it overwritten?'
say 'Enter a "y" for yes, "h" will give help,'
say 'any other response will abort processing.'
key=translate(sysgetkey())
select
when key='Y' then rc=dosdel(out)
when key='H' then call Help
otherwise exit
end /* select */
end /* if dosisfile(out) */
if verify(Input,'1234567Y')<>0 then do
say ''
say 'You have entered an option I do not understand'
say 'Do you want help?'
say 'Enter a "y" for yes, any other response will abort processing.'
key=sysgetkey('NOECHO')
if translate(key)='Y' then call Help
exit
end /* if Option....*/
if Input='' then do
say 'what this program does'
say ''
say 'Is this what you want to do?'
say 'Enter a "y" for yes, "h" will give help,'
say 'any other response will abort processing.'
key=sysgetkey('NOECHO')
if translate(key)='H' then call Help
if translate(key)='Y' then nop
else exit
end /* if Input='' then do */