C Collection of code snippets by Arne Vajhøj C posted to INFO-VAX, INFO-TPU, MACRO32 and other (1990-1999) INCLUDE '($ACLDEF)' INTEGER*4 N PARAMETER (N=1000) INTEGER*4 STAT,L,IX INTEGER*4 ITMLST(4),DES(2) BYTE BUF(N) CHARACTER*256 S INTEGER*4 SYS$CHANGE_ACL,SYS$FORMAT_ACL ITMLST(1)=65536*ACL$C_READACL+N ITMLST(2)=%LOC(BUF) ITMLST(3)=0 ITMLST(4)=0 STAT=SYS$CHANGE_ACL(,ACL$C_FILE,'Z.Z',ITMLST,,,,) WRITE(*,*) STAT IX=1 100 DES(1)=BUF(IX) DES(2)=%LOC(BUF(IX)) IX=IX+DES(1) IF(DES(1).EQ.0) GOTO 200 STAT=SYS$FORMAT_ACL(DES,L,S,,,,,) WRITE(*,*) STAT WRITE(*,*) S(1:L) GOTO 100 200 END