• I Want To Acquire PL/I for Windows

    From Markus Loew@21:1/5 to All on Thu Sep 2 02:35:59 2021
    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.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Peter Flass@21:1/5 to Markus Loew on Thu Sep 2 07:10:45 2021
    Markus Loew <archives.informatiques@gmail.com> wrote:
    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.


    I think the LRM and PG are online. At worst case, you could cart the PDFs
    down to Staples, and they can print them double-sided and three-hole
    punched if you want the dead-tree version.

    --
    Pete

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Robin Vowels@21:1/5 to archives.in...@gmail.com on Thu Sep 2 09:44:23 2021
    On Thursday, September 2, 2021 at 7:36:00 PM UTC+10, archives.in...@gmail.com wrote:
    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.
    .
    PL/I for Windows is still available, but you need to buy it with
    Enterprise PL/I compiler for z/OS.
    .
    Manuals for VA PL/I are available on the web.
    .
    Best option might be to install Ironspring PL/I, which is available free
    for OS/2 and Linux.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • 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)
  • From Peter Flass@21:1/5 to Markus Loew on Sat Sep 4 16:48:29 2021
    Markus Loew <archives.informatiques@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

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Markus Loew@21:1/5 to All on Sun Sep 5 07:05:41 2021
    What do I have to do to make run DEMO2?
    I have unzipped the install package and then cpoied DEMO2

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)