%%s 0/0/0 %%d D 1.1 06-Oct-82 08:22:34 tools 1 0 %%c This is the IAS version of the `addr' utility. %%T %%I 1 #-h- addr.r 1413 asc 06-oct-82 08:22:03 tools (lblh csam sventek) #-h- addr 1352 asc 03-jun-82 17:06:19 steve () subroutine main character buffer(512), buf(MAXLINE), uic(25) character clower integer int, fdb, i, j, k, l, m, n, first, last, start, stop, group, member integer equal equivalence (first, buffer(1)), (last, buffer(3)) integer open, getfdb, readf string accnt "LB0:[1,100]PDSUPF.DAT" string sixbl " " string sydev "sy0:" string lbdev "lb0:" int = open(accnt, READ) if (int == ERR) call cant(accnt) junk = readf(buffer, 512, int) start = first stop = last for (i=2; i < start; i=i+1) junk = readf(buffer, 512, int) for ( ; i <= stop; i=i+1) { junk = readf(buffer, 512, int) if (buffer(1) == 0) next call sprint(buf, "%4r", buffer) # format user name call fold(buf) call putstr(buf, -15, STDOUT) # output user name for ( i=8%57, j=1 ; i <= 8%62; i=i+1, j=j+1 ) uic(j) = clower(buffer(i)) uic(j) = EOS if (equal(uic, sydev) == YES) call putlin(lbdev, STDOUT) else call putlin(uic, STDOUT) call cpybyt(buffer(9), member, 1, 0) call cpybyt(buffer(10), group, 1, 0) call fmtuic(group, member, uic) call putlin(uic, STDOUT) call putlin(sixbl, STDOUT) call putlin(uic, STDOUT) call putch(' ', STDOUT) call putch('"', STDOUT) call putch('"', STDOUT) call putch('@n', STDOUT) } call close(int) return end %%E 1