Re: No Report for Deleted Record

[Chris Bipes <chris.bipes@xxxxxxxxxxxxxxx>]

This must be happening before the code you posted starting at 101.00  From what 
you posted, you read AF delete AP.
----- Original Message ----- 
From: "Ted Barry" <tbarry@centralsan.dst.ca.us>
To: <RPG400-L@midrange.com>
Sent: Friday, January 26, 2001 3:46 PM
Subject: RE: No Report for Deleted Record


Chris, no, there is a chain to SB510AP (essentially a setll and reade)
outside the loop, then the delete followed by a reade.

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