COBUCL?
"mfisher_ix" <mfisher_ix-/[email protected]> Fri, 26 Nov 2010 23:27:40 -0000
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <[email protected]> |
--6iepmMSESd6ffzes1NQDSm75RAJXR1EkUBm1bN0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Hello,
I wonder if you could help mediate a conflict at my Tur(n)key site.
The grumpy MVS operator (my alter ego) would like the COBOL programmers to =
stop commandeering his console by using the UPON CONSOLE clause in DISPLAY =
and ACCEPT statements. He says he'll shoot anyone who ever uses these claus=
es, "for the good of the state".
On the other hand, the antiquarian COBOL programmer (also me) would like to=
run an interactive COBOL program containing DISPLAY and ACCEPT statements.=
He says it's his laptop, and his hobby.
I think Mike Murach has shown the way to a peaceful resolution, but am not =
too clear on the details. Pages 530-531 of Murach's Mainframe COBOL show th=
e TSO commands to allocate SYSIN and SYSOUT, and to call a COBOL load modul=
e.
Since the Tur(n)key #3 has no COBUCL job, I'm sure you can see my questions=
coming from a mile away. If these questions don't bore you too much, I'd l=
ike to know:
1) How to code COBUCL. I've seen Jay Moseley's version, but am not sure if =
it needs any alterations to be used in the Tur(n)key.
2) How (and whether) to use RPF to create a PDS for my COBOL load modules. =
I've already figured out how to create a PDS named HERC01.TEST.COBOL for my=
COBOL programs, so the question is how and whether to manually create the =
corresponding HERC01.TEST.LOADLIB PDS for load modules.
3) What JCL to include in a COBOL job that's meant to be compiled and link-=
edited, saved for later use, and then called from TSO.
My System/370 JCL book should arrive next week. I also intend to try runnin=
g KICKS for TSO someday, which would make these moot points. But in the mea=
ntime, I'm stumped.
Mit freundlichen Gruessen, und immer mit der Ruhe,
- Matt Fisher
--6iepmMSESd6ffzes1NQDSm75RAJXR1EkUBm1bN0
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
</head>
<body style="background-color: #fff;">
<span style="display:none"> </span>
<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="position:relative;">
<div id="ygrp-msg" style="z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->
<div id="ygrp-text" >
<p>Hello,<br>
<br>
I wonder if you could help mediate a conflict at my Tur(n)key site.<br>
<br>
The grumpy MVS operator (my alter ego) would like the COBOL programmers to stop commandeering his console by using the UPON CONSOLE clause in DISPLAY and ACCEPT statements. He says he'll shoot anyone who ever uses these clauses, "for the good of the state".<br>
<br>
On the other hand, the antiquarian COBOL programmer (also me) would like to run an interactive COBOL program containing DISPLAY and ACCEPT statements. He says it's his laptop, and his hobby.<br>
<br>
I think Mike Murach has shown the way to a peaceful resolution, but am not too clear on the details. Pages 530-531 of Murach's Mainframe COBOL show the TSO commands to allocate SYSIN and SYSOUT, and to call a COBOL load module.<br>
<br>
Since the Tur(n)key #3 has no COBUCL job, I'm sure you can see my questions coming from a mile away. If these questions don't bore you too much, I'd like to know:<br>
<br>
1) How to code COBUCL. I've seen Jay Moseley's version, but am not sure if it needs any alterations to be used in the Tur(n)key.<br>
<br>
2) How (and whether) to use RPF to create a PDS for my COBOL load modules. I've already figured out how to create a PDS named HERC01.TEST.COBOL for my COBOL programs, so the question is how and whether to manually create the corresponding HERC01.TEST.LOADLIB PDS for load modules.<br>
<br>
3) What JCL to include in a COBOL job that's meant to be compiled and link-edited, saved for later use, and then called from TSO.<br>
<br>
My System/370 JCL book should arrive next week. I also intend to try running KICKS for TSO someday, which would make these moot points. But in the meantime, I'm stumped.<br>
<br>
Mit freundlichen Gruessen, und immer mit der Ruhe,<br>
<br>
- Matt Fisher<br>
<br>
</p>
</div>
<!--~-|**|PrettyHtmlStart|**|-~-->
<div style="color: #fff; height: 0;">__._,_.___</div>
<div id="ygrp-actbar" style="clear: both; margin-bottom: 10px; white-space: nowrap; color: #666; padding-top: 15px;">
<div>
<a href="mailto:mfisher_ix-/[email protected]?subject=Re%3A%20COBUCL%3F" style="margin-right: 0; padding-right: 0;">
Reply to <span style="font-weight: 700;">sender</span></a> |
<a href="mailto:[email protected]?subject=Re%3A%20COBUCL%3F">
Reply to <span style="font-weight: 700;">group</span></a> |
<a href="http://groups.yahoo.com/group/turnkey-mvs/post;_ylc=X3oDMTJwMGRnZWhkBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzAEc2VjA2Z0cgRzbGsDcnBseQRzdGltZQMxMjkwODE0MDcw?act=reply&messageNum=7230">Reply <span style="font-weight: 700;">via web post</span></a> |
<a href="http://groups.yahoo.com/group/turnkey-mvs/post;_ylc=X3oDMTJlNzI2YTA0BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTI5MDgxNDA3MA--" style="font-weight: 700;">Start a New Topic</a>
</div>
<a href="http://groups.yahoo.com/group/turnkey-mvs/message/7230;_ylc=X3oDMTM0dDhubGgzBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzAEc2VjA2Z0cgRzbGsDdnRwYwRzdGltZQMxMjkwODE0MDcwBHRwY0lkAzcyMzA-">Messages in this topic</a>
(<span style="font-weight: 700;">1</span>)
</div>
<!------- Start Nav Bar ------>
<!-- |**|begin egp html banner|**| -->
<div id="ygrp-vital" style="background-color: #e0ecee; font-family: Verdana; font-size: 10px; margin-bottom: 10px; padding: 10px;">
<span id="vithd" style="font-weight: bold; color: #333; text-transform: uppercase; ">Recent Activity:</span>
<ul style="list-style-type: none; margin: 0; padding: 0; display: inline;">
<li style="border-right: 1px solid #000; font-weight: 700; display: inline; padding: 0 5px; margin-left: 0;">
<span class="cat"><a href="http://groups.yahoo.com/group/turnkey-mvs/members;_ylc=X3oDMTJmNGI4bzk0BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzEyOTA4MTQwNzA-?o=6" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">5</span>
</li>
</ul>
<div style="clear: both; padding-top: 2px; color: #1e66ae;">
<a href="http://groups.yahoo.com/group/turnkey-mvs;_ylc=X3oDMTJlNTMwZGJyBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTI5MDgxNDA3MA--" style="text-decoration: none;">Visit Your Group</a>
</div>
</div>
<div id="ygrp-mkp" style="border: 1px solid #d8d8d8; clear: both; float: left; font-family: Arial; margin: 5px 0 10px 0; padding: 0 10px;">
<div id="hd" style="color: #628c2a; font-size: 85%; font-weight: 700; line-height: 122%; margin: 10px 0;">MARKETPLACE</div>
<div id="ads" style="margin-bottom: 10px;">
<div class="ad" style="color: #628C2A; font-family: Arial; font-weight: 700; padding: 0 0;">
<p><a href="http://global.ard.yahoo.com/SIG=15o1dct8h/M=493064.13814537.14041040.10835568/D=groups/S=1705006559:MKP1/Y=YAHOO/EXP=1290821271/L=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a/B=SiW5DmKImlI-/J=1290814071426248/K=lvmFPdfLHoUOuH7tuNsRsQ/A=6260316/R=0/SIG=11bc8n8gt/*http://custom.yahoo.com/fibromyalgiazone/">Find useful articles and helpful tips on living with Fibromyalgia. Visit the Fibromyalgia Zone today!</a></p><script language=javascript>
if(window.yzq_d==null)window.yzq_d=new Object();
window.yzq_d['SiW5DmKImlI-']='&U=13caiiti5%2fN%3dSiW5DmKImlI-%2fC%3d493064.13814537.14041040.10835568%2fD%3dMKP1%2fB%3d6260316%2fV%3d1';
</script><noscript><img width=1 height=1 alt="" src="http://us.bc.yahoo.com/b?P=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a&T=1c947o423%2fX%3d1290814071%2fE%3d1705006559%2fR%3dgroups%2fK%3d5%2fV%3d2.1%2fW%3dH%2fY%3dYAHOO%2fF%3d1598981735%2fH%3dY29udGVudD0iR287V2lkZ2V0cztQb2RjYXN0cztNb2JpbGU7QnJpZWZjYXNlO0ZsaWNrcjtGaW5hbmNlO0dyb3VwcztCb29rbWFyaztBdWN0aW9uczsiIGRpc2FibGVzaHVmZmxpbmc9IjEiIHNlcnZlSWQ9ImM5N2JkNTI4LWY5YjQtMTFkZi1iMWNmLWNmZDg0ZjlmYzQyYSIgc2l0ZUlkPSI0NDUyNTUxIiB0U3RtcD0iMTI5MDgxNDA3MTQxNzIwMiIg%2fQ%3d-1%2fS%3d1%2fJ%3d3B5EC442&U=13caiiti5%2fN%3dSiW5DmKImlI-%2fC%3d493064.13814537.14041040.10835568%2fD%3dMKP1%2fB%3d6260316%2fV%3d1"></noscript> </div>
<div class="ad" style="color: #628C2A; font-family: Arial; font-weight: 700; padding: 0 0;">
<hr style="border: 1px solid #d8d8d8;">
<p><a href="http://global.ard.yahoo.com/SIG=15of8ems7/M=493064.13983314.14041046.13298430/D=groups/S=1705006559:MKP1/Y=YAHOO/EXP=1290821271/L=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a/B=SSW5DmKImlI-/J=1290814071426248/K=lvmFPdfLHoUOuH7tuNsRsQ/A=6060255/R=0/SIG=1194m4keh/*http://us.toolbar.yahoo.com/?.cpdl=grpj">Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.</a></p> <script language=javascript>
if(window.yzq_d==null)window.yzq_d=new Object();
window.yzq_d['SSW5DmKImlI-']='&U=13c9rsl55%2fN%3dSSW5DmKImlI-%2fC%3d493064.13983314.14041046.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1';
</script><noscript><img width=1 height=1 alt="" src="http://us.bc.yahoo.com/b?P=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a&T=1c9th5hgb%2fX%3d1290814071%2fE%3d1705006559%2fR%3dgroups%2fK%3d5%2fV%3d2.1%2fW%3dH%2fY%3dYAHOO%2fF%3d3939644281%2fH%3dY29udGVudD0iR287V2lkZ2V0cztQb2RjYXN0cztNb2JpbGU7QnJpZWZjYXNlO0ZsaWNrcjtGaW5hbmNlO0dyb3VwcztCb29rbWFyaztBdWN0aW9uczsiIGRpc2FibGVzaHVmZmxpbmc9IjEiIHNlcnZlSWQ9ImM5N2JkNTI4LWY5YjQtMTFkZi1iMWNmLWNmZDg0ZjlmYzQyYSIgc2l0ZUlkPSI0NDUyNTUxIiB0U3RtcD0iMTI5MDgxNDA3MTQxNzIwMiIg%2fQ%3d-1%2fS%3d1%2fJ%3d3B5EC442&U=13c9rsl55%2fN%3dSSW5DmKImlI-%2fC%3d493064.13983314.14041046.13298430%2fD%3dMKP1%2fB%3d6060255%2fV%3d1"></noscript> </div>
<div class="ad" style="color: #628C2A; font-family: Arial; font-weight: 700; padding: 0 0;">
<hr style="border: 1px solid #d8d8d8;">
<p><a href="http://global.ard.yahoo.com/SIG=15oao0rvp/M=493064.14012770.13963757.13298430/D=groups/S=1705006559:MKP1/Y=YAHOO/EXP=1290821271/L=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a/B=SyW5DmKImlI-/J=1290814071426248/K=lvmFPdfLHoUOuH7tuNsRsQ/A=6015306/R=0/SIG=11vlkvigg/*http://advision.webevents.yahoo.com/hobbiesandactivitieszone/">Hobbies & Activities Zone: Find others who share your passions! Explore new interests.</a></p><script language=javascript>
if(window.yzq_d==null)window.yzq_d=new Object();
window.yzq_d['SyW5DmKImlI-']='&U=13cq3qtmd%2fN%3dSyW5DmKImlI-%2fC%3d493064.14012770.13963757.13298430%2fD%3dMKP1%2fB%3d6015306%2fV%3d1';
</script><noscript><img width=1 height=1 alt="" src="http://us.bc.yahoo.com/b?P=c97bd528-f9b4-11df-b1cf-cfd84f9fc42a&T=1c92n0tkd%2fX%3d1290814071%2fE%3d1705006559%2fR%3dgroups%2fK%3d5%2fV%3d2.1%2fW%3dH%2fY%3dYAHOO%2fF%3d2202820323%2fH%3dY29udGVudD0iR287V2lkZ2V0cztQb2RjYXN0cztNb2JpbGU7QnJpZWZjYXNlO0ZsaWNrcjtGaW5hbmNlO0dyb3VwcztCb29rbWFyaztBdWN0aW9uczsiIGRpc2FibGVzaHVmZmxpbmc9IjEiIHNlcnZlSWQ9ImM5N2JkNTI4LWY5YjQtMTFkZi1iMWNmLWNmZDg0ZjlmYzQyYSIgc2l0ZUlkPSI0NDUyNTUxIiB0U3RtcD0iMTI5MDgxNDA3MTQxNzIwMiIg%2fQ%3d-1%2fS%3d1%2fJ%3d3B5EC442&U=13cq3qtmd%2fN%3dSyW5DmKImlI-%2fC%3d493064.14012770.13963757.13298430%2fD%3dMKP1%2fB%3d6015306%2fV%3d1"></noscript> </div>
</div>
</div>
<div id="ft" style="font-family: Arial; font-size: 11px; margin-top: 5px; padding: 0 2px 0 0; clear: both;">
<a href="http://groups.yahoo.com/;_ylc=X3oDMTJkNjViYTVvBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMjkwODE0MDcw" style="float: left;"><img src="http://l.yimg.com/a/i/us/yg/logo/us.gif" height="15" width="137" alt="Yahoo! Groups" style="border: 0;"/></a>
<div style="color: #747575; float: right;">Switch to: <a href="mailto:[email protected]?subject=Change Delivery Format: Traditional" style="text-decoration: none;">Text-Only</a>, <a href="mailto:[email protected]?subject=Email Delivery: Digest" class="margin-rt" style="text-decoration: none;">Daily Digest</a> • <a href="mailto:[email protected]?subject=Unsubscribe" style="text-decoration: none;">Unsubscribe</a> • <a href="http://docs.yahoo.com/info/terms/" style="text-decoration: none;">Terms of Use</a></div>
</div>
<!-- |**|end egp html banner|**| -->
</div> <!-- ygrp-msg -->
<!-- Sponsor -->
<!-- |**|begin egp html banner|**| -->
<div id="ygrp-sponsor" style="width:160px; float:right; clear:none; margin:0 0 25px 0; background: #fff;">
<!-- Start Recommendations -->
<div id="ygrp-reco">
</div>
<!-- End Recommendations -->
</div> <!-- |**|end egp html banner|**| -->
<div style="clear:both; color: #FFF; font-size:1px;">.</div>
</div>
<img src="http://geo.yahoo.com/serv?s=97359714/grpId=8161162/grpspId=1705006559/msgId=7230/stime=1290814070/nc1=5741392/nc2=4507179/nc3=5191952" width="1" height="1"> <br>
<div style="color: #fff; height: 0;">__,_._,___</div>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</body>
<!--~-|**|PrettyHtmlStart|**|-~-->
<head>
<style type="text/css">
<!--
#ygrp-mkp {
border: 1px solid #d8d8d8;
font-family: Arial;
margin: 10px 0;
padding: 0 10px;
}
#ygrp-mkp hr {
border: 1px solid #d8d8d8;
}
#ygrp-mkp #hd {
color: #628c2a;
font-size: 85%;
font-weight: 700;
line-height: 122%;
margin: 10px 0;
}
#ygrp-mkp #ads {
margin-bottom: 10px;
}
#ygrp-mkp .ad {
padding: 0 0;
}
#ygrp-mkp .ad p {
margin: 0;
}
#ygrp-mkp .ad a {
color: #0000ff;
text-decoration: none;
}
#ygrp-sponsor #ygrp-lc {
font-family: Arial;
}
#ygrp-sponsor #ygrp-lc #hd {
margin: 10px 0px;
font-weight: 700;
font-size: 78%;
line-height: 122%;
}
#ygrp-sponsor #ygrp-lc .ad {
margin-bottom: 10px;
padding: 0 0;
}
a {
color: #1e66ae;
}
#actions {
font-family: Verdana;
font-size: 11px;
padding: 10px 0;
}
#activity {
background-color: #e0ecee;
float: left;
font-family: Verdana;
font-size: 10px;
padding: 10px;
}
#activity span {
font-weight: 700;
}
#activity span:first-child {
text-transform: uppercase;
}
#activity span a {
color: #5085b6;
text-decoration: none;
}
#activity span span {
color: #ff7900;
}
#activity span .underline {
text-decoration: underline;
}
.attach {
clear: both;
display: table;
font-family: Arial;
font-size: 12px;
padding: 10px 0;
width: 400px;
}
.attach div a {
text-decoration: none;
}
.attach img {
border: none;
padding-right: 5px;
}
.attach label {
display: block;
margin-bottom: 5px;
}
.attach label a {
text-decoration: none;
}
blockquote {
margin: 0 0 0 4px;
}
.bold {
font-family: Arial;
font-size: 13px;
font-weight: 700;
}
.bold a {
text-decoration: none;
}
dd.last p a {
font-family: Verdana;
font-weight: 700;
}
dd.last p span {
margin-right: 10px;
font-family: Verdana;
font-weight: 700;
}
dd.last p span.yshortcuts {
margin-right: 0;
}
div.attach-table div div a {
text-decoration: none;
}
div.attach-table {
width: 400px;
}
div.file-title a, div.file-title a:active, div.file-title a:hover, div.file-title a:visited {
text-decoration: none;
}
div.photo-title a, div.photo-title a:active, div.photo-title a:hover, div.photo-title a:visited {
text-decoration: none;
}
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
font-family: Verdana;
font-size: 10px;
font-weight: normal;
}
.green {
color: #628c2a;
}
.MsoNormal {
margin: 0 0 0 0;
}
o {
font-size: 0;
}
#photos div {
float: left;
width: 72px;
}
#photos div div {
border: 1px solid #666666;
height: 62px;
overflow: hidden;
width: 62px;
}
#photos div label {
color: #666666;
font-size: 10px;
overflow: hidden;
text-align: center;
white-space: nowrap;
width: 64px;
}
#reco-category {
font-size: 77%;
}
#reco-desc {
font-size: 77%;
}
.replbq {
margin: 4px;
}
#ygrp-actbar div a:first-child {
/* border-right: 0px solid #000;*/
margin-right: 2px;
padding-right: 5px;
}
#ygrp-mlmsg {
font-size: 13px;
font-family: Arial, helvetica,clean, sans-serif;
*font-size: small;
*font: x-small;
}
#ygrp-mlmsg table {
font-size: inherit;
font: 100%;
}
#ygrp-mlmsg select, input, textarea {
font: 99% Arial, Helvetica, clean, sans-serif;
}
#ygrp-mlmsg pre, code {
font:115% monospace;
*font-size:100%;
}
#ygrp-mlmsg * {
line-height: 1.22em;
}
#ygrp-mlmsg #logo {
padding-bottom: 10px;
}
#ygrp-mlmsg a {
color: #1E66AE;
}
#ygrp-msg p a {
font-family: Verdana;
}
#ygrp-msg p#attach-count span {
color: #1E66AE;
font-weight: 700;
}
#ygrp-reco #reco-head {
color: #ff7900;
font-weight: 700;
}
#ygrp-reco {
margin-bottom: 20px;
padding: 0px;
}
#ygrp-sponsor #ov li a {
font-size: 130%;
text-decoration: none;
}
#ygrp-sponsor #ov li {
font-size: 77%;
list-style-type: square;
padding: 6px 0;
}
#ygrp-sponsor #ov ul {
margin: 0;
padding: 0 0 0 8px;
}
#ygrp-text {
font-family: Georgia;
}
#ygrp-text p {
margin: 0 0 1em 0;
}
#ygrp-text tt {
font-size: 120%;
}
#ygrp-vital ul li:last-child {
border-right: none !important;
}
-->
</style>
</head>
<!--~-|**|PrettyHtmlEnd|**|-~-->
</html>
<!-- end group email -->
--6iepmMSESd6ffzes1NQDSm75RAJXR1EkUBm1bN0--