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 Quick References
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: 10873
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: 10873
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: 1742
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: 6250
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: 19244
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: 1742
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: 10873
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: 6250
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 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
No new posts ICETOOL to Read records SMF CEF it is... DFSORT/ICETOOL 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us