MCKEEVER@UMKCVAX1.BITNET.UUCP (06/09/87)
I'm not familier with SNAP, but from the discussion I saw on the net it prints out UIC's without zero padding, as in [ 3, 6] instead of the standard [003,006] we are all use to. The space padding was described as not being elegant by one individual who claims to have come up with a solution that seemed to them to be more elegant. Unfortunately, this 'fix' seems to suffer from the same affliction as the original. If SNAP runs under VMS why not use Sys$Fao to do the formatting for you. Why re-invent the wheel. Below is a short program that does the translation from decimal to octal, with zero padding. Program Test Character * 8 OctalOut External Sys$Fao, Lib$Stop Integer * 4 Dummy, Status, Sys$Fao, Lib$Stop Type *, 'Enter a Number a number to translate...' Accept *, Dummy Status = Sys$Fao('[!6OL,!6OL]',, OctalOut, %Val(Dummy)) If (.NOT. Status) Call Lib$Stop(%Val(Status)) Type *, ' ' Type *, 'Number entered : ', Dummy Type *, 'Zero Padded Octal : ', OctalOut End P.S. There is also a Sys$Fao directive for converting a longword UIC into ASCII numeric format with braces, zero padding, and comma's or one that returns the Rights identifier associated with the longword UIC passed it. See page SYS-159 in V4.4 System Routines volume 8D for more information. ------------------------------------------------------------------------- UMU UMUMUMUMUM UMU UMUMUMUMUM UMU UMUMUMUMUM Brian McKeever UMU UMUMUMUMUM Computer Science U UM U University of Missouri Kansas City U UM UM UM 5100 RockHill Rd. UMUMUMUM UMUM UMUM 4747 Building Rm. 219 UMUMUMUM UMUM UMUM Kansas City, MO 64110 UMUMUMUM UMUM UMUM BITNET: MCKEEVER@UMKCVAX1 UMUMUMUM UMUM UMUM -------------------------------------------------------------------------