Dear Qaseemuddin,
kindly send me the output because Niraj said to me again that his output
remain same.
I have send him my output mentioned below;
File AML.BP , Record 'FILE.TXT'
Insert 17:36:42
Command->
0001 CUSTOMER ID*MNEMONIC*NATIONALITY
0002 115628*A115628*PK
0003 CUSTOMER ID*MNEMONIC*NATIONALITY
0004 115629*A115629*PK
On Wed, Feb 27, 2013 at 5:40 PM, Qaseemuddin Shaikh <[email protected]>wrote:
> 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
>
--
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.
