This file is defined and used as VSAM in many programs, copying it to flat file itself will take 340 cpu seconds and using this for these two jobs, will increase the cpu.
But great idea Thanks, let me talk to business on the same, so that we can try using this for various program
I thought stats includes index too. let me check it.
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Mon Mar 30, 2015 3:26 pm Post subject:
Magesh_J wrote:
You solution worked greated, CPU reduced great, but exception increased.
If the excp's are higher then I guess it has to do with the block size. Do you have a hard coded Block size defined in the JCL? or was DFSORT automatically calculating? Can you show me the Sysout of the job?
Magesh_J wrote:
I have one doubt, when i test above code, it is taking it as Fixed automatically, Hence changed as below
But in prod for below code it is taking it as Variable. Please advise in what way it is considering VB/FB
The default record type is F. But in your case you are comparing 2 different control cards. The first one had FTOV and based on that DFSORT decided that Input is Fixed and you need the output as Variable.
Read about the Order of assingment of RECORD TYPE for input VSAM files.
Did you deliberately leave out the OUTFIL FTOV from the example you were shown? I also think you need to show the sysout for the steps, as even changing that doesn't look sufficient. Have you managed to define your SORTOUT DSN as unblocked?
1ICE805I 1 JOBNAME: JOINKEYS , STEPNAME: STEP01
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409060, DA=6144, AA=402916, BA=193, CP=1, TA=242
ICE859I 0 LB=4004, DB=2064, AB=1940, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 10:45 ON MON MAR 30, 2015 -
0 OPTION COPY
INCLUDE COND=((1,1,SS,EQ,C'R,V,Z'),
OR,
(13,1,CH,EQ,C'2',AND,
14,6,Y2T,GE,Y'DATE1'-750))
OUTFIL FTOV
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409060, DA=6144, AA=402916, BA=193, CP=1, TA=242
ICE859I 0 LB=4004, DB=2064, AB=1940, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE088I 0 JOINKEYS.STEP01 . , INPUT LRECL = 612, BLKSIZE = 22528, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=262144,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 1 VSAM ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE902I 0 O I RP10
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 247808
ICE855I 0 SORTOUT : TX=N, R= , L= , B= , BL=0, BR=0, DCT=3, VS=N, RU=X, SB=241
ICE210I 0 SORTOUT : EXCP USED, LRECL = 616, BLKSIZE = 32760, TYPE = VB (SDB)
ICE751I 1 EF-K49535 CB-K64631 F0-K66716 E8-K61438
ICE900I 0 CON=1,MUV=1,VOL=1,ENU=0,SBK=0,SRC=0,VEM=0
ICE055I 0 INSERT 0, DELETE 74369423
ICE054I 0 RECORDS - IN: 99373426, OUT: 25004003
ICE227I 0 SORTOUT : DELETED = 0, REPORT = 0, DATA = 25004003
ICE228I 0 SORTOUT : TOTAL IN = 25004003, TOTAL OUT = 25004003
ICE804I 5 OUTFIL EXCP COUNT: 157258
ICE891I 1 6283768 WMAIN, 7688 CMAIN, MAX CALLOC, N SCN, B BA, 0 AZ, 0 BZ, NY QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 612 RIN 612 BLI 0 BLO 610 RUN 0 BUN 2818 CPU 00 CVC
ICE052I 0 END OF DFSORT
Kolusu wrote:
If you are going to merge 2 sort cards into a single condition, you first need to find out the common conditions.
In both control cards you have 17,1,CH,EQ,C'2',AND,18,6,Y2T,GE,Y'DATE1'-750
The challenge we have here is R,V,Z records in File one doesnt have date condition, having this common condition will restrict the file to have only two years of data, But we need all years data or all data for R,V,Z and for Z records having spaces in any of the five fields.
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Mon Mar 30, 2015 6:39 pm Post subject:
Magesh_J,
You are running DFSORT V1R10 which has been out of service for quite some time. Technically I shouldn't even be diagnosing these outputs. You Shop will not be able to open a PMR unless they have an extended service contract. I am quite aware that it is not in your hands to upgrade to the latest version, but it is tough to support an out of service product.
The reason for your High EXCP is that your installation default SDB=Input is in effect for OUTFIL. Since you are writing the output to a tape, I suggest you use SDB=LARGE and you would get a block size greater than 32K and your EXCP's would be reduced.
Code:
//SYSIN DD *
OPTION COPY,SDB=LARGE
...
Magesh_J wrote:
The challenge we have here is R,V,Z records in File one doesnt have date condition, having this common condition will restrict the file to have only two years of data, But we need all years data or all data for R,V,Z and for Z records having spaces in any of the five fields.
My Apologies for Overlooking that. Lets use a different approach. How about adding 2 flags using INREC IFTHEN for your Include conditions and then using them to filter the records.
Try these control cards
Code:
//SYSIN DD *
OPTION COPY,SDB=LARGE
RECORD TYPE=F
INREC IFTHEN=(WHEN=(001,1,SS,EQ,C'R,V,Z'),
OVERLAY=(613:C'Y1'),HIT=NEXT),
Thanks Kolusu for the kind response. Please find the below results. I think Build statement is taking another 40 cpu seconds, we have a mismatch in record count SORTOUT2 when i compared with my code and your code.
Code:
SDSF OUTPUT DISPLAY JOINKEYS JOB09194 DSID 4 LINE 39 COLUMNS 01- 80
COMMAND INPUT ===> SCROLL ===> CSR
* UNIT-T-DDNAME------EXCP CNT---MB TRANSFER UNIT-T-DDNAME------EXCP CNT---M
* A655 SORTIN 40,060 619.968 A65C SORTIN 39,716
* 2588 T SORTOUT1 138,391 4,533.689 2578 T SORTOUT2 127,454
*
* EXCP TOTAL 367,381 TOTAL DASD MB TRANSFERS
*
SDSF OUTPUT DISPLAY JOINKEYS JOB09194 DSID 4 LINE 60 COLUMNS 55- 134
COMMAND INPUT ===> SCROLL ===> CSR
CPU SERVICE 7,820,660 JOB VECTOR TIME 00.00.00.00 *
SRB SERVICE 71,226 INIT VECTOR TIME 00.00.00.00 *
MSO SERVICE 0 CPU TCB TIME 00.06.23.61 6.393 *
I/O SERVICE 183,841 CPU SRB TIME 00.00.03.49 0.058 *
TOT SERVICE 8,075,727 CPU TIME 355.938 *
*
******************************************************************************
1ICE805I 1 JOBNAME: JOINKEYS , STEPNAME: STEP01
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409064, DA=6144, AA=402920, BA=385, CP=1, TA=434
ICE859I 0 LB=4036, DB=2064, AB=1972, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 09:16 ON TUE MAR 31, 2015 -
0 SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,FTOV,
INCLUDE((1,1,CH,EQ,C'R',OR,
1,1,CH,EQ,C'V',OR,
(1,1,CH,EQ,C'Z',AND,
(334,5,CH,NE,C' ',AND,
342,5,CH,NE,C' ',AND,
350,5,CH,NE,C' ',AND,
358,5,CH,NE,C' ',AND,
366,5,CH,NE,C' '))),
OR,
(13,1,CH,EQ,C'2',AND,
14,6,Y2T,GE,Y'DATE1'-750,AND,
1,1,CH,NE,C'Z'))
OUTFIL FNAMES=SORTOUT2,FTOV,
INCLUDE(14,6,Y2T,GE,Y'DATE1'-750,AND,
13,1,CH,EQ,C'2')
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409064, DA=6144, AA=402920, BA=385, CP=1, TA=434
ICE859I 0 LB=4036, DB=2064, AB=1972, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
ICE088I 0 JOINKEYS.STEP01 . , INPUT LRECL = 612, BLKSIZE = 22528, TYPE = F
ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N ,ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=8192,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=262144,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 1 VSAM ACCESS METHOD USED FOR SORTIN
ICE889I 0 CT=MAX , SB=3, L=0, D=0000, CCW=1MAM
ICE902I 0 O I RP10
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 20480, ABOVE 16M = 444416
ICE855I 0 SORTOUT1 : TX=N, R= , L= , B= , BL=0, BR=0, DCT=3, VS=N, RU=X, SB=241
ICE210I 0 SORTOUT1 : EXCP USED, LRECL = 616, BLKSIZE = 32760, TYPE = VB (SDB)
ICE855I 0 SORTOUT2 : TX=N, R= , L= , B= , BL=0, BR=0, DCT=3, VS=N, RU=X, SB=241
ICE210I 0 SORTOUT2 : EXCP USED, LRECL = 616, BLKSIZE = 32760, TYPE = VB (SDB)
ICE751I 1 EF-K49535 CB-K64631 F0-K66716 E8-K61438
ICE900I 0 CON=1,MUV=1,VOL=1,ENU=0,SBK=0,SRC=0,VEM=0
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 99373426, OUT: 99373426
1ICE227I 0 SORTOUT1 : DELETED = 77369266, REPORT = 0, DATA = 22004160
ICE228I 0 SORTOUT1 : TOTAL IN = 99373426, TOTAL OUT = 22004160
ICE227I 0 SORTOUT2 : DELETED = 79108338, REPORT = 0, DATA = 20265088
ICE228I 0 SORTOUT2 : TOTAL IN = 99373426, TOTAL OUT = 20265088
ICE804I 5 OUTFIL EXCP COUNT: 265845
ICE891I 1 6283768 WMAIN, 7688 CMAIN, MAX CALLOC, N SCN, B BA, 0 AZ, 0 BZ, NY QC, 0 CZ, 0 DZ, 1 PLE
ICE892I 1 612 RIN 612 BLI 0 BLO 610 RUN 0 BUN 2818 CPU 00 CVC
ICE052I 0 END OF DFSORT
Code:
SDSF OUTPUT DISPLAY JOINKEYS JOB09182 DSID 4 LINE 39 COLUMNS 01- 80
* UNIT-T-DDNAME------EXCP CNT---MB TRANSFER UNIT-T-DDNAME------EXCP CNT---MB TRANSFER UNIT-T-DDNAME------EXCP CNT---MB TRANSFER *
* A655 SORTIN 40,060 619.968 A65C SORTIN 39,716 614.644 A65A SORTIN 21,760 336.757 *
* 2881 T SORTOUT1 138,391 4,533.689 2888 T SORTOUT2 127,013 4,160.945 *
* *
* EXCP TOTAL 366,940 TOTAL DASD MB TRANSFERS 1,571.369 TOTAL TAPE MB TRANSFERS 8,694.634 *
* *
* *
* JOB END TERMINATION REPORTING *
* HH.MM.SS.TH MMM.THT *
* JOBNAME JOINKEYS DASD MB XFERS 1,571.369 CPU SERVICE 8,811,163 JOB VECTOR TIME 00.00.00.00 *
* SYSID AAA TAPE MB XFERS 8,694.634 SRB SERVICE 66,631 INIT VECTOR TIME 00.00.00.00 *
* SRVCLAS TSTBATMD TAPE MOUNTS 2 MSO SERVICE 0 CPU TCB TIME 00.07.12.19 7.203 *
* CLASS S I/O SERVICE 183,619 CPU SRB TIME 00.00.03.27 0.054 *
* TOT SERVICE 9,061,413 CPU TIME 400.410 *
* *
************************************************************************************************************************************
IEF375I JOB/JOINKEYS/START 2015090.0901
IEF376I JOB/JOINKEYS/STOP 2015090.0911 CPU 7MIN 12.19SEC SRB 0MIN 03.27SEC
1ICE805I 1 JOBNAME: JOINKEYS , STEPNAME: STEP01
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409060, DA=6144, AA=402916, BA=385, CP=1, TA=434
ICE859I 0 LB=4004, DB=2064, AB=1940, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 09:01 ON TUE MAR 31, 2015 -
0 OPTION COPY,SDB=LARGE
RECORD TYPE=F
INREC IFTHEN=(WHEN=(001,1,SS,EQ,C'R,V,Z'),
OVERLAY=(613:C'Y1'),HIT=NEXT),
IFTHEN=(WHEN=(001,1,CH,EQ,C'Z',AND,
(334,5,CH,EQ,C' ',OR,
342,5,CH,EQ,C' ',OR,
350,5,CH,EQ,C' ',OR,
358,5,CH,EQ,C' ',OR,
366,5,CH,EQ,C' ')),
OVERLAY=(613:2X)),
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Tue Mar 31, 2015 12:39 pm Post subject:
Magesh_J wrote:
Thanks Kolusu for the kind response. Please find the below results. I think Build statement is taking another 40 cpu seconds, we have a mismatch in record count SORTOUT2 when i compared with my code and your code.
Magesh_J,
You haven't updated the parm about using SDB=LARGE as shown here
Record count matches now by adding HIT=NEXT
Exception count increased and CPU increased.
Also please advise, File created by this sort is used by a cobol program, doesnt have block specification in FD Section, Will there be an impact because of SDB=LARGE ?
Code:
************************************************************************************************************************************
* *
* JOB STEP TERMINATION REPORTING *
* HH.MM.SS.TH MMM.THT *
* STEPNAME PRIV AREA SIZE 4096K PAGES SWAP IN 0 STEP VECTOR TIME 00.00.00.00 *
* PROCSTEP STEP01 PRIV USED TOP 284K PAGES SWAP OUT 0 INIT VECTOR TIME 00.00.00.00 *
* PGM NAME SORT PRIV USED BOT 2132K REREADS 0 CPU TCB TIME 00.07.14.53 7.242 *
* COMP CODE 0000 STEP SERVICE 9,110,513 TAPE MOUNTS 2 CPU SRB TIME 00.00.03.32 0.055 *
* MEMLIMIT SIZE 200MB CPU TIME 402.617 *
* *
* UNIT-T-DDNAME------EXCP CNT---MB TRANSFER UNIT-T-DDNAME------EXCP CNT---MB TRANSFER UNIT-T-DDNAME------EXCP CNT---MB TRANSFER *
* A655 SORTIN 40,060 619.968 A65C SORTIN 39,716 614.644 A65A SORTIN 21,760 336.757 *
* 2878 T SORTOUT1 138,832 4,548.136 2461 T SORTOUT2 127,454 4,175.393 *
* *
* EXCP TOTAL 367,822 TOTAL DASD MB TRANSFERS 1,571.369 TOTAL TAPE MB TRANSFERS 8,723.529 *
* *
************************************************************************************************************************************
************************************************************************************************************************************
* *
* JOB END TERMINATION REPORTING *
* HH.MM.SS.TH MMM.THT *
* JOBNAME JOINKEYS DASD MB XFERS 1,571.369 CPU SERVICE 8,858,736 JOB VECTOR TIME 00.00.00.00 *
* SYSID AAAA TAPE MB XFERS 8,723.529 SRB SERVICE 67,713 INIT VECTOR TIME 00.00.00.00 *
* SRVCLAS TSTBATMD TAPE MOUNTS 2 MSO SERVICE 0 CPU TCB TIME 00.07.14.53 7.242 *
* CLASS S I/O SERVICE 184,064 CPU SRB TIME 00.00.03.32 0.055 *
* TOT SERVICE 9,110,513 CPU TIME 402.617 *
* *
************************************************************************************************************************************
IEF375I JOB/JOINKEYS/START 2015090.1046
IEF376I JOB/JOINKEYS/STOP 2015090.1057 CPU 7MIN 14.53SEC SRB 0MIN 03.32SEC
1ICE805I 1 JOBNAME: JOINKEYS , STEPNAME: STEP01
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE168I 0 CENTURY WINDOW FOR Y2 FORMAT FIELDS IS FROM 1935 TO 2034
ICE858I 0 LA=409060, DA=6144, AA=402916, BA=385, CP=1, TA=434
ICE859I 0 LB=4004, DB=2064, AB=1940, BB=0, CP=0, RS=0, TB=20
ICE860I 0 F=YN, P=2, M=N, B=256
ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 EE-K51707 E9-K60823 C9-BASE E5-K62201 E7-K62201
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 10:46 ON TUE MAR 31, 2015 -
0 OPTION COPY,SDB=LARGE
RECORD TYPE=F
INREC IFTHEN=(WHEN=(001,1,SS,EQ,C'R,V,Z'),
OVERLAY=(613:C'Y1'),HIT=NEXT),
IFTHEN=(WHEN=(001,1,CH,EQ,C'Z',AND,
(334,5,CH,EQ,C' ',OR,
342,5,CH,EQ,C' ',OR,
350,5,CH,EQ,C' ',OR,
358,5,CH,EQ,C' ',OR,
366,5,CH,EQ,C' ')),
OVERLAY=(613:2X),HIT=NEXT),
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Tue Mar 31, 2015 1:33 pm Post subject:
Magesh_J wrote:
Hi Kolusu,
Record count matches now by adding HIT=NEXT
Exception count increased and CPU increased.
Also please advise, File created by this sort is used by a cobol program, doesnt have block specification in FD Section, Will there be an impact because of SDB=LARGE ?
Magesh_J,
Even though we coded SDB=LARGE we are still getting only 32760 as Blocksize.
If your COBOL program has BLOCK CONTAINS 0 RECORDS, then z/OS determines block size and reads the data without any issue.
I guess you have to fall back on your INCLUDE COND method given that INREC IFTHEN isn't getting you the desired results in terms of performance. _________________ Kolusu
www.linkedin.com/in/kolusu
Thanks Kolusu, one question, will there be any garbage data added if we read VB file as FB in DFSORT.
Also please advise, which is better for subsequent cobol program, A VB tape file or an FB tape file.
In the cobol, i couldnt see anything specific to VB in FD section,
which means the cobol program runs good with FB ?
If cobol run good with FB we can remove FTOV ?
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Tue Mar 31, 2015 3:09 pm Post subject:
Magesh_J wrote:
Thanks Kolusu, one question, will there be any garbage data added if we read VB file as FB in DFSORT.
Remember that you are reading a VSAM file and there is NO concept of RDW for VSAM files. So if you are reading it as RECORD TYPE=V, then DFSORT actually Pads the RDW for every record.
Magesh_J wrote:
Also please advise, which is better for subsequent cobol program, A VB tape file or an FB tape file.
It doesn't matter as long as you code it correctly. With VB files you need to be careful about READ vs READ INTO
In the cobol, i couldnt see anything specific to VB in FD section,
which means the cobol program runs good with FB ?
If cobol run good with FB we can remove FTOV ?
Your SORT program is creating a 616 VB file and your definition in the COBOL is looking for 639 LRECL file. Your program will abend due to lrecl mismatch. _________________ Kolusu
www.linkedin.com/in/kolusu
Thanks for the kind advise. really useful information
Kolusu wrote:
Your SORT program is creating a 616 VB file and your definition in the COBOL is looking for 639 LRECL file. Your program will abend due to lrecl mismatch.
I too initially thought like this, But when we look it close it has Level 01 in both fields.
Currently this program is running good with this setup only i.e with VB, RECL= 616.
Joined: 26 Nov 2002 Posts: 12401 Topics: 75 Location: San Jose
Posted: Thu Apr 09, 2015 11:43 am Post subject:
Magesh_J wrote:
Hi,
Reading VB VSAM file as FB is adding junk value into the output,
You need to have VLFILL=C' ' in order to pad the short records.
Magesh_J wrote:
Also I noticed, If we specify DCB as follows into the output file, it is taking it as VB, if we fail to specify DCB, it is reading it as FB.
You need to pay attention to what is being said earlier. I already showed you how DFSORT decides the Order of assingment of RECORD TYPE for input VSAM files here
When I read it has VB, I faced challenge with short record with include condition
Initially tried with VLSHRT, it is filtering too much, i.e it excludes all the short records, hence specified VLSCMP.
You first need to understand padding with binary zeros does. Since you have LE relational condition you need to access whether you really need those short records. _________________ Kolusu
www.linkedin.com/in/kolusu
All times are GMT - 5 Hours Goto page Previous1, 2, 3Next
Page 2 of 3
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
