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
 

 

User Abend U3336 while running the Quikjob

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: User Abend U3336 while running the Quikjob
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 24, 2008 1:04 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Jul 24, 2008 1:21 pm    Post subject:
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: 8593
Location: Back in jolly old England

PostPosted: Thu Jul 24, 2008 1:31 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Jul 24, 2008 8:27 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Thu Jul 24, 2008 10:11 pm    Post subject: Reply to: User Abend U3336 while running the Quikjob
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    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts User Cancels the job PANDU1 DB2 1 Sat Mar 04, 2017 8:21 pm
No new posts Determine Region with max bandwidth f... seahawk789 COBOL Programming 3 Mon Feb 27, 2017 8:26 pm


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