IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

User Abend U3336 while running the Quikjob


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
deshmukhec

New User


Joined: 23 Jul 2008
Posts: 7
Location: india

PostPosted: Thu Jul 24, 2008 12:20 pm
Reply with quote

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

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jul 24, 2008 1:04 pm
Reply with quote

User abends are usually program specific.

What does it say in the product documentation regarding this abend ?
Back to top
View user's profile Send private message
deshmukhec

New User


Joined: 23 Jul 2008
Posts: 7
Location: india

PostPosted: Thu Jul 24, 2008 1:16 pm
Reply with quote

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

Moderator Emeritus


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

PostPosted: Thu Jul 24, 2008 1:21 pm
Reply with quote

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.

Quote:
how to reslove it
I suspect you will need to provide the needed space. Is the resolution not suggested in the documentation?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu Jul 24, 2008 1:31 pm
Reply with quote

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

New User


Joined: 23 Jul 2008
Posts: 7
Location: india

PostPosted: Thu Jul 24, 2008 1:55 pm
Reply with quote

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

Moderator Emeritus


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

PostPosted: Thu Jul 24, 2008 8:27 pm
Reply with quote

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

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Thu Jul 24, 2008 9:46 pm
Reply with quote

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

Moderator Emeritus


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

PostPosted: Thu Jul 24, 2008 10:11 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts ISAM and abend S03B JCL & VSAM 9
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
No new posts How to delete a user's alias from the... JCL & VSAM 11
No new posts user exit in IBM Infosphere Optim DB2 8
Search our Forums:

Back to Top