Posted by Grant Foraker on April 29, 2011 at 12:17:18:
In Reply to: Re: extracting source name from object posted by Bob A on April 29, 2011 at 11:49:38:
Carl's idea is excellent.
1) If you don't already have a TXT printer, add one like this ...
Printer = LPT,X, N, ,TXT,EXTPTR,;
2) Do a Qtilities #11 (DIRCAT) to LPT and a TXT file will be created and opened in your text viewer. Like so ...
--~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~--
COMET - DIRCAT Directory Catalog [11.04/611.435] 04/29/11 12:05 Page 1
Directory - STD
From - A to - C
KEYED-N SEQ/TEXT-N CONTIGUOUS-N OBJECT-Y ASSEMBLY-N
File File Record Key Key Create Update Update
Name Type Length Length Position Date Date Time Size Source Vsn
---------------------------------------------------------------------------------------------------
B IB 756 08-19-10 08-01-10 14:02 19656 B.IBS 98
BE IB 756 08-19-10 04-07-10 08:52 3024 BE.IBS 71
BEL IB 756 08-19-10 04-07-10 08:52 21168 BEL.IBS 36
BEM IB 756 08-19-10 04-07-10 08:52 3780 BEM.IBS 76
BI IB 756 08-19-10 04-07-10 08:52 2268 BI.IBS 69
BI1 IB 756 08-19-10 04-07-10 08:52 3780 BI1.IBS 65
BL IB 756 08-19-10 04-07-10 08:52 1512 BL.IBS 65
BM IB 756 08-19-10 04-07-10 08:52 3024 BM.IBS 65
BMD IB 756 08-19-10 04-07-10 08:52 2268 BMD.IBS 65
BML IB 756 08-19-10 04-07-10 08:52 21168 BML.IBS 28
BOC IB 756 08-19-10 04-07-10 08:52 23436 BOC.IBS 29
BOC1 IB 756 08-19-10 12-03-07 11:33 3780 BOC1.IBS 59
BOD IB 756 08-19-10 04-07-10 08:52 24192 BOD.IBS 103
BOD1 IB 756 08-19-10 11-27-07 12:29 4536 BOD1.IBS 62
BOI IB 756 08-19-10 04-07-10 08:52 22680 BOI.IBS 28
BOL IB 756 08-19-10 04-07-10 08:52 21924 BOL.IBS 31
BP IB 756 08-19-10 04-07-10 08:52 3024 BP.IBS 65
BR IB 756 08-19-10 04-07-10 08:52 1512 BR.IBS 65
BSM IB 756 08-19-10 04-07-10 08:52 2268 BSM.IBS 63
BW IB 756 08-19-10 04-07-10 08:52 3024 BW.IBS 67
BW1 IB 756 08-19-10 04-07-10 08:52 1512 BW1.IBS 61
C IB 756 08-19-10 08-01-10 13:50 19656 C.IBS 32
End of listing - 22 File(s) Total Size - 213192
Save the file in a Comet directory and then add the file back into Comet using Qtilities #13.
3) Write a Comet program to read the text file, find the "read" data lines and do whatever it was you were planning to do.
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.