LX100 Programdump for Stack 047B (Mix number 838/877) BOSR=002C5D3B Saturday, November 02, 2002 07:46:00 Name: (PAUL)OBJECT/UNITE/AS4027/COBOL85/SAMPLE ON OPS. MCP 48.189.8298: *SYSTEM/481/020204/DELTA/MCP. (MCP/AS) Intrinsics: *SYSTEM/INTRINSICS ON DISK. (Not loaded) System serial: #9583 Hostname: MCP0. Group ID: DEFAULTNAME. Cause of dump: Program requested @ 002:0070:5 (654100), 003:01FB:0 (604900), 00E:0004:0 (0). Task history word at entry to program dump: 0 000000 000000 Programdump options: Arrays, Libraries 081D = LOSR (Absolute memory address = 002C6558) 0057 (02,0002) 0 000000 000002 Op: Dec: 2 0056 7 600E14 3019B9 RCW: ASD=00CDCB, LL=3, Normal state [Stack 0481 segment @ 0002:0070:5 (654100)] Segment Descriptor: C 680000 0019B9 [(PAUL)OBJECT/UNITE/AS4027/COBOL85/EXPLIB.] Code: 3 001748 76E800 3 858650 0CB9B2 3 068CA0 A070DF >3 6006B2 02ABA3< 3 A2001E FFFFFF Unable to show procedure identifier information as multiple blocks appear in same code segment 0055 -----D[2]=>3 80257E 000000 *ENVW: D[1] @ word 00 via ASD 00257E 0054 1 047B00 4F0003 *HISW: Previous HISW @ 004F, Blockexit 0053 (03,0003) 1 047B00 3F0005 SIRW: Offset=0044 (003F+0005) in this stack 0052 (03,0002) C 520000 001A6C Desc: Present-copy, ASD=00D362, Hex, Length=24 (Mom @ 0043 in this stack) 0051 7 403F60 301A15 RCW: ASD=00D0AA, LL=3, Normal state [User segment @ 0003:01FB:0 (604900)] Segment Descriptor: C 480000 001A15 ------ .own_AS4027-COBOL85-SAMPLE Code: 3 A6B20B 957570 3 05B8DF 500970 3 04BD70 05AFAB >3 B07004 A6B20C< 3 9575CE B79E2E 0050 -----D[3]=>3 047F00 160000 *ENVW: D[2] @ 0016 in stack 047F [(PAUL)OBJECT/UNITE/AS4027/COBOL85/EXPLIB ON OPS] 004F 1 047B00 3E0002 *HISW: Previous HISW @ 003E 004E (03,000F) 0 000000 000003 Op: Dec: 3 004D (03,000E) 7 403D48 301A15 PCW: ASD=00D0AA, LL=3, Segment @ 0003:01EA:2, Normal state 004C (03,000D) 0 000000 000001 Op: Dec: 1 004B (03,000C) 7 401F88 301A15 PCW: ASD=00D0AA, LL=3, Segment @ 0003:00FC:2, Normal state 004A (03,000B) 0 000000 000000 0049 (03,000A) 4 8C4000 000000 SCW: COBOL perform environment marker 0048 (03,0009) 6 800000 000800 SCW: Blockexit marker: Single-dim Arrays 0047 (03,0008) C 440000 001A06 .Numeric_temp(temp#1) (EBCDIC array) Present-mom, ASD=00D032, EBCDIC, Length=24 0(0000) 0 F0F0F0 F0F0F3 0 F8F6F3 000000 0 000000 000000 0 000000 000000 /000003863 / 0046 (03,0007) 0 0000AC 4792C8 #$8 (Integer) Dec: 2890371784 EBCDIC: ????kH 0045 (03,0006) C 620000 001A56 #$7 (Hex array) Present-mom, ASD=00D2B3, Hex, Length=24 0(0000) 0 C00000 180000 0 000000 000000 /{ / 0044 (03,0005) 0 0000B5 77B9C8 #$6 (Integer) Dec: 3044522440 EBCDIC: ?????H 0043 (03,0004) C 420000 001A6C #$5 (Hex array) Present-mom, ASD=00D362, Hex, Length=24 0(0000) 0 C00000 210000 0 000000 000000 /{ / 0042 (03,0003) 0 00024E 4B3A22 #$4 (Integer) Dec: 9903487522 EBCDIC: ??+.?? 0041 (03,0002) C 420000 001A07 #$3 (Hex array) Present-mom, ASD=00D03A, Hex, Length=24 0(0000) 0 C00200 000000 0 000000 000000 /{ / 0040 7 200081 2019B5 RCW: ASD=00CDA9, LL=2, Normal state [User segment @ 000E:0004:0 (0)] Segment Descriptor: C 280000 0019B5 ------ $%%SAMPLE Code: 3 B0501F BD501D 3 AFB150 1EBD95 3 CDABDF 501AAB >3 DF600C B0ABA3< 3 B0BEFF FFFFFF 003F -----D[3]=>3 047B00 160000 *ENVW: D[2] @ 0016 in this stack 003E 1 047B00 150001 *HISW: Previous HISW @ 0015, Blockexit 003D (02,0027) 6 800000 080800 SCW: Blockexit marker: Library Templates, Single-dim Arrays 003C (02,0026) 1 018400 1602D5 .DYN_INIT (Library object) SIRW: Offset=02EB (0016+02D5) in stack 0184 [*SYSTEM/SLICESUPPORT] 003B (02,0025) 6 842000 000000 SCW: Library structure marker 003A (02,0024) C 800000 001A63 .SUPPORT (Library) Library structure desc: Present-mom, ASD=00D31C, Length=57 ---- Header ---- Status = 840000 030000, Server Library Level = 3, linked, last locked by stack 047B. Structure is Active Import Lib @ ASD 00D31C of stack 047B; SIRW: Offset=003A (0016+0024). ---- Useinfo ---- Linked to: Active Export Lib @ ASD 00A630 of stack 0184 ---- Areas ---- Free @ 47 for 10, Useinfo @ 45 for 2, Stackref @ 6 for 5, Imports @ 11 for 3, Exports @ 0 for 0, Types @ 14 for 10, Names @ 24 for 4, Attribs @ 28 for 17. ---- Attributes ---- Libvalue = 800000 000001 (1), Intname = SUPPORT, Title = SYSTEM/SLICESUPPORT, Functionname = SLICESUPPORT, Libaccess = Byfunction. ---- Import objects ---- ([V] = by Value, [R] = by Reference, [N] = by Name) DYN_INIT is a Procedure (6 parameters); Real Array[V]; Real[V]; Real Array[V]; Real[R]; Integer[V]; Integer[V]; index = 12, object = (*,0026). ---- 0(0000) 0 840000 030000 0 047B00 2F002D 0 000600 0B0000 0 000E00 18001C 0 000000 000000 /d # / 5(0005) 0 000000 000000 0 000000 000005 6 047B00 160024 0 047B80 00D31C 0 000000 000000 / # # L / 10(000A) 0 000000 000000 0 000000 000003 0 008000 060001 0 000000 000026 0 000000 00000A / / 15(000F) 0 000900 00160D 0 200200 000203 0 100100 000004 0 100100 000004 0 200200 000203 / / 20(0014) 0 100100 000004 0 200100 000004 0 100100 000002 0 100100 000002 0 000000 000004 / / 25(0019) 0 C4E8D5 6DC9D5 0 C9E300 000000 0 000000 000000 0 000000 000011 0 800000 000001 /DYN_INIT / 30(001E) 0 02000B 010107 0 E2E4D7 D7D6D9 0 E30201 170102 0 06E2E8 E2E3C5 0 D40CE2 D3C9C3 / SUPPORT SYSTEM SLIC/ 35(0023) 0 C5E2E4 D7D7D6 0 D9E302 031001 0 010CE2 D3C9C3 0 C5E2E4 D7D7D6 0 D9E303 040200 /ESUPPORT SLICESUPPORT / 40(0028) 0 000000 000000 Thru 44(002C) / / 45(002D) 0 000100 000002 0 018440 00A630 0 000000 00000A 0 000000 000000 0 000000 000000 / d w / 50(0032) 0 000000 000000 Thru 56(0038) / / 0039 (02,0023) 0 400000 000000 $%%SAMPLE (Procedure) Dec: -0 EBCDIC: ????? 0038 (02,0022) C 120000 0019C7 .Heap_hex (Hex array) Present-copy, ASD=00CE38, Hex, Length=131064 (Mom @ 0034 in this stack) 0037 (02,0021) C 110000 0019C7 .Heap_double (Double array) Present-copy, ASD=00CE38, Length=5461, Double (Mom @ 0034 in this stack) 0036 (02,0020) C 140000 0019C7 .Heap_ebcdic (EBCDIC array) Present-copy, ASD=00CE38, EBCDIC, Length=65532 (Mom @ 0034 in this stack) 0035 (02,001F) C E00000 001A61 .cHeap_ctrl (Real array) Present-mom, ASD=00D30F, Length=8 0(0000) 0 000000 000000 Thru 1(0001) / / 2(0002) 0 000000 002AA9 0 000000 000001 0 000000 000000 0 000000 000000 0 000000 000000 / z / 7(0007) 0 000000 000000 / / 0034 (02,001E) C 000000 0019C7 .Heap (Boolean array) Present-mom, ASD=00CE38, Length=10922 0(0000) 0 000000 000000 Thru 10919(2AA7) / / 10920(2AA8) 0 200000 000000 0 000000 000000 / / 0033 (02,001D) 0 000000 002AA7 .Bottom_of_heap (Real) Dec: 10919 EBCDIC: ?????x 0032 (02,001C) 0 000000 000001 .Stack_pointer (Real) Dec: 1 0031 (02,001B) C B00000 0019BD .own_.unnamed (Real array) Present-copy, ASD=00CDED, Length=59 (Mom @ 002B in this stack) 0030 (02,001A) 7 404A30 301A15 .own_AS4027-COBOL85-SAMPLE (Procedure) ASD=00D0AA, LL=3, Segment @ 0003:0251:4, Normal state 002F (02,0019) C B40000 0019BD .own_.unnamed (EBCDIC array) Present-copy, ASD=00CDED, EBCDIC, Length=354 (Mom @ 002B in this stack) 002E (02,0018) C 220000 0019EC WLN-RESULT (Hex array) Present-mom, ASD=00CF61, Hex, Length=12 0(0000) 0 C02890 371784 /{ d / 002D (02,0017) 2 000000 200B20 WLN-ARG (Double) 2nd word:2.1E+6 002C (02,0016) 2 068000 000000 WLN-ARG (Double) 1st word:0.0 , Double:2.1D+6 002B (02,0015) C A20000 0019BD .own_W-AVG-ENTRIES (Hex array) Present-mom, ASD=00CDED, Hex, Length=708 0(0000) 0 002100 000000 0 030000 000000 0 008800 000000 0 002800 000000 0 038600 000000 / h f / 5(0005) 0 034300 000000 0 000200 000000 0 4040E2 C1D4D7 0 D3C540 D9E4D5 0 40E3D6 40C7C5 / SAMPLE RUN TO GE/ 10(000A) 0 D5C5D9 C1E3C5 0 40C140 C3D6C2 0 D6D360 F8F540 0 D7D9D6 C7D9C1 0 D4C4E4 D4D740 /NERATE A COBOL-85 PROGRAMDUMP / 15(000F) 0 E6C9E3 C840D3 0 C9C2D9 C1D9E8 0 404040 40F1F1 0 61F0F2 61F0F2 0 404040 F24040 /WITH LIBRARY 11/02/02 2 / 20(0014) 0 404040 404040 0 40F5F8 404040 0 404040 F24040 0 404040 4040F1 0 F84040 404040 / 58 2 18 / 25(0019) 0 404040 404040 0 F1F340 404040 0 404040 40F34B 0 F4F340 404040 0 404040 40F34B / 13 3.43 3./ 30(001E) 0 F8F640 400000 0 D9C5C3 D6D9C4 0 E27A40 404040 0 F2F06B F0F0F0 0 D2C5E8 40E2C9 /86 RECORDS: 20,000KEY SI/ 35(0023) 0 E9C57A 404040 0 404040 4040F3 0 40E6D6 D9C4E2 0 D3D6C1 C460C6 0 C1C3E3 D6D97A /ZE: 3 WORDSLOAD-FACTOR:/ 40(0028) 0 404040 40F7F5 0 406C00 000000 0 E2C5C7 E24040 0 C2D3D6 C3D2E2 0 C9E9C5 4040E6 / 75 % SEGS BLOCKSIZE W/ 45(002D) 0 C1E2E3 C54040 0 C5D5E3 D9C9C5 0 E24040 C1E5C7 0 60C5D5 E3D9C9 0 C5E240 40D4C9 /ASTE ENTRIES AVG-ENTRIES MI/ 50(0032) 0 D560D3 C5E5C5 0 D3E240 40D4C1 0 E760D3 C5E5C5 0 D3E240 400000 0 D7D7D7 D7D7D7 /N-LEVELS MAX-LEVELS PPPPPP/ 55(0037) 0 D2D2C6 C64040 0 E3C9E3 D3C540 0 404040 404040 0 404040 404040 /KKFF TITLE / 002A (02,0014) 0 2593CE 95EA9F W-POPULATION-LN (Real) Dec: 9.9034875220386311412 EBCDIC: ?l?n?? 0029 (02,0013) 0 000000 004E20 W-POPULATION (Integer) Dec: 20000 EBCDIC: ????+? 0028 (02,0012) 0 000000 000003 W-KEY-SIZE (Integer) Dec: 3 0027 (02,0011) 0 000000 00004B W-LOAD-FACTOR (Integer) Dec: 75 EBCDIC: ?????. 0026 (02,0010) 0 000000 000003 W-ENTRY-SIZE (Integer) Dec: 3 0025 (02,000F) 0 000000 000032 W-SEGMENT-LIMIT (Integer) Dec: 50 0024 (02,000E) 0 000000 00001E W-SEGMENT-SIZE (Integer) Dec: 30 0023 (02,000D) 0 000000 000004 W-BLOCK-OVERHEAD (Integer) Dec: 4 0022 (02,000C) C 440000 0019BA .own_#$2 (EBCDIC array) Present-mom, ASD=00CDD2, EBCDIC, Length=6 0(0000) 0 F1F1F0 F2F0F2 /110202 / 0021 (02,000B) 0 000000 000000 .own_#$1 (Real) 0020 (02,000A) 0 000000 000000 .own_$%USE_INDEX (Integer) 001F (02,0009) 1 047F00 16001E COMPUTE-LN (Library object) SIRW: Offset=0034 (0016+001E) in stack 047F [(PAUL)OBJECT/UNITE/AS4027/COBOL85/EXPLIB ON OPS] 001E (02,0008) 6 842000 000000 SCW: Library structure marker 001D (02,0007) C 800000 001A3F AS4027-EXPLIB (Library) Library structure desc: Present-mom, ASD=00D1FC, Length=54 ---- Header ---- Status = 840000 030000, Server Library Level = 3, linked, last locked by stack 047B. Structure is Active Import Lib @ ASD 00D1FC of stack 047B; SIRW: Offset=001D (0016+0007). ---- Useinfo ---- Linked to: Active Export Lib @ ASD 00D098 of stack 047F ---- Areas ---- Free @ 44 for 10, Useinfo @ 42 for 2, Stackref @ 6 for 5, Imports @ 11 for 3, Exports @ 0 for 0, Types @ 14 for 5, Names @ 19 for 4, Attribs @ 23 for 19. ---- Attributes ---- Libvalue = 800000 000001 (1), Intname = AS4027-EXPLIB, Title = (PAUL)OBJECT/UNITE/AS4027/COBOL85/EXPLIB ON OPS, Libaccess = Bytitle. ---- Import objects ---- ([V] = by Value, [R] = by Reference, [N] = by Name) COMPUTE-LN is a Procedure (2 parameters); Hex Array[R]; Integer[R]; index = 12, object = (*,0009). ---- 0(0000) 0 840000 030000 0 047B00 2C002A 0 000600 0B0000 0 000E00 130017 0 000000 000000 /d # / 5(0005) 0 000000 000000 0 000000 000005 6 047B00 160007 0 047B80 00D1FC 0 000000 000000 / # # J / 10(000A) 0 000000 000000 0 000000 000003 0 00A000 060001 0 000000 000009 0 000000 000005 / / 15(000F) 0 000400 001605 0 200200 000203 0 200100 00002A 0 200100 000002 0 000000 000004 / / 20(0014) 0 C3D6D4 D7E4E3 0 C560D3 D50000 0 000000 000000 0 000000 000013 0 800000 000001 /COMPUTE-LN / 25(0019) 0 020011 01010D 0 C1E2F4 F0F2F7 0 60C5E7 D7D3C9 0 C20201 2F0707 0 04D7C1 E4D306 / AS4027-EXPLIB PAUL / 30(001E) 0 D6C2D1 C5C3E3 0 05E4D5 C9E3C5 0 06C1E2 F4F0F2 0 F707C3 D6C2D6 0 D3F8F5 06C5E7 /OBJECT UNITE AS4027 COBOL85 EX/ 35(0023) 0 D7D3C9 C203D6 0 D7E203 040100 0 000000 000000 0 000000 000000 0 000000 000000 /PLIB OPS / 40(0028) 0 000000 000000 Thru 41(0029) / / 42(002A) 0 000100 000002 0 047F40 00D098 0 000000 00000A 0 000000 000000 0 000000 000000 / " }q / 47(002F) 0 000000 000000 Thru 53(0035) / / 001C (02,0006) C 800000 001A70 PR-FILE (File) Present-mom, ASD=00D384, Length=110 (File: Intname=PR-FILE, Title=PR- FILE) 001B (02,0005) C 640000 001A46 PR-REC (EBCDIC array) Present-mom, ASD=00D233, EBCDIC, Length=80 0(0000) 0 404040 404040 Thru 12(000C) / / 13(000D) 0 404000 000000 / / 001A (02,0004) C E00000 001A73 DC-FILE (File) Present-mom, ASD=00D39F, Length=110 (File: Intname=DC-FILE, Title=DC- FILE) 0019 (02,0003) C 840000 001A60 DC-REC (EBCDIC array) Present-mom, ASD=00D304, EBCDIC, Length=80 0(0000) 0 404040 404040 Thru 12(000C) / / 13(000D) 0 404000 000000 / / 0018 (02,0002) 0 000500 000000 .own_MCPRESULTVALUE (Real) Dec: 21474836480 0017 7 815376 20024C RCW: ASD=001264, LL=2, Control state [MCP segment @ 1166:0A9B:5 (16007760)] Segment Descriptor: C 880000 00024C Code: 3 BD9E16 B8B5FE 3 DF4300 ABDF43 3 B11002 B205AB >3 DF42FF ABA3B2< 3 34B202 95B8B1 0016 -----D[2]=>3 047C00 070000 *ENVW: D[1] @ 0007 in Segment Dictionary (Stack 047C) 0015 1 047B00 120001 *HISW: Previous HISW @ 0012, Blockexit 0014 7 000000 002000 RCW: Dummy (Run) 0013 -----D[2]=>3 80D182 000000 *ENVW: D[1] @ word 00 of PIB @ ASD 00D182 0000 = BOSR (Absolute memory address = 002C5D3B) Dump of Library (PAUL)OBJECT/UNITE/AS4027/COBOL85/EXPLIB ON OPS. (STACK 047F) 0068 = LOSR (Absolute memory address = 002C67A5) 0040 7 600370 3019B9 RCW: ASD=00CDCB, LL=3, Normal state [User segment @ 0002:001B:4 (502600)] Segment Descriptor: C 680000 0019B9 Code: 3 D00064 535442 3 B20CE6 B0500C 3 B8DF60 03B050 >3 11BDB0 ABDF60< 3 04B0AB A3A200 Unable to show procedure identifier information as multiple blocks appear in same code segment 003F -----D[2]=>3 80257E 000000 *ENVW: D[1] @ word 00 via ASD 00257E 003E 1 047F00 3B0000 *HISW: Previous HISW @ 003B 003D 7 400081 2019C9 RCW: ASD=00CE4A, LL=2, Normal state [User segment @ 0007:0004:0 (0)] Segment Descriptor: C 480000 0019C9 ------ $%%EXPLIB Code: 3 B05016 BD5014 3 AFB150 15BD95 3 CDABDF 5010AB >3 DF6004 B0ABA3< 3 B0BEFF FFFFFF 003C -----D[3]=>3 047F00 160000 *ENVW: D[2] @ 0016 in this stack 003B 1 047F00 150000 *HISW: Previous HISW @ 0015 003A (02,0024) 6 800000 080800 SCW: Blockexit marker: Library Templates, Single-dim Arrays 0039 (02,0023) C E00000 001A39 .SIRW_table (Integer array) Present-mom, ASD=00D1CF, Length=2 0(0000) 0 000000 000000 1 047F00 16001E / " / 0038 (02,0022) 1 018400 1602D5 .DYN_INIT (Library object) SIRW: Offset=02EB (0016+02D5) in stack 0184 [*SYSTEM/SLICESUPPORT] 0037 (02,0021) 6 842000 000000 SCW: Library structure marker 0036 (02,0020) C A00000 001A6B .SUPPORT (Library) Library structure desc: Present-mom, ASD=00D35D, Length=57 ---- Header ---- Status = 840000 030000, Server Library Level = 3, linked, last locked by stack 047F. Structure is Active Import Lib @ ASD 00D35D of stack 047F; SIRW: Offset=0036 (0016+0020). ---- Useinfo ---- Linked to: Active Export Lib @ ASD 00A630 of stack 0184 ---- Areas ---- Free @ 47 for 10, Useinfo @ 45 for 2, Stackref @ 6 for 5, Imports @ 11 for 3, Exports @ 0 for 0, Types @ 14 for 10, Names @ 24 for 4, Attribs @ 28 for 17. ---- Attributes ---- Libvalue = 800000 000001 (1), Intname = SUPPORT, Title = SYSTEM/SLICESUPPORT, Functionname = SLICESUPPORT, Libaccess = Byfunction. ---- Import objects ---- ([V] = by Value, [R] = by Reference, [N] = by Name) DYN_INIT is a Procedure (6 parameters); Real Array[V]; Real[V]; Real Array[V]; Real[R]; Integer[V]; Integer[V]; index = 12, object = (*,0022). ---- 0(0000) 0 840000 030000 0 047F00 2F002D 0 000600 0B0000 0 000E00 18001C 0 000000 000000 /d " / 5(0005) 0 000000 000000 0 000000 000005 6 047F00 160020 0 047F80 00D35D 0 000000 000000 / " " L) / 10(000A) 0 000000 000000 0 000000 000003 0 008000 060001 0 000000 000022 0 000000 00000A / / 15(000F) 0 000900 00160D 0 200200 000203 0 100100 000004 0 100100 000004 0 200200 000203 / / 20(0014) 0 100100 000004 0 200100 000004 0 100100 000002 0 100100 000002 0 000000 000004 / / 25(0019) 0 C4E8D5 6DC9D5 0 C9E300 000000 0 000000 000000 0 000000 000011 0 800000 000001 /DYN_INIT / 30(001E) 0 02000B 010107 0 E2E4D7 D7D6D9 0 E30201 170102 0 06E2E8 E2E3C5 0 D40CE2 D3C9C3 / SUPPORT SYSTEM SLIC/ 35(0023) 0 C5E2E4 D7D7D6 0 D9E302 031001 0 010CE2 D3C9C3 0 C5E2E4 D7D7D6 0 D9E303 040200 /ESUPPORT SLICESUPPORT / 40(0028) 0 000000 000000 Thru 44(002C) / / 45(002D) 0 000100 000002 0 018440 00A630 0 000000 00000A 0 000000 000000 0 000000 000000 / d w / 50(0032) 0 000000 000000 Thru 56(0038) / / 0035 (02,001F) 0 400000 000000 $%%EXPLIB (Procedure) Dec: -0 EBCDIC: ????? 0034 (02,001E) 7 600E20 3019B9 .own_COMPUTE-LN (Exported subroutine) ASD=00CDCB, LL=3, Segment @ 0002:0071:0, Normal state 0033 (02,001D) 0 000000 000004 .own_WLN-N (Integer) Dec: 4 0032 (02,001C) C C20000 001A2B .own_WLN-SUM (Hex array) Present-mom, ASD=00D15E, Hex, Length=48 0(0000) 0 C00027 193371 0 809903 553448 0 C00000 000000 0 909494 701773 /{ r { mm / 0031 (02,001B) 2 002BC2 EC5000 .own_WLN-TERM (Double) 2nd word:187953860608.0 0030 (02,001A) 2 068000 001634 .own_WLN-TERM (Double) 1st word:3124812046139392.0 , Double:3.125D+15 002F (02,0019) C 520000 001A11 .Heap_hex (Hex array) Present-copy, ASD=00D08A, Hex, Length=131064 (Mom @ 002B in this stack) 002E (02,0018) C 510000 001A11 .Heap_double (Double array) Present-copy, ASD=00D08A, Length=5461, Double (Mom @ 002B in this stack) 002D (02,0017) C 540000 001A11 .Heap_ebcdic (EBCDIC array) Present-copy, ASD=00D08A, EBCDIC, Length=65532 (Mom @ 002B in this stack) 002C (02,0016) C 400000 001A33 .cHeap_ctrl (Real array) Present-mom, ASD=00D19A, Length=8 0(0000) 0 000000 000000 Thru 1(0001) / / 2(0002) 0 000000 002AA9 0 000000 000001 0 000000 000000 0 000000 000000 0 000000 000000 / z / 7(0007) 0 000000 000000 / / 002B (02,0015) C 400000 001A11 .Heap (Boolean array) Present-mom, ASD=00D08A, Length=10922 0(0000) 0 000000 000000 Thru 10919(2AA7) / / 10920(2AA8) 0 200000 000000 0 000000 000000 / / 002A (02,0014) 0 000000 002AA7 .Bottom_of_heap (Real) Dec: 10919 EBCDIC: ?????x 0029 (02,0013) 0 000000 000001 .Stack_pointer (Real) Dec: 1 0028 (02,0012) 6 842000 000000 SCW: Library structure marker 0027 (02,0011) C 000000 001A13 Library structure desc: Present-mom, ASD=00D098, Length=38 ---- Header ---- Status = 000000 030000, Server Library Level = 3, last locked by stack 047B, initiated by stack 047B. Structure is Active Export Lib @ ASD 00D098 of stack 047F; SIRW: Offset=0027 (0016+0011). ---- Useinfo ---- Linked to: Active Import Lib @ ASD 00D1FC of stack 047B ---- Areas ---- Free @ 28 for 10, Useinfo @ 26 for 2, Stackref @ 6 for 5, Imports @ 0 for 0, Exports @ 11 for 5, Types @ 16 for 6, Names @ 22 for 4, Attribs @ 0 for 0. ---- Export objects ---- ([V] = by Value, [R] = by Reference, [N] = by Name) COMPUTE-LN is a Procedure (2 parameters); Hex Array[R]; Integer[R]; index = 12, object = (*,001E), [Sentinel] is Null; index = 14, object = (*,0000). ---- 0(0000) 0 000000 030000 0 047B00 1C001A 0 000600 00000B 0 001000 160000 0 000000 000000 / # / 5(0005) 0 000000 000000 0 000000 000005 6 047F00 160011 0 047F40 00D098 0 000000 00047B / " " }q #/ 10(000A) 0 000000 000000 0 000000 000005 0 00A000 060001 0 000000 00001E 0 001000 100005 / / 15(000F) 0 000000 000000 0 000000 000006 0 000400 001605 0 200200 000203 0 200100 00002A / / 20(0014) 0 200100 000002 0 000100 000000 0 000000 000004 0 C3D6D4 D7E4E3 0 C560D3 D5FF00 / COMPUTE-LN / 25(0019) 0 000000 000000 0 000100 000002 0 047B80 00D1FC 0 000000 00000A 0 000000 000000 / # J / 30(001E) 0 000000 000000 Thru 37(0025) / / 0026 (02,0010) 7 600390 3019B9 .own_AS4027-EXPLIB (Procedure) ASD=00CDCB, LL=3, Segment @ 0002:001C:4, Normal state 0025 (02,000F) C D20000 001A0C .own_FILLER (Hex array) Present-copy, ASD=00D066, Hex, Length=108 (Mom @ 0023 in this stack) 0024 (02,000E) C D00000 001A0C .own_WLN-LN-2 (Integer array) Present-copy, ASD=00D066, Length=9 (Mom @ 0023 in this stack) 0023 (02,000D) C C40000 001A0C WLN-LOG-AREA (EBCDIC array) Present-mom, ASD=00D066, EBCDIC, Length=54 0(0000) 0 00019D 25DDBE 0 C09999 964239 0 D04998 741238 0 C03317 990258 0 D02407 338084 / {rro } q { r } d/ 5(0005) 0 C01676 540711 0 D00953 293897 0 C00360 884937 0 D00064 535442 /{ } p{ -h } / 0022 (02,000C) 0 000000 000006 W-CALL-COUNT (Integer) Dec: 6 0021 (02,000B) 0 000000 000000 .own_$%EXCEP_VAR (Boolean) 0020 (02,000A) 5 040010 000000 .own_$%PNAME (EBCDIC array) Untouched, EBCDIC, Length=256 (Unreferenced olay space) 001F (02,0009) 0 000000 000000 .own_$%CP (Integer) 001E (02,0008) 5 040030 040020 .own_$%PROG_NEED_INIT_ARRAY (EBCDIC array) ASD deallocated 001D (02,0007) 5 040138 840004 .own_$%PROG_ARRAY(EBCDIC array) ASD deallocated 001C (02,0006) 5 078000 C00003 $%CANCEL_PROG (Library object) Untouched, Library object, Index=12 (Structure @ 0019) 001B (02,0005) 5 078000 E00002 $%GET_PROG (Library object) Untouched, Library object, Index=14 (Structure @ 0019) 001A (02,0004) 0 000000 000000 0019 (02,0003) 5 000004 D40025 $%C85_LIB_SUPPORT(Library) ASD deallocated 0018 (02,0002) 0 000000 00002A WLN-FX (Integer) Dec: 42 0017 7 815376 20024C RCW: ASD=001264, LL=2, Control state [MCP segment @ 1166:0A9B:5 (16007760)] Segment Descriptor: C 880000 00024C Code: 3 BD9E16 B8B5FE 3 DF4300 ABDF43 3 B11002 B205AB >3 DF42FF ABA3B2< 3 34B202 95B8B1 0016 -----D[2]=>3 048100 070000 *ENVW: D[1] @ 0007 in Segment Dictionary (Stack 0481) 0015 1 047F00 120001 *HISW: Previous HISW @ 0012, Blockexit 0014 7 000000 002000 RCW: Dummy (Run) 0013 -----D[2]=>3 80D3B1 000000 *ENVW: D[1] @ word 00 of PIB @ ASD 00D3B1 0000 = BOSR (Absolute memory address = 002C673D)