not getting desired output using SPLICE



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

Re: not getting desired output using SPLICE

Postby enrico-sorichetti » Mon Apr 29, 2013 11:16 pm

see here for a discussion on competitor' s links
ibm-cobol/topic8941.html?hilit=competitor
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 3002
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: not getting desired output using SPLICE

Postby dick scherrer » Mon Apr 29, 2013 11:30 pm

Wonder how many of us recieved PMs for this . . . :?

d
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: not getting desired output using SPLICE

Postby zohaib » Tue Apr 30, 2013 12:49 am

Thanks for your answer skolusu. Maybe I was not clear. I don't want to overlay IN2 to IN1, but IN1 to IN2

i tried what you ask, here is the result (FB - 205):

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0----+
CS031..<  ....*0000000000014399.*N CS031..   ................................................................................................................................................................
CS101..<  ...çæ0000000000044511.<N CS101..   ................................................................................................................................................................
CS177..<  .....0000000000010249..N CS177..   ..........&.....................................................................................................................................................
CS177..<  ...Îð0000000000043984.*M CS177..   .........Ø......................................................................................................................................................
CS177..<  .....0000000000010660..N CS177..   ................................................................................................................................................................
CS203..<  .....0000000000056259.ðN CS203..   ................................................................................................................................................................
CS203..<  ...`*0000000000010553..N CS203..   ..........Ø.....................................................................................................................................................
CS630..<  .....0000000000056259.@N CS630..   ..........°.....................................................................................................................................................
CS630..<  ...Ø<0000000000010983..N CS630..   ................................................................................................................................................................
PS214..<  ....@0000000000010587..SDPS214..   .........Ø......................................................................................................................................................


Please look at my expected result.

Thanks.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: not getting desired output using SPLICE

Postby skolusu » Tue Apr 30, 2013 2:55 am

zohaib wrote:Thanks for your answer skolusu. Maybe I was not clear. I don't want to overlay IN2 to IN1, but IN1 to IN2

i tried what you ask, here is the result (FB - 205):


well did you notice how I moved the COPY operations also? IN2 copy operation is the first in the list and then followed by IN1. Did you make those changes? Looking at the sample data you have shown you did not make those changes. If you did make sure you show me the entire JCL you ran along with TOOLMSG and DFSMSG's

Just for the record this is the sample job I used to get results which works exactly like it was intended to. I only used INREC to mimic your DCB properties. rest everything is same as is from your job.

//STEP0100 EXEC PGM=ICETOOL                                         
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN1      DD *                                                     
ABCDEFGH                      CS031                                 
ABCDEFGHI                     CS031                                 
BBBBBBBBBB                    CS177                                 
CCCCCCCCCC                    CS177                                 
//IN2      DD *                                                     
   CS177        STRING 177 VALUE                                   
   CS031        STRING 31 VALUE                                     
//OUT      DD SYSOUT=*                                             
//TMP1   DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(1,1)),UNIT=SYSDA
//TOOLIN DD *                                                       
 COPY FROM(IN2) TO(TMP1) USING(CPY2)                               
 COPY FROM(IN1) TO(TMP1) USING(CPY1)                               
 SPLICE FROM(TMP1) TO(OUT) ON(1,05,CH) WITH(6,178) WITHALL         
/*                                                                 
//CPY1CNTL DD *                                                     
  INREC OVERLAY=(178:X)                                             
  OUTREC FIELDS=(31,5,1,178,20X)                                   
/*                                                                 
//CPY2CNTL DD *                                                     
  INREC BUILD=(1,66)                                     
  OUTREC FIELDS=(4,5,178X,17,20)                                   
//*
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: not getting desired output using SPLICE

Postby NicC » Tue Apr 30, 2013 12:17 pm

Zohaib, I suggest you read the forum rules before proceeding any further. This is your first topic and you have managed to break at least three of them - one of which could have caused you to be banned if the relevant person complaind to admin.
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

Re: not getting desired output using SPLICE

Postby zohaib » Tue Apr 30, 2013 2:08 pm

skolusu:

Here is the entire JCL (modified with your specifications) :

//&SYSUIDB JOB (X90000),'JCL-MATCH',                                   
//         CLASS=L,MSGCLASS=X,                                         
//         NOTIFY=&SYSUID,                                             
//         COND=(4,LT),SCHENV=QEBATCH0                                 
/*XEQ QE                                                               
/*ROUTE PRINT QE                                                       
//OUTDEF OUTPUT FORMS=4STD,DEFAULT=YES,JESDS=ALL,                       
//       OUTDISP=(WRITE,HOLD)                                           
//       INCLUDE MEMBER=QEJLIB                                         
//*                                                                     
//*--------------------------------------------------------------------
//*        LAVORO RIESEGUIBILE                                         
//*--------------------------------------------------------------------
//*                                                                     
//DUMMY    EXEC PGM=IEFBR14                                             
//*                                                                     
//* ------------------------------------------------------------------ *
//*                  UNLOAD TABELLE CHIAVI                             
//* ------------------------------------------------------------------ *
//DELETE01 EXEC  PGM=IEFBR14                                           
//DELUNL1  DD  DSN=EE11087.FIDI.UNLOAD.AGPF,                           
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//DELPUN1  DD  DSN=EE11087.FIDI.SYSPUNCH.AGPF,                         
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//DELUNL2  DD  DSN=EE11087.FIDI.UNLOAD.ATFK,                           
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//DELPUN2  DD  DSN=EE11087.FIDI.SYSPUNCH.ATFK,                         
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//DELOUT1  DD  DSN=EE11087.FIDI.OUT.SPLICE,                             
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//DELOUT1  DD  DSN=EE11087.FIDI.TEMP1,                                 
//             DISP=(MOD,DELETE),UNIT=SYSDA,SPACE=(TRK,(1,1))           
//* ------------------------------------------------------------------ *
//*  UNLOAD AGPF/S                                                     
//* ------------------------------------------------------------------ *
//STEP01   EXEC PGM=IKJEFT01,DYNAMNBR=20                               
//SYSREC00 DD DSN=EE11087.FIDI.UNLOAD.AGPF,                             
//            DISP=(NEW,CATLG,CATLG),SPACE=(CYL,(150,150),RLSE)         
//SYSPUNCH DD DSN=EE11087.FIDI.SYSPUNCH.AGPF,                           
//            DISP=(NEW,CATLG,CATLG),SPACE=(TRK,(5,5),RLSE)             
//SYSPRINT  DD SYSOUT=*                                                 
//SYSOUT    DD SYSOUT=*                                                 
//SYSOUD    DD SYSOUT=*                                                 
//SYSOUX    DD SYSOUT=*                                                 
//SYSTSPRT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=*                                                 
//SYSDBOUT  DD SYSOUT=*                                                 
//SYSTSIN   DD *                                                       
 DSN SYSTEM(QED0)                                                       
 RUN  PROGRAM(DSNTIAUL) PARM('SQL')                                     
//SYSIN     DD *                                                       
SELECT  *                                                               
  FROM DB2C.ADGAGPF                                                     
  WHERE BANCA = 94                                                     
  FETCH FIRST 10 ROWS ONLY                                             
  WITH UR                                                               
;                                                                       
/*                                                                     
//* ------------------------------------------------------------------ *
//*  UNLOAD ATFK                                                       
//* ------------------------------------------------------------------ *
//STEP01   EXEC PGM=IKJEFT01,DYNAMNBR=20                               
//SYSREC00 DD DSN=EE11087.FIDI.UNLOAD.ATFK,                             
//            DISP=(NEW,CATLG,CATLG),SPACE=(CYL,(150,150),RLSE)         
//SYSPUNCH DD DSN=EE11087.FIDI.SYSPUNCH.ATFK,                           
//            DISP=(NEW,CATLG,CATLG),SPACE=(TRK,(5,5),RLSE)             
//SYSPRINT  DD SYSOUT=*                                                 
//SYSOUT    DD SYSOUT=*                                                 
//SYSOUD    DD SYSOUT=*                                                 
//SYSOUX    DD SYSOUT=*                                                 
//SYSTSPRT  DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=*                                                 
//SYSDBOUT  DD SYSOUT=*                                                 
//SYSTSIN   DD *                                                       
 DSN SYSTEM(QED0)                                                       
 RUN  PROGRAM(DSNTIAUL) PARM('SQL')                                     
//SYSIN     DD *                                                       
SELECT *                                                               
  FROM DB2C.ADTATFK                                                     
  WHERE BANCA = 94                                                     
    AND FORMA_TEC_FIDO IN ('CS203'                                     
                         , 'CS177'                                     
                         , 'CS630'                                     
                         , 'CS177'                                     
                         , 'CS031'                                     
                         , 'CS203'                                     
                         , 'CS177'                                     
                         , 'CS630'                                     
                         , 'PS214'                                     
                         , 'CS101' )                                   
     AND ATTRIBUTO_FIDO = 5061                                         
  WITH UR                                                               
;                                                                       
/*                                                                     
//*--------------------------------------------------------------------*
//* ICETOOL SPLICE                                                     
//*--------------------------------------------------------------------*
//DFSORT   EXEC PGM=ICETOOL                                             
//TOOLMSG DD SYSOUT=*                                                   
//DFSMSG  DD SYSOUT=*                                                   
//IN1 DD DSN=EE11087.FIDI.UNLOAD.AGPF,DISP=SHR                         
//IN2 DD DSN=EE11087.FIDI.UNLOAD.ATFK,DISP=SHR                         
//TMP1   DD DSN=&&TEMP1,DISP=(MOD,PASS),SPACE=(TRK,(1,1)),UNIT=SYSDA   
//*OUT    DD SYSOUT=*                                                   
//OUT      DD DSN=EE11087.FIDI.OUT.SPLICE,                             
//            DISP=(,CATLG),                                           
//            SPACE=(CYL,(150,150),RLSE),                               
//            DCB=(LRECL=203,RECFM=FB)                                 
//TOOLIN DD *                                                           
 COPY FROM(IN2) TO(TMP1) USING(CPY2)                                   
 COPY FROM(IN1) TO(TMP1) USING(CPY1)                                   
 SPLICE FROM(TMP1) TO(OUT) ON(1,05,CH) WITH(6,178) WITHALL             
/*                                                                     
//CPY1CNTL DD *                                                         
  OUTREC FIELDS=(1:31,5,1,178,205:X)                                   
/*                                                                     
//CPY2CNTL DD *                                                         
  OUTREC FIELDS=(1:4,5,178X,184:17,20,205:X)                           
/*                                                                     


Splice result is in my previous message.

Thanks.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: not getting desired output using SPLICE

Postby skolusu » Tue Apr 30, 2013 9:33 pm

zohaib wrote:skolusu:

Here is the entire JCL (modified with your specifications) :

Splice result is in my previous message.

Thanks.


zohaib,

You need to pay attention to what I asked.

skolusu wrote: If you did make sure you show me the entire JCL you ran along with TOOLMSG and DFSMSG's


I Need to see the toolmsg and DFSMSG outputs from the run.

How about you run the test job I have shown you earlier and see if it is getting the desired results.
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: not getting desired output using SPLICE

Postby zohaib » Wed May 01, 2013 12:23 am

TOOLMSG :

   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(IN2) TO(TMP1) USING(CPY2)                                                               
 ICE606I 0 DFSORT CALL 0001 FOR COPY  FROM IN2      TO TMP1     USING CPY2CNTL COMPLETED                       
 ICE602I 0 OPERATION RETURN CODE:  00                                                                         
                                                                                                               
            COPY FROM(IN1) TO(TMP1) USING(CPY1)                                                               
 ICE606I 0 DFSORT CALL 0002 FOR COPY  FROM IN1      TO TMP1     USING CPY1CNTL COMPLETED                       
 ICE602I 0 OPERATION RETURN CODE:  00                                                                         
                                                                                                               
            SPLICE FROM(TMP1) TO(OUT) ON(1,05,CH) WITH(6,178) WITHALL                                         
 ICE627I 0 DFSORT CALL 0003 FOR SORT FROM TMP1     TO OUT      COMPLETED                                       
 ICE628I 0 RECORD COUNT:  000000000000016                                                                     
 ICE638I 0 NUMBER OF RECORDS RESULTING FROM CRITERIA:  000000000000010                                         
 ICE602I 0 OPERATION RETURN CODE:  00                                                                         
                                                                                                               
                                                                                                               
 ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE:  00                                                 
 BOTTOM OF LIST ----------------------------------------------------------------                               






DFSMSG :

   DDNAME:  DFSMSG     PAGES: 3         LINES:  115                                        -
------------------------------------------------------------------------------------------- 
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 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 - 20:13 ON TUE APR 30, 2013 -
                                                                                             
            OUTREC FIELDS=(1:4,5,178X,184:17,20,205:X)                                       
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.DFSORT  .        , INPUT LRECL = 66, BLKSIZE = 27984, 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=N,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 = 66, BLKSIZE = 27984, TYPE = FB   (SDB)                                                   
ICE055I 0 INSERT 0, DELETE 0                                                   
ICE054I 0 RECORDS - IN: 6, OUT: 6                                             
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 - 20:13 ON TUE APR 30, 2013 -
                                                                                           
            OUTREC FIELDS=(1:31,5,1,178,205:X)                                             
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.DFSORT  .        , INPUT LRECL = 178, BLKSIZE = 27946, 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=N,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 = 66, BLKSIZE = 27984, TYPE = FB                       
ICE171I 0 SORTOUT LRECL OF 66 IS DIFFERENT FROM SORTIN(NN) LRECL OF 178 - RC=0
ICE055I 0 INSERT 0, DELETE 0                                                   
ICE054I 0 RECORDS - IN: 10, OUT: 10                                           
ICE052I 0 END OF DFSORT                                                       
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-K76585 E6-K58148 E7-K70685         
ICE143I 0 BLOCKSET     SORT  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 - 20:13 ON TUE APR 30, 2013 -                 
                                                                                                             
          DEBUG NOABEND,ESTAE                                                                               
          OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTIN=TMP1,SORTOUT=OUT,D*                           
                         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 E6-K58148 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.DFSORT  .        , INPUT LRECL = 66, BLKSIZE = 27984, TYPE = FB                           
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=Y,RESET=Y,VSAMEMT=N,DYNSPC=8000
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=RC16 ,MSGDDN=DFSMSG             
ICE129I 0 OPTIONS: VIO=N,RESDNT=NONE,SMF=SHORT,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(SYSDA   ,024),ABCODE=016
ICE130I 0 OPTIONS: RESALL=16384,RESINV=0,SVC=109 ,CHECK=N,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=N,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 OUT                                                                         
ICE084I 0 EXCP ACCESS METHOD USED FOR TMP1                                     
ICE750I 0 DC 55968 TC 0 CS DSVVV KSZ 9 VSZ 9                                   
ICE752I 0 FSZ=848 RC  IGN=0 E  AVG=72 0  WSP=79 C  DYN=0 0                     
ICE751I 1 DE-K61787 D5-K58148 D3-K83080 D7-K58148 E8-K79103                   
ICE090I 0 OUTPUT LRECL = 203, BLKSIZE = 27811, TYPE = FB                       
ICE171I 0 SORTOUT LRECL OF 203 IS DIFFERENT FROM SORTIN(NN) LRECL OF 66 - RC=0
ICE055I 0 INSERT 0, DELETE 6                                                   
ICE054I 0 RECORDS - IN: 16, OUT: 10                                           
ICE134I 0 NUMBER OF BYTES SORTED: 1056                                         
ICE253I 0 RECORDS SORTED - PROCESSED: 16, EXPECTED: 848                       
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                                                 
BOTTOM OF LIST ---------------------------------------------------------



How about you run the test job I have shown you earlier and see if it is getting the desired results.

I'll send you the results in short

Thanks.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: not getting desired output using SPLICE

Postby skolusu » Wed May 01, 2013 12:40 am

zohaib ,

Your problem is the following.
ICE090I 0 OUTPUT LRECL = 66, BLKSIZE = 27984, TYPE = FB   (SDB)     
ICE090I 0 OUTPUT LRECL = 66, BLKSIZE = 27984, TYPE = FB


Your OUTREC is completely ignored as you have
ICE133I 0 OPTIONS: HIPRMAX=90 ,DSPSIZE=128 ,ODMAXBF=0,SOLRF=N,VLLONG=N,VSAMIO=N,MOSIZE=MAX


SOLRF=N specifies that DFSORT should not use the reformatted record length for the SORTOUT LRECL. So all the reformatting and padding of spaces are ignored and your data is not in the right place.
For some weird reason your System Programmers changed the shipped default from SOLRF=YES to SOLRF=NO as it can cause some very unexpected results.

In order to fix it add the following statement to your job and re-run your job.
//DFSPARM DD *
  OPTION SOLRF
//*


and see if you get the desired results.
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: not getting desired output using SPLICE

Postby zohaib » Wed May 01, 2013 3:24 pm

Thanks skolusu for your support,
i am getting the expected result.

Thanks.
zohaib
 
Posts: 13
Joined: Sun Apr 28, 2013 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Previous

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post