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