Copyright (c) Digital Equipment Corporation 1988. All rights reserved
LAYERED PRODUCT or COMPONENT: PLI 3.1    OP/SYS: VMS 5.0

SOURCE:     Digital Customer Support Center


OVERVIEW:

This program demonstrates calling BAS$ routines to print text with or
without a <CR><LF> at the end of the line.  This would be useful as an
option in PL/I since the PUT command does not provide a "No <CR><LF>"
option (though SKIP(0) does only a line feed to allow overprinting).


CAUTION:  This sample program has been tested using:
        PRODUCT: PLI 3.1 on OPERATING SYSTEM: VMS 5.0
However, we cannot guarantee its effectiveness because of the possibility of
errors in transmitting or implementing it.  It is meant to be used as a
template for writing your own program, and it may require modification for use
on your system.


PROGRAM NOTES:

Note that the external routines used here are from BASRTL.EXE, which
comes with VMS.  The absence of the Basic compiler on a system would
not prevent this routine from working.


PROGRAM SAMPLE:

/*
    print a line with and without cr-lf using bas$ routines
*/
prt:    procedure options(main);
dcl s1 char(4) init('abcd');
dcl s2 char(4) init('1234');
dcl bas$print       external entry(any value);
dcl bas$out_t_dx_s  external entry(any desc);   /* no cr-lf used */
dcl bas$out_t_dx_b  external entry(any desc);   /* uses cr-lf */
dcl bas$io_end      external entry;

call bas$print(0);
call bas$out_t_dx_s(s1);
call bas$io_end;

call bas$print(0);
call bas$out_t_dx_b(s2);
call bas$io_end;

end;

buy online or call 1.800.AT.COMPAQ