UNIQUE

xcall UNIQUE, fname

UNIQUE.SBR generates a unique filename based on your current jobname. This can be handy for generating print files and other temporary files which are periodically erased.

The parameter fname (string variable, 10+ bytes) will be set to <jobnam>.T#@ where # is a digit from zero to nine, and @ is an alphabetic character from A to Z. It scans through these names in order until finding one that is not in use. Thus if the current job is TSKAAA, the first name returned (assuming it is not already in use) will be TSKAAA.T0A, followed by TSKAAA.T0B, etc.