IBM Mainframe Forum

Posted: **Mon Apr 29, 2013 11:16 pm**

see here for a discussion on competitor' s links
ibm-cobol/topic8941.html?hilit=competitor

Posted: **Mon Apr 29, 2013 11:30 pm**

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

d

Posted: **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):

Select all

----+----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.

Posted: **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.

Select all

//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)
//*

Posted: **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.

Posted: **Tue Apr 30, 2013 2:08 pm**

skolusu:

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

Select all

//&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.

Posted: **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.

Posted: **Wed May 01, 2013 12:23 am**

TOOLMSG :

Select all

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 :

Select all

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.

Posted: **Wed May 01, 2013 12:40 am**

zohaib ,

Your problem is the following.

Select all

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.

Select all

//DFSPARM DD *
OPTION SOLRF
//*

and see if you get the desired results.

Posted: **Wed May 01, 2013 3:24 pm**

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

Thanks.

IBM Mainframe Forum

not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE

Re: not getting desired output using SPLICE