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