Fw: exists update

[Dennis Malen]

Ken,

I am forwarding a prior e-mail that laid out the processing and when fg
would equal "no". Hopefully that will give you some insight. Is there
anything wrong with this processing?

Dennis

----- Original Message ----- 
From: "Dennis Malen" <dmalen at malen.com>
To: "Kenneth Brody" <kenbrody at bestweb.net>
Cc: <filepro-list at lists.celestial.com>
Sent: Monday, December 06, 2004 8:34 PM
Subject: Re: exists update


> Ken,
>
> if: fg="no"
> then: gosub firstL
>
> then it is suppose to go to a gosub and write the following header to an
> export file:
>
> fisrtL
>
> if: mk="m"               'first line
> then: rnt(1)="REF_NUM";rnt(2)="LAST_NAME";rnt(3)="FIRST_NAME"
>   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> if: mk="m"
> then: rnt(4)="MIDDLE_NAME";rnt(5)="FULL_NAME";rnt(6)="SSN"
>   -   -   -   -   -   -   -   -   -   -   -   -   -   -
> if: mk="m"                'flag
> then: fg="yes";write rnt;return
>
> This is a one time pass. It is setting up the first line of an excel file.
> As long as the file is in existence then the program should not come here
> again. My problem is to get the processing to come here once. The rest of
> the file is created properly except for this first title line.
>
> The full processing looks like this before it goes to the gosub:
>
> ~ If: exists("/tmp/rnx/banco.wp")="0"      'xe="0"
> Then: fg="no"        'file not exist - create header
> -----   -   -   -   -   -   -   -   -   -   -   -   -
> ~ If:
> Then: export ascii rnt=(pn) r=\n f=\t -a
> -----   -   -   -   -   -   -   -   -   -   -
> ~ If: 6 ne "" and mid(6,"1","4")="0000"
> Then: goto banco2
> -----   -   -   -   -   -   -   -   -   -   -
> ~ If: 6 ne "" and 1 co "*"      'name contains *
> Then: goto banco2
> -----   -   -   -   -   -   -   -   -   -   -
> ~ If: 6 ne "" and fg="no"     'create header
> Then: mk="m";gosub firstL
>
> See firstL above
>
> Dennis Malen
>
> P.S. I will now use "eq" instead of "le", although I do not see how any
> would change.
>
> ----- Original Message ----- 
> From: "Kenneth Brody" <kenbrody at bestweb.net>
> To: "Dennis Malen" <dmalen at malen.com>
> Cc: <filepro-list at lists.celestial.com>
> Sent: Monday, December 06, 2004 7:33 PM
> Subject: Re: exists update
>
>
> > > Dennis Malen wrote:
> > >
> > > I am now going to use the following and based upon what everyone has
> said,
> > > then this should work:
> > >
> > >  If:
> > > hen: xe=exists("/tmp/rnx/banco.wp")
> > > ----   -   -   -   -   -   -   -   -   -   -   -   -
> > >  If: xe="0"
> > > then: fg="no"
> >
> > Why use that, when this is equivalent:
> >
> >     If: exists("/tmp/rnx/banco.wp") = "0"
> >   Then: fg="no"
> >
> > What "didn't work" with your original version?
> >
> > -- 
> >
>
+-------------------------+--------------------+----------------------------
> -+
> > | Kenneth J. Brody        | www.hvcomputer.com |
> |
> > | kenbrody/at\spamcop.net | www.fptech.com     | #include
> <std_disclaimer.h> |
> >
>
+-------------------------+--------------------+----------------------------
> -+
> > Don't e-mail me at: <mailto:ThisIsASpamTrap at gmail.com>
> >
> >
> >
> >
>
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
>
>