× 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.



Good eye...General rule of thumb never use the same SFL indicators on
multiple subfiles in a single program or module...

If you *should* choose to do so save the current state of the SFL
indicators prior to executing the next & reset them upon return from the
"called" subfile. 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Satheeshkumar_selvaraj
Sent: Monday, October 10, 2005 12:10 PM
To: RPG programming on the AS400 / iSeries
Subject: RE: Subfile problem

I think the problem is since you use the same indicators for both the
subfiles. When you seton 73 it will try to clear both the subfiles.
Try using different indicators for each subfile and check whether it
works.

Satheesh

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
fkany@xxxxxxxxxxxxxxxxxx
Sent: Monday, October 10, 2005 8:04 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Subfile problem


Good morning,

I've got 2 screens(screen1 & screen2) and each has a subfile.  Screen1
displays and functions just fine.  When an option is chosen on screen1,
screen2 is supposed to display, but when I try to clear the subfile, the
program bombs.  In the RPGIV code below, the program bombs on the WRITE
operation.  The job log wasn't helpful.

Any ideas?

TIA,

Frank

I use the same subfile control specs in both screens:
     A*
     A* ========
     A* Screen 1 - CONTROL
     A* ========
     A          R ARSCRN01
     A                                      SFLCTL(ARSCRNSFL)
     A                                      SFLSIZ(14)
     A                                      SFLPAG(13)
     A                                      CF03(03 'F3=Exit')
     A N74                                  SFLDSP
     A N73                                  SFLDSPCTL
     A  73                                  SFLCLR
     A  75                                  SFLEND(*MORE)
     A                                      OVERLAY
     A                                      SFLCSRRRN(&@@RRL1)
     A                                      RTNCSRLOC(&##1RCD &##1FLD)
     A                                      CSRLOC(##1ROW ##1COL)
     A            @@RRL1         5S 0H
     A            ##1FLD        10A  H
     A            ##1ROW         3S 0H
     A            ##1COL         3S 0H
     A            ##1RCD        10A  H
     A            @@RRN1         4S 0H      SFLRCDNBR(CURSOR)
     A*
     A* ========
     A* Screen 2 - CONTROL
     A* ========
     A          R ARSCRN02
     A                                      SFLCTL(ARSCRNSFL2)
     A                                      SFLSIZ(9)
     A                                      SFLPAG(8)
     A                                      CF03(03 'F3=Exit')
     A N74                                  SFLDSP
     A N73                                  SFLDSPCTL
     A  73                                  SFLCLR
     A  75                                  SFLEND(*MORE)
     A                                      OVERLAY
     A                                      SFLCSRRRN(&@@RRL2)
     A                                      RTNCSRLOC(&##2RCD &##2FLD)
     A                                      CSRLOC(##2ROW ##2COL)
     A            @@RRL2         5S 0H
     A            ##2FLD        10A  H
     A            ##2ROW         3S 0H
     A            ##2COL         3S 0H
     A            ##2RCD        10A  H
     A            @@RRN2         4S 0H      SFLRCDNBR(CURSOR)

     *
     * S02_LOAD - Load All Email Addresses for Record into Screen 2
 
**********************************************************************
FRANKP S02_LOAD        B
     ?*
     ?* ------------------
     ?* Initialize Subfile
     ?* ------------------
     ?*  Clear Subfile
     C                   EVAL      *IN73 = *ON
     C                   WRITE     ARSCRN02
     C                   EVAL      *IN73 = *OFF
     C                   EVAL      @@RRN2 = 0



--
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.




DISCLAIMER:
This email (including any attachments) is intended for the sole use of
the intended recipient/s and may contain material that is CONFIDENTIAL
AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or
copying or distribution or forwarding of any or all of the contents in
this message is STRICTLY PROHIBITED. If you are not the intended
recipient, please contact the sender by email and delete all copies;
your cooperation in this regard is appreciated.



As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.