home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxuuxx.zip / XXDECODE.PLI < prev    next >
Text File  |  1997-05-11  |  2KB  |  56 lines
  1.  /*********************************************************************/
  2.  /* This program is freeware, distributed as is, without any warranty */
  3.  /* of its usefulness for any purpose. You may use it freely. You may */
  4.  /* also redistribute it, provided no charge is levied beyond the     */
  5.  /* price of its distribution medium. However, the author retains all */
  6.  /* intellectual property rights.                                     */
  7.  /*                                                                   */
  8.  /*                                                                   */
  9.  /*  Copyright (C) David W. Noon, 1995, 1997                          */
  10.  /*                                                                   */
  11.  /*********************************************************************/
  12.  
  13.  /* Program to XXDECODE encoded messages as per Unix */
  14.  /*                                                  */
  15.  /* Author: David W. Noon                            */
  16.  /*         January 1995                             */
  17.  XXDECODE:
  18.  PROC(PARM) OPTIONS(MAIN NOEXECOPS REENTRANT) REORDER;
  19.  
  20.      DCL  PARM                          CHAR(268) VAR;
  21.  
  22.      %INCLUDE UUXXCODE;
  23.  
  24.      DCL  Parm_ptr                      PTR,
  25.  
  26.           LENGTH                        BUILTIN;
  27.  
  28.      IF PARM = '' THEN
  29.           DISPLAY('Input path/filename must be given.');
  30.      ELSE
  31.      DO;
  32.           IF LENGTH(PARM) > 7 & LEFT(PARM,7) = 'HORTON ' THEN
  33.           DO;
  34.                Max_in = LENGTH(PARM) - 7;
  35.                ALLOC UUXX_Decode_struct SET(Parm_ptr);
  36.                Parm_ptr->Horton_bug = '1'B;
  37.                Parm_ptr->UUXX_Decode_struct.Input_filename_list =
  38.                          SUBSTR(PARM,8);
  39.           END;
  40.           ELSE
  41.           DO;
  42.                Max_in = LENGTH(PARM);
  43.                ALLOC UUXX_Decode_struct SET(Parm_ptr);
  44.                Parm_ptr->UUXX_Decode_struct.Input_filename_list = PARM;
  45.           END;
  46.  
  47.           FETCH XXDECODE_FILE TITLE('UUXXCODE/XXDECODE_FILE');
  48.           CALL XXDECODE_FILE(Parm_ptr);
  49.           RELEASE XXDECODE_FILE;
  50.  
  51.           FREE Parm_ptr->UUXX_Decode_struct;
  52.      END;
  53.  
  54.      RETURN;
  55.  END XXDECODE;
  56.