@NTUFMNT 11-JUL-1996 15:10Digital Fortran 77 T7.0-1 $DATA$5$BSS$\$IODATA$i%$CODE$8$LINK$FFIIDDFOWNKIUICJPIJUNKFSZCXAB_UIC(JNTUFMNT SYS$GETJPIWLIB$GET_FOREIGN DFOR$OPEN DFOR$HANDLERLIB$WAIT(J$IVLEN(J| FGETFID DFOR$CLOSE DFOR$EXIT DFOR$REWRITE_FMT DFOR$READ_SEQ_FMT DFOR$WRITE_SEQ_FMT DFOR$READ_KEY_FMT LIB$SPAWN DFOR$SET_REENTRANCYSYS$OPEN GETFIDDID(J@`!IUFCK SYS$CONNECT(J"GTXAB0J# PRIV_USEROPEN(J %XABSET SYS$DISPLAY(Jx$XABGET OTS$MOVEMOTS$FILLOTS$MOVE OTS$INDEX OTS$DIV_I ,6  |=d\6 $Curr. UIC=\ Enter new one if desired, hex>76P76H76$ Enter group, hex, 0 to end:764 RWDCEONIS = rd,wrt,del,ctl,exe,OwnChg,NoAcc,Inh,Sys76"$Enter def ACE flags or Q if done:760$ Enter user/grp ID or -1=all, -2=own, hex (z8):76$Want a command [Y/N][N]:76 $Enter cmd:764 RWDCEONIS = rd,wrt,del,ctl,exe,OwnChg,NoAcc,Inh,Sys76"$Enter def ACE flags or Q if done:760$ Enter user/grp ID or -1=all, -2=own, hex (z8):76$Want a command [Y/N][N]:76 $Enter cmd:7 =#~^^ ~(08cG#G"4GBb@ZkG0"vJ`HF, 0"QAJ`SH@FQ 0b "0"0KvJG"0"YXKvJVGY¦$"0b۲"$! 00G0BvHq JD 0bJ`SHF( 0H"0 G0B ڦJy KF ڶ-"0b ;8HvJ6D ;"L! 0(0"1"0B,2G00vHs`JD0 00J`SHF0P 040"@9#0B8:G0b8;&HvJ6D8;? 0808Ja H!F800"0! 0B@20b8s"0Dt0H0L0P4GGG0b0 "GGBb@Zk0"H0Ha`""_&R"x]0#"C|&"ݲC=x"="0BDR"GGHBPb@Zk0"L0Dp0#"0B#R"TGB@ZkGB@Zk0¦#.JB80#GC8G20"#9?G C8*G, 0# HH@ 0"#!!&H&H @!  0"xB"G`B@Zk4GGB@Zk0"0B"G`B@Zk4GGB@ZkG0Pײ4G`Gh4Gp4GX=8b"0P0BZ#4G]tGG}TG`_"]4G]@"tG=X= =G}TG"G_&R""GxBb@ZkG4G@=GH=GP}4G88b"0P0#4GtGG=TGx"ݶ4G]@#}tG=8="=G=TG"G_&R""GxBb@ZkG0"#!!&H&H @!  0TP"11v J!B& 4G0bTSXb"P"x"G_&R"x"8GBb@ZkXb"0X x"G_&R"x"8@"GBb@ZkG0"X!P0b"0"X1"`_"=x]P¦"ݶG' {#}8"L! >"G_&R"x""GxBb@ZkG0"(0(0"(1&F 0B\0\"4G(B0b@Zk0`0"(! 4G0"`0B`R0@Pbs0Xt0pզvJpն0pKp0"l0Btzv`Ktz0t !Ht 0x0v Jx00BxraJxrb"0X"Gxݶ"G_&R"x"8L"GBb@Zk4G0"d4G0"hHb""G_&R"G8X"GBb@ZkXb"0l x"G_&R"x"8@"GBb@Zk0l 0"d! L0l0Cx0"d10 B0Bd24G0pvJs`JFp0¦r".JWJCxKF>0"l9?0BdZ0bh[Hb""G_&R"G8"GBb@ZkHb""G_&R"G8"GBb@Zkb" 0"! =x"G_&R"x"8L"GBb@Zk0p0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@4G0"p?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@4G0"p0"p! ?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0t0C0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tPC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0t#0"tHb""G_&R"G8"GBb@ZkXb"0l x"G_&R"x"8@"GBb@Zk0l0"t!$# 0dN0"t10Cx00BdR0@B0bdS0dN0lﵢ0Cx0¦d֢0B0dײ0v#8/8KY8KACzXK:G8?0bh{`O4`C0p &H{`K;Dp 0d0"hHb""G_&R"G80"GBb@Zkb" 0"! =x"G_&R"x"8L"GBb@Zk0D@8 DmHb""G_&R"G8X" =GBb@Zkb" 0"X! =x"G_&R"x"8L"GBb@Zk""$ x0X"C|x"TGb@0"x0x}B>0"x1p BGBb@Zk0|0|4G0⦀ײ0 C0"d9 O0"! L0CT!0Cx90d0B0"d0BR0@B0bS0BZ DC_0bx{0xJ{S`KFx0hﵢN4B0¦xvJuJFx0X#""?$`! x=C|x"TGb@0"b"0X"0"1x="G_&R"x"8L"GBb@Zk0# HH@ y0X"0B #R"G`B@ZkGGB@Zk""?$! x=0X"C|x"TGb@0"0TP"11v J!B& 4G0bTSXb"P"x"G_&R"x"8GBb@ZkXb"0X x"G_&R"x"8@"GBb@ZkG0"X!P0@"Qv@JQ@bJ@բvJղ@Kb"0"90BXZ#4G]x=4GXBR"]}TGݶ"tG_&R"x"GxBb@ZkGhb""tG_&R"GGBb@Zk@ HH@"!!"H&H @0JJ@"11$J&J @BR0bXvJr@JFX0@¦XJ8KFX@"90BXzfKy KyGXz0@"!XJ18JFX?"4G0X"B"B@Zk00"9 0"a0X"0BXR"?"B@ZkGB@Zk0`"0BXR"G`B@Zkb"0¦"x"0X ݶxG&8"8BLZ#^"G_&R"x""GxBb@ZkG0"(0(0"(1&F 0B\0\"4G(B0b@Zk00"(! 4G0"0BR?@0"0BXR"G`B@ZkP¦֢08ײ@ 0"<@0"@0D0"HQv@JHQ0bHJH0LUv@KLU0bLۢJL۲0PvKP0"PHPb"0"! =Gx="G_&R"x"8L"GBb@Zk4G0"h4G0"dHb""G_&R"G8p"GBb@ZkHb""G_&R"G8"GBb@Zkb" 0"! =x"G_&R"x"8L"GBb@Zk0p0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@4G0"p?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@4G0"p0"p! ?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0t0C0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tPC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0tC0"t?"4G0"B"B@Zk0@ ?"4G0"B"B@Zk0@0t#0"tHb""G_&R"G8"GBb@ZkXb"0l x"G_&R"x"8@"GBb@Zk0l0"t!$# 0dN0"t10CP00BdR0@B0bdS0dN0lﵢ0CP0¦d֢0B0dײ0N#8/8KY8KACzXK:G8?0bh{`O4`C0H &H{`K;DH 0d0"hHb""G_&R"G8"GBb@Zkb" 0"! =x"G_&R"x"8L"GBb@Zk0D@8 DmHb""G_&R"G8D"GBb@Zkb" 0"X! =x"G_&R"x"8L"GBb@Zk""$ x0X"C|x"TGb@0"x0x}B>0"x1p BGBb@Zk0|0|u4G0⦀ײ0 C0"d9 O0"! L0CT!0CP90d0B0"d0BR0@B0bS0BZ CC_0bx{0PJ{S`KFP0hﵢN4B0¦PvJuJFP0#""?$x! x=C|x"TGbD@0"b"0" =4,0"1x="G_&R"x"8L"GBb@Zkhb""G_&R"GGBb@Zkhb""G_&R"GGBb@Zk"4GBb@Zk4GcG]] }(08@#k#~ ^(^0~8GGG=]? b34G$G4G0B8b@Zk"$$C.c.CJS cJSF4բJղG"B R"tG B(b@Zk$G ](]0}8@#k#~ ^(^0~8GG=]4G4GBb@Zk"@$@$4G0B8b@Zk"@$@$G?" B2G)}$s"..JU JF¦D$vH$Ø"H$!D$0"H$D$"H$1"BL$R"bP$s"G@b@ӘH$BL$R bSP$ GG ](]0}8@#kGGGGGGբ6JJFua0JJGk#~ ^(^0~8GGG=]J , H4DJ"0.rHQ0J2F0>$# a..aJT JtFC4G0b@G4GBb@Zk8"T$8T$?&1"FG4G B(b@Zk8"T$$"0.P.0JR PJ2FC4G8b@H_W@"!8T$8"T$1=4GBb@ZkG ](]0}8@#kGGG "Q.q.QJS qJSF4Gk#GGGGr.rJ0@`JR4Gݦ$6$ B!$ @0@=$ݦ$֢$75B6BWBB.JB $0@=$ݦ$֢ B$GGGG#k.W JFGGG@_FtBF@GVJs1`JFGk<@GLDFOR$SET_REENTRANCY<Db#DFOR$SET_REENTRANCY<H@LDFOR$SET_REENTRANCY4G SYS$GETJPIW4b# SYS$GETJPIW4@ SYS$GETJPIW4GLIB$GET_FOREIGN4 b#LIB$GET_FOREIGN4 @LIB$GET_FOREIGN44G< OTS$MOVEM48@< OTS$MOVEM4 @GHOTS$FILL4 D@HOTS$FILL4GOTS$MOVE4@OTS$MOVE4 GOTS$FILL4 @OTS$FILL4GOTS$MOVE4@OTS$MOVE4  GOTS$FILL4 @OTS$FILL4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<LGXDFOR$READ_SEQ_FMT<Pb#DFOR$READ_SEQ_FMT<T@XDFOR$READ_SEQ_FMT< GDFOR$READ_KEY_FMT< b#DFOR$READ_KEY_FMT< @DFOR$READ_KEY_FMT4$G0LIB$WAIT4(b#LIB$WAIT4,@0LIB$WAIT<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<\GhDFOR$WRITE_SEQ_FMT<`b#DFOR$WRITE_SEQ_FMT <d@hDFOR$WRITE_SEQ_FMT<GDFOR$READ_SEQ_FMT<b#DFOR$READ_SEQ_FMT<@DFOR$READ_SEQ_FMT<d Gp DFOR$WRITE_SEQ_FMT<h b#DFOR$WRITE_SEQ_FMT<l @p DFOR$WRITE_SEQ_FMT< G DFOR$WRITE_SEQ_FMT< b#DFOR$WRITE_SEQ_FMT< @ DFOR$WRITE_SEQ_FMT< G DFOR$READ_SEQ_FMT< b#DFOR$READ_SEQ_FMT< @ DFOR$READ_SEQ_FMT4 G OTS$INDEX4 @ OTS$INDEX4, G4 OTS$INDEX40 @4 OTS$INDEX4\ Gd OTS$INDEX4` @d OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4< GD OTS$INDEX4@ @D OTS$INDEX4t G| OTS$INDEX4x @| OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4, G4 OTS$INDEX40 @4 OTS$INDEX4P GX OTS$INDEX4T @X OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4@ GH OTS$INDEX4D @H OTS$INDEX4d Gl OTS$INDEX4h @l OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX<GDFOR$WRITE_SEQ_FMT< b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<DGPDFOR$READ_SEQ_FMT<Hb#DFOR$READ_SEQ_FMT<L@PDFOR$READ_SEQ_FMT<PG\DFOR$WRITE_SEQ_FMT<Tb#DFOR$WRITE_SEQ_FMT<X@\DFOR$WRITE_SEQ_FMT<GDFOR$READ_SEQ_FMT<b#DFOR$READ_SEQ_FMT<@DFOR$READ_SEQ_FMT<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT< G,DFOR$READ_SEQ_FMT <$b#DFOR$READ_SEQ_FMT<(@,DFOR$READ_SEQ_FMT4G OTS$DIV_I4b# OTS$DIV_I4@ OTS$DIV_I<GDFOR$REWRITE_FMT<b#DFOR$REWRITE_FMT<@DFOR$REWRITE_FMT4G$OTS$MOVE4 @$OTS$MOVE4 ,G4OTS$FILL4 0@4OTS$FILL<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<GDFOR$READ_SEQ_FMT<b#DFOR$READ_SEQ_FMT<@DFOR$READ_SEQ_FMT4G DFOR$OPEN4b# DFOR$OPEN4@ DFOR$OPEN4 G DFOR$CLOSE4 b# DFOR$CLOSE4 @ DFOR$CLOSE4G OTS$INDEX4@ OTS$INDEX4 G OTS$MOVEM4@ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL44G<OTS$MOVE48@<OTS$MOVE< GDFOR$READ_KEY_FMT< b#DFOR$READ_KEY_FMT< @DFOR$READ_KEY_FMT4GLIB$WAIT4b#LIB$WAIT4@LIB$WAIT4@GHOTS$MOVE4D@HOTS$MOVE<G$DFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT< @$DFOR$WRITE_SEQ_FMT<dGpDFOR$WRITE_SEQ_FMT<hb#DFOR$WRITE_SEQ_FMT<l@pDFOR$WRITE_SEQ_FMT<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<GDFOR$READ_SEQ_FMT<b#DFOR$READ_SEQ_FMT<@DFOR$READ_SEQ_FMT4G OTS$INDEX4 @ OTS$INDEX4,G4 OTS$INDEX40@4 OTS$INDEX4\Gd OTS$INDEX4`@d OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G  OTS$INDEX4@  OTS$INDEX4<GD OTS$INDEX4@@D OTS$INDEX4tG| OTS$INDEX4x@| OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX 4G OTS$INDEX4@ OTS$INDEX4,G4 OTS$INDEX40@4 OTS$INDEX4PGX OTS$INDEX4T@X OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4 @ OTS$INDEX4@GH OTS$INDEX4D@H OTS$INDEX4dGl OTS$INDEX4h@l OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX<GDFOR$WRITE_SEQ_FMT< b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<DGPDFOR$READ_SEQ_FMT<Hb#DFOR$READ_SEQ_FMT<L@PDFOR$READ_SEQ_FMT<PG\DFOR$WRITE_SEQ_FMT<Tb#DFOR$WRITE_SEQ_FMT<X@\DFOR$WRITE_SEQ_FMT<GDFOR$READ_SEQ_FMT<b#DFOR$READ_SEQ_FMT<@DFOR$READ_SEQ_FMT<GDFOR$WRITE_SEQ_FMT<b#DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT< G,DFOR$READ_SEQ_FMT<$b#DFOR$READ_SEQ_FMT<(@,DFOR$READ_SEQ_FMT4G OTS$DIV_I4b# OTS$DIV_I4@ OTS$DIV_I<GDFOR$REWRITE_FMT<b#DFOR$REWRITE_FMT<@DFOR$REWRITE_FMT4  G DFOR$CLOSE4  b# DFOR$CLOSE4  @ DFOR$CLOSE4 0 G< DFOR$CLOSE4 4 b# DFOR$CLOSE4 8 @< DFOR$CLOSE4D GP DFOR$EXIT4H b# DFOR$EXIT4L @P DFOR$EXIT4# G SYS$OPEN4$ b#SYS$OPEN4# @ SYS$OPEN4!(!G4! GETFIDDID4",!b# GETFIDDID4!0!@4! GETFIDDID4#!G!SYS$OPEN4$!b#@SYS$OPEN4#!@!SYS$OPEN4%!G! SYS$CONNECT4&!b#@ SYS$CONNECT4%!@! SYS$CONNECT4##G#SYS$OPEN4$#b#SYS$OPEN4##@#SYS$OPEN4'#G# SYS$DISPLAY4(#b# SYS$DISPLAY4'#@# SYS$DISPLAY4%H$GT$ SYS$CONNECT4&L$b# SYS$CONNECT 84%P$@T$ SYS$CONNECT  ;= Dev:file or (n,s,v)> = GCY$CM:NTREGIST.REG_USR@ DFOR$EXIT= :`=Eh=Op=Cx=W=D OTS$DIV_I DFOR$REWRITE_FMT=S=N=ILIB$WAIT=@48       2 3     DFOR$READ_KEY_FMT=q8=r<= DFOR$CLOSE;8OTS$FILL;p DFOR$READ_SEQ_FMT=8 DFOR$WRITE_SEQ_FMT8 OTS$INDEX=0;=@< 7 DFOR$HANDLER=;;;=;= 8OTS$MOVE=  DFOR$OPEN=x8=R@=QH8 OTS$MOVEM=XT=Ai`=nd=`sp=ox=d=w=e=c= SYS$GETJPIW DFOR$SET_REENTRANCY=808  9  GCY$CM:NTREGIST.REG_FIL LIB$GET_FOREIGN=0 | ;=@ ! GETFIDDID#SYS$OPEN=0 `!;=@  ;p% SYS$CONNECT;= 0";==0 #;=@ ' SYS$DISPLAY ;;; ;= 0x$;== 0$;== 0%;= H=80/ NTUFMNTDigital Fortran 77 T7.0-1 I=E=72i4-9XZRA0:[EVERHART]JTNTAUTH.FOR;22 O=KCB=,z3AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$DVIDEF O=KCB=Y7AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$JPIDEF O=KCB=Z2AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$ACLDEF O=KCB=j2AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$ACEDEF O=KCB= AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RMSDEF O=KCB=f #AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$FABDEF O=KCB=$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RABDEF R=NFE@ $AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $XABFHCDEF O=KCB= AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RMSDEF O=KCB= f #AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$FABDEF O=KCB= $AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RABDEF R=NFE@ $AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $XABFHCDEF R=NFE@"HFAS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $SYSSRVNAM O=KCB=Y$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$XABDEF O=KCB=Y$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$XABDEF O=KCB=f #AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$FABDEF O=KCB= AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RMSDEF O=KCB=$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RABDEF R=NFE@$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $XABFHCDEF R=NFE@"HFAS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $SYSSRVNAM O=KCB= AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RMSDEF R=NFE@"HFAS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $SYSSRVNAM O=KCB=f #AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$FABDEF O=KCB=$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$RABDEF O=KCB=Y$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2$XABDEF R=NFE@&$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $XABPRODEF R=NFE@&$AS"SYS$COMMON:[SYSLIB]FORSYSDEF.TLB;2 $XABPRODEF X=TL      C   |N ,8 - N{ 9 |  s : t   P ;     R    NS    T   PQU R a"V e" )"Z " )"w " N#$x $$ 'y ' 'z ' PK({ L( [:| F: = = O O NP P Q Q )R R ghR .R gR == 44= NTUFMNT4=> + + + / / / Cммм ȼ   мMмм 5, $= 84 =<4.  4= IOSB  e4=H@:  4=JPIITM $e4=  4=MEKIOS:  4=JP2ITM e4=<4.  4= IFID e4=<4.   4= IDID )e4=<4. 4=I4FID re4=<4.  4=I4DID e4= 4= FILSIZ 4= MSKACC 4=A9IUIC. 4=DEFACL 4e4="84=REGNAM e4=<4.  4= DEF2 e4= 4=)!DEFLEN4=DEFCMD  e4=" 84= DFC :e4=" 84= DFC2 he4=<4. @ 84= IDFC e4=<4. 84=I2DFC e4=. . . `JTUS3 UIC IFID *e4= `IDID Ye4=KFLGSGRPLSTGRPLENACEDEFACELENDEFCMDDEFLEN ACES e4= CH e4= 84=USRREC e4= 4=USRWRC e4= . . xJTFL3FIDNAM e4=+# UIC IDID e4=`KFLGSGRPLSTGRPLENACEDEFACELENDEFCMDDEFLEN ACES @e4= CH oe4= I4CH 4=FILREC e4= p'4=FILWRK e4= 4= OWNUIC4=D<ACCPORL.  4= IPRV e4= 4=( LPRVS$4=IMGSPB =e4=" -4= RGU ne4=" .4= RGF e4="/4 V =WRKARG e4="14=WRKFNM e4=  4= CCOL 4= LLUIC$4= CMDLENH4= UNAML 4= TTYSPL$4=)!IMGSPL 4=TTYSPB e4=" (4=UNAMB e4=" x4=RJASC e4="@L4=ACCPOR e4="@4=WRKCHR Je4="34=CMDLIN {e4=  (4=KK < 4= 9999 ,4=II 4= 6009 4= 6999 04= LNRG 4= 999844=-%ISYSU 100 101 p4= 10584= KKUIC p4=140 6300 <4= XTIM@4= IGOTU D4= IPOS H4= IINI 84=200 3330 L4=KGP 3331 p 4=202 3332 P4= IQTT4==5JFLGS 3333 3334 3335 X4= LDC \4= ILDC `4=N d4= LUR h4= LDFC  4= 405 4= 9898 l4= ICL <4= 240p4=!IGOTF 3336 p4=D<402 3337 3338 3339 3340 l=h`_ := T 4= | = | 44= FGETFID| 4=" K $=  4 =FGETFID84!4,47 4=0 4C` 4I 4O 4U 4[ 4a@ 4gx 4m 4s 4y 40 4T 4 4 4 4 4D 4h 4 4 44 44484D4 404`4444 4@4x44$4*40046T4<4B4H4N 4TD4Zh4`4f4l4=. . . . . . . . . FABDEF FAB$B_BID FAB$B_BLN FAB$W_IFI  e4=-% FAB$L_FOP e4=yq@ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQ FAB$B_FAC 7e4=-% FAB$B_SHR fe4=SK FAB$L_CTX FAB$B_RTV FAB$B_ORG e4=-% FAB$B_RAT e4=D< FAB$B_RFM FAB$B_JOURNAL  e4=`XFAB$B_RU_FACILITY   FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNS FAB$B_DNS FAB$W_MRS FAB$L_MRN FAB$W_BLS FAB$B_BKS FAB$B_FSZ FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCP FAB$B_ACMODES P "e4=-%X FAB$B_RCF X Qe4=+# ` 'FAB e4=. . . . RABDEF =WO  RAB$B_BID RAB$B_BLN RAB$W_ISI  "e4=-% RAB$L_ROP ="e4= l"e4=  ( RAB$B_ROP10 RAB$B_ROP28 RAB$B_ROP3@ RAB$L_STS` RAB$L_STV` RAB$W_STV0p RAB$W_STV2 RAB$W_RFA "e4= RAB$L_RFA0 RAB$W_RFA4  RAB$L_CTX  RAB$B_RAC RAB$B_TMO RAB$W_USZ RAB$W_RSZ  RAB$L_UBF@ RAB$L_RBF` RAB$L_RHB RAB$L_KBF RAB$L_PBF RAB$B_KSZ RAB$B_PSZ RAB$B_KRF RAB$B_MBF RAB$B_MBC RAB$L_BKT RAB$L_DCT RAB$L_FAB RAB$L_XAB RAB "e4=KCIUNIT.  4= IFID %e4=<4.   4= IDID 9&e4= 4=FILSIZ. .  XABFHCDEF`     @ XAB$B_RFOH XAB$B_ATR H &e4= P XAB$W_LRL` XAB$L_HBK` XAB$W_HBK0p XAB$W_HBK2 XAB$L_EBK XAB$W_EBK0 XAB$W_EBK2 XAB$W_FFB  XAB$B_HSZ XAB$W_MRZ XAB$W_DXQ XAB$W_GBC &e4=<40XAB$W_VERLIMIT@ XAB$L_SBN44=XABFHC &e4= 44= ISTAT 4!4= 9999 := D!4=  = `!4@4= IUFCK`!4=2*)  " $= !4 E ='IUFCK. . . . . . . . . FABDEF FAB$B_BID FAB$B_BLN FAB$W_IFI  N)e4=-% FAB$L_FOP })e4=yq@ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQ FAB$B_FAC )e4=-% FAB$B_SHR )e4=SK FAB$L_CTX FAB$B_RTV FAB$B_ORG  *e4=-% FAB$B_RAT 9*e4=D< FAB$B_RFM FAB$B_JOURNAL  h*e4=`XFAB$B_RU_FACILITY   FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNS FAB$B_DNS FAB$W_MRS FAB$L_MRN FAB$W_BLS FAB$B_BKS FAB$B_FSZ FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCP FAB$B_ACMODES P *e4=-%X FAB$B_RCF X *e4=+# ` FAB *e4=#. . . . RABDEF  RAB$B_BID RAB$B_BLN RAB$W_ISI  .e4=-% RAB$L_ROP .e4= .e4=  ( RAB$B_ROP10 RAB$B_ROP28 RAB$B_ROP3@ RAB$L_STS` RAB$L_STV` RAB$W_STV0p RAB$W_STV2 RAB$W_RFA /e4= RAB$L_RFA0 RAB$W_RFA4  RAB$L_CTX  RAB$B_RAC RAB$B_TMO RAB$W_USZ RAB$W_RSZ  RAB$L_UBF@ RAB$L_RBF` RAB$L_RHB RAB$L_KBF RAB$L_PBF RAB$B_KSZ RAB$B_PSZ RAB$B_KRF RAB$B_MBF RAB$B_MBC RAB$L_BKT RAB$L_DCT RAB$L_FAB RAB$L_XAB RAB ?/e4= LUN 54= ISTAT  4= LFIL 4= NFFREE $54= IXAB(54= INEXT @"4= 100 ,54= IEOF054=IFFREE := "4= X ~= "44= GTXAB"4= " $= "4 =. . FHCDEF` XAB$B_COD XAB$B_BLN  XAB$L_NXT@ XAB$B_RFOH XAB$B_ATR H (3e4= P XAB$W_LRL` XAB$L_HBK` XAB$W_HBK0p XAB$W_HBK2 XAB$L_EBK XAB$W_EBK0 XAB$W_EBK2 XAB$W_FFB  XAB$B_HSZ XAB$W_MRZ XAB$W_DXQ XAB$W_GBC W3e4=LD0XAB$W_VERLIMIT@ XAB$L_SBN 9XAB 3e4=5-8INEXT %IEOF$IFFREE :=  #4= \ = #44= PRIV_USEROPEN#4=+#" : $= @#4 `=% PRIV_USEROPEN. . . . . . . . . FABDEF FAB$B_BID FAB$B_BLN FAB$W_IFI  6e4=-% FAB$L_FOP A6e4=yq@ FAB$L_STS` FAB$L_STV FAB$L_ALQ FAB$W_DEQ FAB$B_FAC p6e4=-% FAB$B_SHR 6e4=SK FAB$L_CTX FAB$B_RTV FAB$B_ORG 6e4=-% FAB$B_RAT 6e4=D< FAB$B_RFM FAB$B_JOURNAL  ,7e4=`XFAB$B_RU_FACILITY   FAB$L_XAB@ FAB$L_NAM` FAB$L_FNA FAB$L_DNA FAB$B_FNS FAB$B_DNS FAB$W_MRS FAB$L_MRN FAB$W_BLS FAB$B_BKS FAB$B_FSZ FAB$L_DEV  FAB$L_SDC@ FAB$W_GBCP FAB$B_ACMODES P [7e4=-%X FAB$B_RCF X 7e4=+# ` 'FAB 7e4=#. . . . RABDEF  RAB$B_BID RAB$B_BLN RAB$W_ISI  G;e4=-% RAB$L_ROP v;e4= ;e4=  ( RAB$B_ROP10 RAB$B_ROP28 RAB$B_ROP3@ RAB$L_STS` RAB$L_STV` RAB$W_STV0p RAB$W_STV2 RAB$W_RFA ;e4= RAB$L_RFA0 RAB$W_RFA4  RAB$L_CTX  RAB$B_RAC RAB$B_TMO RAB$W_USZ RAB$W_RSZ  RAB$L_UBF@ RAB$L_RBF` RAB$L_RHB RAB$L_KBF RAB$L_PBF RAB$B_KSZ RAB$B_PSZ RAB$B_KRF RAB$B_MBF RAB$B_MBC RAB$L_BKT RAB$L_DCT RAB$L_FAB RAB$L_XAB RAB <e4= UNIT. . .  XABPRODEF1     @ XAB$W_PRO @ (?e4=G?P XAB$B_MTACCXXAB$B_PROT_OPT X W?e4=bZ` XAB$L_UIC` XAB$W_MBMp XAB$W_GRPXAB$Q_PROT_MODE ?e4=XAB$B_PROT_MODE XAB$L_ACLBUF XAB$W_ACLSIZ XAB$W_ACLLEN XAB$L_ACLCTX  XAB$L_ACLSTS @ `        @ `  854=XABPRO ?e4=   4= LUIC 4=C;OWNUIC. 4= PRIVILEGE Ae4=  454= III := \$4= d w= x$44= XABGETx$4= Rq $= $4 i=. . .  XABPRODEF1     @ XAB$W_PRO @ Be4=G?P XAB$B_MTACCXXAB$B_PROT_OPT X Be4=bZ` XAB$L_UIC` XAB$W_MBMp XAB$W_GRPXAB$Q_PROT_MODE Be4=#XAB$B_PROT_MODE XAB$L_ACLBUF XAB$W_ACLSIZ XAB$W_ACLLEN XAB$L_ACLCTX  XAB$L_ACLSTS @ `        @ `  $XABPRO -Ce4=  4=L_UIC := $4= 4 = $44= IVLEN$4=0(' S0 S S S $= $4 !=`X9IVLEN3,)J&3&& 6ARG Ee4= %LEN D%4=1 54=N 54=K l%4= 2 := %4=  z= %4 4= XABSET%4= Sg $= %4 =B:. . .  XABPRODEF1XABPRODEF$$_FILL_1XABPRODEF$$_FILL_2XABPRODEF$$_FILL_3 XABPRODEF$$_FILL_4@ XAB$W_PRO @ Fe4=G?P XAB$B_MTACCXXAB$B_PROT_OPT X Fe4=bZ` XAB$L_UIC` XAB$W_MBMp XAB$W_GRPXAB$Q_PROT_MODE Ge4=XAB$B_PROT_MODE XAB$L_ACLBUF XAB$W_ACLSIZ XAB$W_ACLLEN XAB$L_ACLCTX  XAB$L_ACLSTS@XABPRODEF$$_FILL_10`XABPRODEF$$_FILL_11XABPRODEF$$_FILL_12XABPRODEF$$_FILL_13XABPRODEF$$_FILL_14XABPRODEF$$_FILL_15XABPRODEF$$_FILL_16 XABPRODEF$$_FILL_17@XABPRODEF$$_FILL_18`XABPRODEF$$_FILL_19XABPRODEF$$_FILL_20XABPRODEF$$_FILL_21$XABPRO 5Ge4=  4=L_UIC := %4= < =