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.

1. TNC17508: Terminate RCVCMD loop if VTAM terminating
2. TNC17509: Force termination of Server if Exit Terminated
3. TNC17510: Avoid Abend S0C5 in Timeout SME after Modify Exit restart
4. TNC17515: Correction to rule checking logic
5. TNC17516: Correction to allow correct display of large rule list
6. TNC17517: Correction for display of large rule list
7. TNC17518: Correction for Abend 40A-08 in Network Center Interface
8. TNC17519: Correction for S0C4 after F3=Exit used in TNCAUTH panel.
9. TNC17520: Add label record for LUCB to NDF definitions
10. TNC17521: Correctly reformat rulesets with ++UNLOAD RULES
11. TNC17522: Ensure that V175 does not use V161 SRT entry
12. TNC17523: Acquire storage to be retained from persistent (CSA) storage.
13. TNC17524: Avoid S0C4 Abend at startup by testing for PCB presence.
14. TNC17528: Correction to recursion check in Rule Reload function
15. TNC17534: Correction to release Alias pools correctly.
16. TNC17535: Correction to Alias assignment logic to avoid S0C4 Abend
17. TNC17536: Acquire storage for Alias value groups from persistent storage
18. TNC17537: Clear alias pool bit strings correctly
19. TNC17540: Correctly display buffer pool entries for Vtam 4.4
20. TNC17541: Correct S0C4 Abend in ISTEXCVR exit with Vtam 4.4
21. TNC17542: Correction to ISTEXCVR logic if PCB not available
22. TNC17543: Allow ISTEXCVR exit to find Network Center SRT entry
23. TNC17546: Order Gateway Select list based upon user supplied list
24. TNC17547: Correction to date calculations
25. TNC17548: Correction to day of week routine to avoid S0C1 abend
26. TNC17549: Correction to day of week routine to avoid S0C1 abend
27. TNC17550: Do not pass back items not in User select list with 'Replace'
28. TNC17553: Modify logic for releasing of Alias pool entries
29. TNC17554: Correct problem with Alias pools in Value Group
30. TNC17562: Allow local VR selection in ISTEXCAA
31. TNC17564: Order VR Select list based upon user supplied list
32. 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