BITNETServices/conslog.rexx at master · moshix/BITNETServices · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

/* CONS EXEC  */

parse arg option fname ftype
upper option
if option = '' then  SAY 'Syntax:  CONS ON   | OFF'
if option = 'ON' then do
   if fname = '' then do
      say 'Invalid Syntax - Filename needed.';
      return  ;
   end ;
   if ftype = '' then do
      say 'Invalid Syntax - Filetype needed.';
      return  ;
   end ;
   'CP SPOOL CONS * RDR START NAME ' fname ' ' ftype
   say 'Console log started.'
end ;
if option = 'OFF' then do
   'CP SPOOL CONS STOP CLOSE'
   say 'Console log closed and sent to your RDR.'
end ;