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




Once you get the record from the readc, you need to code the program to
clear the 2 fields and update the subfile record.


Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxxxxx
P:(631) 244-2000 ext. 5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



Adam West
<adamster@xxxxxxx
om> To
Sent by: RPG400-l@xxxxxxxxxxxx
rpg400-l-bounces@ cc
midrange.com
Subject
Subfile question
07/29/2008 12:46
PM


Please respond to
RPG programming
on the AS400 /
iSeries
<rpg400-l@midrang
e.com>






HI
In the sample below, I am displaying a subfile that are all OUTPUT only
except for 2 fields where you can put an 'X" and it will then display more
info in a new screen. When I come back from that screen, I want any X's
that were entered prior to become blanks. I am using the READC to check for
the X.. It will of course disregard the prior X and only look at a new X
but I am thinking it looks bad and wanted to clear but when I do a SFLCLR
and SFLBLD again I get a blank screen. I was wondering how the clear can be
accomplished that is, the entire subfile should be checked. is this an
update function perhaps?
I PO#         ORD                                         INV       ACT
EDI               DATE  STAT ORD#     ACCT  STR#      INV#    DATE
SHPDT
X 11          040601 090 000008  99967            99994  040603
000000       11          021202 060  000013  99932            99999
021204    021204       11          021205 060 000055   99932
999995  021209    021209       11          070516 090 0058308  99950
0001   999994  070518    000000     



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