[Info-vax] Command Procedure pass value to program READ

HCorte hmmbcorte at gmail.com
Fri Feb 11 10:38:07 EST 2022


A sexta-feira, 11 de fevereiro de 2022 à(s) 15:32:15 UTC, Arne Vajhøj escreveu:
> On 2/11/2022 10:12 AM, HCorte wrote:
> > Its working added a condition IF(LIB$GET_SYMBOL('script_origin',SYMBOL_VALUE)) then uses unit=6. 
> > 
> > for performance purposes LIB$GET_SYMBOL('script_origin',SYMBOL_VALUE) shouldn't have impact right?
> So you are setting a symbol to indicate what to do. 
> 
> Why not just test on what SYS$INPUT is? 
> 
> Demo: 
> 
> program dvi 
> include '($dvidef)' 
> include '($dcdef)' 
> integer*4 devclz 
> call lib$getdvi(DVI$_DEVCLASS, %VAL(0), 'SYS$INPUT', devclz) 
> if (devclz.eq.DC$_TERM) then 
> write(*,*) 'You can write to unit 5' 
> else 
> write(*,*) 'Do not try to write to unit 5' 
> end if 
> end 
> 
> Arne

thanks @Arne gona try that.



More information about the Info-vax mailing list