Hope your fine. Rotuine is running OK! check your Customer data or in DEBUG MODE.
On Wed, Feb 27, 2013 at 4:39 PM, Neeraj <[email protected]> wrote: > Dear Naveed > > Thanks for your mail. Here is code that i compiled after getting your mail. > > > *----------------------------------------------------------------------------- > * <Rating>-37</Rating> > > > *----------------------------------------------------------------------------- > * SUBROUTINE CUS.DISPLAY.TEST > *** > PROGRAM CUS.DISPLAY.TEST > *** > $INSERT I_COMMON > $INSERT I_EQUATE > $INSERT I_F.CUSTOMER > *** > GOSUB INIT > GOSUB OPENFILES > GOSUB PROCESS > RETURN > ** > INIT: > FN.CUS = 'FBNK.CUSTOMER' > F.CUS = '' > Y.CUS.ID = '' > Y.MNEMONIC = '' > Y.NATIONALITY = '' > R.CUSTOMER = '' > CUS.ERR1 = '' > *** > * FN.EX = "TEST.EXTRACT" > * FV.EX = "" > * OPEN FN.EX TO FV.EX ELSE OPEN.ERROR = -1 > CUS.DATA = '' > CUS.DATA<-1> = "CUSTOMER ID*MNEMONIC*NATIONALITY" > RETURN > OPENFILES: > ***** > CALL OPF(FN.CUS,F.CUS) > RETURN > PROCESS: > *** > CRT "ENTER YOUR CUSTOMER ID :"; INPUT Y.CUS.ID > > CALL F.READ(FN.CUS,Y.CUS.ID,R.CUSTOMER,F.CUS,CUS.ERR1) > Y.MNEMONIC = R.CUSTOMER<EB.CUS.MNEMONIC> > Y.NATIONALITY = R.CUSTOMER<EB.CUS.NATIONALITY> > CUS.DATA<-1> = Y.CUS.ID:'*':Y.MNEMONIC:'*':Y.NATIONALITY > *** > * CRT "Customer Id: ":Y.CUS.ID > * CRT "Customer Mnemonic: ":Y.MNEMONIC > * CRT "Customer Nationality: ":Y.NATIONALITY > **** > *WRITE CUS.DATA TO FV.EX, "CUS.INFO" ON ERROR WRITE.ERR = -1 > > FOLDER.ID = "/dr/bnk/bnk.run/TEST.EXTRACT" > Y.FILE = "FILE.TXT" > OPENSEQ FOLDER.ID,Y.FILE TO F.EXT.ERR ELSE > CREATE F.EXT.ERR ELSE > STOP > END > END > > WRITESEQ CUS.DATA APPEND TO F.EXT.ERR ELSE > RETURN > RETURN > END > > > > ***************** > OUTPUT : > ------- > CUSTOMER ID*MNEMONIC*NATIONALITY > 01901135860017** > CUSTOMER ID*MNEMONIC*NATIONALITY > 01901635861017** > CUSTOMER ID*MNEMONIC*NATIONALITY > 01901975861517** > > ************************************ > > IT ONLY WRITE THE ID, BUT WE NEED MNEMONIC AND NATIONALITY ALSO. > PLEASE HELP ME WITH REQUIRED CODE. > > Thanks Once again. > > Regard > Niraj > > > > > On Wed, Feb 27, 2013 at 12:12 PM, Naveed Ahmed Nayyar < > [email protected]> wrote: > >> Hi Niraj, >> >> Hope you are doing well. >> >> You may use for append the data with this code. >> >> OPENSEQ FOLDER.ID,Y.FILE TO F.EXT.ERR ELSE >> CREATE F.EXT.ERR ELSE >> STOP >> END >> END >> >> WRITESEQ MY.DATA APPEND TO F.EXT.ERR ELSE >> >> Apply above code and update me if your issue will resolve. >> >> >> On Tue, Feb 26, 2013 at 9:40 AM, Neeraj <[email protected]> wrote: >> >>> HERE IS MY CODE >>> * SUBROUTINE CUS.DISPLAY.TEST >>> *** >>> PROGRAM CUS.DISPLAY.TEST >>> *** >>> $INSERT I_COMMON >>> $INSERT I_EQUATE >>> $INSERT I_F.CUSTOMER >>> *** >>> GOSUB INIT >>> GOSUB OPENFILES >>> GOSUB PROCESS >>> RETURN >>> ** >>> INIT: >>> FN.CUS = 'FBNK.CUSTOMER' >>> F.CUS = '' >>> Y.CUS.ID <http://y.cus.id/> = '' >>> Y.MNEMONIC = '' >>> Y.NATIONALITY = '' >>> R.CUSTOMER = '' >>> CUS.ERR1 = '' >>> *** >>> FN.EX = "FILE.EXTRACT" >>> FV.EX = "" >>> OPEN FN.EX TO FV.EX ELSE OPEN.ERROR = -1 >>> CUS.DATA = '' >>> CUS.DATA<-1> = "CUSTOMER ID*MNEMONIC*NATIONALITY" >>> RETURN >>> OPENFILES: >>> ***** >>> CALL OPF(FN.CUS,F.CUS) >>> RETURN >>> PROCESS: >>> *** >>> CRT "ENTER YOUR CUSTOMER ID :"; INPUT Y.CUS.ID <http://y.cus.id/> >>> >>> CALL F.READ(FN.CUS,Y.CUS.ID <http://y.cus.id/>,R. >>> CUSTOMER,F.CUS,CUS.ERR1) >>> Y.MNEMONIC = R.CUSTOMER<EB.CUS.MNEMONIC> >>> Y.NATIONALITY = R.CUSTOMER<EB.CUS.NATIONALITY> >>> CUS.DATA<-1> = Y.CUS.ID:'*':Y.MNEMONIC:'*':Y.NATIONALITY >>> *** >>> * CRT "Customer Id: ":Y.CUS.ID <http://y.cus.id/> >>> * CRT "Customer Mnemonic: ":Y.MNEMONIC >>> * CRT "Customer Nationality: ":Y.NATIONALITY >>> **** >>> WRITE CUS.DATA TO FV.EX, "CUS.INFO <http://cus.info/>" ON ERROR >>> WRITE.ERR = -1 >>> RETURN >>> RETURN >>> END >>> >>> >>> On Mon, Feb 25, 2013 at 8:06 PM, Kevin Powick <[email protected]> wrote: >>> >>>> >>>> On Monday, 25 February 2013 03:18:00 UTC-5, Neeraj wrote: >>>> >>>> How to Append Data to the End of Existing File using infobasic? >>>>> >>>> >>>> >>>> Append to the end of an existing file, or an existing record? Two >>>> different things in multivalue databases such as jBASE. You say "file", >>>> but you describe records. >>>> >>>> Show us your code and you're likely to get a more helpful reply than >>>> those already provided. >>>> >>>> -- >>>> Kevin Powick >>>> >>>> -- >>>> -- >>>> IMPORTANT: T24/Globus posts are no longer accepted on this forum. >>>> >>>> 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 >>>> >>>> --- >>>> You received this message because you are subscribed to the Google >>>> Groups "jBASE" group. >>>> To unsubscribe from this group and stop receiving emails from it, send >>>> an email to [email protected]. >>>> For more options, visit https://groups.google.com/groups/opt_out. >>>> >>>> >>>> >>> >>> >>> >>> -- >>> With Regards, >>> Niraj >>> >>> -- >>> -- >>> IMPORTANT: T24/Globus posts are no longer accepted on this forum. >>> >>> 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 >>> >>> --- >>> You received this message because you are subscribed to the Google >>> Groups "jBASE" group. >>> To unsubscribe from this group and stop receiving emails from it, send >>> an email to [email protected]. >>> For more options, visit https://groups.google.com/groups/opt_out. >>> >>> >>> >> >> >> >> -- >> Thanks & Regards, >> -------------------------------- >> Naveed Ahmed Nayyar >> T24 Technical Consultant >> Phone: +923225734761 >> Email: [email protected] >> Temenos Core Banking Solution >> <[email protected]> >> >> -- >> -- >> IMPORTANT: T24/Globus posts are no longer accepted on this forum. >> >> 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 >> >> --- >> You received this message because you are subscribed to the Google Groups >> "jBASE" group. >> To unsubscribe from this group and stop receiving emails from it, send an >> email to [email protected]. >> For more options, visit https://groups.google.com/groups/opt_out. >> >> >> > > > > -- > With Regards, > Niraj > > -- > -- > IMPORTANT: T24/Globus posts are no longer accepted on this forum. > > 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 > > --- > You received this message because you are subscribed to the Google Groups > "jBASE" group. > To unsubscribe from this group and stop receiving emails from it, send an > email to [email protected]. > For more options, visit https://groups.google.com/groups/opt_out. > > > -- Regards, Qaseem Uddin Shaikh _________________________________ Technical Consultant & Data Migration National Data Consultant Pvt Ltd Office telephone: +92 (21) 35842033 , +92 (21) 358245357 Mobile telephone: +92 (334) 9555668 , +92 (341) 2271202 email: [email protected], [email protected] Website: www.ndctech.net Banking technology consulting intelligence Skype id: qaseemshaikh -- -- IMPORTANT: T24/Globus posts are no longer accepted on this forum. 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 --- You received this message because you are subscribed to the Google Groups "jBASE" group. To unsubscribe from this group and stop receiving emails from it, send an email to [email protected]. For more options, visit https://groups.google.com/groups/opt_out.
