Re: cobuclg and example - symbol not found - tk3upd
Rick Fochtman <[email protected]> Wed, 01 Dec 2010 18:40:45 -0600
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <[email protected]> |
--------------000302000401020103040301
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
Guess again, Scott.
In the PROC there is not "CPARM1" used, so it can't be specified on the
EXEC statement that executes the PROC. And those are NOT LKED parms.
Harold, I think what you want is CBLPARM='LIST' The other values you've
specified are already on the PARM parameter of the EXEC PGM=IKFCBL00
statement.
The values for the LKED parm are fine and represent the common set,
except that I'd remove "LET" unless you want to test the result after an
unsuccessful link.
Rick
----------------------------------------<snip>-----------------------------
>
>
> CPARM1 is not used in the procedure. From the options you listed for
> it, it looks like it should go to the link-edit step. However the
> parm for the link-edit step parms does not reference cparm1.
>
> Scott
>
> On 11/30/2010 09:04 PM, Harold Bell wrote:
>
>> 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
>
-----------------------------------------<unsnip>-----------------------------------------
--------------000302000401020103040301
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><!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
Guess again, Scott.<br>
<br>
In the PROC there is not "CPARM1" used, so it can't be specified on the
EXEC statement that executes the PROC. And those are NOT LKED parms.<br>
<br>
Harold, I think what you want is CBLPARM='LIST' The other values
you've specified are already on the PARM parameter of the EXEC
PGM=IKFCBL00 statement.<br>
<br>
The values for the LKED parm are fine and represent the common set,
except that I'd remove "LET" unless you want to test the result after
an unsuccessful link.<br>
<br>
Rick<br>
<br>
----------------------------------------<snip>-----------------------------
<blockquote cite="[email protected]" type="cite"><span> </span>
<div id="ygrp-text">
<p>CPARM1 is not used in the procedure. From the options you listed
for
it, it looks like it should go to the link-edit step. However the parm
for the link-edit step parms does not reference cparm1.<br>
<br>
Scott<br>
<br>
On 11/30/2010 09:04 PM, Harold Bell wrote:
</p>
<blockquote cite="mid:771095.34636.qm-4JhmkcZgSkmORdMXk8NaZPu2YVrzzGjVVpNB7YpNyf8@public.gmane.org" type="cite">
<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 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 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 SUBSTITUTION 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>
</div>
</div>
</blockquote>
</div>
</blockquote>
-----------------------------------------<unsnip>-----------------------------------------<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:[email protected]?subject=Re%3A%20%5Bturnkey-mvs%5D%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%20%5Bturnkey-mvs%5D%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=X3oDMTJwY2lyMzN1BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzcEc2VjA2Z0cgRzbGsDcnBseQRzdGltZQMxMjkxMjUwNDc0?act=reply&messageNum=7237">Reply <span style="font-weight: 700;">via web post</span></a> |
<a href="http://groups.yahoo.com/group/turnkey-mvs/post;_ylc=X3oDMTJlbGNpdW44BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTI5MTI1MDQ3NA--" style="font-weight: 700;">Start a New Topic</a>
</div>
<a href="http://groups.yahoo.com/group/turnkey-mvs/message/7235;_ylc=X3oDMTM0azlsbHI2BF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BG1zZ0lkAzcyMzcEc2VjA2Z0cgRzbGsDdnRwYwRzdGltZQMxMjkxMjUwNDc0BHRwY0lkAzcyMzU-">Messages in this topic</a>
(<span style="font-weight: 700;">3</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=X3oDMTJmZWM0cTVyBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzEyOTEyNTA0NzQ-?o=6" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">3</span>
</li>
</ul>
<div style="clear: both; padding-top: 2px; color: #1e66ae;">
<a href="http://groups.yahoo.com/group/turnkey-mvs;_ylc=X3oDMTJlYWhvYXNtBF9TAzk3MzU5NzE0BGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTI5MTI1MDQ3NA--" 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=X3oDMTJkMzY0bmk4BF9TAzk3NDc2NTkwBGdycElkAzgxNjExNjIEZ3Jwc3BJZAMxNzA1MDA2NTU5BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxMjkxMjUwNDc0" 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=7237/stime=1291250474/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 -->
--------------000302000401020103040301--