Text processing/Max licenses in use: Difference between revisions
Content added Content deleted
m (→Version 2 dual-coded for PC and TSO: corrected a misspelling.) |
Walterpachl (talk | contribs) (→Version 2 dual-coded for PC and TSO: try to fix the reported/unknown problems) |
||
Line 1,963: | Line 1,963: | ||
::* '''Win32''' for R4 and ROO |
::* '''Win32''' for R4 and ROO |
||
<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. |
|||
Maybe this is now correct for all the WIN (and xxDOS) situations (pun intended) |
|||
<lang rexx>/* REXX ************************************************************** |
<lang rexx>/* REXX ************************************************************** |
||
* 19.11.2012 Walter Pachl transcribed from PL/I |
* 19.11.2012 Walter Pachl transcribed from PL/I |
||
Line 1,971: | Line 1,973: | ||
call time 'R' |
call time 'R' |
||
Say source |
Say source |
||
Parse Upper source system . |
|||
If left(source,7)='Windows' Then Do |
|||
If left(system,3)='WIN' |, /* changed from 'Windows' (I see WIN64 in source) */ |
|||
wordpos(system,'MSDOS PCDOS')>0 Then Do |
|||
fid='mlijobs.txt' |
fid='mlijobs.txt' |
||
Do i=1 By 1 While lines(fid)>0 |
Do i=1 By 1 While lines(fid)>0 |