Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Path: utzoo!utgpu!water!watmath!clyde!cbosgd!ucbvax!drcvax!graham From: graham@drcvax.UUCP Newsgroups: comp.os.vms Subject: SNAP UIC display fix Message-ID: <8705270605.AA09729@ucbvax.Berkeley.EDU> Date: Tue, 26-May-87 11:13:00 EDT Article-I.D.: ucbvax.8705270605.AA09729 Posted: Tue May 26 11:13:00 1987 Date-Received: Thu, 28-May-87 06:15:02 EDT Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: "Daniel J. Graham" Distribution: world Organization: The ARPA Internet Lines: 50 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,',',A,'] Ident: ', 1 A,/) 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. ------