View previous topic :: View next topic
|
Author |
Message |
deshmukhec
New User
Joined: 23 Jul 2008 Posts: 7 Location: india
|
|
|
|
Hi, I'm getting User Abend U3336 while running the Quikjob.
I have an little bit idea it is something related to Memory Dump.
Can anybody explain me this User Abend in detail?
Rajesh.... |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
User abends are usually program specific.
What does it say in the product documentation regarding this abend ? |
|
Back to top |
|
|
deshmukhec
New User
Joined: 23 Jul 2008 Posts: 7 Location: india
|
|
|
|
This is a program specific error and it is something related to space.
but I want to know why exactly we are getting this abend and how to reslove it? |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
this is a program specific error and it is something related to space |
The system has told you the cause of the error.
I suspect you will need to provide the needed space. Is the resolution not suggested in the documentation? |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Don't forget that YOU know what pogram from which product is giving the abend, but as you have not posted that information we have to rely on psycic powers to try and help you.
I suggest that you sit down with the product documentation and as Dick has suggested, follow the resolution path given in the documentation. |
|
Back to top |
|
|
deshmukhec
New User
Joined: 23 Jul 2008 Posts: 7 Location: india
|
|
|
|
problem is not that simple as you thought, actually when i am trying to submit the same JOB (using QUIKJOB) with zero changes, sometimes it completed successully but sometimes it failed with User Abend U3336.
PLEASE FIND BELOW THE JCL:
//TEST123 JOB ('xxxP77',12),'RAJ',
// MSGCLASS=T,CLASS=4,REGION=0M
//CAT EXEC PGM=IEFBR14
//DD1 DD DSN=T91IPXX.DGN.SUPP.CHKTAB.M0508,
// DISP=(,CATLG,DELETE),
// UNIT=FPRARZ,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=21,BLKSIZE=27993)
//*
//QCHKTAB EXEC PGM=QUIKJOB,PARM='9006X'
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUT1 DD DSN=T91IPXX.DGN.SUPP.CHKTAB.M0508,DISP=SHR
//SYSUT2 DD DSN=&&CHKTMP,
// DISP=(,PASS,),
// UNIT=SYSWRK,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=21,BLKSIZE=27993)
//SYSIN DD *
OPTION NOSEQ
010 GET INF ATEND 020. /* EMPTY GOTO 020
MOVE INF1-21 TO OFA1-21
WRITE OFA.
MOVE C'0' TO WST50
015 GET INF ATEND 030. /* CHKTAB FILE PRESENT
MOVE VAL78-81 TO WST1-4
IF WST1-4 NE INF2-5 /* NOT THE CURRENT SUPPLIER
MOVE INF1-21 TO OFA1-21
WRITE OFA
ENDIF.
IF WST1-4 EQ INF2-5 /* CURRENT SUPPLIER
MOVE INF1-21 TO OFA1-21
MOVE C'1' TO WST50
PERFORM 055 THRU 059
ENDIF.
GOTO 015.
020 MOVE C'0SUPPLIER GKV PKV BAR' TO OFA1-21 /* CREATE HDR
WRITE OFA.
MOVE SPACES TO OFA1-21
MOVE C'1' TO OFA1
MOVE VAL78-81 TO OFA2-5 /* WRITES THE SUPPLIER
PERFORM 055 THRU 059.
GOTO EOJ.
030 IF WST50 EQ C'0' /* IF CURRENT SUPP IS NEW
MOVE SPACES TO OFA1-21
MOVE C'1' TO OFA1
MOVE WST1-4 TO OFA2-5
PERFORM 055 THRU 059
ENDIF.
GOTO EOJ.
055 IF VAL82 EQ C'X'
MOVE C'Y' TO OFA11
WRITE OFA
ENDIF
IF VAL82 EQ C'Y'
MOVE C'Y' TO OFA15
WRITE OFA
ENDIF
IF VAL82 EQ C'Z'
MOVE C'Y' TO OFA19
WRITE OFA
ENDIF
MOVE C'1' TO WST50
059 EXIT
099 END
/*
//*
//COPY EXEC PGM=SYNCGENR
//SYSIN DD DUMMY
//SYSUT1 DD DSN=&&CHKTMP,DISP=(OLD,DELETE)
//SYSUT2 DD DSN=T91IPXX.DGN.SUPP.CHKTAB.M0508,
// DISP=(,CATLG,DELETE),
// UNIT=FPRARZ,
// SPACE=(CYL,(10,10),RLSE),
// DCB=(RECFM=FB,LRECL=21,BLKSIZE=27993)
//SYSPRINT DD SYSOUT=*
//*
this is what i got in error message
*** ABEND USER COMPLETION CODE=3336 NAME=QUIKJOB ***
and
952A,D,SYSUT1 ,GET ,WRNG.LEN.RECORD,0000013C000000,QSAM |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
problem is not that simple as you thought |
We didn't think it was necessarily simple - we just were given nothing to work with, so we replied as we did.
Quote: |
sometimes it completed successully but sometimes it failed with User Abend U3336. |
Looking at your jcl, it becomes more simple. Your jcl is probably causing the problem. Look at your dataset usage and correct the problems. Why would you create an empty dataset to use as input to the quickjob step? |
|
Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1512 Location: Virginia, USA
|
|
|
|
Looking at the error message and the jcl it appears that QUIKJOB doesn't like the empty input file on sysut1. You create an empty file in the first step and try to read it in the second step. Then you try to put data in in the third step. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Craig,
Quote: |
it appears that QUIKJOB doesn't like the empty input file on sysut1 |
I suspect that particular dasd is not sms-managed and sometimes the "emtpy" file has proper dcb info and other times it does not - causing the sporadic failure.
d |
|
Back to top |
|
|
|