Re: I have an anomaly, please explain to me.

[Glenn Gundermann <glenn.gundermann@xxxxxxxxx>]

Hi Daniel,

Can you add a RETURN to the RPG program after the 2nd ENDIF and see what
happens?


Yours truly,

Glenn Gundermann
Email: glenn.gundermann@xxxxxxxxx
Work: (416) 675-9200 ext. 89224
Cell: (416) 317-3144


On 28 June 2016 at 08:41, Hayes, Daniel <Daniel.Hayes@xxxxxxxxxxxxxxx>
wrote:

> I have an issue happening that cannot happen.
>
> The CL program listed below, on occasion, not frequently, does what the
> partial joblog below is showing.
>
> It is called from an RPG program when LR is on.
>
> In this particular instance the CL program Ends then   0.147576 Seconds
> later it begins on line 34.02 again.
>
> This CL is ONLY called from this RPG program, nowhere else on the system.
>
>
> P04572 - RPG (Relevant segments)
> MOD05I              'J04572CCX '          C         @@CCX
>                         ...
> MOD05C*    Write Check Information record for Carecentrix
> MOD05C           *INLR     IFEQ *ON
> MOD05C           CAREC     IFEQ 'YES'
> MOD05C                     CALL @@CCX
> MOD05C                     ENDIF
> MOD05C                     ENDIF
>
> J04572CCX  - CLP (Entire Program)
>              PGM
>
> /* Backup check files                                                */
>              CPYF       FROMFILE(*LIBL/F04572) +
>                           TOFILE(*LIBL/F04572BK) MBROPT(*REPLACE) +
>                           CRTFILE(*YES)
>              CPYF       FROMFILE(*LIBL/F04573) +
>                           TOFILE(*LIBL/F04573BK) MBROPT(*REPLACE) +
>                           CRTFILE(*YES)
>
> /* Write records to F55061 from F04573                               */
>              CALL       PGM(P04572CCX)
>
> /* Create an extract file for CareCentrix                            */
>              CALL       PGM(J55061) PARM('N')
>
> ENDCLPGM:   ENDPGM
>
> JOBLOG from run in question;
>       06/27/16  08:19:47.497464  QCLRTNE      QSYS        0058     J55061
>     CCXJDEOBJ   *STMT
>    Statement . . . . . . . . . :   17400
>    Message . . . . :          - RETURN        /* RETURN due to end of CL
> program
>      */
>       06/27/16  08:19:47.497568  QCLRTNE      QSYS        0058
>  J04572CCX   CCXJDEOBJ   0025
>    Message . . . . :          - RETURN        /* RETURN due to end of CL
> program
>      */
>       06/27/16  08:19:47.645144  QCADRV       QSYS        03C4
>  J04572CCX   CCXJDEOBJ   000D
>    Message . . . . :     3402 - CPYF FROMFILE(*LIBL/F04572)
>
>
> Daniel E. 'Danny' Hayes
> Senior JD Edwards Developer
> 813 901-2150   x133154
> [cid:image001.png@01D1D110.0FEFF100]
> 9119 Corporate Lake Drive | Tampa Florida 33634 | www.carecentrix.com<
> http://www.carecentrix.com/>
>
>
> ________________________________
> This communication is intended only for the use of the individual or
> entity named as the addressee. It may contain information which is
> privileged and/or confidential under applicable law. If you are not the
> intended recipient or such recipient's employee or agent, you are hereby
> notified that any dissemination, copy or disclosure of this communication
> is strictly prohibited. If you have received this communication in error,
> please immediately notify CareCentrix Compliance Hot Line at (877)
> 848-8229 and notify the sender by electronic mail. Please expunge this
> communication without making any copies. Thank you for your cooperation.
> --
> 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: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.