RE: fold/unfold

   Hi Lim:

    

   If *IN39 = *ON before EXFMT then your F11 will be rendered useless because
   your record level selections suggest that IF *IN10 = '0' AND *IN39 = *OFF
   THEN SFLDROP(CF11).

   You should set the *IN39 to OFF before EXFMT in order to make this work

   Regards,
    
   Hrishikesh Kotwal
    
   >From: "Lim Hock-Chai" <LIM.HOCK-CHAI@xxxxxxxx>
   >Reply-To: RPG programming on the AS400 / iSeries <RPG400-L@xxxxxxxxxxxx>
   >To: "RPG programming on the AS400 / iSeries" <RPG400-L@xxxxxxxxxxxx>
   >Subject: RE: fold/unfold
   >Date: Thu, 25 Sep 2003 16:28:59 -0500
   >
   >Here is part of the DDS looks like
   >
   >A R SFLCTL SFLCTL(SFL)
   >A SFLSIZ(0006)
   >A SFLPAG(0005)
   >A CF03
   >A CF05
   >A CF10
   >A OVERLAY
   >A SFLMODE(&MODE)
   >A N32 SFLDSP
   >A N31 SFLDSPCTL
   >A 31 SFLCLR
   >A 90 SFLEND(*MORE)
   >A N10N39 SFLDROP(CF11)
   >A 10N39 SFLFOLD(CF11)
   >
   >
   >In the RPG program, *in39 is set to *on before in does EXFMT on the
   SFLCTL
   >
   >
   >
   >-----Original Message-----
   >From: rick.baird@xxxxxxxxxxxxxxx [mailto:rick.baird@xxxxxxxxxxxxxxx]
   >Sent: Thursday, September 25, 2003 3:51 PM
   >To: RPG programming on the AS400 / iSeries
   >Subject: RE: fold/unfold
   >
   >
   >
   >Lim, send a snippet of your DDS code, and we'll give it a look
   >
   >-----Original Message-----
   >
   >I did both and doesn't seems to have effect on the command key.
   >
   >-----Original Message-----
   >From: Fisher, Don [mailto:Dfisher@xxxxxxxxxxxxxxxxx]
   >Sent: Thursday, September 25, 2003 2:43 PM
   >To: 'RPG programming on the AS400 / iSeries'
   >Subject: RE: fold/unfold
   >
   >
   >I've done no research on this, but I suggest you try using indicators on
   >the
   >SFLDROP and SFLFOLD keywords. Turning the indicator off should disable
   >F11.
   >
   >
   >If that fails, you could explicitly use an indicator on the CF11 keyword.
   >
   >Hope that helps.
   >
   >
   >_______________________________________________
   >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.
   >
   >
   >_______________________________________________
   >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.
   >

     ----------------------------------------------------------------------

   Answer simple questions. Win a free honeymoon. Sail into the sunset!