ICETOOL SPLICE



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

ICETOOL SPLICE

Postby 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 :
----+----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 :
----+----1----+----2----+----3----+----4
00094TS217S6007SSN00000SN                                                       


Output (OUT) :
i am getting spaces at position (206:2) on the first record, intead of expected 'SS'
----+----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) :

----+----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 :
//*--------------------------------------------------------------------*
//* 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.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL SPLICE

Postby zohaib » Sun May 12, 2013 8:22 pm

Details:

TOOLMSG:

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 :


  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                       
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL SPLICE

Postby BillyBoyo » Mon May 13, 2013 2:43 pm

Have you looked at JOINKEYS? For this task it will be much easier than SPLICE.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: ICETOOL SPLICE

Postby 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.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL SPLICE

Postby 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.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: ICETOOL SPLICE

Postby zohaib » Mon May 13, 2013 5:14 pm

sorry no time for what you are asking.
Already shown the expected result.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: ICETOOL SPLICE

Postby 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.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post