Hi Keith, I hadn't noticed that VLIST was any different. What I did notice is that the object in question was last compiled on UV 8.3, You might want to recompile this routine as well to update it. My guess is that VLIST is struggling with the opcodes in the older code. Perhaps IBM changed some opcodes more recently that is confusing things. That is just a guess since I cannot diagnose it. It seems fine for me.
Regards, LeRoy -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Keith Johnson (DSLWN) Sent: Monday, May 21, 2007 1:15 PM To: [email protected] Subject: [U2] (UV) - Is VLIST in version 10.2 fragile? Hi there, We have just upgraded both Universe and System Builder, going from UV 10.1.8 to 10.2.0 and from SB+ 3.4 to 5.4. Because the SB+ common block changed slightly, I had to recompile all programs that referenced it. However, I have discovered that not all the source code was on the production system. I wanted to verify that the development code was valid, but VLIST did not work properly. When I try VLIST, it seems to get the testfw jump wrong on line 22 (or 24 in the development version). From then on it gets stranger and stranger until it falls over. It looks like it gets out of step somehow. I realise it's not something anyone on the list can help with, but has anyone else noticed VLIST is more fragile in UV version 10.2? The development version of the source code and the VLIST from production are below. Don't bother criticising it - you can't be more scathing than me because I've had more practise. Regards (and thanks), Keith 001: $OPTIONS -F ;*WR631 002: SUBROUTINE LWPINP.INTERVAL.SEQ 003: ****************************************************************** 004: * Description of subroutine 005: * Used for documentation purposes (including auto documentation) 006: ****************************************************************** 007: * 008: $INCLUDE DMSKELCODE COMMON 009: EQU AM TO CHAR(254), VM TO CHAR(253) 010: * 011: *PARAM(3) = 0 012: ORIG.REC = 0 013: INTERVAL.SEQ = WORK<3> 014: LWOP.INTERVAL = 0 015: LWOP.INTERVAL.FILE = '' 016: OPEN.OK = @FALSE 017: CALL PAN.FILE.HANDLE ('LWOP.INTERVAL', LWOP.INTERVAL, LWOP.INTERVAL.FILE, OPEN.OK) 018: IF NOT(OPEN.OK) THEN 019: CALL SB.DISP (3, 'Can not open the file LWOP.INTERVAL') 020: RTN.FLAG = 1 021: END 022: FOUND = @TRUE 023: BEGIN CASE 024: CASE INTERVAL.SEQ = '' 025: KEY = WORK<1>: '|': WORK<2>: '|' 026: SEQ = 1 027: LOOP 028: READV DUMMY FROM LWOP.INTERVAL.FILE, KEY: SEQ, 1 ELSE FOUND = @FALSE 029: WHILE FOUND DO 030: SEQ += 1 031: REPEAT 032: KEY = KEY: SEQ 033: WORK<3> = SEQ 034: * PARAM(3) = 1 035: ORIG.REC = 1 036: CASE INTERVAL.SEQ = 'L' 037: KEY = WORK<1>: '|': WORK<2>: '|' 038: SEQ = 1 039: LOOP 040: READV DUMMY FROM LWOP.INTERVAL.FILE, KEY: SEQ, 1 ELSE FOUND= @FALSE 041: WHILE FOUND DO 042: SEQ += 1 043: REPEAT 044: KEY = KEY: SEQ - 1 045: WORK<3> = SEQ - 1 046: CASE 1 047: KEY = WORK<1>: '|': WORK<2>: '|': WORK<3> 048: READV DUMMY FROM LWOP.INTERVAL.FILE, KEY, 1 ELSE FOUND = @FALSE 049: IF NOT(FOUND) THEN 050: CALL SB.DISP (3, KEY: ' not on the LWOP INTERVAL file') 051: RTN.FLAG = 1 052: END 053: END CASE 054: 055: RETURN >VLIST SFPROGS LWPINP.INTERVAL.SEQ Subroutine "SFPROGS.O/LWPINP.INTERVA/L.SEQ" Compiler Version: 8.3.3.1 Object Level : 5 Machine Type : 10 Local Variables : 12 Subroutine args : 0 Unnamed Common : 0 Named Common Seg: 1 Object Size : 540 Source lines : 52 Object Date Time: 00011 00000 : 060 dyn_extract WORK 3 0 0 => INTERVAL.SEQ 00012 0000C : 0F8 move 0 => LWOP.INTERVAL 00013 00012 : 0F8 move "" => LWOP.INTERVAL.FILE 00014 00018 : 0F8 move 0 => OPEN.OK 00015 0001E : 0F8 move "LWOP.INTERVAL" => _T0000 00015 00024 : 01E call "PAN.FILE.HANDLE" _T0000 LWOP.INTERVAL LWOP.INTERVAL.FILE OPEN.OK 00020 0005C : 0F8 move 1 => FOUND 00022 00062 : 06E eq INTERVAL.SEQ "" => $R0 00022 0006A : 2DE testfw $R0 00000: 00023 00074 : 0F4 mmatstore [97] => WORK 00023 0007A : 018 braces 0 0 => $R0 00023 00082 : 060 dyn_extract WORK 2 0 0 => $R1 00023 0008E : 104 multi_cat $R0 "|" $R1 "|" => KEY 00024 0009C : 0F8 move 1 => SEQ 00026 000A2 : 03A concat KEY SEQ => $R0 00026 000AA : 272 reapv LWOP.INTERVAL.FILE $R0 1 => DUMMY 00026 000B4 : 0C8 jumpt 000BE: 00026 000BC : 0F8 move 0 => FOUND 00027 000C2 : 2DE testfw FOUND 00000: 00028 000CC : 0D8 lockelse OPEN.OK 00028 000D0 : 009 and 1 SEQ => [195] 00029 000D8 : 000 abort 00029 000DA : 000 abort 00029 000DC : 0A0 ge [59] KEY => SEQ 00030 000E4 : 00D atan [101] => WORK 00030 000EA : 010 bitand 0 0 => SEQ 00031 000F2 : 00E atinput [195] $MATRIX [537] [111] INTERVAL.SEQ 00031 000FE : 01C calculate $R0 => [735] 00032 00104 : 015 bitor $MATRIX [405] => [97] 00032 0010C : 00E atinput 1 0 0 $R0 [97] 00032 00118 : 00E atinput 2 0 0 $R1 [261] 00033 00124 : 004 add $R0 "|" => $R1 00033 0012C : 019 braces KEY [249] => 1 00033 00134 : 009 and [59] KEY => SEQ 00033 0013C : 015 bitor [627] LWOP.INTERVAL.FILE => $R0 00033 00144 : 018 braces DUMMY [201] => $MATRIX 00034 0014C : 14E readu [249] 0 => FOUND 00036 00154 : 2DE testfw FOUND 00000: 00036 0015C : 168 rnd OPEN.OK => SEQ 00036 00162 : 018 braces SEQ [195] => $MATRIX 00036 0016A : 000 abort 00036 0016C : 130 printcrlf SEQ 1 $R0 [59] KEY $R0 KEY [405] SEQ 1 $R0 [101] WORK 3 0 0 $R0 WORK [195] $MATRIX [537] [735] 1 $MATRIX [537] [97] WORK 1 0 0 $R0 [97] WORK 2 0 0 $R1 [97] WORK 3 0 0 $R2 [261] _T0000 $R0 "|" $R1 "|" $R2 KEY [627] LWOP.INTERVAL.FILE KEY 1 DUMMY [201] $MATRIX [487] [249] 0 FOUND [271] FOUND $R0 [735] $R0 $MATRIX [531] [249] 3 _T0003 [59] KEY " not on the LWOP INTERVAL file" _T0004 " not on the LWOP INTERVAL file" "SB.DISP" LWOP.INTERVAL _T0003 _T0004 [249] 1 RTN.FLAG [195] $MATRIX [537] [349] [349] $MATRIX INTERVAL.SEQ $MATRIX [207] [84] [16977] [19542] Abnormal termination of UniVerse. Fault type is 11. Layer type is Unknown. Program "/usr/ibm/uv/bin/vlist" terminated. [SIGSEGV] segmentation violation ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
