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
 

 

How to READ SMF TYPE 61 recrod

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: How to READ SMF TYPE 61 recrod
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Nov 22, 2011 7:12 pm    Post subject: Reply to: How to READ SMF TYPE 61 recrod
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Tue Nov 22, 2011 7:33 pm    Post subject: Reply to: How to READ SMF TYPE 61 recrod
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: 1445
Location: Azeroth

PostPosted: Tue Nov 22, 2011 7:54 pm    Post subject:
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

Senior Member


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

PostPosted: Thu Nov 24, 2011 7:01 pm    Post subject:
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

Site Director


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

PostPosted: Fri Nov 25, 2011 12:08 am    Post subject: Reply to: How to READ SMF TYPE 61 recrod
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: 1445
Location: Azeroth

PostPosted: Fri Nov 25, 2011 11:12 am    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Fri Nov 25, 2011 11:20 am    Post subject: Reply to: How to READ SMF TYPE 61 recrod
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7241

PostPosted: Fri Nov 25, 2011 2:28 pm    Post subject: Reply to: How to READ SMF TYPE 61 recrod
Reply with quote

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

Senior Member


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

PostPosted: Mon Nov 28, 2011 9:22 pm    Post subject: Re: Reply to: How to READ SMF TYPE 61 recrod
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7241

PostPosted: Tue Nov 29, 2011 5:15 am    Post subject: Reply to: How to READ SMF TYPE 61 recrod
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS VSAM RLS READ akodakka CICS 3 Tue Oct 04, 2016 3:09 pm
No new posts Multi row fetch - "for read only... Nileshkul DB2 3 Sun Aug 14, 2016 12:52 am
No new posts Query using SUBSTRING on a column of ... sasanka DB2 5 Mon Jul 04, 2016 1:01 pm
No new posts To read from Zeke scheduler p.anbuselvan CLIST & REXX 5 Thu Mar 31, 2016 1:13 am
No new posts How to read a excel sheet and load it... Radhika Nambiar Java & MQSeries 10 Wed Mar 30, 2016 4:49 pm


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