View previous topic :: View next topic
|
Author |
Message |
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
Hi,
I am running REXX with program IKJEFT01 but it is giving following Abend
SYSTEM COMPLETION CODE=106 REASON CODE=0000000C
TIME=04.04.11 SEQ=45603 CPU=0000 ASID=01B1
I tried giving Region=0M in Job card but it did not solve the problem.
Please help me out in this. |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the info provided is not sufficient to provide any hint for the problem determination...
post the full log of the step giving the issue,
after that You might be requested to post the rexx code You were trying to execute |
|
Back to top |
|
|
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
LOG
Code: |
IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 PPGCQ001 SREXX 00
IEA705I 00F44000 009C5308 009C5308 00011200 00000028
IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 PPGCQ001 SREXX 00
IEA705I 00F44000 009C5308 009C5308 00007200 000007E0
IEA705I ERROR DURING GETMAIN SYS CODE = 878-10 PPGCQ001 SREXX 00
IEA705I 00F44000 009C5308 009C5308 00017200 00000830
IEA995I SYMPTOM DUMP OUTPUT 066
SYSTEM COMPLETION CODE=878 REASON CODE=00000010
TIME=04.03.33 SEQ=45602 CPU=0042 ASID=01B1
PSW AT TIME OF ERROR 070C1000 815ADF0E ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 015ADF08 - 00181610 0A0D18CE 18FB180C
GR 0: 84000000 1: 84878000
2: 80FDBEE0 3: 00000102
4: 009C5308 5: 009C5170
6: 815A90C8 7: 00F44000
8: 00000000 9: 00000830
A: 00000000 B: 7F62AB80
C: 00000042 D: 0099A6FC
E: 10BCC048 F: 00000010
END OF SYMPTOM DUMP
IEA848I NO DUMP WAS PRODUCED FOR THIS ABEND, DUE TO SYSTEM OR INSTALLATION REQUE
IEW4000I FETCH FOR MODULE END FROM DDNAME -LNKLST- FAILED BECAUSE INSUFFICI
CSV031I LIBRARY ACCESS FAILED FOR MODULE END , RETURN CODE 24, REASON CODE 2
CSV028I ABEND106-0C JOBNAME=PPGCQ001 STEPNAME=SREXX
IEW4000I FETCH FOR MODULE IEAVTRP2 FROM DDNAME -LNKLST- FAILED BECAUSE INSUFFICI
CSV031I LIBRARY ACCESS FAILED FOR MODULE IEAVTRP2, RETURN CODE 24, REASON CODE 2
IEW4000I FETCH FOR MODULE IEAVTRF4 FROM DDNAME -LNKLST- FAILED BECAUSE INSUFFICI
CSV031I LIBRARY ACCESS FAILED FOR MODULE IEAVTRF4, RETURN CODE 24, REASON CODE 2
IEA995I SYMPTOM DUMP OUTPUT 181
SYSTEM COMPLETION CODE=106 REASON CODE=0000000C
TIME=04.04.11 SEQ=45603 CPU=0000 ASID=01B1
PSW AT TIME OF ERROR 070C1000 814749E8 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 014749E2 - 8400181E 0A0D18FB 180C181D
AR/GR 0: A3010EDE/00000000_00001E00 1: 00000000/00000000_84106000
2: 00000000/00000000_00FDBE90 3: 00000000/00000000_00000000
4: 00000000/00000000_0000000C 5: 00000000/00000000_0098F190
6: 00000000/00000000_00993200 7: 00000000/00000000_00000024
8: 00000000/00000000_00993250 9: 00000000/00000000_01474EBC
A: 00000000/00000000_00000000 B: 00000000/00000000_00000024
C: 00000000/00000000_00000000 D: 00000000/00000000_00993250
E: 00000000/00000000_84106000 F: 00000002/00000010_0000000C
END OF SYMPTOM DUMP |
Hope this helps...... |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
most probably You are using something like
Code: |
""EXECIO * DISKR <someddname> (... STEM <somestem>."" |
and You are trying to read lots of records
search the forums with execio diskr abend 878 not 106
the issue has been discussed quite a few times |
|
Back to top |
|
|
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
Thanks Enrico
I'll do that and will let you about it. |
|
Back to top |
|
|
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
Hi enrico,
Most of the forums talks about giving Region=0M I have done it in my case but then also I am getting the same abend. I think there is some issue with my REXX but i am not able to figure it out what is that ?
Please help!!!! |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
how do you expect us to help,
when all you provide is the error?
you can not completely evaluate an error, unless you know what the program is doing.
this includes- number of records
- size of records
- what are you doing with the records?
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Run a test with only 10 input records. . . I suspect it will not fail.
Then re-write your rexx into some acceptable longuage for processing large amounts of data.
REXX is possibly the worst choice for working with high volume data. . .
If you post any more duplicate topics, they will be deleted. . . |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
Hi enrico,
Most of the forums talks about giving Region=0M I have done it in my case but then also I am getting the same abend. I think there is some issue with my REXX but i am not able to figure it out what is that ?
|
if You want help, reply to the questions You are asked, not with useless speculations |
|
Back to top |
|
|
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
these are not useless speculations, i just said it is problem with REXX i think. And for questions there can be 5000 records at a time, size is 400 for the record and what i am trying to do is just picking data from DASD and copying that in to other file for processing in next step.
Regards
SHARR39 |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Why not post something useful for once.
We have absolutely NO useful information from you and this is post 11 or 12 on this thread.
Maybe, as suggested by Enrico you are using a stem, but how do we know. He made a point and you totally ignored it.
Post useful information, so let's start with the code
Maybe post 13 will be lucky ....................... |
|
Back to top |
|
|
Sharr39
New User
Joined: 12 Aug 2010 Posts: 9 Location: Mumbai
|
|
|
|
Code
/*-rexx---------------------------------------------------------------*/
/* The input file is the result of a LISTCAT command & contains, for */
/* a specific HLQ, all DSNs not yet processed by an Adaptor Framework */
/* transmission to the Docucorp server. */
/* */
/* This rexx will : */
/* 1. find oldest unprocessed (i.e. 1st!) file matching input parms */
/* 2. copy the contents of that oldest file to a temp Dataset UT11 */
/* 3. rename that oldest file to a new filename to stop it being used */
/* again..essentially just changing the word SEND to SENT ! */
/* e.g. from PE2NU.NUPJL.PO.EDD.SEND2.D06364.T1159.S5999 */
/* e.g. to PE2NU.NUPJL.PO.EDD.SENT2.D06364.T1159.S5999 */
/* */
/* The subsequent JCL step will initiate a Adaptor Framework send */
/* using the contents of the temp datset UT11. */
/*--------------------------------------------------------------------*/
ARG par1 par2 /* accept input HLQ parms */
lenx = LENGTH(par1) /* get length of 1st HLQ.. */
lenx = lenx-1 /* ..take 1 away & isolate.. */
parx = SUBSTR(par1,1,lenx) /* ..1st HLQ minus last char */
hlq = par1 || par2 /* set full HLQ to find file */
len = LENGTH(hlq) /* get length of full HLQ */
len2 = len+1 /* set start of file suffix */
found = ' ' /* set flag 4 file not found */
acc = 0 /* increment rec count */
say '**Input hlq mask = ' hlq /* input hlq */
EXECIO * DISKR UT01 (STEM rec1. FINIS" /* read all input file recs */
FREE FI(UT01)" /* release hold on the file */
DO I = 1 TO REC1.0 /* FROM 1ST TO LAST INP REC */
IF SUBSTR(rec1.i,18,len) = hlq THEN /* for oldest file on catlog */
DO /* */
/* FLAG XMIT FILE WAS FOUND */
txt = SUBSTR(rec1.i,18,44) /* isolate full datasetname */
indsn = STRIP(txt) /* strip lead/trail spaces */
sufx = SUBSTR(indsn,len2) /* get filename suffix */
say '**File selected = ' indsn /* filename used in this run */
"ALLOCATE FILE(in2) DA('"indsn"') SHR" /* allocate file */
"EXECIO * DISKR in2 (STEM rec2. FINIS" /* read all its recs */
DO j = 1 to rec2.0 /* from 1st to last xmit rec */
acc = acc+1 /* increment rec count */
QUEUE rec2.j /* put xmit rec on queue */
END /* */
"FREE FI(in2)" /* release hold on xmit file */
END /* */
ELSE NOP /* return to main DO loop */
END /* mainloop end */
"EXECIO * DISKW UT11"
"EXECIO 0 DISKW UT11 (FINIS" /* write all queued output */
"FREE FI(UT11)" /* release hold on output fil*/
IF rc ¬= 0 THEN /* if error during rec copy */
DO /* write error message */
say "Job ABORTING! Failed to write records to UT11"
rc = 15 /* set error code */
EXIT rc /* and end rexx */
END
ELSE NOP
say "**Selected file <"indsn"> copied to UT11..."
say " & renamed to <"newdsn">"
EXIT rc /* end rexx */ |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
these are not useless speculations, i just said it is problem with REXX i think. And for questions there can be 5000 records at a time, size is 400 for the record and what i am trying to do is just picking data from DASD and copying that in to other file for processing in next step. |
pure equine nitrogenated leavings
Your stubborness in posting useless information is just... amazing
if You thought that there were issue with Your rexx code why did You not post it right away ?
the code posted after much begging just confirmed the initial suspicion!
certainly is not an issue ( from any point of view ) to read 5000 records into a stem even more
since the inner loop is a simple copy just substitue with a call to ICEGENER or IEBGENER
along the lines of
Code: |
Address TSO
"FREE FI(SYSUT1)
"FREE FI(SYSUT2)
"FREE FISYSIN)"
"FREE FI(SYSPRINT)"
"ALLOC FI(SYSUT1) DA('<input dataset') ..."
"ALLOC FI(SYSUT2) DA('<output dataset') MOD ..."
"ALLOC FI(SYSIN) DUMMY"
"ALLOC FI(SYSPRINT) DA(<Your dummy sysout class>)"
"CALL *(ICEGENER)"
|
to go into more depth into the issue
there are two levels of memory improper use...
the EXECIO * but in this case its negative effects are irrelevant
in this case the memory issue due to the QUEUE approach is worse
You keep in memory ALL the records for all the files read up to that moment
I wonder why user are so fond of the queue construct
when data has to be read/written from a stem why not use a plain
"EXECIO "stem.0" DISKW ... (STEM stem."
it halves the storage requirement and shuffling around records with no use |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
enrico-sorichetti wrote: |
pure equine nitrogenated leavings |
Excellent Enrico, excellent
|
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
got into language purist mode today
... equine nitrogenated leavings
... nitrogenated equine leavings
which one is better from a pure english language point of view
i might prefer the second construct! |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Mmmmmmmmmmm, nitrrogenated or nitrogenised ???
Will have to get back to you on that one
Yeeeeeeeeeeeeeeeeeeeeeee Haaaaaaaaaaaaaaaaaa
The weekend - just a shame that I'm on call for the software release |
|
Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
the question will be better debated after at least 6 beers
according to my research both are the participle of verbs
nitrigenate.. nitrogenize... and both have the same meaning
to treat/have something react with nitrogen
nitrogenated was a quick and dirty result from wikipedia
nitrogenized is from the webster, but we all know the webster
nitrogenated seemed easier to understand ,
my real doubt was equine nitrogenated vs, nitrogenated equine |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
nitrogenated equine |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Enrico, Great idea. Bring on the beers |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
expat, I hope you can leave a few for me ... another 10 hours and I'll be ready to indulge! |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Robert, I'll stick your beers back in the fridge until you get here
Oooooooops, too late, Enrico has swilled them |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
I'm not surprised ... my luck with beer over there is not good. Back in a previous job, I was flying from London to Atlanta. I had to get up at 5 AM to get from east Midlands to Gatwick in time for my 1 PM flight (which went from Hamburg to London to Atlanta). I finally get on board, the stewardess asks me if I'd like a drink and I tell her I'd love a beer. She said the Hamburg-London leg had drank up every beer on board -- even the Double Diamond! I was forced to settle for gin & tonic. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
There is absolutely nothing wrong with supping a nice G&T at 30,000 feet, nor indeed at zero feet.
In fact methinks that I shall indulge myself this afternoon when in transit from Brussels to London. Thank you Robert, I am looking forward to it already - hic |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
I'd tell you to think of me, toiling away over here, while drinking your G&T but then you'd laugh, snort gin out your nose, and it'd be all my fault somehow. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Ah, another definition of alcohol abuse. . .
Don't ya just hate it when alcohol gets abused. . . |
|
Back to top |
|
|
|