Rclerk to a specific record
Jason Garner
jason.garner at evalsvs.com
Sat Jul 16 11:14:16 PDT 2016
Yup,
I forgot to add -RW in there to set @PW. I also changed it to more along
the lines of Scott's example. That way the records are organized by index.
Now it looks like.
pop_schþ If: 'pop_sch
Then:
430 ------- - - - - - - - - - - - - -
þ If:
Then: declare txpid(8,.0); txpid=""
431 ------- - - - - - - - - - - - - -
þ If:
Then: lookup sched=(inf_file) k=(qb) i=G -nx
432 ------- - - - - - - - - - - - - -
þ If: not sched
Then: system "rclerk lz_ss_infcon -S1 -d -XIE"; return
þ If:
Then: txpid=sched(104)
434 ------- - - - - - - - - - - - -
þ If:
Then: close sched
435 ------- - - - - - - - - - - - -
þ If:
Then: cm="rclerk lz_ss_infcon -S1 -d -XIT -RW"<txpid
436 ------- - - - - - - - - - - - - -
þ If:
Then: system cm
437 ------- - - - - - - - - - - - - -
þ If:
Then: return
I got rid of the display
@menu þ If:
Then:
104 ------- - - - - -
þ If: zz eq "X"
Then: exit
105 ------- - - - - -
þ If: @pw ne ""
Then: PUSHKEY (@PW)
106 ------- - - - - -
þ If: @pw ne ""
Then: zz="X"
þ If:
Then: end
Thanks a bunch!
On Sat, Jul 16, 2016 at 11:15 AM Kenneth Brody <kenbrody at spamcop.net> wrote:
> On 7/15/2016 5:11 PM, Jason Garner wrote:
> > Thanks Ken,
> >
> > I am almost there I start with
> >
> > pop_schþ If: 'pop_sch
> > Then:
> [...]
> > Then: recno=sched(@rn)
> [...]
> > Then: close sched
> [...]
> > Then: cm="rclerk lz_ss_infcon -S1 -d -XE"<recno
> [...]
> > Then: system cm
> [...]
> >
> >
> > Then upon entering the destination processing table
> >
> > @menu þ If:
> > Then:
> > 104 ------- - - - - - - - - - - - - - -
> - -
> > þ If: @PW ne ""
> > Then: lookup - r=@PW
> > 105 ------- - - - - - - - - - - - - - -
> - -
> > þ If:
> > Then: display
> > 106 ------- - - - - - - - - - - - - - -
> - -
> > þ If:
> > Then: end
> >
> > What I get is the IUA menu, but behind it is the screen I want. So I am
> > thinking my rclerk command isnt quite right still or no?
> [...]
>
> How do you think "@PW" is being set in the "destination" processing table?
>
> Also, the "display" is unnecessary. If @PW is set, and the lookup
> succeeds,
> you're taken directly to that record, which will be displayed on the
> screen.
> And, if @PW isn't set, or the lookup fails, you'll be at the *clerk menu,
> with a blank record shown under it.
>
> --
> Kenneth Brody
>
--
Jason Garner
Systems Administrator
1801 Oberlin Rd, Suite 204
Middletown, PA 17057
Work 717-985-1122 x 1139
Mobile 717-645-3521
jason.garner at evalsvs.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20160716/8e36ca5a/attachment.html>
More information about the Filepro-list
mailing list