!comment  ATXL19: Clean, Expand and Retranslate SL.PUB.SYS
!setvar pat_id "STRSL  2.1-???"
!setvar sr_number "CLEAN/TRANSLATE SL.PUB.SYS"
!setvar full_fru_name "SL.PUB.SYS"
!setvar fru_method "Seg replace"
!setvar SLT true
!comment
!comment ======== Prior 7 lines reserved for vars used by AUTOPAT ========
!setvar cierror 0
!comment
!comment  If prior patches to SL, it is already on PATCHXL
!comment
!if finfo("SL.PATCHXL.SYS",0) = FALSE then
!   file SL.PUB.SYS;lock
!   copy *SL.PUB.SYS,SL.PATCHXL.SYS
!endif
!if cierror = 0 then
!   comment
!   comment  Use segmenter to clean, expand, translate copy of SL.PUB.SYS
!   comment
!   setvar jcw 0
!   comment
!   RENAME SL.PATCHXL.SYS,SLORIG.PATCHXL.SYS
!   run segdvr.pub.sys;parm=10
    sl SLORIG.PATCHXL.SYS
    CLEANSL
    COPYSL 5,SMALLSL.PATCHXL.SYS
    exit
!   if jcw <> 0 then
!      setvar seg_jcw jcw
!      xeq PATCHER
!      xeq PATCHER "!pat_id: Segmenter failed. JCW=!seg_jcw"
!      deletevar seg_jcw
!   else
!      PURGE SLORIG.PATCHXL.SYS
!      comment
!      comment  OCT invoked to translate the copy of the entire SL.PUB.SYS
!      comment
!RUN OCT.PUB.SYS;INFO="SMALLSL,SL;SYSTEMSL;NOOVF=^M00STRSL.PATCHXL.TELESUP"
!      if cjcw <> 0 then
!         xeq PATCHER
!         xeq PATCHER "!pat_id: OCTCOMP failed. CJCW=!cjcw"
!      else
!         xeq PATCHOK
!         PURGE SMALLSL.PATCHXL.SYS
!         tellop
!         tellop !sr_number completed successfully!
!      endif
!   endif
!else
!   xeq PATCHER
!   xeq PATCHER "!pat_id: COPY of SL.PATCHXL.SYS failed. CIERROR=!hpcierrmsg"
!endif
!comment  TXLEOJSY makes file equation for SYSGEN
!comment
!comment  End of ATXL19 installation template