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.
