00758: Info(2,4) Now returns 4 byte value

Title:

Info(2,4) Now returns 4 byte value

Description:

Prior to PRO/5 Rev. 2.20, INFO(2,4) returned a two-byte binary string. Beginning with Rev. 2.20, INFO(2,4) returns four bytes, and on some operating systems it may return large negative numbers. Any applications written before Rev. 2.20 that depend on receiving a two-byte value may require modification (for example, when creating a unique temporary file name). The following example shows the use of INFO(2,4) to create a temporary file name: 

rem Determine temporary file name 
tpm__info$=info(2,4) 
tpm__info$=tpm__info$(3,2), 
: tpm__info=dec($00$+tpm__info$), 
: tpm__chan=unt, 
: tpm__done=0 

repeat 
tpm__tmpfile$=”_{“+str(tpm__info:”00000″)+”}.tmp”, 
: tpm__done=1 
open (tpm__chan,err=after_open)tpm__tmpfile$ 
tpm__done=0 
after_open: 
close (tpm__chan) 
if tpm__done=0 then 
: tpm__info=tpm__info+1; 
: if tpm__info>99999 then 
: tpm__info=0 
: fi 
: fi 
until tpm__done 

Last Modified: 02/23/2004 Product: PRO/5 Operating System: All platforms

BASIS structures five components of their technology into the BBx Generations.