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

ICETOOL for SMF record 110


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
vidhyag

New User


Joined: 11 Mar 2009
Posts: 23
Location: india

PostPosted: Thu Apr 15, 2010 10:07 am
Reply with quote

Hi,

I am using ICETOOL to collect CICS report. I have offloaded SMF 110 type 1 record from SMF dataset using IFASMFDP. when using ICETOOL , it is ended with RC 16.

Below is the DFSMSG log

ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 19:23 ON TUE APR
SORT FIELDS=(5,8,CH,A)
ICE146I 0 END OF STATEMENTS FROM COPYCNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=COPY,SORTIN=SMFDA
A,SORTOUT=TEMPFILE,DYNALLOC
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE175I A ATTEMPT TO REALLOCATE VIO WORK DATA SETS TO REAL RESULTED IN VIO
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E4-K90007 C9-BASE E5-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 6 A238READ.STEP1 . , INPUT LRECL = 32760, BLKSIZE = 27998, TYPE
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6214096,6214096)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=Y,LIST=Y,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR TEMPFILE
ICE084I 0 EXCP ACCESS METHOD USED FOR SMFDATA
ICE750I 0 DC 34040704 TC 0 CS DSV KSZ 12 VSZ 12
ICE752I 0 FSZ=34040704 BC IGN=0 E AVG=16380 0 WSP=44209 C DYN=0 0
ICE751I 1 B1-K19866 B2-K17569 EC-K10929 B4-K17569 E8-K24705
ICE090I 0 OUTPUT LRECL = 32760, BLKSIZE = 27998, TYPE = VBS
ICE080I 0 IN MAIN STORAGE SORT
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1758, OUT: 1758
ICE134I 0 NUMBER OF BYTES SORTED: 34035609
ICE098I 0 AVERAGE RECORD LENGTH = 19360 BYTES
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 34M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES A
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 19:23 ON TUE AP
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=TEMPFILE,COPY,NO
ECK
INREC FIELDS=(1,4,1,4,5,8,13,8)
MODS E35=(ICE35DU,12288)
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE E5-K24705
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 A238READ.STEP1 . , INPUT LRECL = 32760, BLKSIZE = 27998, TYP
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6191711,6175327)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=1048576,MINLIM=450560,EQUALS=N,LIST=Y,ER
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXIT
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAM
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR TEMPFILE
ICE218A 6 18 BYTE VARIABLE RECORD IS SHORTER THAN 20 BYTE MINIMUM FOR
ICE751I 1 EF-K10929 F0-Q84357 E8-K24705
ICE052I 0 END OF DFSORT


Please suggest on this
Back to top
View user's profile Send private message
expat

Global Moderator


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

PostPosted: Thu Apr 15, 2010 11:32 am
Reply with quote

ICE218A 6 18 BYTE VARIABLE RECORD IS SHORTER THAN 20 BYTE MINIMUM FOR

You might need to use VLSCMP or VLSHRT - Can't recall which one does what, but it is all in the manuals.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Apr 15, 2010 8:37 pm
Reply with quote

expat,

VLSCMP is for short compare records so it won't help.

VLSHRT is for short sort records but won't help here since the failure was for a copy operation (and VLSHRT can't be used with INREC anyway).

Please don't just throw out suggestions randomly. It doesn't help anyone.
Neither does saying "it is all in the manuals" considering that the manual is over 800 pages long.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Thu Apr 15, 2010 8:39 pm
Reply with quote

vidhyag,

Please show me the complete job you are using so I can see the ICETOOL and DFSORT statements.
Back to top
View user's profile Send private message
vidhyag

New User


Joined: 11 Mar 2009
Posts: 23
Location: india

PostPosted: Fri Apr 16, 2010 10:22 am
Reply with quote

Thanks expat,Frank.

Frank,

This is the job i am using.
Code:
***************************** Top of Data ******************************
//A238READ  JOB REGION=0M,NOTIFY=&SYSUID                               
//*-------------------------------------------------------------------*
//* SHOW CICS RECORDS                                     *             
//*-------------------------------------------------------------------*
//STEP1    EXEC  PGM=ICETOOL                                           
//TOOLMSG  DD  SYSOUT=*                                                 
//DFSMSG   DD  SYSOUT=*                                                 
//SMFDATA  DD  DISP=SHR,DSN=A238161.CICS.SMF.REC2                       
//TEMPFILE DD  DSN=A238161.CICS.SMF.DUPREC,DISP=SHR                     
//REPORT   DD  SYSOUT=*                                                 
//TOOLIN   DD  *                                                       
 SORT FROM(SMFDATA) TO(TEMPFILE) USING(COPY)                           
 DISPLAY FROM(TEMPFILE) LIST(REPORT)                              -     
 PAGE                                                             -     
 TITLE('CICS REPORT') -                                                 
 ON(1,4,CH) HEADER('RELEASE') -                                         
 HEADER('APPLID')                                                    - 
 ON(5,8,CH)                                                      -     
 HEADER('NAME')                                                   -     
 ON(13,8,CH)                                                           
 //COPYCNTL DD  *                     
  SORT FIELDS=(5,8,CH,A)               
 /*


expat,
sorry i missed to copy entire line.

ICE218A 6 18 BYTE VARIABLE RECORD IS SHORTER THAN 20 BYTE MINIMUM FOR FIELDS
ICE751I 1 EF-K10929 F0-Q84357 E8-K24705
ICE052I 0 END OF DFSORT
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Apr 16, 2010 10:00 pm
Reply with quote

Your input file appears to have RECFM=VBS,LRECL=32760, so using:

ON(1,4,CH) HEADER('RELEASE') -

doesn't make any sense given that the RDW is in positions 1-4. I think you really want to start with position 5 for the data. The best way to do what you want is to convert the VBS records to FB records after you SORT them so the short fields will be padded with blanks. Here's a job that will do that. I assumed you didn't include the RDW in calculating the starting positions, so I added 4 where necessary. If you want to use an existing file for TEMPFILE, it must have RECFM=FB and LRECL=40.

Code:

//STEP1    EXEC  PGM=ICETOOL
//TOOLMSG  DD  SYSOUT=*
//DFSMSG   DD  SYSOUT=*
//SMFDATA  DD  DISP=SHR,DSN=A238161.CICS.SMF.REC2
//TEMPFILE DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//REPORT   DD  SYSOUT=*
//TOOLIN   DD  *
 SORT FROM(SMFDATA) USING(COPY)
 DISPLAY FROM(TEMPFILE) LIST(REPORT)                              -
 PAGE                                                             -
 TITLE('CICS REPORT') -
 ON(1,4,CH) HEADER('RELEASE') -
 HEADER('APPLID')                                                    -
 ON(5,8,CH)                                                      -
 HEADER('NAME')                                                   -
 ON(13,8,CH)
//COPYCNTL DD  *
  SORT FIELDS=(9,8,CH,A)
  OUTFIL FNAMES=TEMPFILE,VTOF,BUILD=(5,40)
/*
Back to top
View user's profile Send private message
Christopher Muller

New User


Joined: 12 Jan 2021
Posts: 1
Location: United States

PostPosted: Tue Jan 12, 2021 8:14 am
Reply with quote

Not sure if this will be useful, but we recently wrote some PC-based software for this situation:

Client tersed and sent by FTP a large SMF file. We de-tersed and then extracted certain record types, converting them to tab-delimited ASCII, and the client took it from there.

(We'd need to do more work if you'd need more record types.)

Happy New Year
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3051
Location: NYC,USA

PostPosted: Tue Jan 12, 2021 8:54 am
Reply with quote

Please don’t tailgate the old topics. Thanks
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts To find whether record count are true... DFSORT/ICETOOL 6
No new posts Validating record count of a file is ... DFSORT/ICETOOL 13
Search our Forums:

Back to Top