Markus Loew <
archives.in...@gmail.com> wrote:
> 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 ;
>
>
>
Runs on Linux or OS/2, windows is on the “to do” list. At one point windows
had an OS/2 subsystem, but i guess they got rid of it.
--
Pete