Chuck,

You can do this with a simple LISTF and a small command file and file
redirection. Redirect the output of LISTFILE and feed it as input to a
command file to run tobyte.

:pwd
/WERTH/TEMP
:newdir ./doc.telesup
Created directory "/WERTH/TEMP/doc.telesup".
:listfile @.docxl.telesup,6 >docfiles
:print tobyte.cmd
while 1 = 1
   continue
   input fname
   if cierror = 900
      return
   endif
   tobyte.hpbin.sys "-at !fname ./doc.telesup/!fname"
endwhile
:xeq tobyte.cmd <docfiles
   input fname
End of file on input. (CIERR 900)
:do
:listfile ./,2
 PATH= /WERTH/TEMP/

 CODE  ------------LOGICAL RECORD-----------  ----SPACE----  FILENAME
         SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

           0W  GBD          0          0   0       32  1  * *./

 PATH= /WERTH/TEMP/

 CODE  ------------LOGICAL RECORD-----------  ----SPACE----  FILENAME
         SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

          16W  HBD          0   67107839   1       32  1  *  doc.telesup/

 PATH= /WERTH/TEMP/doc.telesup/

 CODE  ------------LOGICAL RECORD-----------  ----SPACE----  FILENAME
         SIZE  TYP        EOF      LIMIT R/B  SECTORS #X MX

           1B  BA        4443 2147483647   1       32  1  *
CONTIGXL.DOCXL.TELESUP
           1B  BA        1082 2147483647   1       16  1  *
DIOGENES.DOCXL.TELESUP
           1B  BA         545 2147483647   1       16  1  *
DTCVALID.DOCXL.TELESUP
           1B  BA         608 2147483647   1       16  1  *
DTSINFO2.DOCXL.TELESUP
           1B  BA         424 2147483647   1       16  1  *
EPTFIND.DOCXL.TELESUP
           1B  BA        2133 2147483647   1       16  1  *
ERR.DOCXL.TELESUP
           1B  BA        2137 2147483647   1       16  1  *
FINDCAP.DOCXL.TELESUP
<skip remainder of directory listing>

Just reverse the procedure to frombyte the files back.

Doug.

Doug Werth                             Beechglen Development Inc.
[log in to unmask]                               Cincinnati, Ohio


"Chuck Ryan" <[log in to unmask]> wrote:


> I need a way to easily move an entire group of MPE text files to a posix
> directory in bytestream format, and then back again at a later time.
>
> ToByte does not seem to support copying more than 1 file at a time,
which is
> a problem since I cannot manually create a command file with 100+ ToByte
> commands to copy each file 1 at a time, as new files will be added
> frequently and it would be easy to miss adding a new file.