Sigh - nobody ever reads anything.
Most people just get on this list, delete everything that comes in that isn't about them and so ignore all my pleas to read the posting guidelines and include descriptions and so on. Then they post their own question and rely on the 20 or so people that actually do read the posts and answer other people's questions. You are not one of the former though right? Hence you must have read the 20 requests I made over the previous 7 days or so for people to please read the posting guidelines, which means you just ignored me? Can you tell me why? Or did you just delet all the old posts to this list without reading them and make your own post? Then you have the cheek to tell me I went too far in my comments to you? If you knew anything about me, you would be grateful that I went easy on you. Also, can you please change your name from "Crusader Sterling Pensions" - this isn't Facebook and we need to use our real names. Besides, I don't think you are an authorized representative of "Crusader Sterling Pensions". Jim From: jbase@googlegroups.com [mailto:jb...@googlegroups.com] On Behalf Of Crusader Sterling Pensions Sent: Tuesday, November 10, 2009 12:03 AM To: jbase@googlegroups.com Subject: Re: T24: Programming (Jbasic) Hi Jim, Pardon me for my blunders even as the moderator or whatever you still went too far with your comments On 11/9/09, Ashok Pandey <meas...@gmail.com> wrote: If you trying to update INAU file open NAU file no Live file Try with: FN.CUSTOMER = 'F.CUSTOMER$NAU' F.CUSTOMER = '' CALL OPF(FN.CUSTOMER,F.CUSTOMER) Cheers Ashok Pandey 23, Vieux-Chemin de Bernex 1233 Bernex/Geneva Switzerland On Mon, Nov 9, 2009 at 12:38 PM, Crusader Sterling Pensions <crusadersterlingale...@gmail.com> wrote: > > Dear All, > > I am trying to update customer details through updates generated into a CSV > file, but its not working, find below my sample program: > > > SUBROUTINE CUSTOMERUPDATE > $INSERT I_COMMON > $INSERT I_EQUATE > $INCLUDE I_F.CUSTOMER > $INSERT I_F.USER > > GOSUB INITIALIZE > GOSUB PROCESS.REC > RETURN > > INITIALIZE: > FN.CUSTOMER = 'F.CUSTOMER' > F.CUSTOMER = '' > CALL OPF(FN.CUSTOMER,F.CUSTOMER) > > * FN.USER = 'F.USER' > * F.USER = '' > * CALL OPF(FN.USER,F.USER) > > REC.STAT = '' > RETURN > > PROCESS.REC: > FILE.NAME = "TEST.csv" > OPENSEQ "&SAVEDLISTS&",FILE.NAME TO F.SEQ.FILE.PATH ELSE RE > Y.TRANS.CNT = 0 > YEOF = 0 > LOOP > READSEQ R.SEQ.REC FROM F.SEQ.FILE.PATH ELSE YEOF = 1 > WHILE NOT(YEOF) DO > > PF.RET = FIELD(R.SEQ.REC,',',0) > PIN.TOT = FIELD(R.SEQ.REC,',',1) > SURNAME = FIELD(R.SEQ.REC,',',2) > FIRSTNAME = FIELD(R.SEQ.REC,',',3) > OTHERNAMES = FIELD(R.SEQ.REC,',',4) > > NAME.SHORT = SURNAME + ' ' + FIRSTNAME > > DEBUG > > * > * PFRET.ID = RET.ID > RET.REC = '' > RET.REC<EB.CUS.NAME.1> = SURNAME > RET.REC<EB.CUS.SHORT.NAME> = NAME.SHORT > RET.REC<EB.CUS.NAME.2> = FIRSTNAME > > > > CALL F.WRITE(FN.CUSTOMER:"$NAU",PF.RET,RET.REC) > * CALL JOURNAL.UPDATE(RET.ID) > REPEAT > * RETURN > END > > Thanking you for your assistance. > > regards > > > > --~--~---------~--~----~------------~-------~--~----~ 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 jBASE@googlegroups.com To unsubscribe, send email to jbase-unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/jBASE?hl=en -~----------~----~----~----~------~----~------~--~---
