Text processing/Max licenses in use: Difference between revisions

Content added Content deleted
(→‎Version 2 dual-coded for PC and TSO: try to fix the reported/unknown problems)
(→‎Version 2 dual-coded for PC and TSO: add Windows Output for ooRexx and Regina)
Line 1,964: Line 1,964:


<br>It is unknown which classic REXX interpreter can be used (under Windows) below, it fails for the above mentioned seven REXX interpreters.
<br>It is unknown which classic REXX interpreter can be used (under Windows) below, it fails for the above mentioned seven REXX interpreters.
I am sure it has worked for Regina.
<br>I am sure it has worked for Regina.
Maybe this is now correct for all the WIN (and xxDOS) situations (pun intended)
Maybe this is now correct for all the WIN (and xxDOS) situations (pun intended)
<lang rexx>/* REXX **************************************************************
<lang rexx>/* REXX **************************************************************
Line 2,032: Line 2,032:
store.0=z
store.0=z
Return</lang>
Return</lang>
{{out}} on Windows
Output:
<pre>
<pre>
D:\>rexx maxl
⚫
TSO COMMAND LIC SYS00059 N555555.PRIV.CLIST ? TSO ISPF ?
WindowsNT COMMAND D:\maxl.rex
The maximum number of licences taken out = 99
The maximum number of licences taken out = 99
It occurred at 2008/10/03_08:39:34 for job 1833
It occurred at 2008/10/03_08:39:34 for job 1833
Line 2,052: Line 2,053:
2 99
2 99
10000 Jobs
10000 Jobs
0.384154 seconds (elapsed)
0.234000 seconds (elapsed) ooRexx

</pre>
D:\>regina maxl
WIN64 COMMAND D:\maxl.rex
...
10000 Jobs
.177000 seconds (elapsed) Regina</pre>
{{out}} on TSO
⚫
<pre>TSO COMMAND LIC SYS00059 N555555.PRIV.CLIST ? TSO ISPF ?
The maximum number of licences taken out = 99
It occurred at 2008/10/03_08:39:34 for job 1833
It occurred at 2008/10/03_08:40:40 for job 1837
1 0
2 1
2 2
2 3
2 4
2 5
.........
24 94
22 95
15 96
7 97
5 98
2 99
10000 Jobs
0.384154 seconds (elapsed)</pre>


=={{header|Ruby}}==
=={{header|Ruby}}==
Retrieved from "https://rosettacode.org/wiki/Text_processing/Max_licenses_in_use"