Re: No Report for Deleted Record

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi Ted,

Just a couple of suggestions: if you don't need the indicator, don't use it,
and try specifying the file name within the %found, just to eliminate any
possible confusion:

> 0111.00 c                   delete    SB220AP
> 0112.00 c                   if        %found(SB220AP)

Actually though, the manual is sort of ambiguous on using %found for a
delete that has no key (factor 1):

"If factor 1 has an entry, positions 71 and 72 can contain an indicator that
is set on if the record to be deleted is not found in the file. If factor 1
does not have an entry, leave these positions blank. This information can
also be obtained from the %FOUND built-in function, which returns '0' if no
record is found, and '1' if a record is found."

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: "Ted Barry" <tbarry@centralsan.dst.ca.us>
To: <RPG400-L@midrange.com>
Sent: Friday, January 26, 2001 3:11 PM
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
>
> Thanks,
>   Ted
> +---
> | 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
+---