XU8P585.m

XU8P585 ;ISF/CJM- Patch XU-585 Post init ;09/11/2012

 ;;8.0;KERNEL;**585**;;Build 23

 ;

ENVIR ;Environment check for XU*8.0*585

 I '$$CHECKDIR D

 .S XPDQUIT=2

 .W !,"The directory for the print files does not exist or the permissions were",!,"not correctly established"

 Q

POST ;

 N ERROR,OS

 D PATCH^ZTMGRSET(585)

 S OS=$$OS^%ZOSV()

 I OS'["VMS",OS'["UNIX" Q

 I $G(ERROR)<0 D BMES^XPDUTL("Failed to schedule the 'XU PURGE PRINT QUEUE HFS FILES' option! Please do so manually.")

 N IEN,DATA,OPTION

 S OPTION=$O(^DIC(19,"B","XU PURGE PRINT QUEUE HFS FILES",0))

 I 'OPTION D BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

 I OPTION D

 .S IEN=$O(^DIC(19.2,"B",OPTION,0))

 .S DATA(.01)=OPTION

 .S DATA(2)=$$FMADD^XLFDT($$NOW^XLFDT,,1)

 .S DATA(6)="1H"

 .I IEN D

 ..I '$$UPD^HLOASUB1(19.2,IEN,.DATA) D BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

 .E  D

 ..I '$$ADD^HLOASUB1(19.2,,.DATA) D BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

 Q

 ;

CNVRT ;convert HFS type devices that call NVSPRTU to PQ type devices

 N DEVICE,NOW

 S NOW=$$DT^XLFDT()

 S DEVICE=0

 ;

 ;K ^XTMP("%ZIS HFS TO PQ") ;overlay old list if it exists

 ;

 S ^XTMP("%ZIS HFS TO PQ",0)=$$FMADD^XLFDT(NOW,180)_"^"_NOW

 F  S DEVICE=$O(^%ZIS(1,DEVICE)) Q:'DEVICE  D

 .I $P($G(^%ZIS(1,DEVICE,"TYPE")),"^")="HFS" D

 ..N SUBTYPE

 ..S SUBTYPE=$P($G(^%ZIS(1,DEVICE,"SUBTYPE")),"^")

 ..Q:'SUBTYPE

 ..I $G(^%ZIS(2,SUBTYPE,3))["CLOSE^NVSPRTU" D

 ...N DATA

 ...S DATA(2)="PQ"

 ...S ^XTMP("%ZIS HFS TO PQ",DEVICE)=""

 ...D UPD^ZISFM(3.5,DEVICE,.DATA)

 Q

 ;

UNDO ;undo the changes made by CNVRT conversion routine

 N DEVICE

 S DEVICE=0

 F  S DEVICE=$O(^XTMP("%ZIS HFS TO PQ",DEVICE)) Q:'DEVICE  D

 .N DATA

 .S DATA(2)="HFS"

 .D UPD^ZISFM(3.5,DEVICE,.DATA)

 Q

 ;

 ;

CHECKDIR() ;tests if the print_queues directory has been created properly

 ;

 ;if production and VMS or Linux the test is not needed

 N OS

 Q:'$$PROD^XUPROD() 1

 S OS=$$OS^%ZOSV()

 I OS'["VMS",OS'["UNIX" Q 1

 ;

 N DIR,FILE,IO,POP,HANDLE

 S DIR=$$DIR

 S FILE="TEST_"_$J

 S HANDLE="ZUHANDLE"

 ;

 I $$FEXIST(DIR_FILE) Q 1

 D OPEN^%ZISH(HANDLE,DIR,FILE,"W")

 Q:POP 0

 D CLOSE^%ZISH(HANDLE)

 D FDELETE(DIR_FILE)

 Q 1

 ;

 ;

DIR() ;get directory for printer queues, a subdirectory of host file directory

 N DIR,CODE

 S CODE=$$PRI^%ZOSV

 S DIR=$$CHKNM^%ZISF($P($G(^XTV(8989.3,1,"DEV")),"^",CODE))

 I $$OS^%ZOSV()["VMS" D

 .S DIR=$P(DIR,"]")_".print_queues]"

 E  D

 .S DIR=DIR_"print_queues/"

 Q DIR

 ;

FEXIST(FILE) ;

 ;returns 1 if the file exists, 0 otherwise

 ;

 N OS S OS=$$OS^%ZOSV()

 I OS["UNIX" Q $$LFEXIST(FILE)

 E  I OS["VMS" Q $$VFEXIST(FILE)

 Q 0

 ;

VFEXIST(FILE) ;

 ;checks file's existance - VMS

 N CMD,RET

 S CMD="PIPE F = F$SEARCH("""_FILE_""")"

 S CMD=CMD_" ; IF F$LENGTH(F) .EQ. 0 THEN DEFINE/JOB ZIS$VAL 0 ; IF F$LENGTH(F) .GT. 0 THEN DEFINE/JOB ZIS$VAL 1 "

 I $ZF(-1,CMD)

 S RET=$ZF("TRNLNM","ZIS$VAL","LNM$JOB")

 I $ZF(-1,"DEASSIGN/JOB ZIS$VAL")

 Q +$G(RET)

 ;

LFEXIST(FILE) ;

 ;checks file's existance - Linux,Unix

 N CMD

 S CMD="[ -f "_$$REPLACE(FILE,"$","'$'")_" ]"

 Q '$ZF(-1,CMD)

 ;

FDELETE(FILE) ;

 ;delete file

 N OS S OS=$$OS^%ZOSV()

 I OS["UNIX" D LFDELETE(FILE)

 E  I OS["VMS" D VFDELETE(FILE)

 Q

 ;

VFDELETE(FILE) ;

 ;delete file - VMS

 N CMD

 I FILE'[";" S FILE=FILE_";*"

 S CMD="DELETE "_FILE

 I $ZF(-1,CMD)

 ;

LFDELETE(FILE) ;

 ;delete file - Linux,Unix

 N CMD

 S CMD="rm -f "_$$REPLACE(FILE,"$","'$'")

 I $ZF(-1,CMD)

 ;

REPLACE(STRING,SUB1,SUB2) ;

 ;

 N REPLACE

 S REPLACE(SUB1)=SUB2

 Q $$REPLACE^XLFSTR(STRING,.REPLACE)

 ;

 ;

 ;

 ;

XU8P585   ;ISF/CJM- Patch XU-585 Post init ;09/11/2012

 +1       ;;8.0;KERNEL;**585**;;Build 23

 +2       ;

ENVIR     ;Environment check for XU*8.0*585

 +1        IF '$$CHECKDIR

               Begin DoDot:1

 +2                SET XPDQUIT=2

 +3                WRITE !,"The directory for the print files does not exist or the permissions were",!,"not correctly established"

               End DoDot:1

 +4        QUIT 

POST      ;

 +1        NEW ERROR,OS

 +2        DO PATCH^ZTMGRSET(585)

 +3        SET OS=$$OS^%ZOSV()

 +4        IF OS'["VMS"

               IF OS'["UNIX"

                   QUIT 

 +5        IF $GET(ERROR)<0

               DO BMES^XPDUTL("Failed to schedule the 'XU PURGE PRINT QUEUE HFS FILES' option! Please do so manually.")

 +6        NEW IEN,DATA,OPTION

 +7        SET OPTION=$ORDER(^DIC(19,"B","XU PURGE PRINT QUEUE HFS FILES",0))

 +8        IF 'OPTION

               DO BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

 +9        IF OPTION

               Begin DoDot:1

 +10               SET IEN=$ORDER(^DIC(19.2,"B",OPTION,0))

 +11               SET DATA(.01)=OPTION

 +12               SET DATA(2)=$$FMADD^XLFDT($$NOW^XLFDT,,1)

 +13               SET DATA(6)="1H"

 +14               IF IEN

                       Begin DoDot:2

 +15                       IF '$$UPD^HLOASUB1(19.2,IEN,.DATA)

                               DO BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

                       End DoDot:2

 +16              IF '$TEST

                       Begin DoDot:2

 +17                       IF '$$ADD^HLOASUB1(19.2,,.DATA)

                               DO BMES^XPDUTL("Failed to schedule the XU PURGE PRINT QUEUE HFS FILES option!")

                       End DoDot:2

               End DoDot:1

 +18       QUIT 

 +19      ;

CNVRT     ;convert HFS type devices that call NVSPRTU to PQ type devices

 +1        NEW DEVICE,NOW

 +2        SET NOW=$$DT^XLFDT()

 +3        SET DEVICE=0

 +4       ;

 +5       ;K ^XTMP("%ZIS HFS TO PQ") ;overlay old list if it exists

 +6       ;

 +7        SET ^XTMP("%ZIS HFS TO PQ",0)=$$FMADD^XLFDT(NOW,180)_"^"_NOW

 +8        FOR 

               SET DEVICE=$ORDER(^%ZIS(1,DEVICE))

               IF 'DEVICE

                   QUIT 

               Begin DoDot:1

 +9                IF $PIECE($GET(^%ZIS(1,DEVICE,"TYPE")),"^")="HFS"

                       Begin DoDot:2

 +10                       NEW SUBTYPE

 +11                       SET SUBTYPE=$PIECE($GET(^%ZIS(1,DEVICE,"SUBTYPE")),"^")

 +12                       IF 'SUBTYPE

                               QUIT 

 +13                       IF $GET(^%ZIS(2,SUBTYPE,3))["CLOSE^NVSPRTU"

                               Begin DoDot:3

 +14                               NEW DATA

 +15                               SET DATA(2)="PQ"

 +16                               SET ^XTMP("%ZIS HFS TO PQ",DEVICE)=""

 +17                               DO UPD^ZISFM(3.5,DEVICE,.DATA)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +18       QUIT 

 +19      ;

UNDO      ;undo the changes made by CNVRT conversion routine

 +1        NEW DEVICE

 +2        SET DEVICE=0

 +3        FOR 

               SET DEVICE=$ORDER(^XTMP("%ZIS HFS TO PQ",DEVICE))

               IF 'DEVICE

                   QUIT 

               Begin DoDot:1

 +4                NEW DATA

 +5                SET DATA(2)="HFS"

 +6                DO UPD^ZISFM(3.5,DEVICE,.DATA)

               End DoDot:1

 +7        QUIT 

 +8       ;

 +9       ;

CHECKDIR() ;tests if the print_queues directory has been created properly

 +1       ;

 +2       ;if production and VMS or Linux the test is not needed

 +3        NEW OS

 +4        IF '$$PROD^XUPROD()

               QUIT 1

 +5        SET OS=$$OS^%ZOSV()

 +6        IF OS'["VMS"

               IF OS'["UNIX"

                   QUIT 1

 +7       ;

 +8        NEW DIR,FILE,IO,POP,HANDLE

 +9        SET DIR=$$DIR

 +10       SET FILE="TEST_"_$JOB

 +11       SET HANDLE="ZUHANDLE"

 +12      ;

 +13       IF $$FEXIST(DIR_FILE)

               QUIT 1

 +14       DO OPEN^%ZISH(HANDLE,DIR,FILE,"W")

 +15       IF POP

               QUIT 0

 +16       DO CLOSE^%ZISH(HANDLE)

 +17       DO FDELETE(DIR_FILE)

 +18       QUIT 1

 +19      ;

 +20      ;

DIR()     ;get directory for printer queues, a subdirectory of host file directory

 +1        NEW DIR,CODE

 +2        SET CODE=$$PRI^%ZOSV

 +3        SET DIR=$$CHKNM^%ZISF($PIECE($GET(^XTV(8989.3,1,"DEV")),"^",CODE))

 +4        IF $$OS^%ZOSV()["VMS"

               Begin DoDot:1

 +5                SET DIR=$PIECE(DIR,"]")_".print_queues]"

               End DoDot:1

 +6       IF '$TEST

               Begin DoDot:1

 +7                SET DIR=DIR_"print_queues/"

               End DoDot:1

 +8        QUIT DIR

 +9       ;

FEXIST(FILE) ;

 +1       ;returns 1 if the file exists, 0 otherwise

 +2       ;

 +3        NEW OS

           SET OS=$$OS^%ZOSV()

 +4        IF OS["UNIX"

               QUIT $$LFEXIST(FILE)

 +5       IF '$TEST

               IF OS["VMS"

                   QUIT $$VFEXIST(FILE)

 +6        QUIT 0

 +7       ;

VFEXIST(FILE) ;

 +1       ;checks file's existance - VMS

 +2        NEW CMD,RET

 +3        SET CMD="PIPE F = F$SEARCH("""_FILE_""")"

 +4        SET CMD=CMD_" ; IF F$LENGTH(F) .EQ. 0 THEN DEFINE/JOB ZIS$VAL 0 ; IF F$LENGTH(F) .GT. 0 THEN DEFINE/JOB ZIS$VAL 1 "

 +5        IF $ZF(-1,CMD)

 +6        SET RET=$ZF("TRNLNM","ZIS$VAL","LNM$JOB")

 +7        IF $ZF(-1,"DEASSIGN/JOB ZIS$VAL")

 +8        QUIT +$GET(RET)

 +9       ;

LFEXIST(FILE) ;

 +1       ;checks file's existance - Linux,Unix

 +2        NEW CMD

 +3        SET CMD="[ -f "_$$REPLACE(FILE,"$","'$'")_" ]"

 +4        QUIT '$ZF(-1,CMD)

 +5       ;

FDELETE(FILE) ;

 +1       ;delete file

 +2        NEW OS

           SET OS=$$OS^%ZOSV()

 +3        IF OS["UNIX"

               DO LFDELETE(FILE)

 +4       IF '$TEST

               IF OS["VMS"

                   DO VFDELETE(FILE)

 +5        QUIT 

 +6       ;

VFDELETE(FILE) ;

 +1       ;delete file - VMS

 +2        NEW CMD

 +3        IF FILE'[";"

               SET FILE=FILE_";*"

 +4        SET CMD="DELETE "_FILE

 +5        IF $ZF(-1,CMD)

 +6       ;

LFDELETE(FILE) ;

 +1       ;delete file - Linux,Unix

 +2        NEW CMD

 +3        SET CMD="rm -f "_$$REPLACE(FILE,"$","'$'")

 +4        IF $ZF(-1,CMD)

 +5       ;

REPLACE(STRING,SUB1,SUB2) ;

 +1       ;

 +2        NEW REPLACE

 +3        SET REPLACE(SUB1)=SUB2

 +4        QUIT $$REPLACE^XLFSTR(STRING,.REPLACE)

 +5       ;

 +6       ;

 +7       ;

 +8       ;