/************************************/
/*        CatMan.ced v. 1.0         */
/*               BY                 */
/*                                  */
/*          __                      */
/*         ///        __            */
/*  __    ///        // \           */
/*  \\\  ///        //__/           */
/*   \\\///        //  \            */
/*    \XX/ALTER   //___/ARTOLINI    */
/*     -------------------------    */
/*   INTERNET: vega@mbox.queen.it   */
/*   ICQ     : 12905091  NIK=Apone  */
/*   FIDONET : 2:332.405.51         */
/************************************/

OPTIONS RESULTS
ADDRESS 'rexx_ced'

file = ''
nome = ''
est = ''

   CALL close 'STDOUT'
   CALL close 'STDIN'
   CALL open 'STDIN','CON:42/80/640/100/CatMan.ced/CLOSE/WAIT'
   CALL pragma '*','STDIN'
   CALL open 'STDOUT','*'

getfilename 'RAM:' 'File da convertire'
 file = result
IF file = 'RESULT' THEN EXIT
SAY 'Converto il file <' file '>'
SAY ''
PARSE VAR file nome '.' est
IF est = 'catalog' THEN DO
ADDRESS COMMAND 'catman' file nome'.ct' 'TOASC'
ADDRESS 'rexx_ced'
'Open' nome'.ct'
SAY ''
SAY 'File convertito con nome <'nome'.ct>'
END
IF est = 'ct' THEN DO
ADDRESS COMMAND 'catman' file nome'.catalog' 'TOCAT'
SAY ''
SAY 'File convertito con nome <'nome'.catalog>'
END
EXIT