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
 

 

Having problem in splicing

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
prasenjit_dey

New User


Joined: 30 Apr 2008
Posts: 20
Location: Noida

PostPosted: Fri Mar 13, 2009 2:34 pm    Post subject: Having problem in splicing
Reply with quote

Hi i am trying to splice together fileds from two datasets, but i am getting errors in the temp dataset:

*************************************************************
IDENTIFIER FROM CALLING PROGRAM IS 0001
IDENTIFIER FROM CALLING PROGRAM IS 0001
- CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 03:55 ON FRI MAR
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=T1,SORTOUT=REGNOU
,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
SORT FIELDS=(1,13,CH,A)
MODS E35=(ICE35DU,12288)
INVALID DATA SET ATTRIBUTES SPECIFIED T1 BLKSIZE
END OF DFSORT
*************************************************************

does anyone have any idea why this error is shown????
below is the jcl.
Code:

//S060     EXEC  PGM=ICETOOL                                       
//TOOLMSG  DD  SYSOUT=*                                             
//DFSMSG   DD  SYSOUT=*                                             
//T1      DD DSN=&&TEMP,                                           
//           DISP=(MOD,PASS),UNIT=SYSDA,                           
//           SPACE=(CYL,(1,1))                                     
//TOOLIN   DD  *                                                   
 SPLICE FROM(T1) WITHALL -                                         
 ON(1,13,CH) -                                                     
 WITH(14,26) -                                                     
 TO(REGNOUT)                                                       
/*                                                                 
//REGNIN1 DD DSN=xxxx.P1910.HEADER.OK.xxxx,DISP=SHR               
//REGNIN2 DD DSN=xxxx.P1910.HEADER.OK.xxxx,DISP=SHR               
//REGNOUT DD DSN=xxxx.TEST.OUT,                 
//                     DISP=(,CATLG,DELETE),UNIT=SYSDA,
//                     SPACE=(CYL,(5,5))       
//CTL1CNTL DD *           
  OUTREC FIELDS=(1:1,13)   
/*                         
//CTL2CNTL DD *           
  OUTREC FIELDS=(14:1,13) 
/*
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4649
Location: Raleigh, NC, USA

PostPosted: Fri Mar 13, 2009 3:49 pm    Post subject: Reply to: Having problem in splicing...........
Reply with quote

prasenjit_dey, where is the part of your job where you copy the two input datasets, REGNIN1 and REGNIN2, to the temp dataset T1?
Back to top
View user's profile Send private message
prasenjit_dey

New User


Joined: 30 Apr 2008
Posts: 20
Location: Noida

PostPosted: Fri Mar 13, 2009 4:34 pm    Post subject:
Reply with quote

Hi superk,


Sorry i missed the line
//TOOLIN DD *
COPY FROM(REGNIN1) TO(T1) USING(CTL1)
COPY FROM(REGNIN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) WITHALL -
ON(1,5,CH) -
WITH(10,13) -
TO(REGNOUT)
/*

I am facing a strange problem now, although the job is running successfully in the O/P dataset i am not seeing any values.
Back to top
View user's profile Send private message
prasenjit_dey

New User


Joined: 30 Apr 2008
Posts: 20
Location: Noida

PostPosted: Fri Mar 13, 2009 7:53 pm    Post subject: Does anyone has any idea on the reason
Reply with quote

DE-K24705 D5-K24705 D3-K24705 D7-K24705 E8-K24705


Job ends with RC=0, but there are no values written to my dataset.
Checked in DFSMSG it has got the above value.


My JCL currently looks like:

Code:
//S060     EXEC  PGM=ICETOOL                                       
//TOOLMSG  DD  SYSOUT=*                                             
//DFSMSG   DD  SYSOUT=*                                             
//T1      DD DSN=&&TEMP,                                           
//           DISP=(MOD,PASS),UNIT=SYSDA,                           
//           SPACE=(CYL,(1,1))                                     
//TOOLIN   DD  *                                                   
 SPLICE FROM(T1) WITHALL -                                         
 ON(10,8,CH) -                                                     
 WITH(1,9) -                                                     
 TO(REGNOUT)                                                       
/*                                                                 
//REGNIN1 DD DSN=xxxx.P1910.HEADER.OK.xxxx,DISP=SHR               
//REGNIN2 DD DSN=xxxx.P1910.HEADER.OK.xxxx,DISP=SHR               
//REGNOUT DD DSN=xxxx.TEST.OUT,                 
//                     DISP=(,CATLG,DELETE),UNIT=SYSDA,
//                     SPACE=(CYL,(5,5))       
//CTL1CNTL DD *           
  OUTREC FIELDS=(1:1,9,   
 19:10,2)
   
/*                         
//CTL2CNTL DD *           
  OUTREC FIELDS=(10:1,9,
 19:10,2)
 
/*
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 Mar 13, 2009 8:02 pm    Post subject:
Reply with quote

Hello,

You need to post the informational messages (including the message ids) from the run.
Back to top
View user's profile Send private message
prasenjit_dey

New User


Joined: 30 Apr 2008
Posts: 20
Location: Noida

PostPosted: Fri Mar 13, 2009 8:26 pm    Post subject:
Reply with quote

The DFSMSG is as follows:
Please guide me as to why the data is not being written in the o/p dataset

**************************************************************************************************************************
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET COPY 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 - 08:41 ON FRI MAR
OUTREC FIELDS=(1:1,9,
19:10,2)
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=REGNI
1,SORTOUT=T1,DYNALLOC
SORT FIELDS=COPY
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE E5-K31980
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 TCONCT .S010 . , INPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6229742,6229742)
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,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,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 ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE084I 0 EXCP ACCESS METHOD USED FOR REGNIN1
ICE751I 1 EF-K10929 F0-K30362 E8-K24705
ICE090I 0 OUTPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
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 AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 08:41 ON FRI MAR
OUTREC FIELDS=(10:1,9,
19:10,2)
ICE146I 0 END OF STATEMENTS FROM CTL2CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL2,SORTIN=REGNI
2,SORTOUT=T1,DYNALLOC
SORT FIELDS=COPY
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 C9-BASE E5-K31980
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 0 TCONCT .S010 . , INPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6229742,6229742)
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,ERE
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,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 ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE084I 0 EXCP ACCESS METHOD USED FOR REGNIN2
ICE751I 1 EF-K10929 F0-K30362 E8-K24705
ICE090I 0 OUTPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE052I 0 END OF DFSORT
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003
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 - 08:41 ON FRI MAR
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=T1,SORTOUT=REGNOU
,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
SORT FIELDS=(10,8,CH,A)
MODS E35=(ICE35DU,12288)
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E4-K90007 C9-BASE E5-K31980
ICE193I 0 ICEAM2 ENVIRONMENT IN EFFECT - ICEAM2 INSTALLATION MODULE SELECTED
ICE088I 1 TCONCT .S010 . , INPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (5259264,5242880)
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=FULL ,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 ,EXITC
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMI
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR REGNOUT
ICE084I 0 EXCP ACCESS METHOD USED FOR T1
ICE750I 0 DC 20 TC 0 CS DSVVV KSZ 12 VSZ 12
ICE752I 0 FSZ=1 RC IGN=0 E AVG=24 0 WSP=1 C DYN=0 0
ICE751I 1 DE-K24705 D5-K24705 D3-K24705 D7-K24705 E8-K24705
ICE090I 0 OUTPUT LRECL = 20, BLKSIZE = 20, TYPE = FB
ICE055I 0 INSERT 0, DELETE 1
ICE054I 0 RECORDS - IN: 1, OUT: 0
ICE173I 0 NO RECORDS FOR THE SORTOUT DATA SET - RC=0
ICE134I 0 NUMBER OF BYTES SORTED: 20
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT STORAGE USED = 0M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 120K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT

**************************************************************************************************************************
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Fri Mar 13, 2009 10:26 pm    Post subject:
Reply with quote

prasenjit_dey,

Your sysout shows you have 1 record in each REGNIN1 and REGNIN2 how ever when you are reading T1 it only shows that you have 1 record which makes me believe that you are NOT using DISP=MOD for the temp t1 dataset.

Also your splice statement does NOT make any sense as the first copy is populating spaces at pos 10 for 8 bytes and the second copy operator is copying the contents from pos 1 at pos 10. So there is no way that you will get a match unless the values are spaces.

Show us an example of the data in REGNIN1 and REGNIN2 and show us the sample output you want and we will help you code the job
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 Strings with double quotes having pro... raja Arumugam All Other Mainframe Topics 11 Thu Mar 30, 2017 10:34 am
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm
No new posts SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm


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