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.
