GECSPOS1.m

GECSPOS1 ;WISC/RFJ-version 2 GCS installation PIMS patch 5.3*47     ;30 Jun 92

 ;;2.0;GCS;;MAR 14, 1995

 Q

 ;

 ;

PATCH ;  install PIMS patch

 W !!,"==================== *** INSTALLING  PIMS  5.3  PATCH 47 *** =================="

 W !,"Installing PIMS Patch DG*5.3*47, routine DGGECSB ..."

 NEW %,%N,X,DIF,XCNP,DIE,XCN,XCM

 K ^TMP($J,"GECSPOS1")

 S X="GECSDG" X ^%ZOSF("TEST") I '$T W !,"Cannot install PIMS patch DG*5.3*47",!,"routine GECSDG not found!",! Q

 S X="DGGECSB" X ^%ZOSF("TEST") I '$T D INST Q

 S DIF="^TMP($J,""DGGECSB"",",XCNP=0,X="DGGECSB" X ^%ZOSF("LOAD") I $P($G(^TMP($J,"GECSPOS1",2,0)),";",3)'="5.3" D INST

 Q

INST ;Install update DGGECSB routine

 K ^TMP($J,"GECSPOS1")

 S DIF="^TMP($J,""GECSPOS1"",",XCNP=0,X="GECSDG" X ^%ZOSF("LOAD")

 S DIE="^TMP($J,""GECSPOS1"",",XCN=2,X="DGGECSB" X ^%ZOSF("SAVE")

 K ^TMP($J,"GECSPOS1")

 W " OK, DONE."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GECSPOS1   883     printed  Mar 13, 2025@21:00:55                                                                                                                                                                                                     Page 2

GECSPOS1  ;WISC/RFJ-version 2 GCS installation PIMS patch 5.3*47     ;30 Jun 92

 +1       ;;2.0;GCS;;MAR 14, 1995

 +2        QUIT 

 +3       ;

 +4       ;

PATCH     ;  install PIMS patch

 +1        WRITE !!,"==================== *** INSTALLING  PIMS  5.3  PATCH 47 *** =================="

 +2        WRITE !,"Installing PIMS Patch DG*5.3*47, routine DGGECSB ..."

 +3        NEW %,%N,X,DIF,XCNP,DIE,XCN,XCM

 +4        KILL ^TMP($JOB,"GECSPOS1")

 +5        SET X="GECSDG"

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               WRITE !,"Cannot install PIMS patch DG*5.3*47",!,"routine GECSDG not found!",!

               QUIT 

 +6        SET X="DGGECSB"

           XECUTE ^%ZOSF("TEST")

           IF '$TEST

               DO INST

               QUIT 

 +7        SET DIF="^TMP($J,""DGGECSB"","

           SET XCNP=0

           SET X="DGGECSB"

           XECUTE ^%ZOSF("LOAD")

           IF $PIECE($GET(^TMP($JOB,"GECSPOS1",2,0)),";",3)'="5.3"

               DO INST

 +8        QUIT 

INST      ;Install update DGGECSB routine

 +1        KILL ^TMP($JOB,"GECSPOS1")

 +2        SET DIF="^TMP($J,""GECSPOS1"","

           SET XCNP=0

           SET X="GECSDG"

           XECUTE ^%ZOSF("LOAD")

 +3        SET DIE="^TMP($J,""GECSPOS1"","

           SET XCN=2

           SET X="DGGECSB"

           XECUTE ^%ZOSF("SAVE")

 +4        KILL ^TMP($JOB,"GECSPOS1")

 +5        WRITE " OK, DONE."

 +6        QUIT