Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: JLV29P1

JLV29P1.m

Go to the documentation of this file.
  1. JLV29P1 ;;HON/JLV - JLV Pre-install for JLV 2.9 p1;;6/19/20 13:15
  1. ;;2.9;JOINT LEGACY VIEWER;**1**;JUN 10, 2020;Build 6
  1. ;; ICR in use: #2067 XPDIP
  1. ;; update CURRENT VERSION field in PACKAGE File to 2.9
  1. ; Find PACKAGE File IEN for JLV
  1. N JLVPKG,JLVVER
  1. S JLVPKG=$$FIND1^DIC(9.4,"","MX","JLV","","","ERR")
  1. I JLVPKG=0 D Q
  1. . W !,"PACKAGE File Entry not found. CURRENT VERSION not set."
  1. ; set version
  1. S JLVVER=$$PKGVER^XPDIP(JLVPKG,"2.9^3200611^"_DT_"^"_DUZ)
  1. I JLVVER>0 W !!,"CURRENT VERSION field set to 2.9 in PACKAGE file"
  1. Q