The script works very well to show all sessions and the ip address.
For those who want to show only the workstations having more than one session on it, may use the COBOL code following the script (it also has the date / time of logon).
Note that this version is MPE iX friendly and works from the colon (:) prompt, rather than in an HTML page.
(Although the *other version* is handy if you can't logon because you've reached your session license limit!)
>>> Keven Miller <[log in to unmask]> 08/17 11:07 AM >>>
Barry (I believe it was) presented a posix script to show current sessions
with ipaddr.
Here is an MPE script.
PARM SESID=""
ANYPARM STUFF=""
IF "!SESID" = "" OR "!SESID" = "@" THEN
SHOWJOB JOB=@S >SLST
XEQ !HPFILE ALL <SLST
PURGE SLST,TEMP
ELSEIF "!SESID" = "ALL" THEN
SETJCW JCW=0
ECHO Session Ldev IP User
ECHO ------- ---- --------------- -----------------------------------
WHILE JCW = 0 DO
SETJCW CIERROR=0
SETVAR HPMSGFENCE 2
SETVAR _SSID ""
CONTINUE
INPUT _SSID
SETVAR HPMSGFENCE 0
IF CIERROR <> 0 THEN
SETJCW JCW=1
ELSEIF LFT ( _SSID, 1 ) = "#" THEN
XEQ !HPFILE !_SSID
ENDIF
ENDWHILE
ECHO ------- ---- --------------- -----------------------------------
DELETEVAR _SSID
ELSE
SETVAR _SSDV JINFO ( "!SESID", "LDEVOUT" )
ECHO ![LFT( "!SESID ",7)] &
![LFT ( "!_SSDV ",4)] &
![LFT (JINFO ( "!SESID", "IPADDR" )+" ",15)] &
![LFT (JINFO ( "!SESID", "JOBUSERACCOUNTGROUP" )+RPT(" ",35),35)]
DELETEVAR _SSDV
ENDIF
:SS
Session Ldev IP User
------- ---- --------------- -----------------------------------
#S836 20 CONSOLE,OPERATOR.SYS,OPERATOR
#S869 8 192.168.20.124 SCOTT.MMDEV,SCOTT
#S873 23 192.168.20.124 SCOTT,MANAGER.SYS,PUB
#S899 28 192.168.20.126 KEVEN.PMDEV,KEVEN
#S906 22 127.0.0.1 LISTREV,SCOTT.MMHPSRC,SCOTT
#S907 30 GUI,MGR.SURVIVAL,PUB
------- ---- --------------- -----------------------------------
> This last session, S907, is an RPM session.
> _____________________________________________________________
> Keven Miller mailto:[log in to unmask] http://www.exegesys.com
>
Compile:
COB85XLK CSM505CC,CSM505
CSM505C Source:
000100$CONTROL USLINIT,BOUNDS,LOCKING,LINES=58
000200 IDENTIFICATION DIVISION.
000300 PROGRAM-ID. CSM505.
000400
000500*******************************************************
000600*
000700* This program displays remote work stations
000800* with more than one session logged on.
000900*
001000*******************************************************
001100
001200* This program must be compiled using the COBOL 85
001300* with the COBOLIIX UDC.
001400
001500 AUTHOR. D BECKER.
001600 DATE-WRITTEN. TUE, JAN 19, 1999.
001700 DATE-COMPILED.
001800
001900 ENVIRONMENT DIVISION.
002000 CONFIGURATION SECTION.
002100
002200 SOURCE-COMPUTER. HP-3000.
002300 OBJECT-COMPUTER. HP-3000.
002400
002500 SPECIAL-NAMES.
002600 CONDITION-CODE IS CC
002700 SYMBOLIC CHARACTERS NUL is 1, LF is 11, CR is 14.
002800
002900 INPUT-OUTPUT SECTION.
003000 FILE-CONTROL.
003100
003200 SELECT LISTAC ASSIGN TO "LISTF8"
003300 ORGANIZATION IS SEQUENTIAL.
003400
003500 DATA DIVISION.
003600 FILE SECTION.
003700
003800 FD LISTAC.
003900 01 LISTAC-REC.
004000 5 LISTAC-SESSION PIC X(8).
004100 5 LISTAC-USER PIC X(27).
004200 5 LISTAC-SHARE PIC X(21).
004300 5 LISTAC-REMI PIC X(6).
004400 5 LISTAC-ADDR PIC X(16).
004500 5 FILLER PIC X(235).
004600
004700
004800 WORKING-STORAGE SECTION.
004900 77 SS-PTR1 PIC S9(4) COMP VALUE 0.
005000 77 SS-PTR2 PIC S9(4) COMP VALUE 0.
005100 77 SS-PTR3 PIC S9(4) COMP VALUE 0.
005200 77 SS-PTR4 PIC S9(4) COMP VALUE 0.
005300 77 SS-PTR5 PIC S9(4) COMP VALUE 0.
005400 77 SS-PTR6 PIC S9(4) COMP VALUE 0.
005500
005600 01 SSS-TABLE.
005700 5 SSS-OCCURS OCCURS 170 TIMES.
005800 6 SSS-KEY.
005900 7 SSS-KEYC PIC X(16).
006000
006100 6 SSS-REST.
006200 7 SSS-RESTC.
006300 9 SSS-SESSION PIC X(8).
006400 9 SSS-USER PIC X(27).
006500
006600
006700 1 SORT-RECORD.
006800 5 SORT-KEY.
006900 7 SORT-KEYC PIC X(8).
007000
007100 5 SORT-REST.
007200 7 SORT-RESTC PIC X(72).
007300
007400
007500 77 SORT-IND PIC X VALUE "0".
007600 88 SORT-END VALUE "9".
007700
007800 77 LISTAC-SW PIC X VALUE "0".
007900 88 LISTAC-EOF VALUE "9".
008000
008100 77 PARM-SIZE PIC S9(4) COMP VALUE 80.
008200 77 PARM-VALUE PIC S9(4) COMP VALUE 0.
008300
008400 01 PARM-INFO.
008500 5 PARM-INFO72 PIC X(72) VALUE " ".
008600 5 FILLER PIC X(8) VALUE " ".
008700
008800 77 WHO-MODE PIC S9(4) COMP VALUE 0.
008900 77 WHO-MODE1 PIC S9(4) COMP VALUE 0.
009000 77 WHO-USER PIC X(8) VALUE " ".
009100 77 WHO-ACCOUNT PIC X(8) VALUE " ".
009200 77 WHO-GROUP PIC X(8) VALUE " ".
009300 77 INFO-LENGTH PIC S9(4) COMP VALUE -80.
009400
009500 77 SUB PIC S9(4) COMP VALUE 0.
009600
009700 77 INFO-IN PIC X VALUE " ".
009800 88 INFO-IN-OK VALUE " ".
009900
010000 77 DSPLY-ITM PIC ----9.
010100
010200 77 DSPLY PIC ---,---,--9.
010300
010400 1 INFO.
010500 5 INFO-X PIC X VALUE " ".
010600 5 INFO-R PIC X(79) VALUE " ".
010700
010800 77 CMD-ERROR PIC S9(4) COMP VALUE 0.
010900 77 CMD-PARAM PIC S9(4) COMP VALUE 0.
011000
011100 1 COMMAND-AREA.
011200 5 COMMANDA PIC X(72) VALUE " ".
011300 5 FILLER PIC X VALUE %15.
011400
011500 77 JSIND PIC 9(4) COMP VALUE 1.
011600 77 JSNUM PIC S9(9) COMP VALUE 0.
011700
011800 01 JSSTATUS.
011900 5 JSSTATUS1 PIC S9(4) COMP VALUE 0.
012000 5 JSSTATUS2 PIC S9(4) COMP VALUE 0.
012100
012200 77 JSUSERID PIC X(8) VALUE SPACES.
012300 77 JSACCOUNT PIC X(8) VALUE SPACES.
012400 77 JSJOBNAME PIC X(8) VALUE SPACES.
012500
012600 77 JSERR1 PIC S9(4) COMP VALUE 0.
012700 77 JSERR2 PIC S9(4) COMP VALUE 0.
012800
012900 77 JSERR3 PIC S9(4) COMP VALUE 0.
013000 77 JSERR4 PIC S9(4) COMP VALUE 0.
013100 77 JSERR5 PIC S9(4) COMP VALUE 0.
013200 77 JSERR6 PIC S9(4) COMP VALUE 0.0
013300 77 JSERR7 PIC S9(4) COMP VALUE 0.
013400 77 JSERR8 PIC S9(4) COMP VALUE 0.
013500
013600 77 INPUT-LDEV PIC X(8) VALUE SPACES.
013700 77 INTRO-DATE PIC S9(4) COMP VALUE 0.
013800 77 INTRO-TIME PIC S9(9) COMP VALUE 0.
013900 77 QUIET-MODE PIC S9(4) COMP VALUE 0.
014000
014100 77 DISPLAY-NAME PIC X(18) VALUE SPACES.
014200
014300
014400 01 DISPLAY-TIME.
014500 5 DISPLAY-TIME-DAY PIC X(5) VALUE " ".
014600 5 DISPLAY-TIME-REST PIC X(22) VALUE " ".
014610 5 FILLER PIC X VALUE " ".
014700
014800 77 QUIET-DISPLAY PIC X(6) VALUE " ".
014900
015000 1 SJW.
015100 3 SJW1.
015200 5 SJW-NUM PIC 9(9).
015300 5 SJW-XO.
015400 7 SJW-X PIC X.
015500 7 SJW-R1 PIC X(8).
015600 3 SJW2 REDEFINES SJW1.
015700 5 SJW-X2 PIC X.
015800 5 SJW-R3 PIC X(17).
015900
016000
016100
016200 PROCEDURE DIVISION.
016300 SECTION1 SECTION.
016400 STARTUP.
016500 CALL INTRINSIC "GETINFO" USING PARM-INFO, PARM-SIZE,
016600 PARM-VALUE.
016700
016800 CALL INTRINSIC "WHO" USING WHO-MODE \\ \\
016900 WHO-USER, WHO-GROUP, WHO-ACCOUNT.
017000
017100 DIVIDE 4 INTO WHO-MODE.
017200
017300 DISPLAY " CSM505: Version 1.0 Compiled " WHEN-COMPILED.
017400 DISPLAY " "
017500 "Display of Multiple Sessions on a workstation.".
017600 DISPLAY " ".
017700
017800 MOVE "LISTFILE CI.PUB.SYS,8 > LISTF8" TO COMMANDA.
017900 PERFORM DO-COMMAND.
018000
018100 OPEN INPUT LISTAC.
018200
018300 PERFORM PROCESS-FILES UNTIL LISTAC-EOF.
018400
018500 CLOSE LISTAC.
018600
018700 MOVE "PURGE LISTF8,TEMP" TO COMMANDA.
018800 PERFORM DO-COMMAND.
018900
019000 IF SS-PTR1 > 1
019100 PERFORM SORT-START
019200 MOVE 0 TO SS-PTR2
019300 PERFORM DISPLAY-STATIONS.
019400
019500 DISPLAY " ".
019600 DISPLAY " -- CSM505 COMPLETED.".
019700
019800 STOP RUN.
019900
020000 DISPLAY-STATIONS.
020100 ADD 1 TO SS-PTR2.
020200 COMPUTE SS-PTR3 = SS-PTR2 + 1.
020300
020400 PERFORM DISPLAY-STATIONS1 UNTIL SS-PTR3 > SS-PTR1.
020500
020600 DISPLAY-STATIONS1.
020700 IF SSS-KEYC (SS-PTR2) NOT = SSS-KEYC (SS-PTR3)
020800 ADD 1 TO SS-PTR2
020900 ADD 1 TO SS-PTR3
021000 ELSE
021100 MOVE SS-PTR2 TO SS-PTR4
021200 PERFORM DISPLAY-STATIONS2
021300 MOVE SS-PTR3 TO SS-PTR4
021400 PERFORM DISPLAY-STATIONS2
021500 MOVE SS-PTR3 TO SS-PTR2
021600 ADD 1 TO SS-PTR3
021700 PERFORM DISPLAY-STATIONS3 UNTIL SS-PTR3 > SS-PTR1
021800 OR
021900 SSS-KEYC (SS-PTR2) NOT = SSS-KEYC (SS-PTR3)
022000 DISPLAY " ".
022100
022200 DISPLAY-STATIONS2.
022300
022400 MOVE SSS-SESSION (SS-PTR4) TO SJW-XO.
022500
022600 IF SJW-X = "#"
022700 MOVE SJW-R1 TO SJW-XO
022800 IF SJW-X = "S"
022900 MOVE SJW-R1 TO SJW-XO
023000 PERFORM GET-JOBINFO.
023100
023200 MOVE SSS-USER (SS-PTR4) TO DISPLAY-NAME.
023300
023400 DISPLAY SSS-KEYC (SS-PTR4)
023500 SSS-SESSION (SS-PTR4)
023600 DISPLAY-NAME
023700 QUIET-DISPLAY
023800 INPUT-LDEV
023900 DISPLAY-TIME-REST.
024000
024100 GET-JOBINFO.
024200 MOVE 0 TO SJW-NUM.0
024300 MOVE SPACES TO QUIET-DISPLAY.
024400 MOVE 0 TO INTRO-TIME.
024500 MOVE SPACES TO INPUT-LDEV.
024600 MOVE SPACES TO DISPLAY-TIME.
024700
024800 PERFORM JUST-JOBINFO UNTIL SJW-X > "9" OR < "0".
024900 MOVE SJW-NUM TO JSNUM.
025000
025100 CALL INTRINSIC "JOBINFO" USING
025200 JSIND, JSNUM, JSSTATUS,
025300 7, INTRO-TIME, JSERR4
025400 8, INTRO-DATE, JSERR5
025500 9, INPUT-LDEV, JSERR6
025600 40, QUIET-MODE, JSERR7.
025700
025800
025900 CALL INTRINSIC "FMTDATE" USING
026000 INTRO-DATE, INTRO-TIME, DISPLAY-TIME.
026100
026200 IF QUIET-MODE = 1 MOVE "QUIET" TO QUIET-DISPLAY.
026300
026400 JUST-JOBINFO.
026500 MOVE SJW-R3 TO SJW2.
026600
026700 DISPLAY-STATIONS3.
026800 MOVE SS-PTR3 TO SS-PTR4.
026900 PERFORM DISPLAY-STATIONS2.
027000 ADD 1 TO SS-PTR2.
027100 ADD 1 TO SS-PTR3.
027200
027300 PROCESS-FILES.
027400 MOVE SPACES TO LISTAC-REC.
027500 READ LISTAC AT END SET LISTAC-EOF TO TRUE.
027600 IF NOT LISTAC-EOF PERFORM PROCESS-FILES1.
027700
027800 PROCESS-FILES1.
027900 IF LISTAC-REMI = "REM : "
028000 ADD 1 TO SS-PTR1
028100 MOVE LISTAC-ADDR TO SSS-KEYC (SS-PTR1),
028200 MOVE LISTAC-SESSION TO SSS-SESSION (SS-PTR1),
028300 MOVE LISTAC-USER TO SSS-USER (SS-PTR1).
028400
028500 DO-COMMAND.
028600 CALL INTRINSIC "HPCICOMMAND" USING
028700 COMMAND-AREA, CMD-ERROR, CMD-PARAM.
028800
028900 IF CC NOT = 0
029000 MOVE CMD-ERROR TO DSPLY-ITM
029100 DISPLAY " * COMMAND ERROR " DSPLY-ITM " FOR "
029200 DISPLAY COMMANDA
029300 MOVE CMD-PARAM TO DSPLY-ITM
029400 DISPLAY DSPLY-ITM " = PARAM.".
029500
029600 SORT-START.
029700 MOVE SS-PTR1 TO SS-PTR3.
029800 MOVE 1 TO SS-PTR2.
029900
030000 PERFORM SORT-X1 UNTIL SS-PTR3 NOT > SS-PTR2.
030100
030200 SORT-X1.
030300 IF SSS-KEY (SS-PTR2) > SSS-KEY (SS-PTR3)
030400 MOVE SSS-OCCURS (SS-PTR3) TO SORT-RECORD
030500 MOVE SSS-OCCURS (SS-PTR2) TO SSS-OCCURS (SS-PTR3)
030600 MOVE SORT-RECORD TO SSS-OCCURS (SS-PTR2).
030700
030800 MOVE SS-PTR2 TO SS-PTR4.
030900
031000 COMPUTE SS-PTR5 = (SS-PTR3 - SS-PTR2) - 1.
031100
031200 IF SS-PTR5 > 0
031300 PERFORM SORT-X2 SS-PTR5 TIMES.
031400
031500 ADD 1 TO SS-PTR2.
031600 SUBTRACT 1 FROM SS-PTR3.
031700
031800 SORT-X2.
031900 ADD 1 TO SS-PTR4.
032000
032100 IF SSS-KEY (SS-PTR4) > SSS-KEY (SS-PTR3)
032200 MOVE SSS-OCCURS (SS-PTR3) TO SORT-RECORD
032300 MOVE SSS-OCCURS (SS-PTR4) TO SSS-OCCURS (SS-PTR3)
032400 MOVE SORT-RECORD TO SSS-OCCURS (SS-PTR4)
032500 ELSE
032600 IF SSS-KEY (SS-PTR4) < SSS-KEY (SS-PTR2)
032700 MOVE SSS-OCCURS (SS-PTR2) TO SORT-RECORD
032800 MOVE SSS-OCCURS (SS-PTR4) TO SSS-OCCURS (SS-PTR2)
032900 MOVE SORT-RECORD TO SSS-OCCURS (SS-PTR4).
033000
Sample Output:
:csm505
CSM505: Version 1.0 Compiled 08/17/00 11:02:32
Display of Multiple Sessions on a workstation.
162.5.141.218 #S5906 MZETTS.DCIS QUIET 19 AUG 17, 2000, 6:19 AM
162.5.141.218 #S5907 MZETTS.DCIS QUIET 24 AUG 17, 2000, 6:20 AM
162.5.141.241 #S5935 MKNIGHT.FINAN QUIET 48 AUG 17, 2000, 7:21 AM
162.5.141.241 #S5936 MKNIGHT.FINAN QUIET 52 AUG 17, 2000, 7:21 AM
162.5.141.242 #S5959 MREBILL.FINAN QUIET 79 AUG 17, 2000, 7:29 AM
162.5.141.242 #S5958 MREBILL.FINAN QUIET 76 AUG 17, 2000, 7:28 AM
162.5.141.242 #S5952 MREBILL.FINAN QUIET 69 AUG 17, 2000, 7:27 AM
162.5.141.243 #S5992 HFAIRLE.FINAN QUIET 159 AUG 17, 2000, 7:44 AM
162.5.141.243 #S5991 HFAIRLE.FINAN QUIET 149 AUG 17, 2000, 7:44 AM
162.5.141.243 #S5990 HFAIRLE.FINAN QUIET 145 AUG 17, 2000, 7:43 AM
162.5.33.161 #S6002 LDAISEY.DDCPROD 169 AUG 17, 2000, 7:53 AM
162.5.33.161 #S6001 MGR.ADCPROD 164 AUG 17, 2000, 7:53 AM
162.5.33.161 #S6000 MGR.DCIS QUIET 162 AUG 17, 2000, 7:52 AM
162.5.33.161 #S5998 LINDA.TECSUP 163 AUG 17, 2000, 7:51 AM
162.5.33.161 #S6003 MGR.TDCPROD 170 AUG 17, 2000, 7:53 AM
162.5.34.157 #S5994 CWILLIA.DCIS QUIET 161 AUG 17, 2000, 7:46 AM
162.5.34.157 #S6034 CWILLIA.DCIS QUIET 196 AUG 17, 2000, 9:28 AM
162.5.34.176 #S6037 JHERNAN.DCIS QUIET 198 AUG 17, 2000, 9:37 AM
162.5.34.176 #S5931 JHERNAN.DCIS QUIET 47 AUG 17, 2000, 7:16 AM
162.5.34.184 #S5922 IGORDON.DCIS QUIET 39 AUG 17, 2000, 6:55 AM
162.5.34.184 #S5924 IGORDON.DCIS QUIET 40 AUG 17, 2000, 7:02 AM
162.5.34.186 #S5957 DBELIEU.DCIS QUIET 74 AUG 17, 2000, 7:28 AM
162.5.34.186 #S5961 DBELIEU.DCIS QUIET 81 AUG 17, 2000, 7:29 AM
162.5.34.187 #S5954 DMAXWEL.DCIS QUIET 63 AUG 17, 2000, 7:27 AM
162.5.34.187 #S5955 DMAXWEL.DCIS QUIET 53 AUG 17, 2000, 7:28 AM
162.5.34.189 #S5925 DRHEA.DCIS QUIET 41 AUG 17, 2000, 7:03 AM
162.5.34.189 #S6033 DRHEA.DCIS QUIET 66 AUG 17, 2000, 9:21 AM
162.5.34.190 #S5968 HPARKS.DCIS QUIET 72 AUG 17, 2000, 7:32 AM
162.5.34.190 #S5993 HPARKS.DCIS QUIET 160 AUG 17, 2000, 7:46 AM
162.5.34.192 #S5953 CNISHIM.DCIS QUIET 71 AUG 17, 2000, 7:27 AM
162.5.34.192 #S5941 CNISHIM.DCIS QUIET 56 AUG 17, 2000, 7:24 AM
162.5.34.198 #S5962 RRISEDE.DCIS QUIET 83 AUG 17, 2000, 7:29 AM
162.5.34.198 #S5965 RRISEDE.DCIS 68 AUG 17, 2000, 7:30 AM
162.5.34.200 #S5979 RYOUNG1.DCIS QUIET 86 AUG 17, 2000, 7:36 AM
162.5.34.200 #S5970 RYOUNG1.DCIS QUIET 80 AUG 17, 2000, 7:33 AM
162.5.34.200 #S5980 RYOUNG1.DCIS QUIET 108 AUG 17, 2000, 7:36 AM
162.5.34.209 #S5918 SFISH.DCIS QUIET 34 AUG 17, 2000, 6:49 AM
162.5.34.209 #S5917 SFISH.DCIS QUIET 33 AUG 17, 2000, 6:49 AM
162.5.34.210 #S5981 MSMITH4.DCIS QUIET 109 AUG 17, 2000, 7:39 AM
162.5.34.210 #S5982 MSMITH4.DCIS QUIET 118 AUG 17, 2000, 7:40 AM
162.5.34.212 #S6015 EBRANDV.DCIS QUIET 180 AUG 17, 2000, 8:24 AM
162.5.34.212 #S6016 EBRANDV.DCIS QUIET 181 AUG 17, 2000, 8:26 AM
162.5.34.213 #S6022 BCOOK.DCIS QUIET 186 AUG 17, 2000, 8:56 AM
162.5.34.213 #S6023 BCOOK.DCIS QUIET 187 AUG 17, 2000, 8:56 AM
162.5.34.214 #S5912 LMILLE3.DCIS QUIET 28 AUG 17, 2000, 6:28 AM
162.5.34.214 #S5945 LMILLE3.DCIS QUIET 60 AUG 17, 2000, 7:25 AM
162.5.34.219 #S6005 SHULIN.DCIS QUIET 171 AUG 17, 2000, 8:00 AM
162.5.34.219 #S5933 SHULIN.DCIS QUIET 51 AUG 17, 2000, 7:20 AM
162.5.34.230 #S5927 CSALSBE.DCIS QUIET 43 AUG 17, 2000, 7:06 AM
162.5.34.230 #S5932 CSALSBE.DCIS QUIET 49 AUG 17, 2000, 7:18 AM
162.5.34.80 #S5985 LMCGUIR.DCIS QUIET 128 AUG 17, 2000, 7:42 AM
162.5.34.80 #S5987 LMCGUIR.DCIS 139 AUG 17, 2000, 7:43 AM
162.5.34.80 #S5988 LMCGUIR.DCIS 142 AUG 17, 2000, 7:43 AM
162.5.34.80 #S5989 LMCGUIR.DCIS QUIET 147 AUG 17, 2000, 7:43 AM
162.5.34.80 #S5984 LMCGUIR.DCIS QUIET 119 AUG 17, 2000, 7:41 AM
162.5.34.81 #S5977 DGUNOVI.DCIS QUIET 89 AUG 17, 2000, 7:35 AM
162.5.34.81 #S5978 DGUNOVI.DCIS QUIET 78 AUG 17, 2000, 7:35 AM
162.5.34.85 #S5944 MCERVEN.DCIS QUIET 59 AUG 17, 2000, 7:24 AM
162.5.34.85 #S5942 MCERVEN.DCIS QUIET 55 AUG 17, 2000, 7:24 AM
162.5.34.85 #S5946 MCERVEN.DCIS QUIET 61 AUG 17, 2000, 7:25 AM
162.5.71.253 #S6020 KWRYE.TDCPROD 184 AUG 17, 2000, 8:54 AM
162.5.71.253 #S6021 KWRYE.TDCPROD 185 AUG 17, 2000, 8:54 AM
-- CSM505 COMPLETED.
:
|