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
-~----------~----~----~----~------~----~------~--~---
