From
Markus Loew@21:1/5 to
All on Fri Sep 3 16:45:30 2021
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=12
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 ;
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)