Re: [EXTERNAL] Fields not printing

Boy, been there, done that. Got a lot of headaches from self-inflicted
head
slaps. But, oddly, it usually worked.

Jerry C. Adams
When you shoot for the stars, the bullets fall back to earth. -James
Breakwell
IBM i Programmer/Analyst
--
NMM&D
615-832-2730

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of
aec
Sent: Friday, October 18, 2019 6:37 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: [EXTERNAL] Fields not printing

I don't think was mentioned.. Prefix on file input with the two fields on
either file spec or LIKEREC data structure, slight misspelling on the
EXCEPT
name, definition of the field in a procedure with the same name as the
global definition... These are all things that have tripped me up at
different times. Your description of debugging and all eliminate some of
that, but a careful, slow look at each line through might show one of
these.

As a last resort, I have occasionally resorted to grabbing somebody, even
somebody non-technical, and slowly explaining why it should be actually
printing those fields, works when I come to where the problem actually is,
hit my hand against the side of my head, and turn red and all that.

--Alan


On 10/16/19 4:24 PM, Greg Wilburn wrote:

Sorry... should've included

FEOD

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf
Of Greg Wilburn
Sent: Wednesday, October 16, 2019 4:23 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Fields not printing

My money is on what I said...

Someone smarter than me can chime it. But you can fix your problem by
using a keyed logical (or maybe even making the PF keyed)

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf
Of Jeff Crosby
Sent: Wednesday, October 16, 2019 4:21 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Fields not printing

Directly to physical file.

On Wed, Oct 16, 2019 at 4:18 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

Are these fields your writing accessed through a logical file? Or
are you writing directly to physical file?

This is exactly the kind of weird stuff I've seen in the past...
something to do with RPG record blocking (I think)

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf
Of Jeff Crosby
Sent: Wednesday, October 16, 2019 4:12 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Fields not printing

Fields ITMCS and ITMUN are "defined" in the file I'm writing records
to. I
(obviously) populate them before writing.

I read one file, populate these 2 fields from data in that file,
print them, and finally write to the output file.

The print line is blank where those fields should be. But, per a
previous post of mine, I can move them to work fields and the work
fields print. So they HAVE to have the data,

Bizarre.



On Wed, Oct 16, 2019 at 4:00 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

If those fields are in a file... the RPG cycle may not have written
to

the

file yet. Even though you populate the fields.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On
Behalf Of Jeff Crosby
Sent: Wednesday, October 16, 2019 3:24 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Fields not printing

I created 2 work fields:

D wITMCS S Like(ITMCS)
D wITMUN S Like(ITMUN)

placed them on the print line instead of the original fields:

O wITMCS J 70
O wITMUN J 75

and just before the Except I have:

wITMCS = ITMCS;
wITMUN = ITMUN;
EXCEPT ITMPRT;

and lo and behold, they print!

Does that not mean some compiler issue?


On Wed, Oct 16, 2019 at 2:39 PM Jeff Crosby
<jlcrosby@xxxxxxxxxxxxxxxx>
wrote:

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

--


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.

--


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

--


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

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