**> MAYOECG.DOC

Additional SEMLUG submissions by

    George Cornelius
    Mayo Clinic
    200 First Street SW
    Rochester, MN  55901

	(507) 284-2109

This submission consists of a collection of TECO and CCL macros.  The
CCL macros run under CCL v6.0 or 7.0, but some may require slight changes for
the most recent CCL version.

The CCL macros are added to LB1:[1,5]SYSCCL.CCL via command file SSIG83CCL.CMD,
which allows you to exclude any macros you don't want.


  VT100		Switch VT100 to VT100 (ANSII) mode
  VT52		Switch VT100 to VT52-emulation mode
  WIDE		Switch VT100 to 132-character mode
  NARROW	Switch VT100 to 80-character mode

  PROTECT x	Protect ([R,R,R,R]) file x, wildcards allowed.
  UNPROTECT x	As above, but RWED for all
  CHGPROT x	Prompts for protection status

  SRCH x,y	Searches files specified by string "x" (wildcards allowed)
		 for string "y". TECO-type match constructs (^X,^EA,etc) allowed
		 using caret (^) to identify control characters.
		 (NOTE: slower than GREP provided with C language system, but
		 provides some features such as wildcards for group,member no)
  CCLI[ST] x	Displays command "x" (or any command beginning with "x"), from
		 file LB1:[1,5]SYSCCL.CCL . TECO-type wildcards as above.

  PLPn x[,y...] Prints specified file(s) on LPn via spooler. n defaults to 0
		 if omitted.

  HDR x		Dumps file-header of "x" to TI: (DMP TI:=x/HD/BL:0)
  NDXP x y dv	Print file headers from [0,0]INDEXF.SYS. "x","y" are
		 starting,ending virt blk nos. "dv" optional, device id
		 (no colon).  NDXP 21 33 DR1  dumps blocks 21-33 on DR1's INDEXF


  LDGO x[,y,..]	Compile/Build/Execute program "x". Builds with object modules y,
		 ... Also builds with [5,1]SHRLIB. After execution, optionally
		 deletes the .OBJ/.TSK files generated.
  LDGX x	Same as LDGO, but compiles with "debug" (/DE) switch
		 (only for F4P installed as FOR ???)
  TKKI[LL] x	Selective delete of .TSK/.OBJ/.MAP/.LST for file "x"
		 (do not include an extension)

    TLIS[T] x	List file(s) on TI: - wildcards allowed - with each file being
 or MLIS[T] x	 preceded by a file-id line. Visible display of ctrl chars.
		 TLIST filespec defaults to *.TEC, MLIST to *.MAC
		 Ctrl chars: ^C = abort, ^O = abort listing of current file.

  TMUNG x,y	Execute TECO macro "x" in LB1:[1,5], passing arg-string "y"

  DSPT x	RMD display of task "x" (RMD T,TASK=x)

Some of these macros require auxiliary .TEC/.CMD files (provided) to be
stored on LB1:[1,5], the standard CCL directory.


Standalone TECO macros (should be left in [1,5] for access via TMUNG CCL
command):

  [T]MUNG DIRFIX,x  Creates a neat list of files from a PIP/SRD directory
		 listing, by (1) stripping out all items other than file names;
		 and (2) inserting UIC before each file name. Creates a new ver-
		 sion of its input file.  VERY USEFUL for keeping directories
		 of disks for fast searches via GREP.  Also provides raw file
		 list useful for further processing via indirect command files.
		 NOTE: currently does not eliminate whitespace from SRD listings
		 but easily fixed by inserting <FB^ES$; FR$> in processing code
		 for each line.

  [T]MUNG TBLKSFX,x  Converts a PIP [*,*]/TB total-blocks-used directory
		 list into a neat tabular form. Output file is DSKTOT.LST

Additional items:

 SUBROUTINE SPWN80(tsknam,command [,iesb,ier])

		Spawn, with: simple arguments, taskname in ASCII instead of
		RAD50, ability to handle Fortran quoted strings as
		arguments (finds trailing zero byte), nice error handling.
		If error occurs and caller has omitted "iesb","ier" args,
		prints full error information and aborts

		  Example:  CALL SPWN80('MCR...','PIP /LI')

 SUBROUTINE CHAN80(tsknam,command [,ids])

		As above, but chains, passes all connections (elim this if you
		want to chain to MCR), and exits.


Finally, file MACROX.RNO is a MACRO-11 synopsis.