Hi. I'm facing a strange problem when generating RMM reports using DFSORT. I
use JCL generated by the ISPF reporting function in RMM. In short, I receive
the following message for a few of the reports whilst other similar reports
work fine:
ICE218A 1 820 BYTE VARIABLE RECORD IS SHORTER THAN 1065 BYTE MINIMUM FOR
FIELDS
These are the DFSORT control stmts generated by RMM under ISPF:
OPTION VLSHRT,VLSCMP
INCLUDE COND=((5,1,CH,EQ,C'X'),
AND,
((164,8,CH,EQ,C'SHELF'),
AND,
(1326,5,CH,LT,C' 2')),
AND,
(156,8,CH,EQ,C'VLT1'),
OR,
(156,8,CH,EQ,C'DR2H'),
OR,
(156,8,CH,EQ,C'DR8H'),
OR,
(156,8,CH,EQ,C'DR8A'),
OR,
(156,8,CH,EQ,C'DR8B'),
OR,
(156,8,CH,EQ,C'DR8C'))
INREC FIELDS=(1,4,
164,8,C' ',
156,8,C' ',
9,6,C' ',
809,44,C' ',
172,6,C' ',
318,4,C' ',
119,10,C' ',
337,3,C' ',
1058,8,C' ',
853,10,C' ',
863,6,C' ')
SORT FIELDS=(5,8,CH,A,
14,8,CH,A,
23,6,CH,A)
I use the extended report file as input, created using the following JCL:
//EDGHSKP EXEC PGM=EDGHSKP,PARM='RPTEXT,DATEFORM(E)'
//SYSPRINT DD SYSOUT=*
//MESSAGE DD DSN=RMM.MESSAGES,DISP=SHR
//XREPTEXT DD DSN=RMM.XREPORT,DISP=SHR
RMM.XREPORT is allocated as VB/1390/27998. I've analysed the report file
looking for 'short' records with the following result:
OPTION COPY
OUTFIL INCLUDE=(1,2,BI,LT,X'0560',AND,5,1,CH,EQ,C'X')
ICE201I 0 RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE751I 0 C5-Q95214 C6-Q95214 C7-BASE C8-Q95214 E9-Q95214 C9-BASE E5-
Q95214 E7-Q95214
<SNIP>
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 25600, ABOVE 16M = 2126848
ICE210I 0 SORTOUT : BSAM USED, LRECL = 1390, BLKSIZE = 27998, TYPE = VB
ICE751I 1 EF-Q95214 CB-Q95214 F0-Q84357 E8-Q95214
ICE055I 0 INSERT 0, DELETE 0
ICE054I 0 RECORDS - IN: 366357, OUT: 366357
ICE227I 0 SORTOUT : DELETED = 366357, REPORT = 0, DATA = 0
ICE228I 0 SORTOUT : TOTAL IN = 366357, TOTAL OUT = 0
ICE174I 0 NO DATA RECORDS FOR AN OUTFIL DATA SET - RC=0
ICE052I 0 END OF DFSORT
My conclusion is that there are no 'X' records that are shorter than 1376
bytes (x'560'). However there are records that are 820 bytes long as shown
in the ICE218A message, but they contain a 'V' in pos 5, not 'X'. So why do
I get message ICE218A?
ICETOOL shows the following statistics for the RDW and record type:
-RDW- -TYPE- RECS
------ ------ ---------------
114 R 25710
209 H 1
218 K 112
358 O 96
512 D 156544
820 V 25710
1376 X 158184
I'm running z/OS 1.5 and DFSORT V1R5. Thanks in advance for anything that
can explain what's going on.
Staffan
PS. The following works(!) - only some of the INCLUDE offsets have changed:
OPTION VLSHRT,VLSCMP
INCLUDE COND=((5,1,CH,EQ,C'X'),
AND,
((156,8,CH,EQ,C'SHELF'),
AND,
(1326,5,CH,LT,C' 2')),
AND,
(164,8,CH,EQ,C'VLT1'),
OR,
(164,8,CH,EQ,C'DR2H'),
OR,
(164,8,CH,EQ,C'DR8H'),
OR,
(164,8,CH,EQ,C'DR8A'),
OR,
(164,8,CH,EQ,C'DR8B'),
OR,
(164,8,CH,EQ,C'DR8C'))
INREC FIELDS=(1,4,
164,8,C' ',
156,8,C' ',
9,6,C' ',
809,44,C' ',
172,6,C' ',
318,4,C' ',
119,10,C' ',
337,3,C' ',
1058,8,C' ',
853,10,C' ',
863,6,C' ')
SORT FIELDS=(5,8,CH,A,
14,8,CH,A,
23,6,CH,A)
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
