INSTALLATION NOTES FOR Patch 6 to IHS/VA UTILITIES, v 2.6 =========================================================================== PREFIX: XB CURRENT VERSION: 2.6 =========================================================================== **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE * ************************************************************************ * READ THE ENTIRE NOTES FILE PRIOR TO ATTEMPTING ANY INSTALLATION !!!* ************************************************************************ **** NOTE ***** NOTE **** NOTE **** NOTE **** NOTE **** NOTE **** NOTE * 1. GENERAL INFORMATION a) Make a copy of this distribution for off-line storage. b) Print all notes/readme files. c) If you received this distribution on tape media please remember to return the tape to the originator. d) It is recommended that the terminal output during the installation be captured using an auxport printer attached to the terminal at which you are performing the software installation. This will insure a printed audit trail if any problems should arise. 2. CONTENTS OF DISTRIBUTION a) xb__0260.p6 - Routines b) xb__0260.n6 - This file See the end of this notes file for the description of the patch from the patch system. 3. REQUIREMENTS a) Kernel v 7.0 or later b) FileMan v 19 or later 4. INSTALLATION INSTRUCTIONS a) Disable logins, or ensure all users are off. This is to protect against CLOBR errors. In all UCI's running IHS/VA UTILITIES: b) Do routine restore from the file xb__0260.p6, which should restore 16 routines. c) Enable logins. NOTE: XB/ZIB has no distributed entry in the PACKAGE file, so this patch will "fail" with the Remote Patch Installation utility. 5. POINT OF CONTACT George T. Huggins, IHS/OIRM/ADC, 505-837-4189 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= PATCH DESIGNATION: XB*2.6*6 PACKAGE: IHS/VA UTILITIES VERSION: 2.6 PATCH NUMBER: 6 PATCH SUBJECT: Flat filer; XB lines; / in uucpq; etc. PRIORITY: MANDATORY USER ENTERING: HUGGINS,GEORGE DATE PATCH FIRST ENTERED: DEC 19, 1994 CATEGORY OF PATCH: ROUTINE PATCH DESCRIPTION: This patch to XB/ZIB: (1) Permits the ability to create a flat file from a call to the global save utility, XBGSAVE, by having the optional input variable XBFLT evaluate to non-zero. (2) Inserts an omitted "/" in the UUCPQ sub-routine of the XBGSAVE utility, which caused the auto-q to uucp to fail. (3) Corrects the two XB routines that provide interactive formatting of lines one and two of routines for developers, to bring the resulting lines into conformance with the 1 Sep 94 SAC. (4) Updates the list of callable XB/ZIB utilities displayed to developers thru the XB routine. (5) Connects previously unconnected XB utilities to the XB routine menu driver for developers. No action is required by this patch other than to restore the routines into each uci containing the XB/ZIB utilities. ------------------------------------------------------------------------- ROUTINE NAME: XBGSAVE DESCRIPTION OF ROUTINE CHANGES: In routine XBGSAVE, add an internal documentation line after the current line that defines XBQTO: ; XBFLT= 1, saves as flat file ; XB*2.6*6 In the EOB subroutine, add the kill of the variable: K XBFLT ; XB*2.6*6 ------------------------------------------------------------------------- ROUTINE NAME: ZIBGSVEM DESCRIPTION OF ROUTINE CHANGES: In routine ZIBGSVEM, the following lines are changed: Line UUCPQ+1 to UUCPQ+2, before: I $$JOBWAIT^%HOSTCMD("/usr/bin/sendto "_XBQTO_" "_XBUF_ ........ XBFN) S XBFLG=-1,XBFLG(1)="Queue of File to uucp Faile ........ d" E W:'$D(ZTQUEUED) !,"Export file ",XBUF,XBFN," queued ........ up to be sent to ",XBQTO,"...",! Line UUCPQ+1 to UUCPQ+2, after: I $$JOBWAIT^%HOSTCMD("/usr/bin/sendto "_XBQTO_" "_XBUF_ ........ _"/"_XBFN) S XBFLG=-1,XBFLG(1)="Queue of File to uucp ........ Failed" ; XB*2.6*6 E W:'$D(ZTQUEUED) !,"Export file ",XBUF,"/",XBFN," que ........ ued up to be sent to ",XBQTO,"...",! ; XB*2.6*6 SAVEMSM subroutine, before: W XBDT,!,XBTLE,! S X=XBGL_XBF_")" F S X=$Q(@X) Q:X="" Q:(XBE]"")&($P($P(X,"(",2),",")>X ........ BE) S Y=X S:$E(Y,2)="[" Y=U_$P(Y,"]",2,999) W Y,!,@X, ........ ! W "**",!,"**",!! Q SAVEMSM subroutine, after: I '$G(XBFLT) W XBDT,!,XBTLE,! ; XB*2.6*6 S X=XBGL_XBF_")" F S X=$Q(@X) Q:X="" S Y=$P(($P($P(X,")",1),"(",2),"," ........ ,1) Q:'(Y?1.N) Q:(XBE)&(Y>XBE) S Y=X S:$E(Y,2)="[" Y ........ =U_$P(Y,"]",2,999) W:'$G(XBFLT) Y,! W @X,! ; XB*2.6*6 W:'$G(XBFLT) "**",!,"**",!! ; XB*2.6*6 Q ------------------------------------------------------------------------- ROUTINE NAME: ZIBGSVED DESCRIPTION OF ROUTINE CHANGES: In routine ZIBGSVED, add as the first executable line: I $G(XBFLT) S XBFLG=-1,XBFLG(0)="DSM flat filer has not ........ been tested." Q ; XB*2.6*6 ------------------------------------------------------------------------- ROUTINE NAME: XBVLINE DESCRIPTION OF ROUTINE CHANGES: In routine XBVLINE, make the following modifications: Line XBVLINE+11: Old Line: ;;1.1;PCC DATA ENTRY;*1,2*;Sep 9, 1989 New Line: ;;1.1;PCC DATA ENTRY;**1,2**;Sep 9, 1989 Line START+18: Old Line: S XBVLINE=XBVLINE_$S(X="":";",1:";*"_X_"*") New Line: S XBVLINE=XBVLINE_$S(X="":";",1:";**"_X_"**") ; XB*2.6*6 ------------------------------------------------------------------------- ROUTINE NAME: XBFIXL1 DESCRIPTION OF ROUTINE CHANGES: In routine XBFIXL1, make the following modifications: Lines XBFIXL1+9: Old line: ; label ; site/developer - comment ; edit date E.G. New line: ; label ; agency/site/developer - comment ; edit date E.G. Line XBFIXL1+10: Old Line: ; XBFIXL1 ; OHPRD/ACC - FIX LINE 1 ; [ 11/08/90 10:41 AM ] New Line: ; XBFIXL1 ; IHS/OHPRD/ACC - FIX LINE 1 ; [ 11/08/90 10:41 AM ] Line START+9: Old Line: S DIR(0)="F^6:20",DIR("A")="Enter site/programmer",DIR("?")="E.G ........ IHS/OHPRD/ACC" D ^DIR K DIR New Line: S DIR(0)="F^9:20",DIR("A")="Enter site/programmer",DIR("?")="E.G ........ IHS/OHPRD/ACC" D ^DIR K DIR ; XB*2.6*6 Line FIX+1: Old Line: S DIR(0)="F^5:40",DIR("A")="Enter comment to follow site/program ........ mer " D ^DIR K DIR New Line: S DIR(0)="F^5:40",DIR("A")="Enter comment to follow agency/site/ ........ programmer " D ^DIR K DIR ; XB*2.6*6 ------------------------------------------------------------------------- ROUTINE NAME: XB DESCRIPTION OF ROUTINE CHANGES: Routine XB has been split because of size. Documentation of the menus and the menu options themselves have been moved to routine XB1. Routine XB has been modified to use standard, non-implementation specific, calls. The following lines have been added to the menu driver (now in XB1) for developer use: XB+189: ;;Electronic Data Dictionary;;^XBHEDD;;;; XB*2.6*6 XB+260: ;;Edit FM print template headers;;^XBDH;;;; XB*2.6*6 XB+261: ;;Build routine to kill namespaced variables;;^XBLDVKL;;;; XB*2.6*6 ------------------------------------------------------------------------- ROUTINE NAME: XBLCALL DESCRIPTION OF ROUTINE CHANGES: Routine XBLCALL is updated to list routines that are callable by developers from their packages. Some of the callable routines require user interaction. ------------------------------------------------------------------------- ROUTINE NAME: XB1 DESCRIPTION OF ROUTINE CHANGES: This is a new routine, created because of the size of XB. It contains documentation on how the menu is handled and it contains the utility menu options, themselves. ------------------------------------------------------------------------- ROUTINE NAME: ZIBERR DESCRIPTION OF ROUTINE CHANGES: This is a new routine to standardize retrieval of the value of the implementations intrinsic variable for errors. In MSM, the only supported implementation thus far, the intrinsic variable is $ZE. This routine is needed to bring routine XB into SAC compliance. -------------------------------------------------------------------------