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

How to READ SMF TYPE 61 recrod


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
prasad029

New User


Joined: 15 May 2007
Posts: 16
Location: bangalore

PostPosted: Tue Nov 22, 2011 6:48 pm
Reply with quote

Hi All,

I am trying to find who has created a dataset throgh SMF TYPE 61.
below is the JCL I have used to dump which ran fine:

Code:
//SMFDP10  EXEC PGM=IFASMFDP,TIME=1440               
//DUMPIN DD DISP=SHR,DSN=SMF.DAILY.MVS.G1205V00     
//DUMPOUT  DD DSN=E12568.DAILY.CHECK,               
//            DISP=(NEW,CATLG,DELETE),UNIT=TAPE,     
//            LABEL=(1,,EXPDT=99000),VOL=(,,,10)     
//SYSPRINT DD SYSOUT=*                               
//SYSIN    DD *                                     
  INDD(DUMPIN,OPTIONS(DUMP))                         
  OUTDD(DUMPOUT,TYPE(61))                           
/*                           

However, when I try to read the Dump, using below JCL, Iam getting the U0016 error:
Code:
//EXTRACT  EXEC PGM=SORT                           
//SYSOUT   DD SYSOUT=*                             
//SORTLIB  DD  DSN=SYS1.SORTLIB,DISP=SHR           
//SORTIN   DD DSN=E12568.DAILY.CHECK,DISP=OLD       
//SORTOUT  DD DSN=E12568.OUTPUT.CHECK,             
//            DISP=(,CATLG,DELETE),                 
//            SPACE=(TRK,(30,30),RLSE),             
//            RECFM=FB,LRECL=330                   
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(35,5))       
//SYSIN    DD *                                     
 SORT      FIELDS=COPY                             
 INCLUDE   COND=(6,1,CH,EQ,X'3D',AND,               
                 121,44,SS,EQ,C'E12568..DB2.DATA') 
 OUTFIL OUTREC=(1,4,51,8,X,67,8,X,121,44)           


Error:
IEF450I JE12568P EXTRACT - ABEND=S000 U0016 REASON=00000000
Anyone please suggest where I am going wrong?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Tue Nov 22, 2011 7:12 pm
Reply with quote

Quote:
IEF450I JE12568P EXTRACT - ABEND=S000 U0016 REASON=00000000

U0016 is a user abend and as such depends on the program issuing it.
but usually for DFSORT/SYNCSORT there are other messages explaining what is going on

look at the manuals for Your sort product and if there is something You do not understand somebody will be glad to explain

remember ...
ICE messages are from DFSORT
WER messages are from SYNCSORT
Back to top
View user's profile Send private message
prasad029

New User


Joined: 15 May 2007
Posts: 16
Location: bangalore

PostPosted: Tue Nov 22, 2011 7:18 pm
Reply with quote

Hi,
I could see this in the SYSOUT:
Code:
SYSIN :                                                                 
 SORT      FIELDS=COPY                                                 
 INCLUDE   COND=(6,1,CH,EQ,X'3D',AND,                                   
                 121,44,SS,EQ,C'C'E12568.DB2.DATA')   
 OUTFIL OUTREC=(1,4,51,8,X,67,8,X,121,44)                               
WER276B  SYSDIAG= 80921, 180502, 180502, 1127400                       
WER164B  7,928K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,     
WER164B     4K BYTES RESERVE REQUESTED, 2,036K BYTES USED               
WER146B  12K BYTES OF EMERGENCY SPACE ALLOCATED                         
WER108I  SORTIN   : RECFM=VBS  ; LRECL= 32767; BLKSIZE= 32760           
WER202A  SORTOUT  RECFM INCOMPATIBLE                                   
WER110I  SORTOUT  : RECFM=FB   ; LRECL=    66; BLKSIZE=
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Tue Nov 22, 2011 7:33 pm
Reply with quote

well....
the DCB for sortout declares a LRECL=330
but the SYNCSORT control card creates a 66 bytes record

better look at the syncsort manuals for the exact meaning of
Code:
WER202A  SORTOUT  RECFM INCOMPATIBLE                                   
WER110I  SORTOUT  : RECFM=FB   ; LRECL=    66; BLKSIZE=
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India

PostPosted: Tue Nov 22, 2011 7:54 pm
Reply with quote

Hi,
I am 94% sure that the job will work if you change RECFM=VB of SORTOUT dataset
and take into account for first 4 bytes in your sort statements.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Thu Nov 24, 2011 7:01 pm
Reply with quote

vasanthz wrote:
I am 94% sure that the job will work if you change RECFM=VB of SORTOUT dataset
and take into account for first 4 bytes in your sort statements.
Why such a precise %age number? icon_lol.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Nov 25, 2011 12:08 am
Reply with quote

Just that confident. . . icon_smile.gif
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1744
Location: Tirupur, India

PostPosted: Fri Nov 25, 2011 11:12 am
Reply with quote

Quote:
Why such a precise %age number?


It just occured :-)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10888
Location: italy

PostPosted: Fri Nov 25, 2011 11:20 am
Reply with quote

I thought that 94 was some magic number related to the CEO chair
most probably the number of legs of the chair, so that if somebody pulls a leg
the chair has a reserve of footholds ( chairlegholds in this case icon_wink.gif )
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Fri Nov 25, 2011 2:28 pm
Reply with quote

An unfortunate predictive score?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6248
Location: Mumbai, India

PostPosted: Mon Nov 28, 2011 9:22 pm
Reply with quote

Bill Woodger wrote:
An unfortunate predictive score?
Oh..no! Just ..just dont' mention about it! icon_cry.gif
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Tue Nov 29, 2011 5:15 am
Reply with quote

To unveil the crypticity, er the crypticness, er, to make this less cryptic, we are talking about Cricket (again). Sorry about that. Fingers crossed for what will be a stunning sporting achievement.
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Sort based on the record type DFSORT/ICETOOL 1
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Random read in ESDS file by using RBA JCL & VSAM 6
No new posts SMF record type 30 JCL & VSAM 8
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
Search our Forums:

Back to Top