RE: Delete a Record from a Subfile

["Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>]

You can't delete a record from a subfile.  There are a couple
possibilities...

1.  Reload the subfile
2.  Load the data into an array.  When the record is deleted, update the
corresponding "delete code" in the array and reload the subfile from the
array.
3.  Make the field Nondisplay when deleted.  The record will show up,
but it will be blank and not have any selection fields.

Bradley V. Stone
bvstone@prairie.lakes.com

> -----Original Message-----
> From: Jerry Keppler [SMTP:kepplerj@PATTONVILLE.K12.MO.US]
> Sent: Thursday, September 10, 1998 7:56 AM
> To:   Midrange
> Subject:      Delete a Record from a Subfile
> 
> Does anyone know of a way to delete a single record from a subfile
> (not
> the entire subfile) in an RPGLE program?  Perhaps an API lurking
> somewhere?  We are at V3R7.
> 
> Yesterday some of the responses suggested using the delete opcode on
> the
> subfile.  I tried it, and it doesn't work.  You get a compile error.
> It
> was worth a try.
> 
> Thanks
> -- 
> ___________________________________________________________
> Jerry R. Keppler      Pattonville School District
> Computer Programmer   11097 St. Charles Rock Road
> (314) 213-8045 Voice  St. Ann, MO 63074-1509
> (314) 213-8650 Fax    mailto:kepplerj@pattonville.k12.mo.us
> +---
> | 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
> +---
+---
| 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
+---