home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol079 / ch1.pli < prev    next >
Text File  |  1984-04-29  |  1KB  |  41 lines

  1. ch1: proc options(main);    /* chain subroutine tester */
  2.  
  3.     dcl fcbptr ptr;
  4.  
  5.     dcl 1 fcb based(fcbptr),
  6.           2 drive fixed(7),
  7.           2 name char(8),
  8.           2 type char(3),
  9.           2 ext(4) fixed(7),
  10.  
  11.         dummy char(16) based(fcbptr);
  12.  
  13.     dcl
  14.         chain entry(char(16)),
  15.         fparse entry(ptr,ptr,fixed(7));
  16.  
  17.  
  18.     dcl
  19.         UPPERCASE      char(26) static init('ABCDEFGHIJKLMNOPQRSTUVWXYZ'),
  20.         LOWERCASE      char(26) static init('abcdefghijklmnopqrstuvwxyz'),
  21.         filename       char(14),
  22.         retcode        fixed(7);
  23.  
  24.     /* base fcb at default fcb (5CH) */
  25.     unspec(fcbptr) = '005C'b4;
  26.  
  27.     put skip list('Executing Chain Test');
  28.     if fcb.name = '' then do;
  29.             put skip list
  30.            ('Chain to ..............^H^H^H^H^H^H^H^H^H^H^H^H^H^H');
  31.         get list (filename);
  32.         filename = translate(filename,UPPERCASE,LOWERCASE);
  33.         call fparse(addr(filename),fcbptr,retcode);
  34.         if retcode > 1 then
  35.             put skip(2) list('Invalid Filename');
  36.         end;
  37.     fcb.type = 'COM';
  38.     call chain(dummy);
  39.     put skip(2) list('Shouldn''t be here !!');
  40. end ch1;
  41.