Re: Subfile not displaying

["David Dunfield" <ddunfie@xxxxxxxxxxxx>]

SFLDSP is on n74, you are moving '1' to IN74 (seton)

> 
> By looking at the source below can anyone see why my subfile won't 
display.  If you need more of the source just let me know.
> Any kind of help on this would be appreciated.
> 
> TIA,
> 
> Frank
> 
> C                     MOVE '1'       *IN73
> C                     WRITER001CTL
> C                     MOVE '0'       *IN73
> C                     Z-ADD0         @@RRN
>     *
>     *  Load 100 Blank Subfile Records
> C                     Z-ADD0         X100    30
> C           1         DO   100       X100
> C                     Z-ADDX100      @@RRN
> C                     Z-ADD*ZEROS    @PRO#
> C                     WRITER001SFL
> C                     ENDDO
>     *
>     * Position Subfile to Beginning
> C                     Z-ADD1         @@RRN
>     *
>     * Set Subfile Display Indicator
> C                     MOVE '1'       *IN74
>    *
>    *  Display "More..." or "Bottom"
> C                     MOVE '1'       *IN75
>    *
> C           *IN03     DOWNE'1'
> C           *IN12     ANDNE'1'
> C                     WRITER001BOT
> C                     EXFMTR001CTL
> 
> A          R R001SFL                   SFL
> A                                                    WRDWRAP
> A            @PRO#         10Y 0B 19  2EDTWRD('   -       ')
> A                                                    COLOR(WHT)
> A  76                                              DSPATR(RI)
> A  76                                              DSPATR(PC)
> A          R R001CTL                   SFLCTL(R001SFL)
> A  *DS3                                        SFLLIN(0005)
> A                                                    SFLSIZ(0010)
> A                                                SFLPAG(0009)
> A                                                CSRLOC(@@ROW      
@@COL)
> A                                                OVERLAY
> A N74                                           SFLDSP
> A N73                                            SFLDSPCTL
> A  73                                            SFLCLR
> A  75                                            SFLEND(*MORE)
> A            @@COL          3S 0H
> A            @@ROW        3S 0H
> A            @@RRN         4S 0H      SFLRCDNBR(CURSOR)
> 
> _______________________________________________
> 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.cgi/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.
> 
> 

Dave Dunfield
Midwest Integrated Systems Resources
AS/400  and LANSA Expert
PO Box 1481
Portage, MI 49081
 
Phone-269-373-3049 Cell 269-501-5685