× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks, I got mine to work finally as well!!!
just need to add some validations.

> See if this works for you:
> (use fixed font, copy & paste if you so wish)
>
> ** WRITTEN BY    : Booth Martin                                       *
> ** DATE WRITTEN  : 12/2005                                            *
> **--------------------------------------------------------------------*
> FSFLSORTFM cf   e             workstn
> F                                     sfile(SFL1 : SF1NUM)
> FSFLSORTP  if   e             disk
>
> **====================================================================*
> ** MAINLINE-BEGIN                                                     *
> **====================================================================*
> C                   exsr      S1Fill
>   * Display screen.
> C                   exsr      S1Main
>   * Exit.
> C                   eval      *inlr = *on
> **====================================================================*
> ** MAINLINE-END                                                       *
> **====================================================================*
>   *-------------------------------*  Sub-Routine  *
>   * S1Main()                      *---------------*
>   * Screen - Main processing.                     *
>   *-----------------------------------------------*
> C     S1Main        begsr
>
>   * Loop until exit.
> C                   dow       *inkc = *off
>   *   Display screen.
> C                   write     S1CMD
> C                   exfmt     S1
>
> C                   select
>   * F3=Exit.
> C                   when      *inkc = *on
> C                   endsl
> C                   enddo
> C                   endsr
>
>   *-------------------------------*  Sub-Routine  *
>   * S1Fill()                      *---------------*
>   * Screen - Fill screen.                         *
>   *-----------------------------------------------*
> C     S1Fill        begsr
>   * Clear subfile.
> C                   eval      *in50 = *on
> C                   write     S1
> C                   eval      *in50 = *off
>
>   * Fill SFL.
> C                   eval      SF1NUM = *zero
>   * Read the file.
> C     *start        setll     SFLSORTP
> C                   read(e)   SFLSORTP
> C                   dow       NOT %eof
> C                   eval      SF1NUM = SF1NUM + 1
> C                   write(e)  SFL1
> C                   read(e)   SFLSORTP
> C                   enddo
>
>   * No records?
> C                   if        SF1NUM = *zero
> C                   eval      SF1NUM = 1
> C                   eval      *in61 = *on
> C                   write(e)  SFL1
> C                   endif
>
>   * Save values.
> C                   eval      SF1RECS = SF1NUM
> C                   eval      SF1TOP = 1
> C                   endsr
>
> steema@xxxxxxxxxxxxx wrote:
>> Thanks Booth, but is there one that is more simple to base on?
>>
>>>There's lots of samples on the Internet in various places.
>>>
>>>Here's a couple:
>>>
>>>http://www.martinvt.com/Code_Samples/code_samples.htm
>>>
>>>http://tinyurl.com/a4t6c
>>>
>>>
>>>
>>>steema@xxxxxxxxxxxxx wrote:
>>>
>>>>HI I am looking for some code for a simple subfile update program. Idid
>>>>the display.
>>>>Thanks,
>>>>Steve
>>>
>>>--
>>>-----------------------------------
>>>Booth Martin
>>>http://martinvt.com
>>>-----------------------------------
>>>--
>>>This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>> list
>>>To post a message email: RPG400-L@xxxxxxxxxxxx
>>>To subscribe, unsubscribe, or change list options,
>>>visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>>or email: RPG400-L-request@xxxxxxxxxxxx
>>>Before posting, please take a moment to review the archives
>>>at http://archive.midrange.com/rpg400-l.
>>>
>>>
>>
>>
>
> --
> -----------------------------------
> Booth Martin
> http://martinvt.com
> -----------------------------------
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.