| 1 | XQP50 ;Luke&Ron/SEA - Update Patch 50 Application History ;11/27/96 09:42
|
|---|
| 2 | ;;8.0;KERNEL;**51**;Nov 21, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;This routine, a post init routine for patch XU*8*51, updates
|
|---|
| 5 | ;the Patch Application History of patch XU*8*50 which was
|
|---|
| 6 | ;released without a link to the Package File.
|
|---|
| 7 | ;
|
|---|
| 8 | ;38 is the Patch Module Sequence Number, X1 is the Kernel
|
|---|
| 9 | ;IEN in the Package File [^DIC(9.4)], 8.0 is the Version #,
|
|---|
| 10 | ;DT and DUZ record who and when it was installed.
|
|---|
| 11 | ;
|
|---|
| 12 | ;
|
|---|
| 13 | ;
|
|---|
| 14 | DESC ;<Patch description to be placed in Package File>
|
|---|
| 15 | ;; This patch contains a routine, and input template, and a change to
|
|---|
| 16 | ;;the data dictionary of the Option File [^DIC(19)]. It corrects 3 problems
|
|---|
| 17 | ;;with servers:
|
|---|
| 18 | ;;
|
|---|
| 19 | ;;1. [CML-0296-N1840 and LIT-0496-71332 ] Server tasks were retained for
|
|---|
| 20 | ;;30 days in ^ZTSK, and several sites complained that this was too long and
|
|---|
| 21 | ;;therefore a waste of disk space. The default task retention time was
|
|---|
| 22 | ;;lowered to 14 days, and a field was added to the Option File (ZTSK
|
|---|
| 23 | ;;RETENTION DAYS) to allow the site to set the retention time for each
|
|---|
| 24 | ;;server on the system from 1 to 365 days.
|
|---|
| 25 | ;;
|
|---|
| 26 | ;;2. [MCM-1096-51188] A site complained that the edit template XUEDITOPT
|
|---|
| 27 | ;;did not allow them to edit the field SERVER DEVICE when working with a
|
|---|
| 28 | ;;server-type option. This was corrected when the new field was added to
|
|---|
| 29 | ;;the template.
|
|---|
| 30 | ;;
|
|---|
| 31 | ;;3. [SLC-1096-50407] Under certain circumstances, servers that were
|
|---|
| 32 | ;;designated as "Run Immediately" in the SERVER ACTION field were not
|
|---|
| 33 | ;;running at all but being queued because of a logic error. This problem
|
|---|
| 34 | ;;was also noted by IHS.
|
|---|
| 35 | ;;
|
|---|
| 36 | ;;=============================================================
|
|---|
| 37 | ;;
|
|---|
| 38 | ;; CHECKSUMS WITH PATCH LIST
|
|---|
| 39 | ;;
|
|---|
| 40 | ;;Program Before After
|
|---|
| 41 | ;;
|
|---|
| 42 | ;; XQSRV1 8538091 8877273 **50**
|
|---|
| 43 | ;;
|
|---|
| 44 | ;
|
|---|
| 45 | N %,X,X1
|
|---|
| 46 | ;
|
|---|
| 47 | S X=28
|
|---|
| 48 | F %=1:1:X S ^XTMP($J,"P50",%)=$E($T(DESC+%),4,99)
|
|---|
| 49 | ;
|
|---|
| 50 | S X="50 SEQ #38^"_DT_"^"_DUZ,X(1)="^XTMP($J,""P50"")"
|
|---|
| 51 | S X1=$P(^XPD(9.7,XPDA,0),U,2)
|
|---|
| 52 | I 'X1 D BMES^XPDUTL("Couldn't update Patch information for patch 50.") Q
|
|---|
| 53 | S %=$$PKGPAT^XPDIP(X1,"8.0",.X)
|
|---|
| 54 | Q
|
|---|
