|
Forgot to attach the DUMP file... -----Original Message----- From: Chaudhary, Sachin (GE Equipment Services, Consultant) Sent: Thursday, December 09, 2004 6:45 PM To: 'Midrange Systems Technical Discussion' Subject: RE: CL Pgm executes the commands after it dumps! Importance: High 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.
midrange.com
5722SS1 V5R2M0 020719 Job Log
S1040022 12/09/04 14:08:57 Page 1
Job name . . . . . . . . . . : T2XMITASAC User . . . . . . :
QPGMR#N38 Number . . . . . . . . . . . : 717635
Job description . . . . . . : N38 Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM
LIBRARY INST TO PGM LIBRARY INST
CPF1124 Information 00 12/09/04 14:08:46.553000 QWTPIIPP
QSYS 05D4 *EXT *N
Message . . . . : Job
717635/QPGMR#N38/T2XMITASAC started on 12/09/04 at
14:08:46 in subsystem TEST in QGPL. Job
entered system on 12/09/04 at
14:08:46.
CPI1125 Information 00 12/09/04 14:08:46.560400 QWTPCRJA
QSYS 0108 *EXT *N
Message . . . . : Job
717635/QPGMR#N38/T2XMITASAC submitted.
*NONE Request 12/09/04 14:08:47.102296 DJECATALOG
QSYSCMD 0100 QCMD QSYS 0178
Message . . . . : -CALL
PGM(TEST#N38/T2XMITA)
*NONE Command 12/09/04 14:08:47.105712 QCLCLCPR
QSYS 03E6 T2XMITA TEST#N38 0012
Message . . . . : 7100 - CALL
PGM(TEST#N38/TEST)
MCH1210 Escape 40 12/09/04 14:08:47.360536 TEST
TEST#N38 *STMT TEST TEST#N38 *STMT
From module . . . . . . . . : TEST
From procedure . . . . . . : TEST
Statement . . . . . . . . . : 11
To module . . . . . . . . . : TEST
To procedure . . . . . . . : TEST
Statement . . . . . . . . . : 11
Message . . . . : Receiver value too
small to hold result.
CPC2206 Completion 00 12/09/04 14:08:49.676168 QSYCHONR
QSYS 05F0 QLIINSRT QSYS 038C
Message . . . . : Ownership of object
QTESUSRSP in QTEMP type *USRSPC
changed.
CPF9C58 Escape 20 12/09/04 14:08:50.157288 QTESESSH
QSYS *STMT QTESGRPHSH QSYS *STMT
From module . . . . . . . . : QTESESSH
From procedure . . . . . . :
Exception_Handler
Statement . . . . . . . . . : 5
To module . . . . . . . . . : QTESGRPHSH
To procedure . . . . . . . :
callGreenScreenSessionHandler__FiPPc
Statement . . . . . . . . . : 2260
Message . . . . : ILE debug not allowed
from batch job.
CEE9901 Escape 30 12/09/04 14:08:50.221848 QLEAWI
QSYS *STMT QTEMDEBP QSYS 01BD
From module . . . . . . . . : QLEDEH
From procedure . . . . . . : Q LE
leDefaultEh
Statement . . . . . . . . . : 231
Message . . . . : Application error.
CPF9C58 unmonitored by QTESGRPHSH at
statement 0000002260, instruction
X'0000'.
CPF9999 Escape 40 12/09/04 14:08:50.293520 QMHUNMSG
*N QTEMDEBP QSYS 01BD
Message . . . . : Function check.
CEE9901 unmonitored by QTEMDEBP at
statement *N, instruction X'01BD'.
RNQ0103 Sender copy 99 12/09/04 14:08:50.447344 QRNXIE
QSYS *STMT QRNXIE QSYS *STMT
From module . . . . . . . . : QRNXMSG
From procedure . . . . . . : InqMsg
Statement . . . . . . . . . : 3
To module . . . . . . . . . : QRNXMSG
To procedure . . . . . . . : InqMsg
Statement . . . . . . . . . : 3
Message . . . . : The target for a
numeric operation is too small to hold
the result (C G D F).
CPC2206 Completion 00 12/09/04 14:08:50.801168 QSYCHONR
QSYS 05F0 QLIINSRT QSYS 038C
Message . . . . : Ownership of object
HSCURLIB in QTEMP type *DTAARA
changed.
*NONE Reply 12/09/04 14:08:50.893288 QMHSNINQ
QSYS 0CDD QRNXIE QSYS *STMT
5722SS1 V5R2M0 020719 Job Log
S1040022 12/09/04 14:08:57 Page 2
Job name . . . . . . . . . . : T2XMITASAC User . . . . . . :
QPGMR#N38 Number . . . . . . . . . . . : 717635
Job description . . . . . . : N38 Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM
LIBRARY INST TO PGM LIBRARY INST
To module . . . . . . . . . : QRNXMSG
To procedure . . . . . . . : InqMsg
Statement . . . . . . . . . : 3
Message . . . . : D
CEE9901 Escape 30 12/09/04 14:08:51.997448 QLEAWI
QSYS *STMT T2XMITA TEST#N38 0012
From module . . . . . . . . : QLEDEH
From procedure . . . . . . : Q LE
leDefaultEh
Statement . . . . . . . . . : 231
Message . . . . : Application error.
MCH1210 unmonitored by TEST at
statement 0000000011, instruction
X'0000'.
CPA0701 Sender copy 99 12/09/04 14:08:52.074472 QCLXERR
QSYS 00DA QCLXERR QSYS 00DA
Message . . . . : CEE9901 received by
T2XMITA at 7100. (C D I R)
*NONE Reply 12/09/04 14:08:52.175488 QMHSNINQ
QSYS 0CDD QCLXERR QSYS 00DA
Message . . . . : D
CPF9999 Escape 40 12/09/04 14:08:52.013488 QMHUNMSG
*N QCMD QSYS 01A6
Message . . . . : Function check.
CEE9901 unmonitored by T2XMITA at
statement 7100, instruction X'0012'.
CPC2402 Completion 50 12/09/04 14:08:55.933776 QCMD
QSYS 05D8 *EXT *N
Message . . . . : Job ended. Cancel
message received at command processor.
CPC2206 Completion 00 12/09/04 14:08:56.860552 QSYCHONR
QSYS 05F0 QLIINSRT QSYS 038C
Message . . . . : Ownership of object
QTESUSRSP in QTEMP type *USRSPC
changed.
CPC2191 Completion 00 12/09/04 14:08:57.197920 QLIDLOBJ
QSYS 047E QLICLLIB QSYS 055C
Message . . . . : Object HSCURLIB in
QTEMP type *DTAARA deleted.
CPF1164 Completion 00 12/09/04 14:08:57.199016 QWTMCEOJ
QSYS 00BD *EXT *N
Message . . . . : Job
717635/QPGMR#N38/T2XMITASAC ended on 12/09/04 at
14:08:57; 2 seconds used; end code 20 .
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
