ASPL 1> timeout 60
set timeout to 60 seconds
ASPL 2> tx1 = ggjar(jarfile,/tmp/TX/27238-tx.jar,calchksum,1,calentropy,1)
assign contents of JAR file 27238-tx.jar to tx1
ASPL 3> tx2 = ggjar(jarfile,/tmp/TX/38141-tx.jar,calchksum,1,calentropy,1)
assign contents of JAR file 38141-tx.jar to tx2
ASPL 4> tx3 = ggjar(jarfile,/tmp/TX/38478-tx.jar,calchksum,1,calentropy,1)
assign contents of JAR file 38478-tx.jar to tx3
ASPL 5> tx4 = ggjar(jarfile,/tmp/TX/45240-tx.jar,calchksum,1,calentropy,1)
assign contents of JAR file 45240-tx.jar to tx4
ASPL 6> tx1xa = ggjar(jarfile,/tmp/TX/27238-tx.jar,calchksum,1,calentropy,1,nmfl,*XA*)
assign contents of JAR file 27238-tx.jar filtering XA names to tx1xa
ASPL 7> tx2xa = ggjar(jarfile,/tmp/TX/38141-tx.jar,calchksum,1,calentropy,1,nmfl,*XA*)
assign contents of JAR file 38141-tx.jar filtering XA names to tx2xa
ASPL 8> tx3xa = ggjar(jarfile,/tmp/TX/38478-tx.jar,calchksum,1,calentropy,1,nmfl,*XA*)
assign contents of JAR file 38478-tx.jar filtering XA names to tx3xa
ASPL 9> tx4xa = ggjar(jarfile,/tmp/TX/45240-tx.jar,calchksum,1,calentropy,1,nmfl,*XA*)
assign contents of JAR file 45240-tx.jar filtering XA names to tx4xa
ASPL 10> tx1tr = ggjar(jarfile,/tmp/TX/27238-tx.jar,calchksum,1,calentropy,1,nmdir,*ransact*)
assign contents of JAR file 27238-tx.jar filtering TRANSACTION names to tx1tr
ASPL 11> tx2tr = ggjar(jarfile,/tmp/TX/38141-tx.jar,calchksum,1,calentropy,1,nmdir,*ransact*)
assign contents of JAR file 38141-tx.jar filtering TRANSACTION names to tx2tr
ASPL 12> tx3tr = ggjar(jarfile,/tmp/TX/38478-tx.jar,calchksum,1,calentropy,1,nmdir,*ransact*)
assign contents of JAR file 38478-tx.jar filtering TRANSACTION names to tx3tr
ASPL 13> tx4tr = ggjar(jarfile,/tmp/TX/45240-tx.jar,calchksum,1,calentropy,1,nmdir,*ransact*)
assign contents of JAR file 45240-tx.jar filtering TRANSACTION names to tx4tr
ASPL 14> save
save the workspace
ASPL 15> v
print the symbol table
ASPL 16> DEF FN cmp2sets := {gU {g\, %%1 %%2}{g\, %%2 %%1}{g&, %%1 %%2}}
define function cmp2sets() to compare two set variables
ASPL 17> FN cmp2sets(tx1,tx2)
execute function cmp2sets() to compare tx1 and tx2
ASPL 18> f&`c~ tx1 tx2 tx3 tx4
show the intersections of elements with different checksums in tx1 tx2 tx3 tx4
ASPL 19> f&`c= tx1 tx2 tx3 tx4
show the intersections of elements with same checksums in tx1 tx2 tx3 tx4
ASPL 20> f&`c= tx1 tx2
show the intersections of elements with same checksums in tx1 tx2
ASPL 21> f&`c= tx1 tx3
show the intersections of elements with same checksums in tx1 tx3
ASPL 22> f&`c= tx3 tx4
show the intersections of elements with same checksums in tx3 tx4
ASPL 23> f&`c~ tx3 tx4
show the intersections of elements with different checksums in tx3 tx4
ASPL 24> save
save the workspace
ASPL 25> v
print the symbol table
ASPL 26> quit
quit ASPL