Re: RCVJRNE exit program never getting '0' (no more entries) in 2ndparameter

Hello GA,

- Could it be because RCVJRNE hits the TOTIME value before it hits the DELAY
(which is the trigger of the '0' being passed)?

Best regards,
Carsten Flensburg

----- Original Message ----- 
From: "G Armour" <garmour400m@xxxxxxxxx>
To: <midrange-l@xxxxxxxxxxxx>
Sent: Monday, March 15, 2004 7:25 PM
Subject: RCVJRNE exit program never getting '0' (no more entries) in
2ndparameter


> A really frustrating "bump" has got two of us scratching our heads.  We
> are using RCVJRNE and an exit program written in RPGLE:
>
> RCVJRNE JRN(EEHLIB/TESTJRN) EXITPGM(EEHJ115R) FILE((APH115)) +
>           RCVRNG(*CURCHAIN) FROMTIME(031204 090000) +
>           TOTIME(031204 180000) ENTTYP(PT PX UB UP DL) DELAY(1)
>
> In the RPG program:
>
>      c     *Entry        Plist
>      c                   Parm                    JrnRcv
>      c                   Parm                    $Flag
>
> $Flag is a 1-character field.  For each journal entry processed, $Flag is
> set to '1'.  After the last journal entry is processed, we are expecting
> RCVJRNE to call the exit program again, passing '0' in $Flag.  Instead,
> the exit program is NOT called, and the RCVJRNE command ends, passing
> control back to the calling CL program.


###########################################
This message has been scanned by F-Secure Anti-Virus for Internet Mail.
For more information, connect to http://www.F-Secure.com/