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 Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
To get the date in which a dataset is created and changed last
Have a look at the LISTDSI function. It might help. Here's an example /*rexx*/ x = "'MYREXX.LIB'" /* can be any valid dsn */ X = LISTDSI(x) say x say 'Dataset name :' sysdsname say 'Date created :' syscreate say 'Date referenced:' sysrefdate say 'Updated? :' sysupdated Hope this help -
Date/Time Calculation
This is an simple example to calculate the hours: /* rexx */ date1 = '12 Oct 2006' time1 = 9 /* use "date2 = DATE()" for current date */ date2 = '13 Oct 2006' /* use "time2 = time('H')" for current time */ time2 = 11 date1 = DATE('B',date1) date2 = DATE('B',date2) datediff = date2 - date1 - 1... -
How to invoke ISPEXEC EDIT without displaying the panels
All you have to do is remove the double quotes around MBR on your LMMLIST statement "LMMLIST DATAID("INPUTDD") MEMBER("MBR") OPTION(LIST) STATS (NO)" Should be "LMMLIST DATAID("INPUTDD") MEMBER(MBR) OPTION(LIST) STATS (NO)" Hope this helps -
How to invoke ISPEXEC EDIT without displaying the panels
Using LM functions and EDIT macros allow you to issue ISPF edit commands like FIND CHANGE etc... you can also use EXECIO to edit any dataset but your code will be completely different. Can you list both programs? THis will give me a better idea of what's not working. BTW, I made a slight... -
How to invoke ISPEXEC EDIT without displaying the panels
Macname is just a name...Like I said, this is another REXX pgm. "macname" could look like this : /* REXX */ Address ISREDIT "MACRO (PARM)" Address ISPEXEC "CONTROL ERRORS RETURN" address ispexec "ISREDIT FIND ' JOB '" etc... Address ISREDIT "END" /* to save the member */ exit /* end of... -
How to invoke ISPEXEC EDIT without displaying the panels
Forgot to mention, the MACRO you call is actually another REXX program. You put all your ISREDIT commands in there. Denis -
How to invoke ISPEXEC EDIT without displaying the panels
Make sure you specify an EDIT MACRO in your "EDIT DATAID..." Like Address ISPEXEC "EDIT DATAID("FILEID") MEMBER("MEMBER") MACRO("macname")" After you've done all your changes, the macro should contain either a: Address ISREDIT "END" /*To save the changes */ or Address ISREDIT "CANCEL" /*to...
