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



If *IN33 is on the DLTREC format then the clear is what's doing it.  If 
you clear the format, the indicator gets cleared too I'm pretty certain, 
setting it to it's default state which is *OFF.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Matthew Gross <prrgg1@xxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
15/02/2005 03:29 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
Post AS-400 Language Questions <RPG400-L@xxxxxxxxxxxx>
cc

Subject
The Phantom Indicator






Hope someone has run into this and can provide answer -
 
Subfile program has *IN33 for SFLEND(*MORE).  8 records in PF, PageSize of 
11.
Puts out screen, "Bottom" displays for no more records.
Option "4" will delete record, which puts up a confirmation screen - 
Window, not record.  User can then exit with F3 or Enter to delete record. 
 Prior to EXFMT on DLTREC, I "CLEAR" format DLTREC.  When SFTCTL writes 
back to screen, *IN33 now off and "MORE..." appears.
*In33 is ONLY used in SFLCTL and no where else.  It is ONLY turned on or 
off in SFL load, which is NOT executed because user exited with F3 from 
confirmation screen.  When I took out the "CLEAR" to the format before 
EXFMT, and exited the screen with F3, *IN33 still on and "BOTTOM" 
appeared.
 
Any ideas?  TIA -
 
Matt
-- 
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 ...

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.