RE: prob in deleting records using a subfile from a pf.

INFDS will tell you how many records is in the subfile (see
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/books/c092508409.htm#H
DRDSFEED for example).


In the subfile create hidden fields to save the unique key of the
record.  Populate those hidden fields when loading the subfile.  (Note:
code below has not been tested/compiled)

Preferred method:
C                       for             ix=1 to NUM_RCDS
C       ix              chain           SubFile
C       S1HidKey        chain           FileFmt  
C                       if              %found
C               delete  FileFmt
C                       endif
C                       endfor

Personally not so Preferred method:
C                       for             ix=1 to NUM_RCDS
C       ix              chain           SubFile
C       S1HidKey        delete(e)       FileFmt
C                       endfor

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of sunny singh
Sent: Monday, May 01, 2006 9:38 AM
To: MIDRANGE-L@xxxxxxxxxxxx
Subject: prob in deleting records using a subfile from a pf.

hi all..
              i have a   prob  regarding subfiles..
  i have a load all subfile displaying  for example four selected
records by the user.
  now i want all the records to be deleted when the user presses certain
key say f11.
  i am having a prob   when i tried to do this by reading the subfile
record format from the top and then chaining to the physical file in a
loop..can any one plz explain the proceedure for just idea of how this
could be done
  example...
  date                                       xyz bank
time
   
   number                              name
dept                  salary     
  101                                     john
comp                 12344
  102                                     franky
mba                   38474
  103                                     rocky
comp                 123454
  104                                     nick
b.tech                 345676
   
  how can we delete above all four records that has been displayed on
the above screen.niumber beeing key field.
  why cant i perform readp or reads operation on this subfile.
  thanks in advance...
  please do reply.
  have a nice day........
   
   
   
   

                
---------------------------------
Talk is cheap. Use Yahoo! Messenger to make PC-to-Phone calls.  Great
rates starting at 1¢/min.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/midrange-l.