Re: Records written to a table only visible at end of program execution, it seems.

[a4g atl <a4ginatl2@xxxxxxxxx>]

Apologies, you are correct, thanks. This should be

2. use Select count(*) counting if the part number exists in the output
file.
       SELECT COUNT(*) into :COUNT from OUTPUTFILE WHERE PART_NO = :PART

Darryl

On Thu, Apr 19, 2018 at 4:44 PM, Dan <dan27649@xxxxxxxxx> wrote:

> First of all, I'll beat David to the punch and suggest that this probably
> belongs in the RPG list.
>
> Are you sure you want get the count from the INPUTFILE?  Seems like you
> want to get it from the target file.
>
> - Dan
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD