Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
global variables
- Thread starter Arungs
- Start date
- Thread starter
- #2
KiwiREXXDude
Programmer
Probably your best bet would be to do a SYSDSN before the EXECIO. If you try trapping the ALLOC return code, you will usually get a 0 as this can be created or read.
However, you could do something like;
Mem = 'MY.DATA.SET(MYMEM)'
If SysDsn("'"Mem"') = 'OK' then do
"Alloc Fi(IN) Da('"Mem"') Shr Reu"
"Execio * DiskR IN (Stem IN. Finis)"
"Free Fi(IN)"
end
else say 'Member 'Mem' does not exist'
However, you could do something like;
Mem = 'MY.DATA.SET(MYMEM)'
If SysDsn("'"Mem"') = 'OK' then do
"Alloc Fi(IN) Da('"Mem"') Shr Reu"
"Execio * DiskR IN (Stem IN. Finis)"
"Free Fi(IN)"
end
else say 'Member 'Mem' does not exist'
- Thread starter
- #4
- Status
Similar threads
- Locked
- Question