graham@drcvax.UUCP (05/26/87)
Greetings and Salivations,
To those who are now using SNAP. I'm sure you have noticed that the UIC
display on the Stat function is...well...inelegant. For example, a UIC of
2,10 will show up on the display as [ 2, 10] or, even worse, if you
have changed the O3s to O6s [ 2, 10].
A few lines of convoluted code will fix this. Fitst, you need to add a few
data items:
CHARACTER*6 UICM,UICG
INTEGER*4 LUIC
INTEGER*2UICGLEN,UICMLEN
Now, just before the
FULUIC = UIC(1) + (65536 * UIC(2))
line, add these lines:
LUIC = UIC(1)
CALL OTS$CVT_L_TO(LUIC,UICM,,)
LUIC = UIC(2)
CALL OTS$CVT_L_TO(LUIC,UICG,,)
DO I=1,6
IF (UICG(I:I) .EQ. ' ') UICGLEN = 6 - I
IF (UICM(I:I) .EQ. ' ') UICMLEN = 6 - I
ENDDO
This is necessary to calculate the actual length of the non-space string.
A few lines down is a series of print statements, one is obviously the one
which prints the UICs and the identifier, replace it with thie:
PRINT 112,UICG(7-UICGLEN:6),UICM(7-UICMLEN:6),ID
Replace the format statement 112 with:
112 FORMAT(1X,'UIC: [',A<UICGLEN>,',',A<UICMLEN>,'] Ident: ',
1 A<IDLEN>,/)
This will make the UIC display look normal, (I hope)
Hackito, ergo sum.
Dan Graham, Dynamics Research Corporation, (617) 475-9090 Ext. 2352
GRAHAM@DRCVAX.ARPA
Hoc est meum hackum. Ideas and opinions are mine, not my employers. In
fact, my employer barely claims to know me at all. I make no claim to
sanity in any form or on any level.
------