Greg,
Talking about MVS... I am sure this code will work for more 50 years... :)
Sent from Yahoo Mail for iPhone
On Thursday, August 24, 2017, 9:21 AM, Greg Price ***@optusnet.com.au [H390-MVS] <H390-***@yahoogroups.com> wrote:
Â
Just wanted to mention that the XVTCLIST program which was added to the
CBT tape in the 1980s was written in the 1966-1967 time frame, and has
been successfully reading and reporting the contents of OS VTOCs for
more than 50 years, with its subroutine to read VTOCs a track per EXCP
being used in many software packages - both free and pay-for. It still
sees plenty of action in the z/OS world - not bad for an OS/360 program.
Nice one.
Cheers,
Greg
#yiv6878685015 #yiv6878685015 -- #yiv6878685015ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6878685015 #yiv6878685015ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6878685015 #yiv6878685015ygrp-mkp #yiv6878685015hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6878685015 #yiv6878685015ygrp-mkp #yiv6878685015ads {margin-bottom:10px;}#yiv6878685015 #yiv6878685015ygrp-mkp .yiv6878685015ad {padding:0 0;}#yiv6878685015 #yiv6878685015ygrp-mkp .yiv6878685015ad p {margin:0;}#yiv6878685015 #yiv6878685015ygrp-mkp .yiv6878685015ad a {color:#0000ff;text-decoration:none;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ygrp-lc {font-family:Arial;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ygrp-lc #yiv6878685015hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ygrp-lc .yiv6878685015ad {margin-bottom:10px;padding:0 0;}#yiv6878685015 #yiv6878685015actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6878685015 #yiv6878685015activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6878685015 #yiv6878685015activity span {font-weight:700;}#yiv6878685015 #yiv6878685015activity span:first-child {text-transform:uppercase;}#yiv6878685015 #yiv6878685015activity span a {color:#5085b6;text-decoration:none;}#yiv6878685015 #yiv6878685015activity span span {color:#ff7900;}#yiv6878685015 #yiv6878685015activity span .yiv6878685015underline {text-decoration:underline;}#yiv6878685015 .yiv6878685015attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6878685015 .yiv6878685015attach div a {text-decoration:none;}#yiv6878685015 .yiv6878685015attach img {border:none;padding-right:5px;}#yiv6878685015 .yiv6878685015attach label {display:block;margin-bottom:5px;}#yiv6878685015 .yiv6878685015attach label a {text-decoration:none;}#yiv6878685015 blockquote {margin:0 0 0 4px;}#yiv6878685015 .yiv6878685015bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6878685015 .yiv6878685015bold a {text-decoration:none;}#yiv6878685015 dd.yiv6878685015last p a {font-family:Verdana;font-weight:700;}#yiv6878685015 dd.yiv6878685015last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6878685015 dd.yiv6878685015last p span.yiv6878685015yshortcuts {margin-right:0;}#yiv6878685015 div.yiv6878685015attach-table div div a {text-decoration:none;}#yiv6878685015 div.yiv6878685015attach-table {width:400px;}#yiv6878685015 div.yiv6878685015file-title a, #yiv6878685015 div.yiv6878685015file-title a:active, #yiv6878685015 div.yiv6878685015file-title a:hover, #yiv6878685015 div.yiv6878685015file-title a:visited {text-decoration:none;}#yiv6878685015 div.yiv6878685015photo-title a, #yiv6878685015 div.yiv6878685015photo-title a:active, #yiv6878685015 div.yiv6878685015photo-title a:hover, #yiv6878685015 div.yiv6878685015photo-title a:visited {text-decoration:none;}#yiv6878685015 div#yiv6878685015ygrp-mlmsg #yiv6878685015ygrp-msg p a span.yiv6878685015yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6878685015 .yiv6878685015green {color:#628c2a;}#yiv6878685015 .yiv6878685015MsoNormal {margin:0 0 0 0;}#yiv6878685015 o {font-size:0;}#yiv6878685015 #yiv6878685015photos div {float:left;width:72px;}#yiv6878685015 #yiv6878685015photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6878685015 #yiv6878685015photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6878685015 #yiv6878685015reco-category {font-size:77%;}#yiv6878685015 #yiv6878685015reco-desc {font-size:77%;}#yiv6878685015 .yiv6878685015replbq {margin:4px;}#yiv6878685015 #yiv6878685015ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6878685015 #yiv6878685015ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6878685015 #yiv6878685015ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6878685015 #yiv6878685015ygrp-mlmsg select, #yiv6878685015 input, #yiv6878685015 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6878685015 #yiv6878685015ygrp-mlmsg pre, #yiv6878685015 code {font:115% monospace;}#yiv6878685015 #yiv6878685015ygrp-mlmsg * {line-height:1.22em;}#yiv6878685015 #yiv6878685015ygrp-mlmsg #yiv6878685015logo {padding-bottom:10px;}#yiv6878685015 #yiv6878685015ygrp-msg p a {font-family:Verdana;}#yiv6878685015 #yiv6878685015ygrp-msg p#yiv6878685015attach-count span {color:#1E66AE;font-weight:700;}#yiv6878685015 #yiv6878685015ygrp-reco #yiv6878685015reco-head {color:#ff7900;font-weight:700;}#yiv6878685015 #yiv6878685015ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ov li a {font-size:130%;text-decoration:none;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6878685015 #yiv6878685015ygrp-sponsor #yiv6878685015ov ul {margin:0;padding:0 0 0 8px;}#yiv6878685015 #yiv6878685015ygrp-text {font-family:Georgia;}#yiv6878685015 #yiv6878685015ygrp-text p {margin:0 0 1em 0;}#yiv6878685015 #yiv6878685015ygrp-text tt {font-size:120%;}#yiv6878685015 #yiv6878685015ygrp-vital ul li:last-child {border-right:none !important;}#yiv6878685015