Text processing/Max licenses in use: Difference between revisions

→‎Version 2 dual-coded for PC and TSO: add Windows Output for ooRexx and Regina
(→‎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:
 
<br>It is unknown which classic REXX interpreter can be used (under Windows) below, it fails for the above mentioned seven REXX interpreters.
<br>I am sure it has worked for Regina.
Maybe this is now correct for all the WIN (and xxDOS) situations (pun intended)
<lang rexx>/* REXX **************************************************************
Line 2,032:
store.0=z
Return</lang>
{{out}} on Windows
Output:
<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
It occurred at 2008/10/03_08:39:34 for job 1833
Line 2,052 ⟶ 2,053:
2 99
10000 Jobs
0.384154234000 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}}==
2,289

edits