HP3000-L Archives

April 2006, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
TIPS
From:
Michael Caplin <[log in to unmask]>
Reply To:
Michael Caplin <[log in to unmask]>
Date:
Thu, 27 Apr 2006 08:12:30 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (32 lines) 
I thougt it would be intresting to start a thread of SIMPLE
but useful tips.  The keyword here is simple.

I'll start.  I got tired of LISTEQ displays that weren't alphabetized.

Create file LISTEQS:

:PRINT LISTEQS.PUB
I LISTEQF
O LISTEQFS
K 1,80
END

Create file LISTEQ:

:PRINT LISTEQ.PUB
FILE LISTEQF;REC=-80,,F,ASCII;DISC=2000;NOCCTL
FILE LISTEQFS;TEMP
LISTEQ *LISTEQF
RUN SORT.PUB.SYS;STDIN=LISTEQS.PUB;STDLIST=$NULL
PRINT LISTEQFS;PAGE=0
PURGE LISTEQF,TEMP
PURGE LISTEQFS,TEMP


Then, :XEQ LISTEQ.PUB

Mike

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2