|
Jon, I checked the system value for QSYSRPYL, and found that nothing has been set. However, System Reply List Entries gives me a list of entries WRLRPYLE. PART-I ------ The program fails when we try to increment the Dataarea value after it reaches 9999999 (Dataarea is *DEC 7 0) I simulated the case and program dumped. Please see attached notepad for dump. First there is an escape msg : MCH1210 Receiver value too small to hold result. Then Sender copy(??) : RNQ0103 The target for a numeric operation is too small to hold the result (C G D F). Then Sender copy : CPA0701 CEE9901 received by T2XMITA at 7100. (C D I R) RNQ0103 is expecting a reply, right? But there was no reply as next msg was CPC2206. CPA0701 has a reply of 'D' (CPA0701 has an entry in WRLRPYLE with reply as D). I got 2 Dump spools, One for CL T2XMITA (submitted in batch) and second for TEST (RPGLE called by T2XMITA) Anyways I did get dump and the control never went to next command, there was no msg sent to system operator where he might have replied 'I'gnore! This is getting so much confusing. I plan to add RNQ0103 in WRKRPYLE with value 'D' just to be sure! what do you say? PART-II ------- How do I fix this? Earlier I thought if we add 1 to a Packed (7 0) holding 9999999 (eval t2contrl=t2contrl+1) it will be rounded off to 1!! I dont want to put a check if value has reached 9999999 then initialize to 1, because at one go the program processes around 999999 rcds and runs after every 4 hours. (so many if conditions will be processed) Till now I had a scheduled job which used to reset the Dtaarea T2CONTROL to 1, but not knowing the # of records we can get no use to schedule it, so unreliable.... my pgm dumped! Any other solution, which eats up less resources? -----Original Message----- From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Jonathan Mason Sent: Thursday, December 09, 2004 4:31 PM To: Midrange Systems Technical Discussion Subject: RE: CL Pgm executes the commands after it dumps! You can set up a System Reply List entry to automatically answer inquiry messages. The command WRKSYSVAL QSYSRPYL will show you what is currently set up. You can add messages to the list using the ADDRPYLE and remove them from the list using the RMVRPYLE commands. To change list entries, place a "2" against them. Hope that helps Best regards Jonathan www.astradyne-uk.com -----Original Message----- From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Chaudhary, Sachin (GE Equipment Services,Consultant) Sent: 09 December 2004 22:03 To: Midrange Systems Technical Discussion Subject: RE: CL Pgm executes the commands after it dumps! Importance: High One more question, do we have any global setting so that if a program dumps then an auto reply of D is sent to the message? I tried to simulate the problem in test environment but the program dumps and the job ends as soon as an error is encountered in RPGLE code with auto reply of D. -----Original Message----- From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Chaudhary, Sachin (GE Equipment Services, Consultant) Sent: Thursday, December 09, 2004 3:14 PM To: Midrange Systems Technical Discussion Subject: RE: CL Pgm executes the commands after it dumps! Though there is no MONMSG , but system message must have been replied with an 'I'gnore. Thanks for the help! -----Original Message----- From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Tom Jedrzejewicz Sent: Thursday, December 09, 2004 2:39 PM To: Midrange Systems Technical Discussion Subject: Re: CL Pgm executes the commands after it dumps! On Thu, 9 Dec 2004 15:24:04 -0500, Chaudhary, Sachin (GE Equipment Services, Consultant) <sachin.chaudhary@xxxxxx> wrote: > Hi > An AS400 job JOB1 is submitted after every 4 hours. The CL code JOB1 failed while a call to an RPGLE code dumped out. > However, there is a command following call to RPGLE which moves the data from current member of FILE1 to History member which is created at run time during first run on a given day. After that it clears current member. > > Unfortunately, I don't have job logs but I can see that even though the job dumped it is still clearing the files and creating the history member! > How can this happen?? If the CL1 program has a MONMSG on the call, or a global MONMSG, or if the system message was replied to with an 'I', the program would continue with the next statement and complete normally. That would also explain why no job log is generated. Ways around this include . . . - put a specific MONMSG on the call and skip the clear if activated - have the RPGLE program return a parm indicating success, and use that field to condition the clear. - have the RPG program delete the input file records, then do RGZPFM in the CL.. Also, as a way to insure against data loss .... create a duplicate of the input file, and have the CL copy the input file to a new member (perhaps job# or date/time) of the copy before proceeding. Take care. -- Tom Jedrzejewicz tomjedrz@xxxxxxxxx -- This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. -- This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. -- This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l. -- This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/midrange-l or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/midrange-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
