IBM Mainframe Forum

by **zohaib** » Sun May 12, 2013 7:54 pm

Hi,
I am not getting the expected risult with SPLICE Tool:

File IN1 (LRECL=200,RECFM=FB) - Match Key (33,5)
File IN2 (LRECL=040,RECFM=FB) - Match Key (6,5)
File OUT(LRECL=207,RECFM=FB)

If key matches (IN1 and IN2)then i want the byte in position 11:1 of IN2 in output (OUT) at position 206 and a fix character 'S' at position 207

Input:

IN1 -> EE11087.FIDI.UNLOAD.FLRS10 :

Select all

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0
G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2011031834686 C1000000009824310000000000000000500020080311102012013014244530349 P624934 0000000000000000
G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2012020634686 C1000000009824310000000000000000500020110208102012013014244530349 P624934 0000000000000000

IN2 -> EE11087.FIDI.UNLOAD.FLRSTFK :

Select all

----+----1----+----2----+----3----+----4
00094TS217S6007SSN00000SN

Output (OUT) :
i am getting spaces at position (206:2) on the first record, intead of expected 'SS'

Select all

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+--
TS217G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2011031834686 C1000000009824310000000000000000500020080311102012013014244530349 P624934 0000000000000000
TS217G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2011031834686 C1000000009824310000000000000000500020080311102012013014244530349 P624934 0000000000000000 SS

Expected Output (OUT) :

Select all

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+--
TS217G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2011031834686 C1000000009824310000000000000000500020080311102012013014244530349 P624934 0000000000000000 SS
TS217G1FS000940000000112130498001 TS217 0000000000000000005000000000000000S2011031834686 C1000000009824310000000000000000500020080311102012013014244530349 P624934 0000000000000000 SS

ICETOOL :

Select all

//*--------------------------------------------------------------------*
//* ICETOOL SPLICE
//*--------------------------------------------------------------------*
//STEP60 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=EE11087.FIDI.UNLOAD.FLRS10,DISP=SHR
//IN2 DD DSN=EE11087.FIDI.UNLOAD.FLRSTFK,DISP=SHR
//TMP1 DD DSN=&&TEMP1,DISP=(MOD,PASS),
// SPACE=(CYL,(150,150),RLSE),UNIT=SYSDA
//OUT DD DSN=EE11087.FIDI.OUT.SPLICE,
// DISP=(,CATLG),
// SPACE=(CYL,(150,150),RLSE),
// DCB=(LRECL=207,RECFM=FB)
//DFSPARM DD *
OPTION SOLRF
/*
//TOOLIN DD *
COPY FROM(IN1) TO(TMP1) USING(CPY1)
COPY FROM(IN2) TO(TMP1) USING(CPY2)
SPLICE FROM(TMP1) TO(OUT) ON(1,05,CH) WITH(206,02) WITHALL
/*
//CPY1CNTL DD *
OUTREC FIELDS=(1:33,5,6:1,200,206:C' ')
/*
//CPY2CNTL DD *
OUTREC FIELDS=(6,5,200X,206:11,1,207:C'S')
/*
//

Thanks.

by **zohaib** » Sun May 12, 2013 8:22 pm

Details:

TOOLMSG:

Select all

JOBNAME: EE11087B JOBID: JOB07112 STEPNAME: STEP60 PROCSTEP:
DDNAME: TOOLMSG PAGES: 1 LINES: 25 -
------------------------------------------------------------------------------
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED

ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES AND MORE

ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN

ICE630I 0 MODE IN EFFECT: STOP

COPY FROM(IN1) TO(TMP1) USING(CPY1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN1 TO TMP1 USING CPY1CNTL CPY1CNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE: 00

COPY FROM(IN2) TO(TMP1) USING(CPY2)
ICE606I 0 DFSORT CALL 0002 FOR COPY FROM IN2 TO TMP1 USING CPY2CNTL CPY2CNTL COMPLETED
ICE602I 0 OPERATION RETURN CODE: 00

SPLICE FROM(TMP1) TO(OUT) ON(1,05,CH) WITH(206,02) WITHALL
ICE627I 0 DFSORT CALL 0003 FOR SORT FROM TMP1 TO OUT COMPLETED
ICE628I 0 RECORD COUNT: 000000000000003
ICE638I 0 NUMBER OF RECORDS RESULTING FROM CRITERIA: 000000000000002
ICE602I 0 OPERATION RETURN CODE: 00

ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 00
BOTTOM OF LIST ----------------------------------------------------------------

DFSMSG :

Select all

Beta 92 Browse Page 1 Line 1 Cols 1 79
Command ===> Scroll ===> CSR
JOBNAME: EE11087B JOBID: JOB07112 STEPNAME: STEP60 PROCSTEP:
DDNAME: DFSMSG PAGES: 3 LINES: 121 -
------------------------------------------------------------------------------
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K76585
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 16:04 ON SUN MAY 12, 2013 -

OPTION SOLRF
ICE140I 0 END OF PARAMETERS FROM DFSPARM - SYSIN OR CPY1CNTL/PARAMETER LIST CONTROL STATEMENTS FOLLOW
OUTREC FIELDS=(1:33,5,6:1,200,206:C' ')
ICE146I 0 END OF STATEMENTS FROM CPY1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CPY1,SORTIN=IN1,SO*
RTOUT=TMP1,DYNALLOC
SORT FIELDS=COPY
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K76585 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 EE11087B.STEP60 . , INPUT LRECL = 200, BLKSIZE = 27800, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6191088,6191088)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=N,DYNSPC=8000
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=N,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=Y
ICE133I 0 OPTIONS: HIPRMAX=90 ,DSPSIZE=128 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR TMP1
ICE084I 0 EXCP ACCESS METHOD USED FOR IN1
ICE751I 1 EF-BASE F0-K66717 E8-K79103
ICE090I 0 OUTPUT LRECL = 207, BLKSIZE = 27945, TYPE = FB (SDB)
ICE171I 0 SORTOUT LRECL OF 207 IS DIFFERENT FROM SORTIN(NN) LRECL OF 200 - RC=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 2, OUT: 2
ICE052I 0 END OF DFSORT
BOTTOM OF PAGE 000000001 ------------------------------------------------------
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0002
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K76585 E7-K70685
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 16:04 ON SUN MAY 12, 2013 -

OPTION SOLRF
ICE140I 0 END OF PARAMETERS FROM DFSPARM - SYSIN OR CPY2CNTL/PARAMETER LIST CONTROL STATEMENTS FOLLOW
OUTREC FIELDS=(6,5,200X,206:11,1,207:C'S')
ICE146I 0 END OF STATEMENTS FROM CPY2CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CPY2,SORTIN=IN2,SO*
RTOUT=TMP1,DYNALLOC
SORT FIELDS=COPY
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E9-K60824 C9-BASE E5-K76585 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 0 EE11087B.STEP60 . , INPUT LRECL = 40, BLKSIZE = 27960, TYPE = FB
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6191088,6191088)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=N,DYNSPC=8000
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=016
ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=16384,CINV=Y,CFW=N,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=Y
ICE133I 0 OPTIONS: HIPRMAX=90 ,DSPSIZE=128 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR TMP1
ICE084I 0 EXCP ACCESS METHOD USED FOR IN2
ICE751I 1 EF-BASE F0-K66717 E8-K79103
ICE090I 0 OUTPUT LRECL = 207, BLKSIZE = 27945, TYPE = FB
ICE171I 0 SORTOUT LRECL OF 207 IS DIFFERENT FROM SORTIN(NN) LRECL OF 40 - RC=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 1, OUT: 1
ICE052I 0 END OF DFSORT
BOTTOM OF PAGE 000000002 ------------------------------------------------------BOTTOM OF PAGE 000000002 ------------------------------------------------------
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0003
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K765855 E6-K58148 E7-K70685
ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AAND MORE
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 16:04 ON SUN MMAY 12, 2013 -
OPTION SOLRF
ICE140I 0 END OF PARAMETERS FROM DFSPARM - SYSIN OR SORTCNTL/PARAMETER LIST COONTROL STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=TMP1,SORTOUT=OUT
YNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCHECK
SORT FIELDS=(1,5,CH,A)
MODS E35=(ICE35DU,12288)
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E4-K58148 C9-BASE E5-K76585 E7-K70685
ICE193I 0 ICEAM2 INVOCATION ENVIRONMENT IN EFFECT - ICEAM2 ENVIRONMENT SELECTED
ICE252I 1 PARMLIB OPTIONS WERE MERGED WITH INSTALLATION MODULE DEFAULTS
ICE088I 1 EE11087B.STEP60 . , INPUT LRECL = 207, BLKSIZE = 27945, TYPE
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (4210688,4194304)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=YSAMEMT=N,DYNSPC=8000
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,ERSGDDN=DFSMSG
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=(SYSDA ,024),ABCODE=016
ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=N,WRKREL=Y,OUTREL=Y,CKPT=COB2
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 ,EXITDN=DFSPARM ,FSZEST=Y
ICE133I 0 OPTIONS: HIPRMAX=90 ,DSPSIZE=128 ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAME=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE236I 0 OPTIONS: DYNAPCT=10 ,MOWRK=Y
ICE084I 0 EXCP ACCESS METHOD USED FOR OUT
ICE084I 0 EXCP ACCESS METHOD USED FOR TMP1
ICE750I 0 DC 55890 TC 0 CS DSVVV KSZ 9 VSZ 9
ICE752I 0 FSZ=270 RC IGN=0 E AVG=212 0 WSP=74 C DYN=0 0
ICE751I 1 DE-K61787 D5-K58148 D3-K83080 D7-K58148 E8-K79103
ICE090I 0 OUTPUT LRECL = 207, BLKSIZE = 27945, TYPE = FB
ICE055I 0 INSERT 0, DELETE 1
ICE054I 0 RECORDS - IN: 3, OUT: 2
ICE134I 0 NUMBER OF BYTES SORTED: 621
ICE253I 0 RECORDS SORTED - PROCESSED: 3, EXPECTED: 270
ICE165I 0 TOTAL WORK DATA SET TRACKS ALLOCATED: 0 , TRACKS USED: 0
ICE199I 0 MEMORY OBJECT USED AS MAIN STORAGE = 0M BYTES
ICE299I 0 MEMORY OBJECT USED AS WORK STORAGE = 1M BYTES
ICE180I 0 HIPERSPACE STORAGE USED = 0K BYTES
ICE188I 0 DATA SPACE STORAGE USED = 0K BYTES
ICE052I 0 END OF DFSORT

by **BillyBoyo** » Mon May 13, 2013 2:43 pm

Have you looked at JOINKEYS? For this task it will be much easier than SPLICE.

by **zohaib** » Mon May 13, 2013 4:07 pm

Thanks for your reply. Using JOINKEYS i obtain the expected result, my question is why SPLICE is not working ??

Thanks.

by **BillyBoyo** » Mon May 13, 2013 4:22 pm

Again?

You'll have to be patient then.

Make up two 20 byte files which represent your data. It's no fun hacking through the data you have provided.

Show expected output.

by **zohaib** » Mon May 13, 2013 5:14 pm

sorry no time for what you are asking.
Already shown the expected result.

by **NicC** » Mon May 13, 2013 5:51 pm

Well, if you have no time to help us to help you more speedily then why should we help you? People responding with help have their own daytime jobs to do and help out on the forums on their own time and for no charge. Topic locked.

IBM Mainframe Forum

ICETOOL SPLICE

ICETOOL SPLICE

Re: ICETOOL SPLICE

Re: ICETOOL SPLICE

Re: ICETOOL SPLICE

Re: ICETOOL SPLICE

Re: ICETOOL SPLICE

Re: ICETOOL SPLICE