Main Menu

KB#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.

  Google+ View BASIS LinkedIN Profile Visit our Twitter Feed Check out our Facebook Public Profile Click to View the BASIS youTube channel