| Newsgroups |
gmane.comp.emulators.hercules390.general,gmane.comp.emulators.turnkey-mvs,gmane.comp.emulators.hercules390.mvs,gmane.comp.emulators.hercules390.os380 |
| Message-ID |
<[email protected]> |
--3pdNj2cU0le-NcmI14AOP2VciRJ7hm9jbm4Ipio
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
You might like to check out the latest versions of Jol, which is
effectively the next generation of JCL. There is a Windows version that
you might like to download, and use. It generates JCL for Z/OS from a
very simple free form Scripting Language. See www.Oscar-Jol.com
Jol is a much easier way of running jobs on Z/os. And TSO. Linux and
Windows.
Jol has had
* IF statements for Symbolic Variables and Return Codes,
* Symbolic Variable Replacement in Card Image Files,
* Long Parameters for Programs
* Nested Procedures,
* Data Card Image files in Procs
* Simplified JCL Syntax
* 3270 CUA Compliant Full Screen Panel instruction
and much for over 30 years.
You can download the Windows version and see it's capabilities.
All documentation is included, and the Windows version will produce JCL.
Website: www.Oscar-jol.com.
Download here:
http://start.oscar-jol.com/download-store. You need the
JolZOS4W.zip file. Unzip into c:\JolIBM and that's it!
Documentation is the \JolIBM directory, and much more in
the Docs directory.
Or download the Z/OS version for your Mainframe.
Try it - see what else is possible.
Clement Clarke
PS: It's free for Hercules Users. The only requirement is that code
developed is made available freely to others.
_______________________
Here are a few lines of Jol, and the equivalent Z/OS JCL.
15 lines of Free Format Jol, and 40 lines of equivalent JCL.
Payroll: Job class C 1000 k;
Exec Validate Input.Trans, Trans.Action(+1); /* Validate Transactions */
if Validate=0
then do;
Sort transaction(+1) to Sorted.Trans.Actions(+1)
Fields(10,10,CH,A);
Exec Update Payroll.Master(0), Sorted.Trans.Action(+1),
Payroll.Master(+1);
If Update = 0
then do;
Catalog Payroll.Master(+1), Sorted.Trans.Action(+1);
Submit Job2;
end;
end;
else Stop 'Error in PAYROLL Job';
______ Equivalent JCL _____________
//PAYROLL JOB CLASS=C,REGION=1000K
//VALIDATE EXEC PGM=VALIDATE
//SYSPRINT DD SYSOUT=*
//INTRANS DD DSN=INPUT.TRANS,DISP=SHR
//OUTTRANS DD DSN=TRANS.ACTIONS(+1),DISP=(NEW,PASS),
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=SYSDA,VOL=SER=WORK01
//SORT EXEC PGM=SORT,COND=(VALIDATE,NE,0)
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,20)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,20)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,20)
//SORTIN DD DSN=TRANS.ACTIONS(+1),DISP=(SHR,PASS)
//SORTOUT DD DSN=SORTED.TRANS.ACTIONS(+1),
// DISP=(NEW,PASS),
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=SYSDA,VOL=SER=WORK01
//SYSIN DD *
SORT FIELDS=(10,10,CH,A)
//UPDATE EXEC PGM=UPDATE,COND=(VALIDATE,NE,0)
//SYSPRINT DD SYSOUT=*
//MASTIN DD DSN=PAYROLL.MASTER(0),DISP=SHR
//TRANS DD DSN=TRANS.ACTION(+1),DISP=(SHR,PASS)
//MASTOUT DD DSN=PAYROLL.MASTER(+1),DISP=(NEW,PASS),
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),
// SPACE=(CYL,(10,10),RLSE),
// UNIT=SYSDA,VOL=SER=WORK01
//CATLG EXEC PGM=IEFBR14,COND=(UPDATE,NE,0)
//DUMMY1 DD DSN=PAYROLL.MASTER(+1),DISP=(SHR,CATLG)
//DUMMY2 DD DSN=SORTED.TRANS.ACTIONS(+1),
// DISP=(SHR,CATLG)
//SUBMIT EXEC PGM=IEBGENER,COND=(UPDATE,NE,0)
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=SUBMIT.LIBRARY(JOB2),DISP=SHR
//SYSUT2 DD SYSOUT=(*,INTRDR)
//SYSIN DD DUMMY
//ERRMSG EXEC PGM=SHOWERR,COND=(VALIDATE,EQ,0),
// PARM='Error in PAYROLL Job'
---
This email is free from viruses and malware because avast! Antivirus protection is active.
http://www.avast.com
--3pdNj2cU0le-NcmI14AOP2VciRJ7hm9jbm4Ipio
Content-Type: text/html; charset=UTF-8
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>You might like to check out the latest versions of Jol, which is <br>
effectively the next generation of JCL. There is a Windows version that <br>
you might like to download, and use. It generates JCL for Z/OS from a <br>
very simple free form Scripting Language. See www.Oscar-Jol.com<br>
<br>
Jol is a much easier way of running jobs on Z/os. And TSO. Linux and <br>
Windows.<br>
<br>
Jol has had<br>
* IF statements for Symbolic Variables and Return Codes,<br>
* Symbolic Variable Replacement in Card Image Files,<br>
* Long Parameters for Programs<br>
* Nested Procedures,<br>
* Data Card Image files in Procs<br>
* Simplified JCL Syntax<br>
* 3270 CUA Compliant Full Screen Panel instruction<br>
and much for over 30 years.<br>
<br>
You can download the Windows version and see it's capabilities.<br>
<br>
All documentation is included, and the Windows version will produce JCL.<br>
<br>
Website: www.Oscar-jol.com.<br>
Download here:<br>
http://start.oscar-jol.com/download-store. You need the<br>
JolZOS4W.zip file. Unzip into c:\JolIBM and that's it!<br>
Documentation is the \JolIBM directory, and much more in<br>
the Docs directory.<br>
<br>
Or download the Z/OS version for your Mainframe.<br>
<br>
Try it - see what else is possible.<br>
<br>
Clement Clarke<br>
PS: It's free for Hercules Users. The only requirement is that code <br>
developed is made available freely to others.<br>
<br>
_______________________<br>
<br>
Here are a few lines of Jol, and the equivalent Z/OS JCL.<br>
15 lines of Free Format Jol, and 40 lines of equivalent JCL.<br>
<br>
Payroll: Job class C 1000 k;<br>
Exec Validate Input.Trans, Trans.Action(+1); /* Validate Transactions */<br>
if Validate=0<br>
then do;<br>
Sort transaction(+1) to Sorted.Trans.Actions(+1)<br>
Fields(10,10,CH,A);<br>
Exec Update Payroll.Master(0), Sorted.Trans.Action(+1),<br>
Payroll.Master(+1);<br>
If Update = 0<br>
then do;<br>
Catalog Payroll.Master(+1), Sorted.Trans.Action(+1);<br>
Submit Job2;<br>
end;<br>
end;<br>
else Stop 'Error in PAYROLL Job';<br>
<br>
______ Equivalent JCL _____________<br>
<br>
//PAYROLL JOB CLASS=C,REGION=1000K<br>
//VALIDATE EXEC PGM=VALIDATE<br>
//SYSPRINT DD SYSOUT=*<br>
//INTRANS DD DSN=INPUT.TRANS,DISP=SHR<br>
//OUTTRANS DD DSN=TRANS.ACTIONS(+1),DISP=(NEW,PASS),<br>
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),<br>
// SPACE=(CYL,(10,10),RLSE),<br>
// UNIT=SYSDA,VOL=SER=WORK01<br>
//SORT EXEC PGM=SORT,COND=(VALIDATE,NE,0)<br>
//SYSOUT DD SYSOUT=*<br>
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,20)<br>
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,20)<br>
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,20)<br>
//SORTIN DD DSN=TRANS.ACTIONS(+1),DISP=(SHR,PASS)<br>
//SORTOUT DD DSN=SORTED.TRANS.ACTIONS(+1),<br>
// DISP=(NEW,PASS),<br>
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),<br>
// SPACE=(CYL,(10,10),RLSE),<br>
// UNIT=SYSDA,VOL=SER=WORK01<br>
//SYSIN DD *<br>
SORT FIELDS=(10,10,CH,A)<br>
//UPDATE EXEC PGM=UPDATE,COND=(VALIDATE,NE,0)<br>
//SYSPRINT DD SYSOUT=*<br>
//MASTIN DD DSN=PAYROLL.MASTER(0),DISP=SHR<br>
//TRANS DD DSN=TRANS.ACTION(+1),DISP=(SHR,PASS)<br>
//MASTOUT DD DSN=PAYROLL.MASTER(+1),DISP=(NEW,PASS),<br>
// DCB=(RECFM=VB,LRECL=200,BLKSIZE=13030),<br>
// SPACE=(CYL,(10,10),RLSE),<br>
// UNIT=SYSDA,VOL=SER=WORK01<br>
//CATLG EXEC PGM=IEFBR14,COND=(UPDATE,NE,0)<br>
//DUMMY1 DD DSN=PAYROLL.MASTER(+1),DISP=(SHR,CATLG)<br>
//DUMMY2 DD DSN=SORTED.TRANS.ACTIONS(+1),<br>
// DISP=(SHR,CATLG)<br>
//SUBMIT EXEC PGM=IEBGENER,COND=(UPDATE,NE,0)<br>
//SYSPRINT DD SYSOUT=*<br>
//SYSUT1 DD DSN=SUBMIT.LIBRARY(JOB2),DISP=SHR<br>
//SYSUT2 DD SYSOUT=(*,INTRDR)<br>
//SYSIN DD DUMMY<br>
//ERRMSG EXEC PGM=SHOWERR,COND=(VALIDATE,EQ,0),<br>
// PARM='Error in PAYROLL Job'<br>
<br>
---<br>
This email is free from viruses and malware because avast! Antivirus protection is active.<br>
http://www.avast.com<br>
<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 <[email protected]> <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/hercules-390/conversations/messages/75595;_ylc=X3oDMTJwdmRrdTJ1BF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEbXNnSWQDNzU1OTUEc2VjA2Z0cgRzbGsDcnBseQRzdGltZQMxNDI3NjAwOTE0?act=reply&messageNum=75595">Reply via web post</a>
</td>
<td>•</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="mailto:[email protected]?subject=Re%3A%20Jol%20-%20Next%20Generation%20JCL" style="text-decoration: none; color: #2D50FD;">
Reply to sender </a>
</td>
<td>•</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;">
<a href="mailto:[email protected]?subject=Re%3A%20Jol%20-%20Next%20Generation%20JCL" style="text-decoration: none; color: #2D50FD">
Reply to group </a>
</td>
<td>•</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;" >
<a href="https://groups.yahoo.com/neo/groups/hercules-390/conversations/newtopic;_ylc=X3oDMTJkc3NiYWQzBF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEc2VjA2Z0cgRzbGsDbnRwYwRzdGltZQMxNDI3NjAwOTE0" style="text-decoration: none; color: #2D50FD">Start a New Topic</a>
</td>
<td>•</td>
<td style="font-size: 12px; font-family: arial; padding: 7px 5px 5px;color: #2D50FD;" >
<a href="https://groups.yahoo.com/neo/groups/hercules-390/conversations/topics/75595;_ylc=X3oDMTM1cWZsa2gyBF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEbXNnSWQDNzU1OTUEc2VjA2Z0cgRzbGsDdnRwYwRzdGltZQMxNDI3NjAwOTE0BHRwY0lkAzc1NTk1" style="text-decoration: none; color: #2D50FD;">Messages in this topic</a>
(1)
</td>
</tr>
</tbody>
</table>
<!------- Start Nav Bar ------>
<div id="ygrp-grfd" style="font-family: Verdana; font-size: 12px; padding: 15px 0;">
<!-- |**|begin egp html banner|**| -->
Community email addresses:<BR>
Post message: [email protected]<BR>
Subscribe: [email protected]<BR>
Unsubscribe: [email protected]<BR>
List owner: [email protected]<BR>
<BR>
Files and archives at:<BR>
<a href="http://groups.yahoo.com/group/hercules-390">http://groups.yahoo.com/group/hercules-390</a><BR>
<BR>
Get the latest version of Hercules from:<BR>
<a href="http://www.hercules-390.org">http://www.hercules-390.org</a><BR>
<BR>
<!-- |**|end egp html banner|**| -->
</div>
<!-- |**|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/hercules-390/info;_ylc=X3oDMTJkMGZwZzg0BF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEc2VjA3Z0bARzbGsDdmdocARzdGltZQMxNDI3NjAwOTE0" 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/hercules-390/members/all;_ylc=X3oDMTJlYWc5MGZ0BF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEc2VjA3Z0bARzbGsDdm1icnMEc3RpbWUDMTQyNzYwMDkxNA--" style="text-decoration: none;">New Members</a></span>
<span class="ct" style="color: #ff7900;">6</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=X3oDMTJjN2hraDhlBF9TAzk3MzU5NzE0BGdycElkAzM0MjA2NARncnBzcElkAzE3MDcyODE5NDIEc2VjA2Z0cgRzbGsDZ2ZwBHN0aW1lAzE0Mjc2MDA5MTQ-" 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;"> • <a href="https://info.yahoo.com/privacy/us/yahoo/groups/details.html" style="text-decoration: none;">Privacy</a> • <a href="mailto:[email protected]?subject=Unsubscribe" style="text-decoration: none;">Unsubscribe</a> • <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=342064/grpspId=1707281942/msgId=75595/stime=1427600914" width="1" height="1"> <br>
<img src="http://y.analytics.yahoo.com/fpc.pl?ywarid=515FB27823A7407E&a=10001310322279&js=no&resp=img" 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 -->
--3pdNj2cU0le-NcmI14AOP2VciRJ7hm9jbm4Ipio--