RE: [Fwd: A question about subfile operations]

Not able to test it, but below should fix you up (in lower case).  (Highly 
recommend restructure the entire program.  You should be able to find some good 
template out in the web.)



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Pete Helgren
Sent: Wednesday, June 29, 2005 10:53 AM
To: RPG Midrange Discussion
Subject: [Fwd: A question about subfile operations]
DDS:

    A*%%TS  SD  20050628  212221  PETE        REL-V5R2M0  5722-WDS
    A*%%EC
    A                                      DSPSIZ(24 80 *DS3)
    A*
    A          R SFLA                      SFL
    A*
    A            LOCID     R        O  1  1REFFLD(LOCID   *LIBL/PFAS210)
    A            DESC          32A  O  1  8
    A          R FMT01                     SFLCTL(SFLA)
    A                                      CA12(12 'Cancel-12')
    A                                      CA03(03 'Exit-03')
    A                                      SFLSIZ(11)
    A                                      SFLPAG(10)
    A                                      WINDOW(10 10 10 45 *NOMSGLIN)
    A                                      ROLLUP
    A                                      ROLLDOWN
    A                                      OVERLAY
    A                                      SFLCSRRRN(&RRNA)
    A                                      SFLDSP
    A                                      SFLDSPCTL
    A  91                                  SFLEND(*SCRBAR)
    A                                      MOUBTN(*ULD ENTER)
    A            RRNA           5S 0H
    A          R DUMMY
    A*%%TS  SD  20050628  212221  PETE        REL-V5R2M0  5722-WDS
    A                                      TEXT('PREVENTS PREVIOUS 
SCREEN FROM-
    A                                      BEING CLEARED')
    A                                      ASSUME
    A                                  5  9' '       

RPG
    FWFTS210W  CF   E             WORKSTN
    F                                     SFILE(SFLA:RRNA)
    FPFAS210   IF   E             DISK
    C*  ..................................................
    C     *ENTRY        PLIST
    C                   PARM                    LOCID             6
    C                   Z-ADD     1             RRN               4 0
    C                   Z-ADD     1             RRNA
    C                   READ      PFAS210                                58
    C     *IN58         IFEQ      *ON
    C                   MOVE      *ON           *INLR
    C                   RETURN
    C                   END
    C* Fill the subfile:
    C     *IN58         DOWEQ     *OFF
    C                   MOVE      *BLANKS       DESC
    C                   MOVEL     LOCDES        DESC
    C                   Z-ADD     RRN           RRNA
    C                   WRITE     SFLA
    C                   ADD       1             RRN
    C                   READ      PFAS210                                58
    C                   END
    C     RRNA          IFGT      10
    C                   MOVE      *ON           *IN91
    C                   END
     *  loop until user press F3/F12
    C                   dou       *in03 or *in12
    C                   EXFMT     FMT01
    C* (not understanding the section of code below) If a choice was made, save 
it to PARM for return:
    C     RRNA          IFGT      *ZEROS
    C     RRNA          CHAIN     SFLA                               54
    C                   END
    C                   enddo
    C                   MOVE      *ON           *INLR
    C*-------------------------------------------------------------------