|
| Support : Product Buckets
The following PTFs are associated with the bucket. North Ridge Software Technical Support recommends all installations apply these PTFs as preventative maintenance.
- TNC17508: Terminate RCVCMD loop if VTAM terminating
- TNC17509: Force termination of Server if Exit Terminated
- TNC17510: Avoid Abend S0C5 in Timeout SME after Modify Exit restart
- TNC17515: Correction to rule checking logic
- TNC17516: Correction to allow correct display of large rule list
- TNC17517: Correction for display of large rule list
- TNC17518: Correction for Abend 40A-08 in Network Center Interface
- TNC17519: Correction for S0C4 after F3=Exit used in TNCAUTH panel.
- TNC17520: Add label record for LUCB to NDF definitions
- TNC17521: Correctly reformat rulesets with ++UNLOAD RULES
- TNC17522: Ensure that V175 does not use V161 SRT entry
- TNC17523: Acquire storage to be retained from persistent (CSA) storage.
- TNC17524: Avoid S0C4 Abend at startup by testing for PCB presence.
- TNC17528: Correction to recursion check in Rule Reload function
- TNC17534: Correction to release Alias pools correctly.
- TNC17535: Correction to Alias assignment logic to avoid S0C4 Abend
- TNC17536: Acquire storage for Alias value groups from persistent storage
- TNC17537: Clear alias pool bit strings correctly
- TNC17540: Correctly display buffer pool entries for Vtam 4.4
- TNC17541: Correct S0C4 Abend in ISTEXCVR exit with Vtam 4.4
- TNC17542: Correction to ISTEXCVR logic if PCB not available
- TNC17543: Allow ISTEXCVR exit to find Network Center SRT entry
- TNC17546: Order Gateway Select list based upon user supplied list
- TNC17547: Correction to date calculations
- TNC17548: Correction to day of week routine to avoid S0C1 abend
- TNC17549: Correction to day of week routine to avoid S0C1 abend
- TNC17550: Do not pass back items not in User select list with 'Replace'
- TNC17553: Modify logic for releasing of Alias pool entries
- TNC17554: Correct problem with Alias pools in Value Group
- TNC17562: Allow local VR selection in ISTEXCAA
- TNC17564: Order VR Select list based upon user supplied list
- TNC17570: Correct logic in TNZBLOCK to acquire an AME correctly
TNC17508: Terminate RCVCMD loop if VTAM terminating- General Characteristics
- Opened: 3/29/1996, Closed: 4/5/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:21 pm
-
Note PTF has been applied to Version 1.7.5 installation tape.
This PTF ensures that the RCVCMD loop is terminated if
VTAM is terminating.
NAME TNZNCS TNZOPER
VER 012C 47F0,A1BE B OPER0090
REP 012C 47F0,BAA6 B *PATCH*
VER 01BA 4770,A130 BNZ OPER0020
REP 01BA 47F0,BAAE B *PATCH*
NAME TNZNCS TNZPATCH
VER 0AA6 BAA6,BAA8,BAAA,BAAC
REP 0AA6 41F0,0004 OPER0030 LA R15,4
REP 0AAA 47F0,A1C0 B OPER0091
VER 0AAE BAAE
VER 0AB0 BAB0,BAB2,BAB4,BAB6,BAB8,BABA,BABC,BABE
VER 0AC0 BAC0,BAC2,BAC4,BAC6,BAC8,BACA,BACC,BACE
VER 0AD0 BAD0
REP 0AAE 9514,800D CLI RPLRTNCD,20
REP 0AB2 4770,BABE BNE OPER0022
REP 0AB6 9570,800E CLI RPLFDB2,112
REP 0ABA 4780,BAA6 BE OPER0030
REP 0ABE 9510,800D OPER0022 CLI RPLRTNCD,16
REP 0AC2 4770,A1BE BNE OPER0090
REP 0AC6 950D,800E CLI RPLFDB2,13
REP 0ACA 4780,BAA6 BE OPER0030
REP 0ACE 47F0,A1BE B OPER0090
VER 0AD2 BAD2,BAD4,BAD6,BAD8,BADA,BADC,BADE
VER 0AE0 BAE0
REP 0AD2 58F0,A188 L R15,=V(TNZOPER)
REP 0AD6 05EF BALR R14,R15
REP 0AD8 12FF LTR R15,R15
REP 0ADA 4770,A136 BNZ RCMD0090
REP 0ADE 47F0,A088 B *RETURN*
VER 1003 00 VERIFY PTF NOT ON
REP 1003 AF TNC17508 IS NOW ON
TNC17509: Force termination of Server if Exit Terminated- General Characteristics
- Opened: 3/29/1996, Closed: 4/5/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:21 pm
-
Note PTF has been applied to Version 1.7.5 installation tape.
This PTF forces the Network Center Server to be terminated
if the SME is terminated via the Modify Exit command.
NAME ISTEXCAA ISTEXCAA
VER 0566 4630,A548 BCT R3,EXCA2016
REP 0566 4630,A54C BCT R3,EXCA201A
NAME TNZNCS TNZEXCAA
VER 0396 4130,001E LA R3,30
REP 0396 4130,000A LA R3,10
VER 03B4 4630,A396 BCT R3,EXCA2010
REP 03B4 47F0,BAE2 B *PATCH*
NAME TNZNCS TNZTASK
VER 050E 4770,A514 BNZ TASK1090
REP 050E 47F0,BAF8 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0AE2 BAE2,BAE4,BAE6,BAE8,BAEA,BAEC,BAEE
VER 0AF0 BAF0,BAF2,BAF4,BAF6
REP 0AE2 4630,A39A BCT R3,EXCA2012
REP 0AE6 4110,B2E0 LA R1,PCBQTCB
REP 0AEA 1811 LR R1,R1
REP 0AEC 0A3E SVC 62 (DETACH)
REP 0AEE D703,B2E0,B2E0 XC PCBQTCB,PCBQTCB
REP 0AF4 47F0,A3B8 B *RETURN*
VER 0AF8 BAF8,BAFA,BAFC,BAFE
VER 0B00 BB00,BB02,BB04,BB06,BB08,BB0A,BB0C,BB0E
REP 0AF8 4770,A514 BNZ TASK1090
REP 0AFC 1B11 SR R1,R1
REP 0AFE 4100,0001 LA R0,1
REP 0B02 1100 LNR R0,R0
REP 0B04 0A2C SVC 44 (CHAP)
REP 0B06 47F0,A512 B *RETURN*
VER 1004 00 VERIFY PTF NOT ON
REP 1004 AF TNC17509 IS NOW ON
TNC17510: Avoid Abend S0C5 in Timeout SME after Modify Exit restart- General Characteristics
- Opened: 4/1/1996, Closed: 4/5/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:21 pm
-
Note PTF has been applied to Version 1.7.5 installtion tape.
This PTF tests for presence of TME before attempting to
reference it in order to avoid potential Abends.
NAME TNTNCS TNTEXCAA
VER 10C0 5810,4000 L R1,0(,R4)
REP 10C0 47F0,BB0A B *PATCH*
NAME TNZNCS TNZPATCH
VER 0B0A BB0A,BB0C,BB0E
VER 0B10 BB10,BB12,BB14
REP 0B0A BF1F,4000 ICM R1,B'1111',0(R4)
REP 0B0E 4780,A1A6 BZ EXCA4080
REP 0B12 47F0,A134 B *RETURN*
VER 101F 00 VERIFY PTF NOT ON
REP 101F AF TNC17510 IS NOW ON
TNC17515: Correction to rule checking logic- General Characteristics
- Opened: 7/31/1996, Closed: 8/12/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:22 pm
-
This PTF corrects logic error associated with matching
input values with rule values.
NAME TNZNCS TNZRUCHK
VER 05BC 4156,003C LA R5,RMPSUB-RMP(R6)
REP 05BC 4156,0034 LA R5,RMPNETID-RMP(R6)
NAME TNZNCS TNZPATCH
VER 1024 00 verify ptf not on
REP 1024 AF TNC17515 is now on
TNC17516: Correction to allow correct display of large rule list- General Characteristics
- Opened: 8/5/1996, Closed: 8/12/1996 Status: Closed
- Co-Requisite PTFs
| TNC17517 | Correction for display of large rule list |
- Comments from Tuesday, January 16, 2001 at 02:56:22 pm
-
This PTF corrects the logic associated with repositioning within a
large rule list so that the associated display functions correctly.
NAME TNZNCS TNZFILE
VER 037C 4140,005B LA R4,RULNSLOT
REP 037C 4140,005A LA R4,RULNSLOT-1
VER 10C0 4140,005B LA R4,RULNSLOT
REP 10C0 4140,005A LA R4,RULNSLOT-1
NAME TNZNCS TNZPATCH
VER 1025 00 VERIFY PTF NOT ON
REP 1025 AF TNC17516 IS NOW ON
TNC17517: Correction for display of large rule list- General Characteristics
- Opened: 8/5/1996, Closed: 8/12/1996 Status: Closed
- Co-Requisite PTFs
| TNC17516 | Correction to allow correct display of large rule list |
- Comments from Tuesday, January 16, 2001 at 02:56:22 pm
-
This PTF corrects logic associated with displaying large rule
lists.
NAME TNCNCIM TNCRULS
VER 0076 D208,D08C,C368 MVC GWASRULE,PCBBLNKS
REP 0076 47F0,CE40 B *PATCH*
VER 0236 D208,5079,D08C MVC CRBFRKEY+8(9),GWASRULE
REP 0236 D207,5079,D08D MVC CRBFRKEY+8(8),GWASRULE+1
NAME TNCNCIM TNCPATCH
VER 0E40 CE40,CE42,CE44,CE46,CE48,CE4A,CE4C
REP 0E40 9240,D08C MVI GWASRULE,C' '
REP 0E44 D208,D08D,D08C MVC GWASRULE+1(8),GWASRULE
REP 0E4A 47F0,A07C B *RETURN*
VER 1026 00 VERIFY PTF NOT ON
REP 1026 AF TNC17517 IS NOW ON
TNC17518: Correction for Abend 40A-08 in Network Center Interface- General Characteristics
- Opened: 10/10/1996, Closed: 10/17/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:22 pm
-
This PTF tests that buffer for query reply is allocated prior to
attempt to Freemain it.
NAME TNCNCIM TNCMAIN
VER 0402 5810,CDBC L R1,PCAQRBUF
REP 0402 47F0,CE4E B *PATCH*
NAME TNCNCIM TNCPATCH
VER 0E4E CE4E VERIFY PTF NOT ON
VER 0E50 CE50,CE52,CE54,CE56,CE58
REP 0E4E BF1F,CDBC ICM R1,B'1111',PCAQRBUF
REP 0E52 4780,A410 BZ MAIN0430
REP 0E56 47F0,A406 B *RETURN*
VER 1027 00 VERIFY PTF NOT ON
REP 1027 AF TNC17518 IS NOW ON
TNC17519: Correction for S0C4 after F3=Exit used in TNCAUTH panel.- General Characteristics
- Opened: 10/11/1996, Closed: 10/17/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF retains the buffer used for editing across the F3=Exit
function in order to avoid an S0C4 abend in the Interface.
NAME TNCNCIM TNCAUTH
VER 0090 45E0,AE7C TNCCALL AUTH9500
REP 0090 4700,0000 NOP
VER 0170 41E0,A200 LA R14,AUTH1020
REP 0170 4700,0000 NOP
VER 0174 50E0,D054 ST R14,GWALVLX
REP 0174 4700,0000 NOP
VER 01CA 50E0,C1CC ST R14,PCABUFP
REP 01CA 47F0,CE5A B *PATCH*
NAME TNCNCIM TNCPATCH
VER 0E5A CE5A,CE5C,CE5E VERIFY PTF NOT ON
VER 0E60 CE60,CE62,CE64,CE66,CE68,CE6A,CE6C
REP 0E5A 50E0,C1CC ST R14,PCABUFP
REP 0E5E 45E0,AE7C TNCCALL AUTH9500
REP 0E62 41E0,A200 LA R14,AUTH1020
REP 0E66 50E0,D054 ST R14,GWALVLX
REP 0E6A 47F0,A1CE B *RETURN*
VER 1028 00 VERIFY PTF NOT ON
REP 1028 AF TNC17519 IS NOW ON
TNC17520: Add label record for LUCB to NDF definitions- General Characteristics
- Opened: 10/11/1996, Closed: 10/17/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF adds record for LUCB label to Network Data File to
avoid S0C4 abend when Vtam data offsets are displayed.
NAME TNCNCIM TNCPATCH
VER 1043 00 VERIFY PTF NOT ON
REP 1043 AF TNC17520 IS NOW ON
*
* Use the following as input to TNCUTIL to update the NDF.
*
LUCB Logical Unit Control Block
TNC17521: Correctly reformat rulesets with ++UNLOAD RULES- General Characteristics
- Opened: 10/22/1996, Closed: 10/28/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF ensures that Rulesets are properly re-formatted
when they are unloaded from an existing file with the
++UNLOAD RULES command
NAME TNCUTILM TNCUTIL
VER 143C 47B0,C4AE BNL UTIL4044
REP 143C 47B0,BB22 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0B22 BB22,BB24,BB26,BB28,BB2A,BB2C,BB2E
VER 0B30 BB30,BB32,BB34,BB36,BB38,BB3A,BB3C,BB3E
VER 0B40 BB40,BB42,BB44,BB46,BB48,BB4A,BB4C,BB4E
VER 0B50 BB50,BB52,BB54,BB56,BB58,BB5A,BB5C,BB5E
VER 0B60 BB60,BB62,BB64,BB66,BB68,BB6A,BB6C,BB6E
VER 0B70 BB70,BB72,BB74,BB76,BB78,BB7A,BB7C,BB7E
VER 0B80 BB80,BB82,BB84,BB86,BB88,BB8A,BB8C,BB8E
REP 0B22 D501,8086,BB8E CLC CRBVRSN,=H'175'
REP 0B28 47B0,C4AE BNL *RETURN*
REP 0B2C 41E0,0164 LA R14,RMPLEN
REP 0B30 4110,015C LA R14,RMPPATCH-RMP
REP 0B34 1BE1 SR R14,R1
REP 0B36 4810,8084 LH R1,CRBFRLEN
REP 0B3A 1A1E AR R1,R14
REP 0B3C 4010,8084 STH R1,CRBFRLEN
REP 0B40 9101,20A3 TM RMPFLAG6,RMP6RSET
REP 0B44 47E0,BB80 BNO UTIL404Z
REP 0B48 4110,0001 LA R1,PCBF0001
REP 0B4C 41E0,2164 LA R14,RMPLEN(,R2)
REP 0B50 41F2,015C LA R15,RMPPATCH-RMP(R2)
REP 0B54 D503,F000,B69C UTIL404X CLC 0(4,R15),PCBBLNKS
REP 0B5A 4780,BB6E BE UTIL404Y
REP 0B5E 41F0,F008 LA R15,8(,R15)
REP 0B62 41E0,E008 LA R14,8(,R14)
REP 0B66 4110,1001 LA R1,1(,R1)
REP 0B6A 47F0,BB54 B UTIL404X
REP 0B6E 4130,0008 UTIL404Y LA R3,8
REP 0B72 D207,E000,F000 MVC 0(8,R14,0(R15)
REP 0B78 1BF3 SR R15,R3
REP 0B7A 1BE3 SR R14,R3
REP 0B7C 4610,BB6E BCT R1,UTIL404Y
REP 0B80 9240,214C MVI RMPUSERV,C' '
REP 0B84 D206,214D,214C MVC RMPUSERV+1(7),RMPUSERV
REP 0B8A 47F0,C4AE B *RETURN*
REP 0B8E 00AF DC =H'175'
VER 1044 00 VERIFY PTF NOT ON
REP 1044 AF TNC17521 IS NOW ON
TNC17522: Ensure that V175 does not use V161 SRT entry- General Characteristics
- Opened: 10/31/1996, Closed: 11/21/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF ensures that the Network Center will distinguish
between V175 and V161 SRT entries.
NAME TNZNCS TNZPREP
VER 189B 5B5B DC C'$$'
REP 189B F1F7 DC C'17'
NAME TNZNCS TNZPATCH
VER 1045 00 VERIFY PTF NOT ON
REP 1045 AF TNC17522 IS NOW ON
TNC17523: Acquire storage to be retained from persistent (CSA) storage.- General Characteristics
- Opened: 11/5/1996, Closed: 11/21/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF ensures that storage that needs to be retained across
a Modify Exit event is acquired from persistent (CSA) storage.
NAME TNZNCS TNZBLOCK
VER 03AA 4100,0000 LA R0,TNC31BIT
REP 03AA 4100,0002 LA R0,TNC31CSA
NAME TNYNCS TNYEXCAA
VER 0370 4100,0000 LA R0,TNC31BIT
REP 0370 4100,0002 LA R0,TNC31CSA
VER 03C0 4100,0000 LA R0,TNC31BIT
REP 03C0 4100,0002 LA R0,TNC31CSA
VER 03F0 4100,0000 LA R0,TNC31BIT
REP 03F0 4100,0002 LA R0,TNC31CSA
VER 07C4 4100,0000 LA R0,TNC31BIT
REP 07C4 4100,0002 LA R0,TNC31CSA
VER 07FA 4100,0000 LA R0,TNC31BIT
REP 07FA 4100,0002 LA R0,TNC31CSA
VER 1BF2 4100,0000 LA R0,TNC31BIT
REP 1BF2 4100,0002 LA R0,TNC31CSA
NAME TNZNCS TNZPATCH
VER 1046 00 VERIFY PTF NOT ON
REP 1046 AF TNC17523 IS NOW ON
TNC17524: Avoid S0C4 Abend at startup by testing for PCB presence.- General Characteristics
- Opened: 11/5/1996, Closed: 11/12/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:23 pm
-
This PTF tests for the existence of the PCB prior to checking
if debug information is required thus avoiding potential S0C4
Abends.
NAME TNZNCS TNZEXCAA
VER 009E 95FE,2000 CLI 0(R2),X'FE'
REP 009E 0700 NOPR
REP 00A0 12BB LTR R11,R11
NAME TNZNCS TNZPATCH
VER 1047 00 VERIFY PTF NOT ON
REP 1047 AF TNC17524 IS NOW ON
TNC17528: Correction to recursion check in Rule Reload function- General Characteristics
- Opened: 12/12/1996, Closed: 12/16/1996 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:24 pm
-
This PTF corrects logic associated with the check for recursion
errors in the Rule Reload function.
NAME TNZNCS TNZRLOD
VER 084A BFEF,D25C ICM R14,B'1111',GWAGSTKP
REP 084A 47F0,BBB6 B *PATCH*
VER 085E D507,F000,8000 CLC 0(8,R15),0(R8)
REP 085E D507,F000,D22B CLC 0(8,R15),GWAGRNAM
VER 0890 4108,0000 LA R0,0(R8)
REP 0890 4100,D22B LA R0,GWAGRNAM
VER 1018 BFEF,D264 ICM R14,B'1111',GWARSTKP
REP 1018 47F0,BBEA B *PATCH*
VER 102C D507,F000,7000 CLC 0(8,R15),0(R7)
REP 102C D507,F000,D21B CLC 0(8,R15),GWARSNAM
VER 105E 4107,0000 LA R0,0(R7)
REP 105E 4100,D21B LA R0,GWARSNAM
VER 1E04 BFEF,D270 ICM R14,B'1111',GWAVSTKP
REP 1E04 47F0,BC1E B *PATCH*
NAME TNZNCS TNZPATCH
VER 0BB6 BBB6,BBB8,BBBA,BBBC,BBBE VERIFY PTF NOT ON
VER 0BC0 BBC0,BBC2,BBC4,BBC6,BBC8,BBCA,BBCC,BBCE
VER 0BD0 BBD0,BBD2,BBD4,BBD6,BBD8,BBDA,BBDC,BBDE
VER 0BE0 BBE0,BBE2,BBE4,BBE6,BBE8
REP 0BB6 4110,D288 LA R1,GWAPARMS
REP 0BBA 4108,0000 LA R0,0(R8)
REP 0BBE 5001,0000 ST R0,0(R1)
REP 0BC2 4100,D22B LA R0,GWAGRNAM
REP 0BC6 5001,0004 ST R0,4(R1)
REP 0BCA 4100,0008 LA R0,8
REP 0BCE 5001,0008 ST R0,8(R1)
REP 0BD2 95FF,100C MVI 12(R1),X'FF'
REP 0BD6 58F0,CB74 L R15,=V(TNZCMPR)
REP 0BDA 05EF BALR R14,R15
REP 0BDC 12FF LTR R15,R15
REP 0BDE 4780,A872 BZ RLOD102M
REP 0BE2 BFEF,D25C ICM R14,B'1111',GWAGSTKP
REP 0BE6 47F0,A84E B *RETURN*
*
VER 0BEA BBEA,BBEC,BBEE VERIFY PTF NOT ON
VER 0BF0 BBF0,BBF2,BBF4,BBF6,BBF8,BBFA,BBFC,BBFE
VER 0C00 BC00,BC02,BC04,BC06,BC08,BC0A,BC0C,BC0E
VER 0C10 BC10,BC12,BC14,BC16,BC18,BC1A,BC1C
REP 0BEA 4110,D288 LA R1,GWAPARMS
REP 0BEE 4107,0000 LA R0,0(R7)
REP 0BF2 5001,0000 ST R0,0(R1)
REP 0BF6 4100,D21B LA R0,GWARSNAM
REP 0BFA 5001,0004 ST R0,4(R1)
REP 0BFE 4100,0008 LA R0,8
REP 0C02 5001,0008 ST R0,8(R1)
REP 0C06 95FF,100C MVI 12(R1),X'FF'
REP 0C0A 58F0,CB74 L R15,=V(TNZCMPR)
REP 0C0E 05EF BALR R14,R15
REP 0C10 12FF LTR R15,R15
REP 0C12 4780,C040 BZ RLOD132M
REP 0C16 BFEF,D264 ICM R14,B'1111',GWARSTKP
REP 0C1A 47F0,C01C B *RETURN*
*
VER 0C1E BC1E
VER 0C20 BC20,BC22,BC24,BC26,BC28,BC2A,BC2C,BC2E
VER 0C30 BC30
REP 0C1E D507,8000,D213 CLC 0(8,R8),GWAVGRP
REP 0C24 4780,A226 BE RLOD2134
REP 0C28 BFEF,D270 ICM R14,B'1111',GWAVSTKP
REP 0C2C 47F0,A202 B *PATCH*
*
VER 104B 00 VERIFY PTF NOT ON
REP 104B AF TNC17528 IS NOW ON
TNC17534: Correction to release Alias pools correctly.- General Characteristics
- Opened: 1/24/1997, Closed: 2/3/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:25 pm
-
This PTF corrects logic associated with releasing Alias pools
at Vtam termination thus avoiding Abend 878.
NAME TNYNCS TNYEXCAA
VER 03A8 5800,F000 L R0,0(,R15)
REP 03A8 5800,1000 L R0,0(,R1)
VER 03D6 47F0,A394 B EXCA1536
REP 03D6 47F0,BCBE B *PATCH*
VER 03DC 41E0,0C80 LA R14,3200
REP 03DC 47F0,BCC6 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0CBE BCBE VERIFY NOT ON
VER 0CC0 BCC0,BCC2,BCC4
REP 0CBE 4130,3010 LA R3,APESIZE(,R3)
REP 0CC2 47F0,A394 B EXCA1536
VER 0CC6 BCC6,BCC8,BCCA,BCCC,BCCE
VER 0CD0 BCD0
REP 0CC6 41E0,0C80 LA R14,3200
REP 0CCA 58F0,900C L R15,ABYAPOOL
REP 0CCE 47F0,A3E0 B *RETURN*
VER 106B 00 VERIFY PTF NOT ON
REP 106B AF TNC17534 IS NOW ON
TNC17535: Correction to Alias assignment logic to avoid S0C4 Abend- General Characteristics
- Opened: 2/7/1997, Closed: 2/24/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:26 pm
-
This PTF modifies the logic associated with Alias assignment
to avoid setting of bits beyond boundaries of allocated alias
pool bit strings, thus avoiding potential S0C4 Abends
NAME TNYNCS TNYEXCAA
VER 157C 9180,2000 TM 0(R2),X'80'
REP 157C 47F0,BCD2 B *PATCH*
VER 1BE2 4120,2004 LA R2,4(,R2)
REP 1BE2 4120,2008 LA R2,8(,R2)
NAME TNZNCS TNZPATCH
VER 0CD2 BCD2,BCD4,BCD6,BCD8,BCDA,BCDC,BCDE
VER 0CE0 BCE0
REP 0CD2 59F0,D1BC C R15,GWAMAXV
REP 0CD6 4720,AB08 BH EXCA4095
REP 0CDA 9180,2000 TM 0(R2),X'80'
REP 0CDE 47F0,A9EC B *RETURN*
VER 106C 00 VERIFY PTF NOT ON
REP 106C AF TNC17535 IS NOW ON
TNC17536: Acquire storage for Alias value groups from persistent storage- General Characteristics
- Opened: 2/11/1997, Closed: 2/24/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:26 pm
-
This PTF ensures that storage for alias value groups is acquired
from persistent storage so that it is retained across a restart
of the SME.
NAME TNZNCS TNZRLOD
VER 1D3A 4100,0000 LA R0,TNC31BIT
REP 1D3A 4520,BCE2 BAL R2,*PATCH*
VER 1B16 4100,0000 LA R0,TNC31BIT
REP 1B16 4100,0002 LA R0,TNC31CSA
NAME TNZNCS TNZFREQ
VER 0426 4100,0000 LA R0,TNC31BIT
REP 0426 4100,0002 LA R0,TNC31CSA
NAME TNYNCS TNYEXCAA
VER 0852 4100,0000 LA R0,TNC31BIT
REP 0852 4100,0002 LA R0,TNC31CSA
NAME TNZNCS TNZPATCH
VER 0CE2 BCE2,BCE4,BCE6,BCE8,BCEA,BCEC,BCEE
VER 0CF0 BCF0,BCF2,BCF4
REP 0CE2 4100,0000 LA R0,TNC31BIT
REP 0CE6 41F0,B50C LA R15,PCBGRPY
REP 0CEA 59F0,D24C C R15,GWAGRPA
REP 0CEE 0772 BNER R2(RETURN)
REP 0CF0 4100,0002 LA R0,TNC31CSA
REP 0CF4 07F2 RLOD2116 BR R2 (RETURN)
*
VER 106D 00 VERIFY PTF NOT ON
REP 106D AF TNC17536 IS NOW ON
TNC17537: Clear alias pool bit strings correctly- General Characteristics
- Opened: 2/11/1997, Closed: 2/24/1997 Status: Closed
- Pre-Requisite PTFs
| TNC17535 | Correction to Alias assignment logic to avoid S0C4 Abend | | TNC17536 | Acquire storage for Alias value groups from persistent storage |
- Comments from Tuesday, January 16, 2001 at 02:56:26 pm
-
This PTF ensures that only the storage that has been allocated
for an alias pool bit string is cleared to binary zeroes.
NAME TNYNCS TNYEXCAA
VER 1C20 18E1 LR R14,R1
VER 1C22 18F2 LR R15,R2
REP 1C20 47F0,BCF6 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0CF6 BCF6,BCF8,BCFA,BCFC,BCFE VERIFY PTF NOT ON
VER 0D00 BD00,BD02
REP 0CF6 18F2 LR R15,R2
REP 0CF8 41E0,0004 LA R14,4
REP 0CFC 1FFE SLR R15,R14
REP 0CFE 18E1 LR R14,R1
REP 0D00 47F0,A178 B *RETURN*
*
VER 106E 00 VERIFY PTF NOT ON
REP 106E AF TNC17537 IS NOW ON
TNC17540: Correctly display buffer pool entries for Vtam 4.4- General Characteristics
- Opened: 7/2/1997, Closed: 7/28/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:26 pm
-
This PTF corrects logic associated with testing for the end of the
buffer pool entries, so that they can be displayed corrrectly.
NAME TNZNCS TNZBPDTY
VER 00BA 4770,A0C4 BNE BPDY0070
REP 00BA 47F0,A0C4 B BPDY0070
NAME TNZNCS TNZPATCH
VER 108B 00 VERIFY PTF NOT ON
REP 108B AF TNC17540 IS NOW ON
TNC17541: Correct S0C4 Abend in ISTEXCVR exit with Vtam 4.4- General Characteristics
- Opened: 7/15/1997, Closed: 7/28/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:27 pm
-
This PTF alters one of the table entries for Vtam offsets so that
and entry for Vtam 4.4, namely, VE44 is found thus allowing the
address of the PCB (Primary Center Block) to be obtained.
NAME ISTEXCVR TNLEXCVR
VER 0270 E5C5,F4F1 DC C'VE41'
REP 0270 E5C5,F4F4 DC C'VE44'
NAME TNZNCS TNZPATCH
VER 108C 00 VERIFY PTF NOT ON
REP 108C AF TNC17541 IS NOW ON
TNC17542: Correction to ISTEXCVR logic if PCB not available- General Characteristics
- Opened: 7/21/1997, Closed: 7/28/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:27 pm
-
This PTF bypasses tests of fields within the PCB in the case where
addressability to PCB has not been established.
NAME ISTEXCVR TNLEXCVR
VER 0004 08E3,D5D3 DC X'08',C'TNL'
REP 0004 17FF XR R15,R15
REP 0006 47F0,A17C B EXVR0096
VER 0076 4770,A13C BNZ EXVR0085
REP 0076 4770,A004 BNZ *PATCH*
NAME TNZNCS TNZPATCH
VER 108D 00 VERIFY PTF NOT ON
REP 108D AF TNC17542 IS NOW ON
TNC17543: Allow ISTEXCVR exit to find Network Center SRT entry- General Characteristics
- Opened: 7/21/1997, Closed: 7/28/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:27 pm
-
This PTF modifies the literal string used to identify the Center
SRT entry to match the value used for Version 1.7.5.
NAME ISTEXCVR TNLEXCVR
VER 0902 E25B,5BE3 DC 'S$$T'
REP 0902 E2F1,F7E3 DC 'S17T'
NAME TNZNCS TNZPATCH
VER 108E 00 VERIFY PTF NOT ON
REP 108E AF TNC17543 IS NOW ON
TNC17546: Order Gateway Select list based upon user supplied list- General Characteristics
- Opened: 7/29/1997, Closed: 8/13/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:27 pm
-
This PTF modifies the logic for Gateway selection so that the order
of the output select list is based upon the order supplied in the
user select list.
NAME TNLNCS TNLEXCAA
VER 02C6 4780,A37E BE EXCA2080
REP 02C6 4780,A316 BE EXCA2015
*
VER 15C6 5820,601C L R2,28(,R6)
REP 15C6 BF8F,115C ICM R8,B'1111',RMPSLIST-RMP(R1)
REP 15CA 4780,A18A BZ EXCA9390
REP 15CE 4150,D144 LA R5,GWAVRLST
REP 15D2 5820,601C EXCA9310 L R2,28(,R6)
REP 15D6 4130,200C LA R3,12(,R2)
REP 15DA 4820,200A LH R2,10(,R2)
REP 15DE D507,8000,3001 EXCA9312 CLC 0(8,R8),1(R3)
REP 15E4 4780,A066 BE EXCA9316
REP 15E8 4130,3015 LA R3,21(,R3)
REP 15EC 4620,A04A BCT R2,EXCA9312
REP 15F0 47F0,A096 B EXCA9320
*
VER 162A 4130,3015 LA R3,21(,R3)
REP 162A 4180,8010 LA R8,16(,R8)
REP 162E D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 1634 4770,A03E BNE EXCA9310
REP 1638 5881,015C L R8,RMPSLIST-RMP(R1)
REP 163C 5870,D0E4 L R7,GWATOTAL
REP 1640 4700,0000 NOP
REP 1644 0700 NOPR
*
VER 1652 5870,D0E4 L R7,GWATOTAL
REP 1652 D507,8000,3001 CLC 0(8,R8),1(R3)
REP 1658 4780,A0D4 BE EXCA934X
REP 165C 4130,3015 LA R3,21(,R3)
REP 1660 4620,A0BE BCT R2,EXCA9340
REP 1664 47F0,A124 B EXCA9350
REP 1668 9180,3001 EXXA934X TM 1(R3),X'80'
REP 166C 47E0,A124 BNO EXCA9350
REP 1670 47F0,A0EA B EXCA9344
*
VER 16B8 4130,3015 LA R3,21(,R3)
REP 16B8 4180,8010 LA R8,16(,R8)
REP 16BC 47F0,BD04 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0D04 BD04,BD06,BD08,BD0A,BD0C,BD0E
VER 0D10 BD10,BD12,BD14,BD16,BD18,BD1A,BD1C,BD1E
VER 0D20 BD20,BD22,BD24,BD26,BD28,BD2A,BD2C,BD2E
VER 0D30 BD30,BD32,BD34,BD36,BD38,BD3A,BD3C,BD3E
VER 0D40 BD40,BD42,BD44,BD46,BD48,BD4A,BD4C,BD4E
VER 0D50 BD50,BD52,BD54,BD56,BD58,BD5A,BD5C,BD5E
VER 0D60 BD60,BD62,BD64,BD66
REP 0D04 D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 0D0A 4770,A0B2 BNE EXCA9330
REP 0D0E 5881,015C LA R8,RMPSLIST-RMP(R1)
REP 0D12 5820,601C EXCA9355 L R2,28(,R6)
REP 0D16 4130,200C LA R3,12(,R2)
REP 0D1A 4820,200A LH R2,10(,R2)
REP 0D1E D507,8000,3001 EXCA9360 CLC 0(8,R8),1(R3)
REP 0D24 4780,BD34 BE EXCA9364
REP 0D28 4130,3015 LA R3,21(,R3)
REP 0D2C 4620,BD1E BCT R2,EXCA9360
REP 0D30 47F0,BD56 B EXCA9370
REP 0D34 9180,3001 EXCA9634 TM 1(R3),X'80'
REP 0D38 47E0,BD56 BNO EXCA9370
REP 0D3C D208,5000,3000 MVC 0(9,R5),0(R3)
REP 0D42 947F,3001 NI 1(R3),X'7F'
REP 0D46 D203,5009,3009 MVC 9(4,R5),9(R3)
REP 0D4C D207,500D,300D MVC 13(8,R5),13(R3)
REP 0D52 4150,5015 LA R5,21(,R5)
REP 0D56 4180,8010 EXCA9370 LA R8,16(,R8)
REP 0D5A D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 0D60 4770,BD12 BNE EXCA9355
REP 0D64 47F0,A12C B *RETURN*
*
VER 1091 00 VERIFY PTF NOT ON
REP 1091 AF TNC17546 IS NOW ON
TNC17547: Correction to date calculations- General Characteristics
- Opened: 9/18/1997, Closed: 10/14/1997 Status: Closed
- Co-Requisite PTFs
| TNC17548 | Correction to day of week routine to avoid S0C1 abend | | TNC17549 | Correction to day of week routine to avoid S0C1 abend |
- Comments from Tuesday, January 16, 2001 at 02:56:28 pm
-
This PTF corrects logic associated with date calculations to allow
for dates greater than .Year2000
NAME TNZNCS TNZRMPR
VER 0420 5A10,A708 A R1,=F'1900000'
REP 0420 47F0,BD68 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0D68 BD68,BD6A,BD6C,BD6E VERIFY PTF NOT ON
VER 0D70 BD70,BD72,BD74,BD76,BD78,BD7A,BD7C,BD7E
VER 0D80 BD80,BD82,BD84,BD86
REP 0D68 5910,BD80 C R1,=F'50000'
REP 0D6C 4740,BD78 BL RMPR4005
REP 0D70 5A10,A708 A R1,=F'1900000'
REP 0D74 47F0,A424 B *RETURN*
REP 0D78 5A10,BD84 RMPR4005 A R1,=F'2000000'
REP 0D7C 47F0,A424 B *RETURN*
REP 0D80 0000,C350 DC F'50000'
REP 0D84 001E,8480 DC F'2000000'
VER 1092 00 VERIFY PTF NOT ON
REP 1092 AF TNC17547 IS NOW ON
TNC17548: Correction to day of week routine to avoid S0C1 abend- General Characteristics
- Opened: 9/18/1997, Closed: 10/14/1997 Status: Closed
- Co-Requisite PTFs
| TNC17547 | Correction to date calculations | | TNC17549 | Correction to day of week routine to avoid S0C1 abend |
- Comments from Tuesday, January 16, 2001 at 02:56:28 pm
-
This PTF replaces routine that calculates the day of the week so
that it is not .Year2000 sensitive.
NAME TNZNCS TNZRMPR
VER 04EA 5810,D06C L R1,GWADATE
REP 04EA 1744 XR R4,R4
REP 04EC 5850,B2F8 L R5,PCBSTCK
REP 04F0 5E50,B068 AL R5,PCBTZONE
REP 04F4 5F50,A51C SL R5,YR1980
REP 04F8 8F40,0008 SLDA R4,8
REP 04FC 5D40,A520 D R4,DAYVAL
REP 0500 4150,5001 LA R5,1(,R5)
REP 0504 41F0,0007 LA R15,7
REP 0508 1744 XR R4,R4
REP 050A 1D4F DR R4,R15
REP 050C 4344,A524 IC R4,WEEKDAY(R4)
REP 0510 4240,9075 STC R4,RMPFLAG4
REP 0514 58E0,D04C L R14,GWALVL2
REP 0518 07FE,0000 BR R14
REP 051C 8F80,9FD3 YR1980 DC XL4'8F809FD3'
REP 0520 0141,DD76 DAYVAL DC XL4'0141DD76'
REP 0524 0102,0408 WEEKDAY DC XL4'01020408'
REP 0528 1020,4080 DC XL4'10204080'
*
VER 052C 0020,5D40 VERIFY PTF NOT ON
REP 052C 4120,8004 LA R2,4(,R8)
REP 0530 1711 XR R1,R1
REP 0532 07FE BR R14
*
VER 05E8 4120,8004 LA R2,4(,R8)
REP 05E8 45E0,A52C BAL R14,*PATCH*
NAME TNZNCS TNZPATCH
VER 1093 00 VERIFY PTF NOT ON
REP 1093 AF TNC17548 IS NOW ON
TNC17549: Correction to day of week routine to avoid S0C1 abend- General Characteristics
- Opened: 10/2/1997, Closed: 10/14/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 02:56:28 pm
-
This PTF replaces routine that calculates the day of the week so
that it is not .Year2000 sensitive.
NAME ISTEXCVR TNLEXRMP
VER 0216 5810,D06C L R1,GWADATE
REP 0216 1744 XR R4,R4
REP 0218 5850,B2F8 L R5,PCBSTCK
REP 021C 5E50,B068 AL R5,PCBTZONE
REP 0220 5F50,A248 SL R5,YR1980
REP 0224 8F40,0008 SLDA R4,8
REP 0228 5D40,A24C D R4,DAYVAL
REP 022C 4150,5001 LA R5,1(,R5)
REP 0230 41F0,0007 LA R15,7
REP 0234 1744 XR R4,R4
REP 0236 1D4F DR R4,R15
REP 0238 4344,A250 IC R4,WEEKDAY(R4)
REP 023C 4240,9075 STC R4,RMPFLAG4
REP 0240 58E0,D04C L R14,GWALVL2
REP 0244 07FE,0000 BR R14
REP 0248 8F80,9FD3 YR1980 DC XL4'8F809FD3'
REP 024C 0141,DD76 DAYVAL DC XL4'0141DD76'
REP 0250 0102,0408 WEEKDAY DC XL4'01020408'
REP 0254 1020,4080 DC XL4'10204080'
*
NAME TNZNCS TNZPATCH
VER 1094 00 VERIFY PTF NOT ON
REP 1094 AF TNC17549 IS NOW ON
TNC17550: Do not pass back items not in User select list with 'Replace'- General Characteristics
- Opened: 9/27/1997, Closed: 10/14/1997 Status: Closed
- Comments from Tuesday, January 16, 2001 at 03:04:42 pm
-
This PTF will ensure that only those items specified in the User
selecct list are passed back to Vtam when 'Replace' is specified.
NAME TNLNCS TNLEXCAA
VER 16D0 47E0,A156 BNO EXCA9375
REP 16D0 47F0,BD90 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0D90 BD90,BD92,BD94,BD96,BD98,BD9A,BD9C,BD9E
REP 0D90 47E0,A156 BNO EXCA9375
REP 0D94 9110,107C TM RMPFLAG3-RMP(R1),RMPREPL
REP 0D98 4710,A156 BO EXCA9375
REP 0D9C 47F0,A140 B *RETURN*
VER 10AF 00 VERIFY PTF NOT ON
REP 10AF AF TNC17550 IS NOW ON
TNC17553: Modify logic for releasing of Alias pool entries- General Characteristics
- Opened: 3/18/1998, Closed: 3/31/1998 Status: Closed
- Comments from Tuesday, January 16, 2001 at 03:04:42 pm
-
This PTF ensures that process of releasing Alias Pool entries
continues after an Alias Translation Element (ATE) is released.
NAME TNYNCS TNYAMNTR
VER 0142 58F0,A36C L R15,=V(TNYFREE)
REP 0142 47F0,BE00 B *PATCH*
NAME TNZNCS TNZPATCH
VER 0E00 BE00,BE02,BE04,BE06,BE08 VERIFY PTF NOT ON
REP 0E00 58F0,A36C L R15,=V(TNYFREE)
REP 0E04 05EF BALR R14,R15
REP 0E06 47F0,A0BE B MNTR0030
VER 10B2 00 VERIFY PTF NOT ON
REP 10B2 AF TNC17553 IS NOW ON
TNC17554: Correct problem with Alias pools in Value Group- General Characteristics
- Opened: 3/19/1998, Closed: 3/31/1998 Status: Closed
- Comments from Tuesday, January 16, 2001 at 03:04:42 pm
-
This PTF corrects a logic problem associated with searching for
Alias pool names when specified in a Value group.
NAME TNYNCS TNYFREE
VER 0408 4130,3010 LA R3,16(,R3)
REP 0408 4130,302C LA R3,16+28(,R43)
NAME TNZNCS TNZPATCH
VER 10B3 00 VERIFY PTF NOT ON
REP 10B3 AF TNC17554 IS NOW ON
TNC17562: Allow local VR selection in ISTEXCAA- General Characteristics
- Opened: 4/23/1999, Closed: 7/26/1999 Status: Closed
- Co-Requisite PTFs
| TNC17564 | Order VR Select list based upon user supplied list |
- Comments from Tuesday, January 16, 2001 at 03:04:10 pm
-
This PTF allows local VR selection to be processed by the SME
ISTEXCAA.
NAME TNLNCS TNLEXCAA
VER 0D48 4780,A610 BE EXCA9080
REP 0D48 4700,A610 NOP
NAME TNZNCS TNZPATCH
VER 10D5 00 VERIFY PTF NOT ON
REP 10D5 AF TNC17562 IS NOW ON
TNC17564: Order VR Select list based upon user supplied list- General Characteristics
- Opened: 7/14/1999, Closed: 8/13/1999 Status: Closed
- Co-Requisite PTFs
| TNC17562 | Allow local VR selection in ISTEXCAA |
- Comments from Tuesday, January 16, 2001 at 03:04:10 pm
-
This PTF modifies the logic for VR selection so that the order
of the output select list is based upon the order supplied in the
user select list.
NAME TNLNCS TNLEXCAA
VER 0618 5810,D0CC L R1,GWARMTCH
REP 0618 58F0,BFF8 L R15,PCBXPAT
REP 061C 47F0,F000 B *PATCH*
REP 0620 0700 NOPR
*
VER 175E 5820,603C L R2,60(,R6)
REP 175E BF8F,115C ICM R8,B'1111',RMPSLIST-RME(R1)
REP 1762 4150,D144 LA R5,GWAVRLST
REP 1766 5820,603C EXCA9410 L R2,60(,R6)
REP 176A 4130,2012 LA R3,18(,R2)
REP 176E 4820,2010 LH R2,16(,R2)
REP 1772 D501,8006,3000 EXCA9412 CLC 6(2,R8),0(R3)
REP 1778 4780,A07A BE EXCA9416
REP 177C 4130,3002 LA R3,2(,R3)
REP 1780 4620,A046 BCT R2,EXCA9412
REP 1784 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 1788 47E0,A09E BNO EXCA9420
REP 178C BFFF,800C ICM R15,B'1111',12(R8)
REP 1790 4780,A06C BZ EXCA9414
REP 1794 47F0,A09E B EXCA9420
REP 1798 D201,5000,8006 EXCA9414 MVC 0(2,R5),0(R8)
REP 179E 4150,5002 LA R5,2(,R5)
REP 17A2 47F0,A09E B EXCA9420
REP 17A6 BFFF,800C EXCA9416 ICM R15,B'1111',12(R8)
REP 17AA 4780,A090 BZ EXCA9418
REP 17AE D501,8008,A1AC CLC 8(2,R8),=H'0'
REP 17B4 4780,A090 BE EXCA9418
REP 17B8 47F0,A09E B EXCA9420
REP 17BC D201,5000,3000 EXCA9418 MVC 0(2,R5),0(R3)
REP 17C2 9680,3000 OI 0(R3),X'80'
REP 17C6 4150,5002 LA R5,2(,R5)
REP 17CA 4180,8010 EXCA9420 LA R8,16(,R8)
REP 17CE D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 17D4 4770,A03A BNE EXCA9410
REP 17D8 5881,015C L R8,RMPSLIST-RME(R1)
REP 17DC 5870,D0E4 L R7,GWATOTAL
REP 17E0 5820,603C EXCA9435 L R2,60(,R6)
REP 17E4 4130,2012 LA R3,18(,R2)
REP 17E8 4820,2010 LH R2,16(,R2)
REP 17EC D501,8006,3000 EXCA9438 CLC 6(2,R8),0(R3)
REP 17F2 4780,A124 BE EXCA9440
REP 17F6 4130,3002 LA R3,2(,R3)
REP 17FA 4620,A0C0 BCT R2,EXCA9438
REP 17FE 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 1802 47E0,A15A BNO EXCA9450
REP 1806 41F0,D144 LA R15,GWAVRLST
REP 180A D501,8006,F000 EXCA9439 CLC 6(2,R8),0(R15)
REP 1810 4780,A15A BE EXCA9450
REP 1814 41F0,F002 LA R15,2(,R15)
REP 1818 D501,F000,A1AC CLC 0(2,R15),=H'0'
REP 181E 4770,A0DE BNE EXCA9439 '
REP 1822 BFFF,800C ICM R15,B'1111',12(R8)
REP 1826 4CF0,A1AE MH R15,=H'100'
REP 182A 17EE XR R14,R14
REP 182C 1277 LTR R7,R7
REP 182E 4770,A10C BNZ EXCA943A
REP 1832 17FF XR R15,R15
REP 1834 47F0,A10E B EXCA943B
REP 1838 1DE7 EXCA943A DR R14,R7B
REP 183A 49F8,0008 EXCA943B CH R15,8(R8)
REP 183E 4720,A15A BH EXCA9450
REP 1842 D201,5000,8006 MVC 0(2,R5),6(R8)
REP 1848 4150,5002 LA R5,2(,R5)
REP 184C 47F0,A15A B EXCA9450
REP 1850 9180,3000 EXCA9440 TM 0(R3),X'80'
REP 1854 4710,A15A BO EXCA9450
REP 1858 BFFF,800C ICM R15,B'1111',12(R8)
REP 185C 4CF0,A1AE MH R15,=H'100'
REP 1860 17EE XR R14,R14
REP 1862 1277 LTR R7,R7
REP 1864 4770,A142 BNZ EXCA9442
REP 1868 17FF XR R15,R15
REP 186A 47F0,A144 B EXCA9444
REP 186E 1DE7 EXCA9442 DR R14,R7
REP 1870 49F8,0008 EXCA9444 CH R15,8(R8)
REP 1874 4720,A15A BH EXCA9450
REP 1878 D201,5000,3000 MVC 0(2,R5),0(R3)
REP 187E 9680,3000 OI 0(R3),X'80'
REP 1882 4150,5002 LA R5,2(,R5)
REP 1886 4180,8010 EXCA9450 LA R8,16(,R8)
REP 188A D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 1890 4770,A0B4 BNE EXCA9435
REP 1894 58E0,BFF8 L R14,PCBXPAT
REP 1898 47F0,E02A B *PATCH*
*
NAME TNZNCS TNZPATCH
VER 10D7 00 VERIFY PTF NOT ON
REP 10D7 AF TNC17564 IS NOW ON
*
VER 13E4 F000,F002,F004,F006,F008,F00A,F00C,F00E
VER 13F4 F010,F012,F014,F016,F018,F01A,F01C,F01E
VER 1404 F020,F022,F024,F026,F028
REP 13E4 5810,D0CC L R1,GWARMTCH
REP 13E8 D703,D144,D144 XC GWAVRLST,GWAVRLST
REP 13EE 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 13F2 4710,F026 BO EXCA4012
REP 13F6 5820,603C L R2,60(,R6)
REP 13FA 4130,2012 LA R3,18(,R2)
REP 13FE 4820,2010 LH R2,16(,R2)
REP 1402 4920,AC50 CH R2,=AL2(1)
REP 1406 4780,A66A BE EXCA4015
REP 140A 47F0,A622 EXCA4012 B *RETURN*
*
VER 140E F02A,F02C,F02E
VER 1414 F030,F032,F034,F036,F038,F03A,F03C,F03E
VER 1424 F040,F042,F044,F046,F048,F04A,F04C,F04E
VER 1434 F050,F052,F054,F056,F058,F05A,F05C,F05E
VER 1444 F060,F062,F064,F066,F068,F06A,F06C,F06E
VER 1454 F070,F072,F074,F076,F078,F07A,F07C,F07E
VER 1464 F080,F082,F084,F086,F088,F08A,F08C,F08E
VER 1474 F090,F092,F094,F096,F098,F09A,F09C,F09E
VER 1484 F0A0,F0A2,F0A4,F0A6,F0A8,F0AA,F0AC,F0AE
VER 1494 F0B0,F0B2,F0B4,F0B6,F0B8,F0BA,F0BC,F0BE
VER 14A4 F0C0,F0C2,F0C4,F0C6,F0C8,F0CA,F0CC,F0CE
VER 14B4 F0D0,F0D2,F0D4,F0D6
*
REP 140E 5881,015C L R8,RMPSLIST-RME(R1)
REP 1412 41F0,D144 EXCA9455 LA R15,GWAVRLST
REP 1416 D501,8006,F000 EXCA9456 CLC 6(2,R8),0(R15)
REP 141C 4780,E094 BE EXCA9464
REP 1420 41F0,F002 LA R15,2(R15)
REP 1424 D501,F000,A1AC CLC 0(2,R15),=H'0'
REP 142A 4770,E032 BNE EXCA9456
REP 142E 5820,603C EXCA9460 L R2,60(,R6)
REP 1432 4130,2012 LA R3,18(,R2)
REP 1436 4820,2010 LH R2,16(,R2)
REP 143A D201,D288,3000 EXCA9461 MVC GWADWORD(2),0(R3)
REP 1440 947F,D288 NI GWADWORD,X'7F'
REP 1444 D501,8006,D288 CLC 6(2,R8),GWADWORD
REP 144A 4780,E07E BE EXCA9462
REP 144E 4130,3002 LA R3,2(,R3)
REP 1452 4620,E056 BCT R2,EXCA9461
REP 1456 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 145A 47E0,E094 BNO EXCA9464
REP 145E 47F0,E08A B EXCA9463
REP 1462 9180,3000 EXCA9462 TM 0(R3),X'80'
REP 1466 4710,E094 BO EXCA9464
REP 146A 9680,3000 OI 0(R3),X'80'
REP 146E D201,5000,8006 EXCA9463 MVC 0(2,R5),6(R8)
REP 1474 4150,5002 LA R5,2(,R5)
REP 1478 4180,8010 EXCA9464 LA R8,16(,R8)
REP 147C D507,8000,B69C CLC 0(8,R8),PCBBLNKS
REP 1482 4770,E02E BNE EXCA9455
REP 1486 5820,603C L R2,60(,R6)
REP 148A 4130,2012 LA R3,18(,R2)
REP 148E 4820,2010 LH R2,16(,R2)
REP 1492 9180,3000 EXCA9465 TM 0(R3),X'80'
REP 1496 4710,E0C8 BO EXCA9470
REP 149A 9110,107C TM RMPFLAG3-RME(R1),RMP3REPL
REP 149E 4710,E0C8 BO EXCA9470
REP 14A2 D201,5000,3000 MVC 0(2,R5),0(R3)
REP 14A8 4150,5002 LA R5,2(,R5)
REP 14AC 947F,3000 EXCA9470 NI 0(R3),X'7F'
REP 14B0 4130,3002 LA R3,2(,R3)
REP 14B4 4620,E0AE BCT R2,EXCA9465
REP 14B8 47F0,A186 B EXCA9480 (RETURN)
TNC17570: Correct logic in TNZBLOCK to acquire an AME correctly- General Characteristics
- Opened: 2/26/2001, Closed: 3/4/2001 Status: Closed
- Additional Symptoms
| NRS6252 | Client experienced S0C4 Abend in TNZNCS |
- Comments from Monday, February 26, 2001 at 04:55:58 pm
- This PTF checks to see if the AME chain is exhausted while requesting an AME from the available chain. If so then another AME block is acquired and more AME's are added to the available chain.
NAME TNZNCS TNZBLOCK
VER 0364 58F0,1004 L R15,AMENEXT
REP 0364 45E0,BEF8 BAL R14,*PATCH*
*
NAME TNZNCS TNZPATCH
VER 0EF8 BEF8,BEFA,BEFC,BEFE VERIFY PTF NOT ON
VER 0F00 BF00,BF02
REP 0EF8 1211 LTR R1,R1
REP 0EFA 4780,A2D4 BZ BLK1402
REP 0EFE 58F0,1004 L R15,AMENEXT
REP 0F02 07FE BR R14 (RETURN)
*
VER 10F7 00 VERIFY PTF NOT ON
REP 10F7 AF TNC17570 IS NOW ON |
