RE: Successful read not showing any data in debug -- RPG400-L

2 things.

I never tried this, but can you check %eof on a Primary file? You are not reading the file the cycle is. Again I don't use input primary files anymore so I never tried it.
Are the fields being checked used in the program? If they are aren't the debugger won't bring them in.

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Richard Reeve
Sent: Monday, August 08, 2016 11:45 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Re: Successful read not showing any data in debug

Yes. I've actually hovered the cursor over the field and hit F11 and also did an eval. Neither of which produced any data. I don't get it since I see the data with SQL.....

On Mon, Aug 8, 2016 at 11:33 AM, Robert Rogerson <rrogerson@xxxxxxxxxxx>
wrote:

Sorry Rich, missed that. When you are checking the header fields in
debug are you sure you're prefixing them with H?

Rob

On 8/8/2016 12:22 PM, Richard Reeve wrote:

Hi Rob,

It is commented out but is defined as a primary file in the F
specs so the cycle should take care if it. Right?

Rich

On Mon, Aug 8, 2016 at 11:19 AM, Robert Rogerson
<rrogerson@xxxxxxxxxxx>
wrote:

Hey Rich,

Isn't the header (EDPOH1L1) read commented out?

Rob

On 8/8/2016 12:14 PM, Richard Reeve wrote:

All,

I'm confused and ashamed to say that I'm having trouble
seeing the problem in this simple program. All I'm doing is
reading a header file
(primary) then if not %eof reading all the associated detail recs
determining/updating the weight of each line and writing the total
weight to the header.

The issue is that while I'm not getting an eof condition on
the header, when I look at any of the header fields on the first
read they are blank.

What am I not seeing? Thanks for any advise/help.

Rich

Here is the pgm

FEDPOH1L1 IP E K DISK PREFIX(H)
FDDMF4101_2IF E K DISK
F**EDPOH1L1 UF E K DISK PREFIX(H)
FEDPOD1L1 UF E K DISK
FDDMF41002 IF E K DISK
DKMMCU S LIKE(UMMCU)
DKMITM S LIKE(UMITM)
DKUMUM S LIKE(UMUM)
DKUMRUM S LIKE(UMRUM)
DTOTALWGT S 10 4 INZ(*ZEROS)
DWGTACCUM S 10 4 INZ(*ZEROS)
DITEMNBR S LIKE(IMLITM)
**FOR REGULAR GRAINGER ONLY
D GRAINGERID C CONST('005103494')

C** READ EDPOH1L1
C** DOW NOT %EOF(EDPOH1L1)
C IF HPARTID = GRAINGERID

C CLEAR WGTACCUM
C POD1KEY SETLL EDPOD1L1
C POD1KEY READE EDPOD1L1
C DOW NOT %EOF(EDPOD1L1)

c eval itemnbr = *blanks
C MOVEl(p) PO109 ITEMNBR
C ITEMNBR CHAIN DDMF4101_2
C IF %FOUND(DDMF4101_2)
C EVAL KMMCU = *BLANKS
C EVAL KMITM = IMITM
C EVAL KUMUM = 'EA'
C EVAL KUMRUM = 'LB'
C K41002 CHAIN DDMF41002
C IF %FOUND(DDMF41002)
C EVAL CUR03B = PO102 * (UMCONV * .00000
C EVAL WGTACCUM = WGTACCUM + CUR03B
C UPDATE F850D1
C END
C END

C POD1KEY READE EDPOD1L1
C ENDDO
C EVAL HCUR03 = WGTACCUM
C** UPDATE F850H1
C CLEAR WGTACCUM
C ENDIF
C** READ EDPOH1L1
C** ENDDO
C** EVAL *INLR = *ON

C* FIRST TIME PROCESSING
C *INZSR BEGSR
C POD1KEY KLIST
C KFLD HPARTID
C KFLD HPONUM
C KFLD HST02
C KFLD HMAILID
C K41002 KLIST
C KFLD KMMCU
C KFLD KMITM
C KFLD KUMUM
C KFLD KUMRUM
C ENDSR

--

This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list
options,
visit:
https://urldefense.proofpoint.com/v2/url?u=http-3A__lists.midrange.c
om_mailman_listinfo_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1
odLunI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8w
yz8lfLK1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=RODK1WksjEFd2qTidMDm_Ke5
Mx49Hx9DbBluBkiTIL4&e= or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://urldefense.proofpoint.com/v2/url?u=http-3A__archive.midrange.com_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1odLunI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8wyz8lfLK1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=N-voFUIha_WrNt6cI9h5ztg9q_sxgBlfKz8iT4hS1hY&e= .

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://urldefense.proofpoint.com/v2/url?u=http-3A__lists.midrange.com
_mailman_listinfo_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1odLu
nI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8wyz8lfL
K1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=RODK1WksjEFd2qTidMDm_Ke5Mx49Hx9D
bBluBkiTIL4&e= or email: RPG400-L-request@xxxxxxxxxxxx Before posting,
please take a moment to review the archives at
https://urldefense.proofpoint.com/v2/url?u=http-3A__archive.midrange.com_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1odLunI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8wyz8lfLK1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=N-voFUIha_WrNt6cI9h5ztg9q_sxgBlfKz8iT4hS1hY&e= .

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://urldefense.proofpoint.com/v2/url?u=http-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1odLunI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8wyz8lfLK1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=RODK1WksjEFd2qTidMDm_Ke5Mx49Hx9DbBluBkiTIL4&e=
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://urldefense.proofpoint.com/v2/url?u=http-3A__archive.midrange.com_rpg400-2Dl&d=DQICAg&c=S6jE3hMA0s16gx2_CUBBn4vjc1odLunI6MSvd_AfdV8&r=Ub_YbVSedaHB7-0yGANN94iTrfkU2nCKT1D5-5Jv01Y&m=8wyz8lfLK1DRMEaKJDnNPxneYBO_07zwSjXhGpje1Gw&s=N-voFUIha_WrNt6cI9h5ztg9q_sxgBlfKz8iT4hS1hY&e= .

Please contact support@xxxxxxxxxxxx for any subscription related questions.