Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Getting abend 106 while running REXX through IKJEFT01
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Thu Oct 14, 2010 1:09 pm    Post subject: Getting abend 106 while running REXX through IKJEFT01
Reply with quote

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
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Oct 14, 2010 4:19 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

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
View user's profile Send private message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Thu Oct 14, 2010 4:24 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Oct 14, 2010 4:33 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

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
View user's profile Send private message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Thu Oct 14, 2010 5:13 pm    Post subject:
Reply with quote

Thanks Enrico

I'll do that and will let you about it.
Back to top
View user's profile Send private message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Thu Oct 14, 2010 5:34 pm    Post subject:
Reply with 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 ?

Please help!!!!
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Oct 14, 2010 5:52 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Oct 14, 2010 8:26 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Oct 14, 2010 11:35 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

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
View user's profile Send private message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Fri Oct 15, 2010 10:07 am    Post subject:
Reply with 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.

Regards
SHARR39
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Oct 15, 2010 11:30 am    Post subject:
Reply with quote

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 icon_rolleyes.gif

Maybe post 13 will be lucky .......................
Back to top
View user's profile Send private message
Sharr39

New User


Joined: 12 Aug 2010
Posts: 9
Location: Mumbai

PostPosted: Fri Oct 15, 2010 12:16 pm    Post subject:
Reply with quote

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
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Oct 15, 2010 1:27 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Oct 15, 2010 1:53 pm    Post subject: Re: Reply to: Getting abend 106 while running REXX through I
Reply with quote

enrico-sorichetti wrote:
pure equine nitrogenated leavings

Excellent Enrico, excellent

36_11_6.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Oct 15, 2010 1:56 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

got into language purist mode today

... equine nitrogenated leavings
... nitrogenated equine leavings
which one is better from a pure english language point of view icon_question.gif icon_biggrin.gif

i might prefer the second construct!
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Oct 15, 2010 2:00 pm    Post subject:
Reply with quote

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 icon_cry.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Oct 15, 2010 2:15 pm    Post subject: Reply to: Getting abend 106 while running REXX through IKJEF
Reply with quote

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 icon_biggrin.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Oct 15, 2010 2:49 pm    Post subject:
Reply with quote

nitrogenated equine
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Oct 15, 2010 4:11 pm    Post subject:
Reply with quote

Enrico, Great idea. Bring on the beers icon_lol.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7904
Location: Bellevue, IA

PostPosted: Fri Oct 15, 2010 4:28 pm    Post subject:
Reply with quote

expat, I hope you can leave a few for me ... another 10 hours and I'll be ready to indulge!
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us