Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
ICETOOL for SMF record 110

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: ICETOOL for SMF record 110
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 http://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 http://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: 8593
Location: Back in jolly old England

PostPosted: Thu Apr 15, 2010 11:32 am    Post subject:
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 Moderator


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

PostPosted: Thu Apr 15, 2010 8:37 pm    Post subject:
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 Moderator


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

PostPosted: Thu Apr 15, 2010 8:39 pm    Post subject:
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    Post subject: Reply to: ICETOOL for SMF record 110
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 Moderator


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

PostPosted: Fri Apr 16, 2010 10:00 pm    Post subject:
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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Difference in SORT & ICETOOL Mohan Kothakota DFSORT/ICETOOL 5 Fri Sep 22, 2017 4:56 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Multiple VSAM files single output fil... Mohan Kothakota DFSORT/ICETOOL 11 Wed Aug 09, 2017 7:57 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us