RE: Can't get SFLFOLD/SFLDROP to "stick"

Oh yes, these are great fun.  Fortunately I keep a template for this around.
Check out the following DDS (blank space compressed):
A            SFLMODE(&S1SFLMODE)
A N92        SFLDROP(CF06)
A  92        SFLFOLD(CF06)
A     S1SFLMODE      1A  H

Then you use the indicator and field in the RPG code just before the EXFMT
like so:
C*
C* Determine whether the subfile was folded.
C     S1SFLMODE     IFEQ      '0'
C                   MOVE      *ON           *IN92
C                   ELSE
C                   MOVE      *OFF          *IN92
C                   ENDIF

The DDS and programmer's manuals have detailed explanations of SFLMODE.

Hope that helps.

Donald R. Fisher, III
Project Manager
Roomstore Furniture Company
(804) 784-7600 extension 2124
DFisher@xxxxxxxxxxxxx

<clip>
The problem that I can't seem to easily get past is that I can't get the
FOLD or the DROP to "stick".
<clip>