:SV,4,,IH 
:** 
:**   *DCMTL (HP 92080-18583 REV.2026 800602) 
:** 
:**   LOADS ALL DATACAP SOFTWARE FROM MAG TAPE DISTRIBUTION OPTIONS 050/051 
:** 
:LL,0G
:IF,1G,NE,,1
:CA,1,8 
:IF,2G,EQ,,1
:IF,2G,NE,0,15
:AN,** 
:AN,**   PLEASE MOUNT THE DATACAP MAG TAPE, 
:AN,**
:AN,**   THEN ENTER THE FOLLOWING COMMAND:
:AN,**
:AN,**
:AN,**        TR,*DCMTL::CR,MAG TAPE LU #,DESTINATION CR #
:AN,**
:AN,**
:AN,**             WHERE: MAG TAPE LU #  (DEFAULT = LU# 8)
:AN,**
:AN,**                    DESTINATION CR # IS THE CARTRIDGE WHERE 
:AN,**                    THE DATACAP MODULES ARE TO RESIDE 
:AN,** 
::
:SV,0 
:PU,DCEXLC::2G
:PU,A92080::2G
:PU,%DSLB1::2G
:PU,%DBMS::2G 
:PU,%LOCAL::2G
:PU,$GPLB4::2G
:PU,$TMSLB::2G
:PU,$TGPLB::2G
:PU,$TMGLB::2G
:PU,$TMGL1::2G
:PU,%DCMNS::2G
:PU,%DISXB::2G
:PU,%VALXB::2G
:PU,%STRXB::2G
:PU,%TIME::2G 
:PU,%TGP1S::2G
:PU,%TGP2S::2G
:PU,%TGP5S::2G
:PU,%TGP6S::2G
:PU,%TGP8S::2G
:PU,%TGP9S::2G
:PU,%TG10S::2G
:PU,%TG11S::2G
:PU,%TG12S::2G
:PU,%TG13S::2G
:PU,%TGP7S::2G
:PU,%TGP::2G
:PU,%TGP0A::2G
:PU,%TGP3A::2G
:PU,%TGP4A::2G
:PU,%TG14A::2G
:PU,%TMPGN::2G
:PU,%TMG0A::2G
:PU,%TMG1A::2G
:PU,%TMG2A::2G
:PU,%TMG3A::2G
:PU,%TMG4A::2G
:PU,%TMG5A::2G
:PU,%ZTMP::2G 
:PU,%TSE::2G
:PU,%TSMG::2G 
:PU,%STORA::2G
:PU,%STORB::2G
:PU,%IOM70::2G
:PU,%IOM75::2G
:PU,%OFLPO::2G
:PU,*TYPE0::2G
:PU,*DATCA::2G
:PU,SVIPDB::2G
:PU,DVIPDB::2G
:PU,>TIME::2G 
:PU,>DCMON::2G
:PU,/TGP::2G
:PU,\TGP::2G
:PU,>TGP::2G
:PU,/TMPGN::2G
:PU,>TMPGN::2G
:PU,\TMPGN::2G
:SV,4,,IH 
:AN,
:AN,** 
:DP,**   ALL OLD DATACAP FILES PURGED FROM CARTRIDGE ,2G
:AN,** 
:SV,0 
:**      *DCMTL REWINDING TAPE TO LOAD POINT
:CN,1G
:**      *DCMTL SKIPPING OVER DIRECTORY FILE
:CN,1G,FF 
:ST,1G,A92080::2G::-1 
:**      *DCMTL SKIPPING OVER *DCMTL FILE 
:CN,1G,FF 
:ST,1G,%DBMS::2G::-1,BR 
:ST,1G,%LOCAL::2G::-1,BR
:ST,1G,$GPLB4::2G::-1,BR
:ST,1G,$TMSLB::2G::-1,BR
:ST,1G,$TMSL1::2G::-1,BR
:ST,1G,$TGPLB::2G::-1,BR
:ST,1G,$TMGLB::2G::-1,BR
:ST,1G,$TMGL1::2G::-1,BR
:ST,1G,%DCMNS::2G::-1,BR
:ST,1G,%TIME::2G::-1,BR 
:ST,1G,%TGP1S::2G::-1,BR
:ST,1G,%TGP2S::2G::-1,BR
:ST,1G,%TGP5S::2G::-1,BR
:ST,1G,%TGP6S::2G::-1,BR
:ST,1G,%TGP8S::2G::-1,BR
:ST,1G,%TGP9S::2G::-1,BR
:ST,1G,%TG10S::2G::-1,BR
:ST,1G,%TG11S::2G::-1,BR
:ST,1G,%TG12S::2G::-1,BR
:ST,1G,%TG13S::2G::-1,BR
:ST,1G,%TGP7S::2G::-1,BR
:ST,1G,%TGP::2G::-1,BR
:ST,1G,%TGP0A::2G::-1,BR
:ST,1G,%TGP3A::2G::-1,BR
:ST,1G,%TGP4A::2G::-1,BR
:ST,1G,%TG14A::2G::-1,BR
:ST,1G,%TMPGN::2G::-1,BR
:ST,1G,%TMG0A::2G::-1,BR
:ST,1G,%TMG1A::2G::-1,BR
:ST,1G,%TMG2A::2G::-1,BR
:ST,1G,%TMG3A::2G::-1,BR
:ST,1G,%TMG4A::2G::-1,BR
:ST,1G,%TMG5A::2G::-1,BR
:ST,1G,%ZTMP::2G::-1,BR 
:ST,1G,%TSE::2G::-1,BR
:ST,1G,%TSMG::2G::-1,BR 
:ST,1G,%STORA::2G::-1,BR
:ST,1G,%STORB::2G::-1,BR
:ST,1G,%IOM70::2G::-1,BR
:ST,1G,%IOM75::2G::-1,BR
:ST,1G,%OFLPO::2G::-1,BR
:ST,1G,%R2026::2G::-1,BR
:ST,1G,%DCRCV::2G::-1,BR
:ST,1G,%XMLIM::2G::-1,BR
:ST,1G,*TYPE0::2G::-1 
:ST,1G,*DATCA::2G::-1 
:ST,1G,>TIME::2G::-1
:ST,1G,>DCMON::2G::-1 
:ST,1G,/TGP::2G::-1 
:ST,1G,\TGP::2G::-1 
:ST,1G,>TGP::2G::-1 
:ST,1G,/TMPGN::2G::-1 
:ST,1G,>TMPGN::2G::-1 
:ST,1G,\TMPGN::2G::-1 
:ST,1G,>DCRCV::2G::-1 
:ST,1G,>DCIML::2G::-1 
:**      *DCMTL REWINDING TAPE TO LOAD POINT
:CN,1G
:SV,4,,IH 
:AN,** 
:AN,**   ALL NEW DATACAP FILES STORED ON CARTRIDGE ,2G,.
:AN,**
:AN,**   PLEASE DISMOUNT MAG TAPE.
:AN,**
:AN,**   *DCMTL DONE! 
:AN,** 
::
  
                                                                        