Greatest Software Ever Written 4253

early rex item in the (internal) vmnews letter (21aug79)

another rexx historical reference:

object rexx was created in 1997 ...and now available

my misc. past postings about doing "dumprx" in rex ... wanting to demonstrate that rex wasn't just another pretty scripting langauge (like EXEC and EXEC2)

a much simpler rex program i wrote in 80 ... from long ago and far away:

* supply list of biggest pigs of CP spool system *hi='1de8'x; lo='1d60'x; * Bright up-down *'DEPTH' hi=' '; lo=' '; end else 'CLEAR' arg na; if na ^='' then do if datatype(na) ^= 'NUM' then signal tell end else na = 19; db=0 if db then say time() 'at entry' parse value cpa('CPR QUERY FILES') with 'FILES:' rdr ' RDR, ' prt ' PRT, ' pun ' PUN' rdr=strip(rdr,'B') prt=strip(prt,'B') pun=strip(pun,'B') if rdr = 'NO' then rdr = 0 if prt = 'NO' then prt = 0 if pun = 'NO' then pun = 0 rdr = rdr + 0; prt = prt + 0; pun = pun + 0; ku=0; kf = 0; kr = 0; sw = 0; qcls = 'PUN' call Qrdr if db then say time() rln 'pun' qcls = 'PRT' call Qrdr if db then say time() rln 'prt' qcls = 'RDR' call Qrdr if db then say time() rln 'rdr' if sw ^= 0 then signal xx

yy: 'MAKEBUF' kuk = 0 do i=1 to ku name = nar.i queue right(k.name,8) ' ' name ' ' f.name kuk = kuk + 1 end end queue 'TSORT 1 8 (REVERSE' do i=1 to kuk pull recs name files say left(name,9) right(files,4) ' files ' right(recs,7) ' records' end 'DESBUF' say 'total: ' hi right(kf,4) lo 'files' hi right(kr,7) lo 'records' tot = rdr + prt + pun say 'FILES: ' right(tot,5) ' tot, ' right(rdr,4) ' rdr, ' right(prt,4) ' prt, ' right(pun,4) ' pun' exit

Qrdr: parse value cpa('CP QUERY' qcls) with . . . . rln . parse value cpa('R') with owner . * check header line *if owner = 'OWNERID' then ss = 1 else ss = 0 do rl=2 to rln parse value cpa('R') with name fnum clas type records rest if datatype(records)^='NUM' then do say 'Arrgh! records var "'records'" not numeric in:' say name fnum clas type records rest say 'name' name 'fnum' fnum 'clas' clas 'type' type iterate rl end if type='DMP' then records=records*50 * for CP dumps each is a whole page* else records=(records+49)%50*50 * round to nearest page buttuming cards * if records=0 then do say 'Erk! Recs=0?' name fnum clas type records rest end if s.name ^= 0 then do ku = ku + 1 nar.ku = name s.name = 0 f.name = 0 k.name = 0 end if ss = 1 then do f.name = f.name + 1 kf = kf + 1 k.name = k.name + records kr = kr + records end end return

xx: if db then say 'xx routine entered' qcls = ' RDR * ' call Qrdr do i = 1 to 26 z = substr('ABCDEFGHIJKLMNOPQRSTUVWXYZ',I,1) qcls = ' RDR CL ' z call Qrdr end kf = 0; kr = 0; do j=1 to ku name = nar.j f.name = 0; k.name = 0; qcls = ' RDR ' nar.j call Qnamx qcls = ' PRT ' nar.j call Qnamx qcls = ' PUN ' nar.j call Qnamx end signal yy

Qnamx: x=cpa('CP QUERY ' qcls); parse var x . . . . rln . do rl=1 to rln x=cpa('R') * read next line from Q N response * parse var x garb fnum clas type records rest if datatype(records) ^= 'NUM' then iterate if s.garb ^= 0 then do ku = ku + 1 nar.ku = garb s.garb = 0 end f.name = f.name + 1 k.name = k.name + records kf = kf + 1; kr = kr + records end return

-------- Tell: parse source . . . . . me . say 'displays number of spool files and records allocated by user' say '(sorted by no. records). Top 19 users (or number specified)' say 'are displayed.' exit 100

* Lynn Wheeler *-* November 80 *