Re: No Report for Deleted Record

Please send a sample of the entire outer Do loop.

Regards,

Jim Langston

Ted Barry wrote:
> 
> Chris, no, there is a chain to SB510AP (essentially a setll and reade)
> outside the loop, then the delete followed by a reade.
> 
> >>> Chris Bipes <chris.bipes@cross-check.com> 01/26/01 03:32pm >>>
> Ok lets see.  You chain to SP510AF then try to delete SP510AP.  No lock
> on
> the record for file SP510AP.  Then you read SP510AP and try to delete
> SF510AF.  I think your deletes are backwards.
> 
> Christopher K. Bipes    mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst  mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.        http://www.cross-check.com
> 6119 State Farm Drive   Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928  Fax: 707 586-1884
> 
> If consistency is the hobgoblin of little minds, only geniuses work here.
> Karen Herbelin - Readers Digest 3/2000
> 
> -----Original Message-----
> From: Ted Barry [mailto:tbarry@centralsan.dst.ca.us]
> Sent: Friday, January 26, 2001 3:12 PM
> To: RPG400-L@midrange.com
> Subject: No Report for Deleted Record
> 
> I'm not getting a hit (%found) on the main read (SB220AP), but all other
> related records are reporting (exsr wrtmsg) fine.  All records are being
> deleted, any clues?
> 
> 0101.00 c     LocationId    chain     SB510AF                            40
> 
> 0102.00 c                   dow       not *in40
> 
> 0103.00 c                   delete    SB510AP
> 99
> 0104.00 c                   if        %found
> 
> 0105.00 c                   eval      FileName =    'SB510AP'
> 
> 0106.00 c                   exsr      wrtmsg
> 
> 0107.00 c                   endif
> 
> 0108.00 c     LocationId    reade     SB510AF
> 40
> 0109.00 c                   enddo
> 
> 0110.00
> 
> 0111.00 c                   delete    SB220AP
> 99
> 0112.00 c                   if        %found
> 
> 0113.00 c                   eval      FileName =    'SB220AP'
> 
> 0114.00 c                   exsr      wrtmsg
> 
> 0115.00 c                   endif
> 
> 0116.00 c                   endif
> 
> 0117.00
> 
> 0118.00 c                   read      SB220AF
> LR
> 0119.00 c                   enddo
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---