This is what I use on Universe, it may work in Unidata. 0010: * 0011: * 0012: EXECUTE "SETPTR ":PON CAPTURING JUNK 0013: [EMAIL PROTECTED]:"Output to HOLD file" 0014: XX=INDEX(JUNK,SEARCH,1) 0015: IF XX=0 THEN 0016: JOBNAME="" 0017: RETURN 0018: END 0019: JUNK=JUNK[XX+1,LEN(JUNK)] 0020: YY=INDEX(JUNK,":",1) 0021: YZ=INDEX(JUNK,CHAR(254),1) 0022: JOBNAME=JUNK[YY+2,YZ-YY-2] 0023: RETURN 0024: * 0025: END
Basically, if you just execute SETPTR [channel] it will return the hold file name, then I strip off the number from the name and return that. George -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Norman Morgan Sent: Wednesday, July 13, 2005 2:52 PM To: u2-users@listserver.u2ug.org Subject: [U2] SYSTEM(20)? I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/