Copyright (c) Digital Equipment Corporation 1995.  All rights reserved.

PRODUCT:  DEC PL/I Version 4.0-5

OP/SYS:   OpenVMS AXP Version 6.1

SOURCE:   Digital Equipment Corporation


SYMPTOM:

When SYSPRINT is explicitly opened with the statememt

    OPEN FILE(SYSPRINT) PAGESIZE(n);

the PAGESIZE(n) option is ignored when SYS$OUTPUT is a terminal device
(OpenVMS AXP systems only).


DIGITAL RESPONSE:

Engineering has acknowledged this problem and plan to correct it in the
next release of DEC PL/I for OpenVMS Alpha.


WORKAROUND:

One possible workaround is to redirect SYS$OUTPUT to a file.


ANALYSIS:

The following program can be used to reproduce the problem:

$ type test.pli
test : procedure options(main);
%include pli_file_display;
    dcl dsp pointer;
    dcl i fixed bin(31);

    allocate pli_file_display set(dsp);

    open file(sysprint) pagesize(10);

    call display(sysprint, dsp->pli_file_display);

    put skip list('expanded title: ', dsp->expanded_title);
    put skip list('pagesize      : ', dsp->pagesize);
    put skip list('print         : ', dsp->print);
    put skip;

    do i = 1 by 1 to 20;
        put skip list(i, lineno(sysprint));
    end;

end test;
$ pli test
$ link test
$ run test ! OpenVMS VAX V6.1, VAX PL/I V3.5-124

expanded title:         _FTA194:[].LOG;
pagesize      :                     10
print         :         '1'B
             1          6
             2          7
             3          8
             4          9
             5         10

             6          1
             7          2
             8          3
             9          4
            10          5
            11          6
            12          7
            13          8
            14          9
            15         10













            16          1
            17          2
            18          3
            19          4
            20          5

$ run test ! OpenVMS AXP V6.1, DEC PL/I V4.0-5

expanded title:         _FTA93:[].LOG;
pagesize      :                      0
print         :         '1'B

             1          6
             2          7
             3          8
             4          9
             5         10
             6         11
             7         12
             8         13
             9         14
            10         15
            11         16
            12         17
            13         18
            14         19
            15         20
            16         21
            17         22
            18         23
            19         24
            20         25

If you redirect SYS$OUTPUT to a file, the output on both OpenVMS VAX and
OpenVMS AXP systems are the same, with PAGESIZE(10) handled correctly.
The problem only appears on OpenVMS AXP but not when SYS$OUTPUT is a
file; it does happen on OpenVMS AXP when SYS$OUTPUT is a terminal.  Other
possible device types for SYS$OUTPUT such as mailboxes have not been
tested.

buy online or call 1.800.AT.COMPAQ