cobuclg and example - symbol not found - tk3upd
Harold Bell <[email protected]> Tue, 30 Nov 2010 18:04:07 -0800 (PST)
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <[email protected]> |
--0-616666457-1291169047=:34636
Content-Type: text/plain; charset=us-ascii
I am trying an example cobol program I found on Jay Moseley's site and get the
following message in the printout when it fails to execute.
1 //COBUCLG JOB (001),'COB HELLO
WORLD', JOB 19
//
CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1) 00020000
2 //HELOWRLD EXEC
COBUCLG,CPARM1='LIST,LOAD,NODECK' 00030000
3 XXCOBUCLG PROC SOUT='*',
XX UNT=SYSDA,
XX CBLPARM='SUPMAP'
4 XXCOB EXEC PGM=IKFCBL00,
XX REGION=4096K,
XX PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'
5 XXSYSPRINT DD SYSOUT=&SOUT
6 XXSYSLIN DD DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))
7 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(700,100))
8 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(700,100))
9 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(700,100))
10 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(700,100))
11 XXSYSPUNCH DD DUMMY
12 //COB.SYSIN DD
* 00040000
13 XXLKED EXEC PGM=IEWL,
XX COND=(4,LT,COB),
XX PARM='XREF,LIST,LET,MAP',
XX REGION=1024K
14 XXSYSLIN DD DISP=(OLD,DELETE),DSN=*.COB.SYSLIN
15 XX DD DDNAME=SYSIN
16 XXSYSLMOD DD DISP=(,PASS),DSN=&G(GO),
XX UNIT=&UNT,
XX SPACE=(1024,(50,20,1))
17 //LKED.SYSLIB DD
DSNAME=SYS1.COBLIB,DISP=SHR 00200000
X/SYSLIB DD DISP=SHR,DSN=SYS1.COBLIB
18 // DD
DSNAME=SYS1.LINKLIB,DISP=SHR 00210000
19 XXSYSUT1 DD UNIT=&UNT,SPACE=(1024,(50,20))
20 XXSYSPRINT DD SYSOUT=&SOUT
21 XXGO EXEC PGM=*.LKED.SYSLMOD,
XX REGION=2048K,
XX COND=((5,LT,COB),(5,LT,LKED))
22 //GO.SYSPRINT DD
SYSOUT=A 00220000
STMT NO. MESSAGE
-
4 IEF653I SUBSTITUTION JCL -
PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP'
5 IEF653I SUBSTITUTION JCL - SYSOUT=*
6 IEF653I SUBSTITUTION JCL -
DISP=(,PASS),UNIT=SYSDA,SPACE=(80,(500,100))
7 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
8 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
9 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
10 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))
16 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,
19 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(1024,(50,20))
20 IEF653I SUBSTITUTION JCL - SYSOUT=*
21 IEF657I SYMBOL NOT DEFINED IN PROCEDURE
by hacking the original sys2.proclib(cobuclg) to pieces I think it's the
*.lked.syslmod that it is choking on but I'm a jcl newbie and cannot figure out
how to fix it. Thanks for any help.
Buddy
--0-616666457-1291169047=:34636
Content-Type: text/html; charset=US-ASCII
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><div style="font-family:times new roman,new york,times,serif;font-size:12pt;"><div>I am trying an example cobol program I found on Jay Moseley's site and get the following message in the printout when it fails to execute.<br><br> 1 //COBUCLG JOB (001),'COB HELLO WORLD', JOB 19<br> // CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)  
; 00020000<br>
2 //HELOWRLD EXEC COBUCLG,CPARM1='LIST,LOAD,NODECK' 00030000<br> 3 XXCOBUCLG PROC SOUT='*',<br> XX UNT=SYSDA,<br> XX CBLPARM='SUPMAP'<br> 4 XXCOB EXEC PGM=IKFCBL00,<br> XX &nbs
p; REGION=4096K,<br> XX
PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,&CBLPARM'<br> 5 XXSYSPRINT DD SYSOUT=&SOUT<br> 6 XXSYSLIN DD DISP=(,PASS),UNIT=&UNT,SPACE=(80,(500,100))<br> 7 XXSYSUT1 DD UNIT=&UNT,SPACE=(460,(700,100))<br> 8 XXSYSUT2 DD UNIT=&UNT,SPACE=(460,(700,100))<br> 9 XXSYSUT3 DD UNIT=&UNT,SPACE=(460,(700,100))<br> 10 XXSYSUT4 DD UNIT=&UNT,SPACE=(460,(700,100))<br> 11 XXSYSPUNCH DD DUMMY<br>
12 //COB.SYSIN DD
* 00040000<br> 13 XXLKED EXEC PGM=IEWL,<br> XX COND=(4,LT,COB),<br> XX PARM='XREF,LIST,LET,MAP',<br> XX
REGION=1024K<br> 14 XXSYSLIN DD
DISP=(OLD,DELETE),DSN=*.COB.SYSLIN<br> 15 XX DD DDNAME=SYSIN<br> 16 XXSYSLMOD DD DISP=(,PASS),DSN=&G(GO),<br> XX UNIT=&UNT,<br> XX SPACE=(1024,(50,20,1))<br> 17 //LKED.SYSLIB DD DSNAME=SYS1.COBLIB,DISP=SHR &nbs
p; 00200000<br> X/SYSLIB DD DISP=SHR,DSN=SYS1.COBLIB<br> 18
// DD DSNAME=SYS1.LINKLIB,DISP=SHR 00210000<br> 19 XXSYSUT1 DD UNIT=&UNT,SPACE=(1024,(50,20))<br> 20 XXSYSPRINT DD SYSOUT=&SOUT<br> 21 XXGO EXEC PGM=*.LKED.SYSLMOD,<br> XX REGION=2048K,<br> XX  
; COND=((5,LT,COB),(5,LT,LKED))<br> 22 //GO.SYSPRINT DD
SYSOUT=A 00220000<br> STMT NO. MESSAGE<br>-<br> 4 IEF653I SUBSTITUTION JCL - PARM='NODECK,LOAD,SIZE=2048K,BUF=1024K,SUPMAP'<br> 5 IEF653I SUBSTITUTION JCL - SYSOUT=*<br> 6 IEF653I SUBSTITUTION JCL - DISP=(,PASS),UNIT=SYSDA,SPACE=(80,(500,100))<br> 7 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))<br> 8 IEF653I S
UBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))<br> 9 IEF653I SUBSTITUTION JCL -
UNIT=SYSDA,SPACE=(460,(700,100))<br> 10 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(460,(700,100))<br> 16 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,<br> 19 IEF653I SUBSTITUTION JCL - UNIT=SYSDA,SPACE=(1024,(50,20))<br> 20 IEF653I SUBSTITUTION JCL - SYSOUT=*<br> 21 IEF657I SYMBOL NOT DEFINED IN PROCEDURE<br><br><br>by hacking the original sys2.proclib(cobuclg) to pieces I think it's the *.lked.syslmod that it is choking on but I'm a jcl newbie and cannot figure out how to fix it. Thanks for any help.<br><br> Buddy<br></div>
</div></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:[email protected]?subject=Re%3A%20cobuclg%20and%20example%20-%20symbol%20not%20found%20-%20tk3upd" 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%20cobuclg%20and%20example%20-%20symbol%20not%20found%20-%20tk3upd">
Reply to <span style="font-weight: 700;">group</span></a> |
<a href="http://groups.yahoo.com/group/turnkey-mvs/post;_ylc=X3oDMTJwdXRkdXEyBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzUEc2VjA2Z0cgRzbGsDcnBseQRzdGltZQMxMjkxMTY5MDU4?act=reply&messageNum=7235">Reply <span style="font-weight: 700;">via web post</span></a> |
<a href="http://groups.yahoo.com/group/turnkey-mvs/post;_ylc=X3oDMTJlZWsxOWVnBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTI5MTE2OTA1OA--" style="font-weight: 700;">Start a New Topic</a>
</div>
<a href="http://groups.yahoo.com/group/turnkey-mvs/message/7235;_ylc=X3oDMTM0bWt0aDBmBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzUEc2VjA2Z0cgRzbGsDdnRwYwRzdGltZQMxMjkxMTY5MDU4BHRwY0lkAzcyMzU-">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=X3oDMTJmZ2FyazA0BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzEyOTExNjkwNTc-?o=6" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">2</span>
</li>
</ul>
<div style="clear: both; padding-top: 2px; color: #1e66ae;">
<a href="http://groups.yahoo.com/group/turnkey-mvs;_ylc=X3oDMTJlbjV1aTJiBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTI5MTE2OTA1Nw--" style="text-decoration: none;">Visit Your Group</a>
</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=X3oDMTJkNGs0aHNqBF9TAzk3NDc2NTkwBGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMjkxMTY5MDU4" 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=7235/stime=1291169058/nc1=1/nc2=2/nc3=3" 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 -->
--0-616666457-1291169047=:34636--