T24: Programming (Jbasic)
The group you are posting to is a
Usenet group . Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post will appear after it is approved by moderators
From:
Crusader Sterling Pensions <crusadersterlingale... @gmail.com>
Date: Mon, 9 Nov 2009 12:38:09 +0100
Local: Mon, Nov 9 2009 6:38 am
Subject: T24: Programming (Jbasic)
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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Daniel Klein <danielklei... @gmail.com>
Date: Mon, 9 Nov 2009 08:31:33 -0500
Local: Mon, Nov 9 2009 8:31 am
Subject: Re: T24: Programming (Jbasic)
http://www.jbase.com/r5/knowledgebase/manuals/3.0/30manpages/man/dbg1...
Dan
On Mon, Nov 9, 2009 at 6:38 AM, 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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
"Jim Idle" <j... @temporal-wave.com>
Date: Mon, 09 Nov 2009 09:33:23 -0800
Local: Mon, Nov 9 2009 12:33 pm
Subject: RE: T24: Programming (Jbasic)
Please read the posting guidelines before posting.
You can't just send a program and say "It doesn't work" - what the Zarquon does that mean? You have to help others help you and just posting a program and saying it does not work is the height of stupidity - especially when the posting guidelines are there to tell you not to do this.
Jim
PS: Perhaps when writing a program, it might help to know what language you are using - there is no such thing as Jbasic
From: jbase@googlegroups.com [mailto:jbase@googlegroups.com] On Behalf Of Crusader Sterling Pensions
Sent: Monday, November 09, 2009 3:38 AM
To: jBASE@googlegroups.com
Subject: T24: Programming (Jbasic)
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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Ashok Pandey <meas... @gmail.com>
Date: Mon, 9 Nov 2009 17:00:33 +0100
Local: Mon, Nov 9 2009 11:00 am
Subject: Re: T24: Programming (Jbasic)
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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
"foxy.md" <alex.vu... @gmail.com>
Date: Tue, 10 Nov 2009 00:54:24 -0800 (PST)
Local: Tues, Nov 10 2009 3:54 am
Subject: Re: T24: Programming (Jbasic)
Before updating the customer record - read this record.
If the customer ID you are trying to update already exists - you will
spoil the rest of the fields...
On Nov 9, 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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
"paapu a.t." <mypa... @gmail.com>
Date: Tue, 10 Nov 2009 11:11:01 +0530
Local: Tues, Nov 10 2009 12:41 am
Subject: Re: T24: Programming (Jbasic)
Hi Crusader Sterling Pensions
find the attached routine.
Thanks & Regards,
atr
On Mon, Nov 9, 2009 at 5:08 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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Crusader Sterling Pensions <crusadersterlingale... @gmail.com>
Date: Tue, 10 Nov 2009 09:02:33 +0100
Local: Tues, Nov 10 2009 3:02 am
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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
John Watson <johnblackwat... @gmail.com>
Date: Tue, 10 Nov 2009 04:48:09 -0800 (PST)
Local: Tues, Nov 10 2009 7:48 am
Subject: Re: T24: Programming (Jbasic)
Hi,
As this is clearly an update to a T24 file I would suggest you use OFS
- no coding necessary.
If you persist with your program and corrupt the file I think we all
know that you will get no assistance from the HelpDesk.
OFS is well documented in the T24 user guides.
Regards,
John.
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
"Jim Idle" <j... @temporal-wave.com>
Date: Tue, 10 Nov 2009 09:03:58 -0800
Local: Tues, Nov 10 2009 12:03 pm
Subject: RE: T24: Programming (Jbasic)
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:jbase@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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
CLIF <jb... @bristol.us.com>
Date: Tue, 10 Nov 2009 09:20:27 -0800 (PST)
Local: Tues, Nov 10 2009 12:20 pm
Subject: Re: T24: Programming (Jbasic)
Its the "whatever" your missing its the "whoever". Jim is the author
of jBASE and knows more about it then anyone. He is very generous in
the free help he gives us all in this forum so my best advice to you
is: politely bow to him, follow his rules, and just suck it up when he
criticizes you.
On Nov 10, 12:02 am, Crusader Sterling Pensions
<crusadersterlingale
... @gmail.com> wrote:
> 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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Daniel Klein <danielklei... @gmail.com>
Date: Tue, 10 Nov 2009 12:52:06 -0500
Local: Tues, Nov 10 2009 12:52 pm
Subject: Re: T24: Programming (Jbasic)
...or you'll be 'fired' ;-)
Dan
On Tue, Nov 10, 2009 at 12:20 PM, CLIF <jb
... @bristol.us.com> wrote:
> Its the "whatever" your missing its the "whoever". Jim is the author
> of jBASE and knows more about it then anyone. He is very generous in
> the free help he gives us all in this forum so my best advice to you
> is: politely bow to him, follow his rules, and just suck it up when he
> criticizes you.
> On Nov 10, 12:02 am, Crusader Sterling Pensions
> <crusadersterlingale... @gmail.com> wrote:
>> 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
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
"kanesolve" <kaneso... @gmail.com>
Date: Tue, 10 Nov 2009 23:44:36 +0530
Local: Tues, Nov 10 2009 1:14 pm
Subject: RE: T24: Programming (Jbasic)
I wonder why someone is trying to update a CUSTOMER file in a banking
software directly, bye-passing all the validations and updating of related
files.
Regards
Kannan
-----Original Message-----
From: jbase@googlegroups.com [mailto:jbase@googlegroups.com] On Behalf Of
John Watson
Sent: Tuesday, November 10, 2009 6:18 PM
To: jBASE
Subject: Re: T24: Programming (Jbasic)
Hi,
As this is clearly an update to a T24 file I would suggest you use OFS
- no coding necessary.
If you persist with your program and corrupt the file I think we all
know that you will get no assistance from the HelpDesk.
OFS is well documented in the T24 user guides.
Regards,
John.
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Kevin Powick <kpow... @gmail.com>
Date: Tue, 10 Nov 2009 15:05:46 -0800 (PST)
Local: Tues, Nov 10 2009 6:05 pm
Subject: Re: T24: Programming (Jbasic)
On Nov 10, 12:52 pm, Daniel Klein <danielklei
... @gmail.com> wrote:
> ...or you'll be 'fired' ;-)
Repeatedly.
--
Kevin Powick
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Crusader Sterling Pensions <crusadersterlingale... @gmail.com>
Date: Wed, 11 Nov 2009 09:21:49 +0100
Local: Wed, Nov 11 2009 3:21 am
Subject: Re: T24: Programming (Jbasic)
Hi Jim,
sorry for my comment, just couldn't swallow easily you took me to the
cleaners with your comment. I appreciate your effort as I do read your
comments.
Once again am sorry.
thanks
On 11/11/09, Kevin Powick <kpow... @gmail.com> wrote:
> On Nov 10, 12:52 pm, Daniel Klein <danielklei... @gmail.com> wrote:
> > ...or you'll be 'fired' ;-)
> Repeatedly.
> --
> Kevin Powick
You must
Sign in before you can post messages.
You do not have the permission required to post.
From:
Mike Preece <mich... @preece.net>
Date: Sat, 28 Nov 2009 05:20:13 -0800 (PST)
Local: Sat, Nov 28 2009 8:20 am
Subject: Re: T24: Programming (Jbasic)
perhaps change your FIELD extracts to start at ,1 instead of ,0
On Nov 9, 11:38 am, 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
You must
Sign in before you can post messages.
You do not have the permission required to post.