As IBM does not sell PL/I for Windows anymore, I am looking for
someone who has a licensed copy that he or she does not need anymore
and is willing to sell. Actually I am using the demo version 2.0 what I
want to replace by a more recent one. And I would also like to
acquire Language Reference Manual and Programming Guide.
As IBM does not sell PL/I for Windows anymore, I am looking for.
someone who has a licensed copy that he or she does not need anymore
and is willing to sell. Actually I am using the demo version 2.0 what I
want to replace by a more recent one. And I would also like to
acquire Language Reference Manual and Programming Guide.
1st - I know that you have to be owner of z/OS, but I am looking for a
2nd hand license of the time you did not have to be a millionaire.
2nd - I look for SC26-8001 and SC26-8003 manuals, in paper form
3rd - I extensively use preprocessing, what all other PL/I's are missing.
I do not have the time to waste to find out what will work, and how to
use. Half of their documentations are the list about what is not working compared to full PL/I. I prefer PL/I(F) and VA PL/I, both will full preprocessing power.
4th - I tried IS "plic":
archives@archives-X71Sr:~/Desktop/pli-0.9.10d$ ./plic pl1demo2.pli
Compiler return code was 4
archives@archives-X71Sr:~/Desktop/pli-0.9.10d$ wine plic pl1demo2.pli
Sorry, Z:\home\archives\Desktop\pli-0.9.10d\plic.exe is an OS/2 linear executable (LX) file!
winevdm: can't exec
'Z:\home\archives\Desktop\pli-0.9.10d\plic.exe': error
this is pl1demo2.pli
DEMO2 :
PROCEDURE OPTIONS (MAIN) ;
DECLARE
S CHARACTER (104) VARYING ,
D DECIMAL (3,1) FIXED ,
I BINARY (31) FIXED ;
OPEN FILE(SYSPRINT) PAGESIZE(62) ;
PUT STRING(S) EDIT((D DO D=-1.0 TO 1.0 BY 0.2))
(P'-9.V9',X(6)) ;
PUT FILE(SYSPRINT) EDIT('GRAD SINUS '||S,
(I,SIND(I),' '
|| SUBSTR(( 5)': ',
1,50-(SIND(I)<0)*TRUNC(0.5-50*SIND(I)))
|| SUBSTR((50) '*' ,
1, (SIND(I)<0)*TRUNC(0.5-50*SIND(I)))
|| '|'
|| SUBSTR((50) '*' ,
1, (SIND(I)>0)*TRUNC(0.5+50*SIND(I)))
|| SUBSTR(( 5)' :',
1 + (SIND(I)>0)*TRUNC(0.5+50*SIND(I)))
DO I=0 TO 360 BY 6))
(A,SKIP,F(3),X(1),P'-9.V9999') ;
END DEMO2 ;
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 365 |
Nodes: | 16 (2 / 14) |
Uptime: | 01:41:52 |
Calls: | 7,795 |
Calls today: | 5 |
Files: | 12,920 |
Messages: | 5,748,963 |