Dear Niraj,
Kindly check below mentioned code.
*-----------------------------------------------------------------------------
* <Rating>-46</Rating>
*-----------------------------------------------------------------------------
PROGRAM CUS.DISPLAY.TEST
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.CUSTOMER
GOSUB INIT
GOSUB OPENFILES
GOSUB PROCESS
RETURN
INIT:
FN.CUS = 'F.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
GOSUB CREATE.RPT
* CRT "Customer Id: ":Y.CUS.ID
* CRT "Customer Mnemonic: ":Y.MNEMONIC
* CRT "Customer Nationality: ":Y.NATIONALITY
RETURN
CREATE.RPT:
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
END
RETURN
END
Send you output.
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
>
--
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.
