Question & Answer
Question
Missing data with ICETOOL and referback (VOL=REF) processing. The "lost records" problem illustrated by the following ICETOOL job is caused by a system restriction and applies to any application that uses VOL=REF processing back to a data set that extends to more volumes.
If the space parameters on the OUT001 DD and OUT002 DD are large enough to hold all of the records from their respective copy operations, the job runs properly.
But if OUT001 or OUT002 is NOT large enough to handle the entire file on one volume, records are "lost" and are not used as input to the SPLICE operation.
If the ddname (OUT001 or OUT002 in this example) being referred back to extends to another volume, the new volume information is not be reflected in the JFCB, which results in the data from the second volume not getting picked up.
Cause
The output is expected and the restriction is documented in the "z/OS DFSORT Application Programming Guide" - second bullet at:
Answer
To get around this error, the job can be changed to use a single MOD data set in place of concatenated data sets as follows:
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN001 DD DISP=SHR,DSN=OSHALL.TEST.INFILE2
//IN002 DD DISP=SHR,DSN=OSHALL.TEST.INFILE2
//OUT001 DD DISP=(MOD,DELETE,DELETE),UNIT=(SYSDA,5),
// SPACE=(CYL,(999,5),RLSE),DSN=&&TEMP1
//OUT003 DD DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(200,10)),DSN=OSHALL.TEST.OUTFILE3
//TOOLIN DD *
COPY FROM(IN001) TO(OUT001) USING(C001)
COPY FROM(IN002) TO(OUT001) USING(C002)
SPLICE FROM(OUT001) TO(OUT003) ON(1,8,CH) WITH(102,1) -
KEEPNODUPS USING(C003)
//*
//C001CNTL DD *
INREC OVERLAY=(101:C'11')
//C002CNTL DD *
INREC OVERLAY=(101:C'22')
//C003CNTL DD *
OUTFIL FNAMES=OUT003,INCLUDE=(101,2,CH,EQ,C'11'),
BUILD=(1,100)
z/OS MVS JCL Reference
Topic : Volume
Subtopic : Subparameter Definition.
Subject : References to Multivolume Direct Access Data Sets.
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN001 DD DISP=SHR,DSN=OSHALL.TEST.INFILE2
//IN002 DD DISP=SHR,DSN=OSHALL.TEST.INFILE2
//OUT001 DD DISP=(MOD,DELETE,DELETE),UNIT=(SYSDA,5),
// SPACE=(CYL,(999,5),RLSE),DSN=&&TEMP1
//OUT003 DD DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
// SPACE=(CYL,(200,10)),DSN=OSHALL.TEST.OUTFILE3
//TOOLIN DD *
COPY FROM(IN001) TO(OUT001) USING(C001)
COPY FROM(IN002) TO(OUT001) USING(C002)
SPLICE FROM(OUT001) TO(OUT003) ON(1,8,CH) WITH(102,1) -
KEEPNODUPS USING(C003)
//*
//C001CNTL DD *
INREC OVERLAY=(101:C'11')
//C002CNTL DD *
INREC OVERLAY=(101:C'22')
//C003CNTL DD *
OUTFIL FNAMES=OUT003,INCLUDE=(101,2,CH,EQ,C'11'),
BUILD=(1,100)
z/OS MVS JCL Reference
Topic : Volume
Subtopic : Subparameter Definition.
Subject : References to Multivolume Direct Access Data Sets.
[{"Type":"MASTER","Line of Business":{"code":"LOB56","label":"Z HW"},"Business Unit":{"code":"BU070","label":"IBM Infrastructure"},"Product":{"code":"SWG90","label":"z\/OS"},"ARM Category":[{"code":"a8m0z0000000AGAAA2","label":"DFSMS-\u003EDFSORT"}],"ARM Case Number":"","Platform":[{"code":"PF035","label":"z\/OS"}],"Version":"2.4.0;2.5.0;3.1.0"}]
Was this topic helpful?
Document Information
Modified date:
15 October 2024
UID
isg3T1010555