Re: [EXTERNAL] Fields not printing

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

No OVRPRTF involved.  It's 140 characters print file.  These fields end
positions are 70 and 75.  Several fields after these on the print line DO
print.

On Wed, Oct 16, 2019 at 2:35 PM Alan Shore via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

> Hi Jeff
> What positions on the print line are these 2 fields/
> What is the width of the print file:-
> In the program
> In the actual print file
>
> I had something similar - but it turned out that the actual print file was
> 132 characters wide - but the position of the fields were something like
> 145 and more
> The OVRPRTF was NOT correct
> The file name was misspelt - so it was ignoring the OVRPRTF
>
> Alan Shore
> E-mail : ASHORE@xxxxxxxx
> Phone [O] : (631) 200-5019
> Phone [C] : (631) 880-8640
> 'If you're going through hell, keep going.'
> Winston Churchill
>
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
> Jeff Crosby
> Sent: Wednesday, October 16, 2019 2:30 PM
> To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: [EXTERNAL] Fields not printing
>
> I'm about to tear my hair out.
>
> There are 2 fields not printing on an output line.  First a bit of
> background.
>
> Warehouse employees scan a barcode and enter a quantity.  This gets
> captured to a raw scans file.  The quantity will be something like "5.2"
> meaning 5 cases and 2 units.  In my program, I parse this into 2 packed
> fields:
>
> ITMCS = 5
> ITMUN = 2
>
> I print a report, the detail line has both the above fields along with
> others.  But these 2 fields do not print.  Edit code is J meaning zero
> balances print.
>
> First I thought I was overlaying with other fields, but I'm not.  This is
> how far I went:
>
> - I removed every field from the output line except these 2
> - entered debug and stepped through
> - the following are consecutive statements in the program
>
>          // Print it
>          Exsr OverFlow;
>          EXCEPT ITMPRT;
>
>          // Print any errors
>          Exsr EditRtn;
>
>          // Output
>          WRITE PICNTREC;
>
> - I viewed both fields before each of the statements, stepping one by one
> - even the statements in EditRtn
> - both fields have the correct value at all times
> - the printed line, ITMPRT, has nothing
> - the file with record format PICNTREC has these 2 fields and they are
> correct in the file
>
> I cannot figure out why they would be blank on the printout.  No indicator
> used to condition that output.  Other than compiler bug or something so
> stupid that I cannot see it.
>
> What am I missing and thanks.
>
>
> --
>
>
> Jeff Crosby
> VP Information Systems
> UniPro FoodService/Dilgard
> P.O. Box 13369
> Ft. Wayne, IN 46868-3369
> 260-422-7531
> direct.dilgardfoods.com
>
> The opinions expressed are my own and not necessarily the opinion of my
> company.  Unless I say so.
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list To post a
> message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
> change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com