Discussion:
[H390-MVS] New version of the Stanford Pascal compiler
Bernd Oppolzer berndoppolzer@yahoo.com [H390-MVS]
2017-11-06 09:50:10 UTC
Permalink
Hello H390-MVS list,
hello H390-VM list,

the new 11.2017 release of the Stanford Pascal compiler is now available
for MVS (TK4-) and Windows;
new versions for VM/CMS and OS/2 will follow soon.

The new compiler version is in many aspects much better than the
previous version;
many hidden errors (some of them 40 years old) have been corrected. More
details below.

The new version of PASFORM (source code formatter) now uses the same
symbol scanner
as the compiler (PASSCAN) and now supports C++ style comments, too.
Thereis anyway much room for improvements, but this redesign is a good
starting point.

Regarding old errors:

it turned out, that the old compiler not only did a sub-optimal job,
when diagnosing syntax errors, see, for example:

838 SETSTRING = array [ 1 .. MAXSETLx ] of CHAR ;
                                    !
+++ Error P104: IDENTIFIER IS NOT DECLARED

the old compiler showed an additional error P107: INCOMPATIBLE SUBRANGE
TYPES;
this was one of the easier situations to fix. Sometimes there were up to
three messages
which followed a simple P104 error, although not helpful.

But the old compiler even crashed on very simple situations:

4653 else
        !
+++ Error P006: ILLEGAL SYMBOL

the old compiler crashed in this situation without producing a listing;
the error was a semicolon before the else which should not be there.

I detected most of these errors, because I activated the runtime checks
in the previous version
of the compiler (which were off in the last 40 years), and then, when
trying to fix the
runtime error messages (for example subrange errors etc.), I discovered
the use of
uninitialized variables etc.

IMO, the compiler now is much better and much more stable than before,
although there will be situations, of course, where the reaction on certain
syntax errors will not be satisfactory.

Once again, I would like to emphasize that runtime checks (like checking
of array bounds
and subranges and enum values) are crucial when developing secure software;
at least that's my opinion, which is approved by this experience.

The new compiler version is available from the website
http://bernd-oppolzer.de/job9.htm
<https://l.facebook.com/l.php?u=http%3A%2F%2Fbernd-oppolzer.de%2Fjob9.htm&h=ATP81Co7fs9Gh-RWu_RJNYCC3dmNebHYSCq9_7LIblA_FiLR_tJb4OeXRN5mheGWWDZmc9sryEM-Og_fncHC-DCA8jYZ9Qk7tZ_mNhy1zH0CZmsbOv50MzkfGhrmfUOKWcQ19j3XkNwqGIb3A04LnUwEVyNpdSHOOwjS6e6tqNEOqvsofNJ3TwV05Q5tkpME8B2iEteR3JFfZGTD1vFhcI2sW_ncSdZckbKnFlg-XMdacMohgjltvkByKVE7tvp0IwEg2xi6JKh2NCF6g8Up45h0BoBxnU7OwmvTPuU>,
as usual.
Additions informations on this FB page:
https://www.facebook.com/StanfordPascal/

Best regards, have a nice day

Bernd Oppolzer
Clem Clarke clementclarke@ozemail.com.au [H390-MVS]
2017-11-08 10:13:47 UTC
Permalink
<!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">&nbsp;</span>

<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="position:relative;">
<div id="ygrp-msg" style="z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->

<div id="ygrp-text" >


<p>



<p class="MsoNormal">Way back in the late '60s and '70s, it was
recognized that
JCL was a very difficult language to learn and use, and needed
extra facilities
such as PreProcessor Variable testing and arithmetic statements,
the ability to
generate Control Cards with Symbolic Variable replacement, easy to
create full
screen Panels, and primarily, an easy to use, English like
language using
commands such as Copy, Print and so on. Additionally, a really
good macro language
that would allow the language to be expanded infinitely would be
extremely
useful. <br>
<br>
The language was called Jol. Job Organisation Language. <br>
<br>
Datamation ran a small article on it, and received 1000's of
enquiries - much
more than they had received for any other product. In the early
'80s, IBM was
about to sign a deal to market Jol - however a situation developed
much like
Steve Jobs had in his company and so the deal was not completed
although
Fujitsu and Amdahl supplied it with their machines <br>
<br>
Decades have now passed, and while IBM has introduced some of the
features Jol
had 40 years ago, many are still to come, such as an easy to use
English style
language, full arithmetic expressions, the ability to run the same
scripts
under TSO or Batch, and much, much more. <br>
<br>
And so today, Jol is now under the Open Source banner. You are
encouraged use
it for free, and the source code (which was examined and approved
by IBM in the
'80s) is available with the proviso and restriction that if it is
turned into a
commercial product, royalties must be paid. <br>
<br>
There are three or so versions of Jol. <br>
1. The 370 Assembler Z/OS Mainframe version. <br>
2. The Windows, Linux and OS/2 "C" versions that either generate
code
that runs on the mainframe, or alternatively executes native
applications on
their own platforms. The Linux version is in Beta mode. <br>
3. A Beta version of a compatible IBM VSE version. <br>
<br>
You can download Jol from the <a href="http://www.Oscar-Jol.com">www.Oscar-Jol.com</a>
site which also has all the documentation and many examples. <br>
<br>
Now, there is no reason why you cannot move to the next generation
JCL
language. <br>
<br>
Clem Clarke <br>
<!--[if !supportLineBreakNewLine]--><br>
<!--[endif]--></p>




<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]-->
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->


</p>

</div>


<!--~-|**|PrettyHtmlStart|**|-~-->
<div style="color: #fff; height: 0;">__._,_.___</div>






<div style="clear:both"> </div>

<div id="fromDMARC" style="margin-top: 10px;">
<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
Posted by: Clem Clarke &lt;***@ozemail.com.au&gt; <hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
</div>
<div style="clear:both"> </div>

<table cellspacing=4px style="margin-top: 10px; margin-bottom: 10px; color: #2D50FD;">
<tbody>
<tr>
<td style="font-size: 12px; font-family: arial; font-weight: bold; padding: 7px 5px 5px;" >
<a style="text-decoration: none; color: #2D50FD" href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/messages/17714;_ylc=X3oDMTJxbnVncHF2BF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BG1zZ0lkAzE3NzE0BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTUxMDEzNjAzMA--?act=reply&messageNum=17714">Reply via web post</a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="mailto:***@ozemail.com.au?subject=Re%3A%20Jol%20Universal%20Command%20Language%20and%20Enhanced%20JCL%20Language" style="text-decoration: none; color: #2D50FD;">
Reply to sender </a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;">
<a href="mailto:H390-***@yahoogroups.com?subject=Re%3A%20Jol%20Universal%20Command%20Language%20and%20Enhanced%20JCL%20Language" style="text-decoration: none; color: #2D50FD">
Reply to group </a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/newtopic;_ylc=X3oDMTJlYTRzNWthBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTUxMDEzNjAzMA--" style="text-decoration: none; color: #2D50FD">Start a New Topic</a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;color: #2D50FD;" >
<a href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/topics/17712;_ylc=X3oDMTM2ZmFvYXQ3BF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BG1zZ0lkAzE3NzE0BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTUxMDEzNjAzMAR0cGNJZAMxNzcxMg--" style="text-decoration: none; color: #2D50FD;">Messages in this topic</a>
(2)
</td>
</tr>
</tbody>
</table>


<div id="megaphoneModule">
<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
<div>
<div class="stream" style="margin-bottom:10px;">
<div style="background-color:white;">
<div class="sn-img" style="display:inline;"><img name="tn_file" style="padding:0px 10px;vertical-align:top;margin-top:5px;" src="https://s.yimg.com/ru/static/images/yg/img/megaphone/1464031581_phpFA8bON" height="82" width="82"></div>
<div class="mod-txt" style="display:inline-block;">
<a rel="nofollow" name="sub_url" target="_blank" href="https://yho.com/1wwmgg" style="color:#0000FF;display:block;margin-left:5px;text-decoration:none;"><span style="font-size:15px;">Have you tried the highest rated email app?</span></a>
<div style="max-width:530px;padding:2px 5px;">With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.</div>
</div>
</div>
</div> </div>

<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
</div>

<!------- Start Nav Bar ------>
<!-- |**|begin egp html banner|**| -->
<!-- |**|end egp html banner|**| -->






<!-- |**|begin egp html banner|**| -->
<div id="ygrp-vital" style="background-color: #f2f2f2; font-family: Verdana; font-size: 10px; margin-bottom: 10px; padding: 10px;">

<span id="vithd" style="font-weight: bold; color: #333; text-transform: uppercase; "><a href="https://groups.yahoo.com/neo/groups/H390-MVS/info;_ylc=X3oDMTJlMTNvYzZqBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTUxMDEzNjAzMA--" style="text-decoration: none;">Visit Your Group</a></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="https://groups.yahoo.com/neo/groups/H390-MVS/members/all;_ylc=X3oDMTJmZ28zYWpxBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzE1MTAxMzYwMzA-" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">1</span>
</li>
</ul>
</div>


<div id="ft" style="font-family: Arial; font-size: 11px; margin-top: 5px; padding: 0 2px 0 0; clear: both;">
<a href="https://groups.yahoo.com/neo;_ylc=X3oDMTJkaXJnOG5uBF9TAzk3NDc2NTkwBGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxNTEwMTM2MDMw" style="float: left;"><img src="Loading Image..." height="15" width="137" alt="Yahoo! Groups" style="border: 0;"/></a>
<div style="color: #747575; float: right;"> &bull; <a href="https://info.yahoo.com/privacy/us/yahoo/groups/details.html" style="text-decoration: none;">Privacy</a> &bull; <a href="mailto:H390-MVS-***@yahoogroups.com?subject=Unsubscribe" style="text-decoration: none;">Unsubscribe</a> &bull; <a href="https://info.yahoo.com/legal/us/yahoo/utos/terms/" style="text-decoration: none;">Terms of Use</a> </div>
</div>
<br>

<!-- |**|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=2587966/grpspId=1705309548/msgId=17714/stime=1510136030" width="1" height="1"> <br>

<img src="http://y.analytics.yahoo.com/fpc.pl?ywarid=515FB27823A7407E&a=10001310322279&js=no&resp=img&cf12=CP" width="1" height="1">

<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;
}

#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-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 -->
Wayne Bickerdike waynevb@gmail.com [H390-MVS]
2017-11-09 02:30:08 UTC
Permalink
MVSJOB4 to build the command processor has a problem,

BATCH EMULATOR JOB(CLARKE4 ) STEP(LKED ) PGM= IEWL
IEW2278I B352 INVOCATION PARAMETERS - LIST,MAP,RENT,REUS,REFR
IEW2322I 1220 1 INCLUDE XLIB(JOLTS)
IEW2322I 1220 2 ORDER UJTS(P)
IEW2322I 1220 3 ENTRY UJTS
IEW2322I 1220 4 ALIAS JOL,J
IEW2322I 1220 5 NAME UJTSCMD(R)
IEW2470E 9511 ORDERED SECTION UJTS NOT FOUND IN MODULE.
IEW2471E 9512 ALIGNED SECTION UJTS NOT FOUND IN MODULE.
IEW2648E 5111 ENTRY UJTS IS NOT A CSECT OR AN EXTERNAL NAME IN THE MODULE.
Way back in the late '60s and '70s, it was recognized that JCL was a very
difficult language to learn and use, and needed extra facilities such as
PreProcessor Variable testing and arithmetic statements, the ability to
generate Control Cards with Symbolic Variable replacement, easy to create
full screen Panels, and primarily, an easy to use, English like language
using commands such as Copy, Print and so on. Additionally, a really good
macro language that would allow the language to be expanded infinitely
would be extremely useful.
The language was called Jol. Job Organisation Language.
Datamation ran a small article on it, and received 1000's of enquiries -
much more than they had received for any other product. In the early '80s,
IBM was about to sign a deal to market Jol - however a situation developed
much like Steve Jobs had in his company and so the deal was not completed
although Fujitsu and Amdahl supplied it with their machines
Decades have now passed, and while IBM has introduced some of the features
Jol had 40 years ago, many are still to come, such as an easy to use
English style language, full arithmetic expressions, the ability to run the
same scripts under TSO or Batch, and much, much more.
And so today, Jol is now under the Open Source banner. You are encouraged
use it for free, and the source code (which was examined and approved by
IBM in the '80s) is available with the proviso and restriction that if it
is turned into a commercial product, royalties must be paid.
There are three or so versions of Jol.
1. The 370 Assembler Z/OS Mainframe version.
2. The Windows, Linux and OS/2 "C" versions that either generate code that
runs on the mainframe, or alternatively executes native applications on
their own platforms. The Linux version is in Beta mode.
3. A Beta version of a compatible IBM VSE version.
You can download Jol from the www.Oscar-Jol.com site which also has all
the documentation and many examples.
Now, there is no reason why you cannot move to the next generation JCL
language.
Clem Clarke
--
Wayne V. Bickerdike
erwin.marschalk@gmx.net [H390-MVS]
2017-11-10 10:25:43 UTC
Permalink
I solved the link error. I changed the INCLUDE to:
INCLUDE XLIB(UJTSCMD)


But i had other issues with the installation. I got with the RECEIVE message:
IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64 BYTES LONG - 1ST PHYSICAL RECORD NOT 64 BYTES LONG - ACTUAL VALUE IS X'000034'

with INCLUDE and the USER.CMDLIB.
Clem Clarke clementclarke@ozemail.com.au [H390-MVS]
2017-11-10 11:43:49 UTC
Permalink
<!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">&nbsp;</span>

<!--~-|**|PrettyHtmlStartT|**|-~-->
<div id="ygrp-mlmsg" style="position:relative;">
<div id="ygrp-msg" style="z-index: 1;">
<!--~-|**|PrettyHtmlEndT|**|-~-->

<div id="ygrp-text" >


<p>


<div class="moz-cite-prefix">Erwin,<br>
<br>
Should go in easily.  What OS are you using?<br>
<br>
I think these are empty data sets.  Just set them up as empty
PDS's with the same blocksize as the SYS2.Jolxx.CMDLIB.<br>
<br>
Thanks,<br>
<br>
Clem<br>
<br>
<br>
<br>
<a class="moz-txt-link-abbreviated" href="mailto:***@gmx.net">***@gmx.net</a> [H390-MVS] wrote:<br>
</div>
<blockquote type="cite" cite="mid:ou3ur7+***@YahooGroups.com"> <span> </span>

<div id="ygrp-text">
<div>I solved the link error. I changed the INCLUDE to: </div>
<div>INCLU<span style="word-spacing:normal;">DE
XLIB(UJTSCMD) </span></div>
<div><span style="word-spacing:normal;"><br>
</span></div>
<div>But i had other issues with the installation. I got
with the RECEIVE message:</div>
<div>IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL
RECORD NOT 64 BYTES LONG - 1ST PHYSICAL RECORD NOT 64
BYTES LONG - ACTUAL VALUE IS X'000034'<br>
</div>
<div>with INCLUDE and the USER.CMDLIB.</div>
<div><br>
</div>
</div>


<!-- end group email -->
</blockquote>
<br>


</p>

</div>


<!--~-|**|PrettyHtmlStart|**|-~-->
<div style="color: #fff; height: 0;">__._,_.___</div>






<div style="clear:both"> </div>

<div id="fromDMARC" style="margin-top: 10px;">
<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
Posted by: Clem Clarke &lt;***@ozemail.com.au&gt; <hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
</div>
<div style="clear:both"> </div>

<table cellspacing=4px style="margin-top: 10px; margin-bottom: 10px; color: #2D50FD;">
<tbody>
<tr>
<td style="font-size: 12px; font-family: arial; font-weight: bold; padding: 7px 5px 5px;" >
<a style="text-decoration: none; color: #2D50FD" href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/messages/17727;_ylc=X3oDMTJxcDhqdGtqBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BG1zZ0lkAzE3NzI3BHNlYwNmdHIEc2xrA3JwbHkEc3RpbWUDMTUxMDMxNDIzOA--?act=reply&messageNum=17727">Reply via web post</a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="mailto:***@ozemail.com.au?subject=Re%3A%20%5BH390-MVS%5D%20Jol%20Universal%20Command%20Language%20and%20Enhanced%20JCL%20Language" style="text-decoration: none; color: #2D50FD;">
Reply to sender </a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;">
<a href="mailto:H390-***@yahoogroups.com?subject=Re%3A%20%5BH390-MVS%5D%20Jol%20Universal%20Command%20Language%20and%20Enhanced%20JCL%20Language" style="text-decoration: none; color: #2D50FD">
Reply to group </a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/newtopic;_ylc=X3oDMTJlYzc1aXY5BF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTUxMDMxNDIzOA--" style="text-decoration: none; color: #2D50FD">Start a New Topic</a>
</td>
<td>&bull;</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;color: #2D50FD;" >
<a href="https://groups.yahoo.com/neo/groups/H390-MVS/conversations/topics/17712;_ylc=X3oDMTM2ZWMyM28wBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BG1zZ0lkAzE3NzI3BHNlYwNmdHIEc2xrA3Z0cGMEc3RpbWUDMTUxMDMxNDIzOAR0cGNJZAMxNzcxMg--" style="text-decoration: none; color: #2D50FD;">Messages in this topic</a>
(5)
</td>
</tr>
</tbody>
</table>


<div id="megaphoneModule">
<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
<div>
<div class="stream" style="margin-bottom:10px;">
<div style="background-color:white;">
<div class="sn-img" style="display:inline;"><img name="tn_file" style="padding:0px 10px;vertical-align:top;margin-top:5px;" src="https://s.yimg.com/ru/static/images/yg/img/megaphone/1464031581_phpFA8bON" height="82" width="82"></div>
<div class="mod-txt" style="display:inline-block;">
<a rel="nofollow" name="sub_url" target="_blank" href="https://yho.com/1wwmgg" style="color:#0000FF;display:block;margin-left:5px;text-decoration:none;"><span style="font-size:15px;">Have you tried the highest rated email app?</span></a>
<div style="max-width:530px;padding:2px 5px;">With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.</div>
</div>
</div>
</div> </div>

<hr style="height:2px ; border-width:0; color:#E3E3E3; background-color:#E3E3E3;">
</div>

<!------- Start Nav Bar ------>
<!-- |**|begin egp html banner|**| -->
<!-- |**|end egp html banner|**| -->






<!-- |**|begin egp html banner|**| -->
<div id="ygrp-vital" style="background-color: #f2f2f2; font-family: Verdana; font-size: 10px; margin-bottom: 10px; padding: 10px;">

<span id="vithd" style="font-weight: bold; color: #333; text-transform: uppercase; "><a href="https://groups.yahoo.com/neo/groups/H390-MVS/info;_ylc=X3oDMTJlZmowNWxxBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZnaHAEc3RpbWUDMTUxMDMxNDIzOA--" style="text-decoration: none;">Visit Your Group</a></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="https://groups.yahoo.com/neo/groups/H390-MVS/members/all;_ylc=X3oDMTJmMGFvMnNtBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZtYnJzBHN0aW1lAzE1MTAzMTQyMzg-" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">2</span>
</li>
<li style="border-right: 1px solid #000; font-weight: 700; display: inline; padding: 0 5px; margin-left: 0;">
<span class="cat"><a href="https://groups.yahoo.com/neo/groups/H390-MVS/links/all;_ylc=X3oDMTJnYWtvMTZuBF9TAzk3MzU5NzE0BGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwN2dGwEc2xrA3ZsaW5rcwRzdGltZQMxNTEwMzE0MjM4" style="text-decoration: none;">New Links</a></span>
<span class="ct" style="color: #ff7900;">1</span>
</li>
</ul>
</div>


<div id="ft" style="font-family: Arial; font-size: 11px; margin-top: 5px; padding: 0 2px 0 0; clear: both;">
<a href="https://groups.yahoo.com/neo;_ylc=X3oDMTJkZ3Y4bzRkBF9TAzk3NDc2NTkwBGdycElkAzI1ODc5NjYEZ3Jwc3BJZAMxNzA1MzA5NTQ4BHNlYwNmdHIEc2xrA2dmcARzdGltZQMxNTEwMzE0MjM4" style="float: left;"><img src="http://l.yimg.com/ru/static/images/yg/img/email/new_logo/logo-groups-137x15.png" height="15" width="137" alt="Yahoo! Groups" style="border: 0;"/></a>
<div style="color: #747575; float: right;"> &bull; <a href="https://info.yahoo.com/privacy/us/yahoo/groups/details.html" style="text-decoration: none;">Privacy</a> &bull; <a href="mailto:H390-MVS-***@yahoogroups.com?subject=Unsubscribe" style="text-decoration: none;">Unsubscribe</a> &bull; <a href="https://info.yahoo.com/legal/us/yahoo/utos/terms/" style="text-decoration: none;">Terms of Use</a> </div>
</div>
<br>

<!-- |**|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=2587966/grpspId=1705309548/msgId=17727/stime=1510314238" width="1" height="1"> <br>

<img src="http://y.analytics.yahoo.com/fpc.pl?ywarid=515FB27823A7407E&a=10001310322279&js=no&resp=img&cf12=CP" width="1" height="1">

<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;
}

#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-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 -->
Wayne Bickerdike waynevb@gmail.com [H390-MVS]
2017-11-10 20:44:18 UTC
Permalink
Changed the link step. Get a S0C1 RC 1 on JOL command.

- SYSTEM COMPLETION CODE=0C1 REASON CODE=00000001
- TIME=21.41.36 SEQ=00049 CPU=0000 ASID=003C
- PSW AT TIME OF ERROR 078D0000 00052982 ILC 2 INTC 01
- ACTIVE LOAD MODULE ADDRESS=00052980 OFFSET=00000002
- NAME=UJTSCMD
- DATA AT PSW 0005297C - 00000000 0005299C 000FC000
- GR 0: 0003E390 1: 0003E230
- 2: 0003E098 3: 0003E3A0
- 4: 0003E384 5: 00DFD390
- 6: 00000000 7: 0002BE80
- 8: 00000000 9: 0002B018
- A: 0000E6E8 B: 065CFDE8
- C: 865CEDE8 D: 00051F68
- E: 80FDAD38 F: 00052980
- END OF SYMPTOM DUMP


Will take a look later...
Post by Clem Clarke ***@ozemail.com.au [H390-MVS]
Erwin,
Should go in easily. What OS are you using?
I think these are empty data sets. Just set them up as empty PDS's with
the same blocksize as the SYS2.Jolxx.CMDLIB.
Thanks,
Clem
INCLUDE XLIB(UJTSCMD)
IEB178I NOT AN IEBCOPY UNLOADED DATA SET - 1ST PHYSICAL RECORD NOT 64
BYTES LONG - 1ST PHYSICAL RECORD NOT 64 BYTES LONG - ACTUAL VALUE IS
X'000034'
with INCLUDE and the USER.CMDLIB.
--
Wayne V. Bickerdike
Continue reading on narkive:
Loading...