Chuck,
I can supply both of these, but not sure how to do attachments here.
I have the compile listing; because the pgm uses copy books and I did not want to slam the site with that copied into this email. (8,516 rows)
The entire joblog is over 9,000 pages, but I copied out the iteration from one cycle which is where this occurred, it is 9,628 lines of text.
I would be glad to send off-line to anyone who is interested, or if there is a way to do attachments here I will do that.
Danny Hayes | Sr JDE Developer - IT | 813 901-2150 x133154
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of CRPence
Sent: Tuesday, June 28, 2016 1:28 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: I have an anomaly, please explain to me. **External Email**
On 28-Jun-2016 07:41 -0500, Hayes, Daniel 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)
Without having the entire source for the program, a reviewer can not be assured that what was chosen as the "relevant segments" are the
*only* relevant snippets of the code; i.e. even if that is the only CALL, both of those IFEQ have the potential to evaluate as true more than once, if the program has any way to reach that same code a second time. Of course, as a change to that code, an additional indicator could be defined and tested, testing if the CALL was not already done and then immediately setting-on that indicator just before the CALL; i.e. explicitly prevent a second call if doing so is undesirable, because merely testing *INLR for that non-LR purpose is inappropriate.
The entire joblog also may be valuable for review [by more eyes], rather that just that chosen snippet; e.g. there may be an indication that the RPG program itself was invoked twice, such that a natural consequence is that the CLP being invoked twice is likely expected, and therefore the question becomes instead about the RPG pgm vs the CLP as having been an apparent unexpected second-invocation.
--
Regards, Chuck
--
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.
------------------------------------------------------------------------------
This message was received from an address external to CareCentrix. If PHI or otherwise sensitive data is being requested via a reply, please verify via a means other than email that the request is valid. If you have concerns or questions, please escalate to your supervisor as soon as possible. Your local Business-Technology team is also available to help. If you suspect a compliance or ethical issue, please report it promptly to the Compliance Hotline at 877-848-8229 or via e mail at compliance@xxxxxxxxxxxxxxx
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.
midrange.com
