The best approach is calculate the number of seconds since some date in history -- 1900-01-01 usually works; then nbr of seconds since
is number of whole days*nbr of seconds per day PLUS seconds in current day
and calculate for both and subtract.
N E ????
bobh
This will give the next generation nbr for any root - ( base)
NEXTGEN: PROCEDURE
PARSE ARG ROOT
LAST = 0;
CALL OUTTRAP 'LINES.' ,, 'NOCONCAT';
ADDRESS TSO "LISTCAT LEVEL("||ROOT||")";
DO I = 1 TO LINES.0
PARSE VAR LINES.I '-- ' JUNK '.G0' NBR 'V00' ;
IF (NBR >...
Short answer is: what ever you would type in the tso command line, put it in quotes.
REXX has the unique ability to pass to the operating system anything it doesn't understand.
bobh
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.