MPEX could do this:
PARM PNBR
SETLVAR RNDNAME,RANDOMNAME
BUILD ![RNDNAME];TEMP;CODE="!PNBR"
SETLVAR RNDCODE,VEFINFO("![RNDNAME]").CODE
SETLVAR RNDNUMB,VEFINFO("![RNDNAME]").INTCODE
ECHO File Code ![RNDNUMB] Mnemonic is ![RNDCODE]
PURGE ![RNDNAME],OLDTEMP
John Stephens wrote:
>
> Comrades:
>
> Is there a command or utility that will give me definitions of every (or most)
> file codes?
>
> thanks,
> John Stephens