Hi, thanks for all recommended solution, I am sending you my code,
hope you can tell me where it went wrong...
**********************************************************************************************************************************
Y.SELECT.FILES = "SELECT " : DC.IN.DIR
CALL EB.READLIST(Y.SELECT.FILES, Y.FILE.ID.LIST, '', YSEL,'')
LOOP
REMOVE Y.FILE.ID FROM Y.FILE.ID.LIST SETTING YID.POS
WHILE Y.FILE.ID:YID.POS
Y.FILE = DC.IN.DIR : "/" : Y.FILE.ID
OPENSEQ Y.FILE READONLY TO F.DC.IN ELSE F.DC.IN = ""
Y.RECORD.FOUND = 1
LINE.CTR = 1
START.DETAIL.LINE = 2
LOOP
READSEQ Y.REC.DETAILS FROM F.DC.IN ELSE Y.RECORD.FOUND = 0
UNTIL NOT( Y.RECORD.FOUND )
IF LINE.CTR >= START.DETAIL.LINE THEN
CONVERT ',' TO FM IN Y.REC.DETAILS
Y.TTYPE = Y.REC.DETAILS<1>
Y.LOCAL.DATE = Y.REC.DETAILS<2>
Y.TLOGID = Y.REC.DETAILS<4> ;*TRANS ID
Y.FT.DETAILS<-1> =
Y.TTYPE:"_":Y.LOCALDATE:"_":Y.TLOGID
END
LINE.CTR = LINE.CTR + 1
CRT Y.FT.DETAILS
REPEAT
CLOSESEQ F.DC.IN
Y.ARCH.FILE.LIST<-1> = Y.FILE.ID
REPEAT ;REM < End of reading file list>
CALL BATCH.BUILD.LIST("",Y.FT.DETAILS)
RETURN ;* Finish PROCESS.FILES
--~--~---------~--~----~------------~-------~--~----~
Please read the posting guidelines at:
http://groups.google.com/group/jBASE/web/Posting%20Guidelines
IMPORTANT: Type T24: at the start of the subject line for questions specific to
Globus/T24
To post, send email to [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
-~----------~----~----~----~------~----~------~--~---
