Gmail Calendar Documents Reader Web more »
Recently Visited Groups | Help | Sign in
Google Groups Home
T24: Programming (Jbasic)
There are currently too many topics in this group that display first. To make this topic appear first, remove this option from another topic.
There was an error processing your request. Please try again.
flag
  15 messages - Collapse all  -  Translate all to Translated (View all originals)
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:
To:
Cc:
Followup To:
Add Cc | Add Followup-to | Edit Subject
Subject:
Validation:
For verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers you hear
 
Crusader Sterling Pensions  
View profile  
 More options Nov 9, 6:38 am
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Daniel Klein  
View profile  
 More options Nov 9, 8:31 am
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Jim Idle  
View profile  
 More options Nov 9, 12:33 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Ashok Pandey  
View profile  
 More options Nov 9, 11:00 am
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
foxy.md  
View profile  
 More options Nov 10, 3:54 am
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
paapu a.t.  
View profile  
 More options Nov 10, 12:41 am
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 <

  CUSTOMERUPDATE
1K Download

    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Crusader Sterling Pensions  
View profile  
 More options Nov 10, 3:02 am
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:


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
John Watson  
View profile  
 More options Nov 10, 7:48 am
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.


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Jim Idle  
View profile  
 More options Nov 10, 12:03 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
CLIF  
View profile  
 More options Nov 10, 12:20 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Daniel Klein  
View profile  
 More options Nov 10, 12:52 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
kanesolve  
View profile  
 More options Nov 10, 1:14 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Kevin Powick  
View profile  
 More options Nov 10, 6:05 pm
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Crusader Sterling Pensions  
View profile  
 More options Nov 11, 3:21 am
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:


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
Mike Preece  
View profile  
 More options Nov 28, 8:20 am
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


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
End of messages
« Back to Discussions « Newer topic     Older topic »

Create a group - Google Groups - Google Home - Terms of Service - Privacy Policy
©2009 Google