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 [email protected]
To unsubscribe, send email to [email protected]
For more options, visit this group at http://groups.google.com/group/jBASE?hl=en
-~----------~----~----~----~------~----~------~--~---
