I love this program. So retro. Without the magic handshake on SYSIN,
SYSUT1 gets 013-18. If SYSUT1 is RECFM=F file you get:
HIS004A INVALID DCB OR ACB DATA
And what exactly is a "record too short"? What does "key length" mean on
a flat file?
HISTOGRM VERSION 4 JAN. 1981
HIS024I LRECL 244 BLKSIZE 27998 RECFM VB
HIS007I NUMBER OF BLOCKS.............. 1
HIS008I TOTAL LENGTH OF ALL BLOCKS.... 1711
HIS009I AVERAGE BLOCK LENGTH.......... 1711
BLOCK
COUNT
..............................................
1 .*
..............................................
HIS010I NUMBER OF RECORDS............. 43
HIS011I TOTAL LENGTH OF ALL RECORDS... 1707
HIS012I AVERAGE RECORD LENGTH......... 40
HIS016I KEY LENGTH.................... 20
HIS015I AVERAGE SPACE PER RECORD - L6. 50
HIS014I RECOMMENDED SEG. SIZE - L7.... 28
HIS017I LINE WIDTH.................... 20
HIS018I LONGEST RECORD................ 49
HIS019I SHORTEST RECORD............... 5
HIS023I RECORDS TOO SHORT............. 6
HIS020I DEVICE TYPE................... 3390
RECORD
COUNT
..............................................
6 .******
6 .******
31 .*******************************
..............................................
Mark Zelden <[EMAIL PROTECTED]> 10/05/2005 10:03 AM wrote
Since you have SYNCSORT, will HISTOGRM work? I don't think I've run it in
15 years, but I just tried and it looks like it is what you want. Here
was my test JCL:
//STEP01 EXEC PGM=HISTOGRM
//*STEPLIB DD DSN=syncsort_linklib,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD DSN=userid.TEST.VB,
// DISP=SHR
//SYSIN DD DUMMY,LRECL=80,RECFM=FB,BLKSIZE=80
//*SYSIN DD *
//* KEYL=2,DEVWK=3380,NOBLOCK,NOBIGSTP
<snip>
-----------------------------------------
The information contained in this communication (including any
attachments hereto) is confidential and is intended solely for the
personal and confidential use of the individual or entity to whom it is
addressed. The information may also constitute a legally privileged
confidential communication. If the reader of this message is not the
intended recipient or an agent responsible for delivering it to the
intended recipient, you are hereby notified that you have received this
communication in error and that any review, dissemination, copying, or
unauthorized use of this information, or the taking of any action in
reliance on the contents of this information is strictly prohibited.
If you have received this communication in error, please notify us
immediately by e-mail, and delete the original message. Thank you
----------------------------------------------------------------------
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
