Frank Silven wrote:
> I have a need to determine the actual maximum record length used
>by a VB file..so when i have a LRECL=522,RECFM=VB then the
>physical max record length=518 bytes...
>
> But I need a solution which determines the actual maximum record length
>used in a VB file, so the question is whether DFSORT or ICETOOL can
>determine the MAX RDW value over all records ?
Sure. Here are two ways to do it:
1) DFSORT Job using OUTFIL:
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (VB)
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,NODETAIL,
TRAILER1=(MAX=(1,2,BI,TO=ZD))
/*
SORTOUT will have one record with the maximum record length, e.g.
00084
2) ICETOOL job using STATS:
//S2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=... input file (VB)
//TOOLIN DD *
STATS FROM(IN) ON(VLEN)
/*
TOOLMSG will show the maximum record length in an ICE608I message, e.g.
STATS FROM(IN) ON(VLEN)
ICE627I 0 DFSORT CALL 0001 FOR COPY FROM IN TO E35 EXIT COMPLETED
ICE628I 0 RECORD COUNT: 000000000000008
ICE607I 0 STATISTICS FOR (VLEN) :
ICE608I 0 MINIMUM: +000000000000031, MAXIMUM: +000000000000084
ICE609I 0 AVERAGE: +000000000000039, TOTAL : +000000000000317
ICE602I 0 OPERATION RETURN CODE: 00
Frank Yaeger - DFSORT Team (IBM) - [EMAIL PROTECTED]
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
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
