Re: stupid subfile problem

[asoderlund@xxxxxxxxx]

Do u mean the RPG CLEAR op code, doesnt work on subfiles.

What u need to clear a subfile based on the following DDS,
eg. subfile record name is SFL and the control record is SFLCTL
is
C           SETOF        5051
C           SETON       52
C           WRITE    SFLCTL
0036.00      A  50                                  SFLDSP
0037.00      A  51                                  SFLDSPCTL
0038.00      A  52                                  SFLCLR
0039.00      A  53                                  SFLEND(*MORE)

boothm@ibm.net wrote:

> I can't imagine what I am doing wrong.  But it sure is something stupid.
> I am filling a subfile and using only one record for each grouping in the
> subfile.  Then, when the user selects a record from a grouping I am
> clearing the subfile and re-filling the subfile with the entire grouping
> that was chosen.  My problem is that I can not get the second grouping to
> display.  It keeps telling me the record exists.  Doesn't a clear opcode
> clear the subfile?


If you really want to "Clear" out a subfile use erase in the control record,
when you need to be the opposite reaction when you set off the SFLDSP indicator.
This Leaves no "Phantom" subfile on the screen to confuse the users, when you
don't happen to "write" something in the subfile screen space.



 A N19                                  SFLDSPCTL
 A  18                                  SFLDSP
 A  19                                  SFLCLR
 A  17                                  SFLEND
 A N18                                  ERASE(BC235S1B)











+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---