TXED SUGGESTIONS
2 messages in this thread
As cheath points out GET does not work as intended. It should bring up a
requestor if no file argument is specified. Here's a little ditty you can
use in it's place and just replace MYGET with GET in your macros when GET
is fixed.
if ~show('L','rexxarplib.library') then do
if ~addlib('rexxarplib.library',0,-30,0) then do
say 'ARP support library not in LIBS: directory!'
exit 10
end
end
parse arg filename . /* note: the period is necessary */
if length(filename) > 1 then
'GET' filename
else do
/* bring up the cheath file requestor */
filename = getfile(20,20,,, "Enter name of file to insert",)
/* suppose the user declines to make a selection? */
if length(filename) < 1 then
'msg' 'NO FILE NAME SPECIFIED !'
else
'GET' filename
end
exit
Whoops. The first line in the program must be a comment, natch. Here it
is again so you can just capture it and stuff in in REXX:
if ~show('L','rexxarplib.library') then do
if ~addlib('rexxarplib.library',0,-30,0) then do
say 'ARP support library not in LIBS: directory!'
exit 10
end end
parse arg filename . /* note: the period is necessary */
if length(filename) > 1 then
'GET' filename else do
/* bring up the cheath file requestor */
filename = getfile(20,20,,, "Enter name of file to insert",)
/* suppose the user declines to make a selection? */
if length(filename) < 1 then
'msg' 'NO FILE NAME SPECIFIED !'
else
'GET' filename end exit