RE: No Report for Deleted Record

[Ted Barry <tbarry@xxxxxxxxxxxxxxxxxxxx>]

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
+---