Dear Folks,
I just put up an old tape mapping program named PRECIS from "UNC",
which I presume is the University of North Carolina. The load module
was linkedited in 1986, so it is old. But it works beautifully, the
report is concise, and it displays the beginning of each data block,
which most tape mapping programs don't do. I posted it on File 1004 of
the CBT Updates page. www.cbttape.org
I am looking to see if anyone has source code for this program,
because I try to fix all the tape mapping and tape copying programs to
read the largest tape block size possible, and in order to do that, I
have to muck with the I/O. It is much easier to do that when you have
source code.
So if you have source code for the PRECIS tape mapping program,
please send it to me, and we can have a better product for everyone to
use. Meanwhile, enjoy it the way it is.
Below is some sample output from this program.
Thank you very much.
All the best of everything to all of you.......
Sincerely, Sam
UNC TAPE PRECIS UTILITY--OPTIONS: SKIP 000, PROCESS ALL. VOLUME C500MU,
PAGE 001.
DATA BLOCK NO. 01: VOL1C500MU SAMGOLOB
EDDFCFFFDE4444444444444444444444444444444ECDCDDDC4444444444444444444444444444444
56313500440000000000000000000000000000000214763620000000000000000000000000000000
DATA BLOCK NO. 02: HDR1FILE0001
C500MU00010001 020353 980000000000IBM OS/VS 370
CCDFCCDCFFFF444444444CFFFDEFFFFFFFF444444FFFFFF4FFFFFFFFFFFFCCD4DE6EE4FFF4444444
84916935000100000000035004400010001000000020353098000000000092406215203700000000
DATA BLOCK NO. 03: HDR2F327200008000SBGOLOB1/COPY1
B 00000
CCDFCFFFFFFFFFFFFECCDDDCF6CDDEF4444444C444FFFFF444444444444444444444444444444444
84926327200008000227636211367810000000200000000000000000000000000000000000000000
TAPE MARK NO. 001 ENCOUNTERED AFTER 000003 DATA BLOCKS - SMALLEST BLOCK
READ WAS 00080 BYTES - LARGEST WAS 00080 BYTES.
DATA BLOCK NO. 01: //MVSMODS1 JOB
527TEC000S0003,TEC,CLASS=8,MSGCLASS=5,PRTY=10, DOC FILE
66DEEDDCEF4DDC4FFFECCFFFEFFFF6ECC6CDCEE7F6DECCDCEE7F6DDEE7FF644444444444CDC4CCDC
11452464210162052735300020003B353B33122E8B42733122E5B7938E10B0000000000046306935
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
