H ODS-2-READERV1.0 1-JUN-1993 13:47DEC C X1.3-003B x VMSFDOUTDESTRMLINENOXFERMODELSFLAG $READONLY$ $BSS$$DATA$$LINK$Z $LITERAL$iD($CODE$ $ABS$DECC$GA_STDERR DECC$GA_STDINDECC$GA_STDOUT DECC$FCLOSE DECC$FOPEN DECC$GFPRINTFDECC$GVFPRINTF DECC$FPUTC DECC$FWRITE DECC$ABORT DECC$EXIT DECC$STRNCPY DECC$STRCAT DECC$STRNCMP DECC$STRCHR DECC$STRRCHR DECC$STRLEN DECC$STRCPY SYS$ASSIGNSYS$QIOW DECC$GETGIDDECC$GA_ENVIRON DECC$GETUID DECC$ACCESS HBLOCK( HBLOCK(J USAGE(J0 OPTIONS(J@ GETVMS(J' ERRMSG(J@8 OPENIN(J  LISTDIR0J COPYFILE(J CRACK(JxX OPENVMS(J@ FINDDIR(J0 GETHDR(J& GETLB(J DIRMSG(J  OKWRITE(JX! GETVB(Jx( PUTCH(J PRTFN(J CONVERT(Jh% LBNBASE(JP OPENOUT AV( AV( LSFLAG0 XFERMODE0 RMLINENO( OUTDEST dFILSPEC(FILSPEC PFLAGS(PFLAGS DEV(DEV DIR(DIR FIL(FIL TYP(TYP VER(VER VMSDEV(VMSDEV( VMSFD OF(OF DIRFOUND0DIRFOUND INDEXH(INDEXH MFDH(MFDH DIRH(DIRH FILEH(FILEH(J0 MAIN0Jh BASENAME(J`@ SEARCH(J@ GETDE(Jx0$ GETSIZE(JP __MAIN DECC$MAIN DECC$EXIT OTS$HOME_ARGS $=  $=  $=  $=  !=  (= y=0 ';=` 7DECC$GA_STDERR0 DECC$GFPRINTF8 OTS$HOME_ARGS7AV=  `DECC$GVFPRINTF=%s -- 0 (;=@p< ;;7OF DECC$FPUTC x; ; ; x; ; ;; DECC$ABORT=0 &;=@  SYS$QIOW;=QIO error %dX 8; ;=0 %;=0 0$;=0 X!;=  (NG 0 ;=p(NG 7FILEH; DECC$FWRITE= write error P;=0 ;=0(_+ 0 DECC$STRCHR DECC$ACCESS=0 ;=0(_+  DECC$STRCAT7FIL DECC$STRCPY;7DECC$GA_STDOUT= .= w DECC$FOPEN p;7TYP=0 0 ;= 0 7HBLOCK7INDEXH  DECC$GETGID DECC$GETUID=0 ;= 0 0 @;=P  DECC$STRNCMP DECC$STRLEN=0 ;=P  ; ; ;=0 ;= 0 0 @;=` 7DIR=.DIR(7DIRH7MFDH@! DECC$STRNCPY @; p; ;7DIRFOUND ;=0 X ;=P> # SYS$ASSIGN=Can't open %s= 7VMSDEV ; ; ; ;=0 ;=0> 7PFLAGS 0;7FILSPEC7VER ;7DEV=0 8;=@>  H; h;= disk$users; ; ; ; ;=0 ;=@S+< ;%d =0 ;= pS+ 0 @;=0S+  ; % DECC$FCLOSE=0 ;=0_+  ; ;` ;h ;p ;x ; ; ; ; ; ; ; p; ; ; ; ; ; ; ; ; ; ; ; ; ;  ;( ;0 @;8 ;@ @;H ;P ;X ;` ;h ;p ;x ; ; ; ; ; ; P; `;=0 h;= + ' DECC$STRRCHR=0 ;= +  (; ) DECC$EXIT=0 ;= @| 0 ;=0 + DECC$MAIN  =!internal error in putch =READVBLK error %d 8=Bad block in file P='Binary mode not yet supported p==5Can't open output fileNon-digit in version number =,$File type longer than 3 characters =+#Filename longer than 9 characters ="Invalid directory ([%s]) =ZRNo access privilege for directory [%s]Can't get file header for directory [%s] p='Directory [%s] does not exist =%Can't read mfd header on %s =-%Can't read index file header on %s  =$Can't read homeblock on %s =#Device name too long (%s) =Filename missing 0=Bad filename syntax H=&No access privilege for file h==5Can't get file header for fileFile does not exist =)!Invalid directory specification =5-No directory specifiedNo device specified =Filespec too long =Invalid option (%c)  (=:2usage: %s [-t] [-i] [-b] [-d] [-f] [-s] vmsfile  =#4G~^ ^(G#G B =  >(b@Zk =b# @b4GGB@ZkG ]](0#kG#~^^~ (0޴8GGG$1Be"tG1PBGbG@Zk"4GbB@ZkàGBTGbG@ZkG  . PJJ FP"Q0@B6@Ju`JFGG71@G#x/#[xKgKeG`b#@G 1@GG]]4G} (0ݤ8@#kGb#7@#tG~^^GGX0"@B "@Hb@Zk"4G8b0B@ZkG]] #k#G~TG^^G([G0{G@ZkGGG G]] #kG#~^^~ GG.` JFGC. R@JGJ@." RWJGJ_ "G(TGb#a@Gf`.T DS`J`> .JYGG_."UJJ"U"@"u" `5  "FF@F"XF`GC#DNH4 D .PJ>.J-GإF`xFGGC DGGPFI@¦ DxFG"aF !D!D"DN8"D< T.RTJT>.JoG "4GaGG]]} 0#kG "G(TGb#aI@GG "G(TGb#a?@GG "G(TGb#a5@GG "G@TGb#a+@GGGC!D""<"D?8bB"SG G(TGb#t@GG#~^ ^(~08@GGGB#G@Zk@G`TGb#@GP"H""BGG@ZkbGGBTG@ZkGB@Zk`H=&"(BGv H0bG D==}1v J3B}GG@Zk8D? /8"GTGb#@G^G}"BGbGG>? >4G>4G G(GG@Zk8D"GTGb#@GG =.  Q J&J8 F TGb#@G4GGXTGb#@G*/$,"0H.D.DJ1 .!"H!.b#2@"JT JFUBG;@GpTGb#y@G/"pAb#.@TGhGb#l@G4GG] ](}08@P#k-D.O IDJE$.Q $J2Fà#~^ ^(~08@޴HPXGG 8bG_,& @HH"  " "  D D D DuGG0BCp n!HBGPbGGtG@ZkCb("" ,GxBTGA H <@Zk4G=, pHGA Hhb#0D <G/@G0b#GG$@# 5, Hp4G4G0.r0HQ0J2F0>@G$"h,h.TGb#CpH`ShJgHh>@,`hHGHD<,GG$",c.TGb#EHXScJHc>@-`HHIE=Gf,"f.TG$b#CpHhSfJf>gH@,hfHGHD<$TGxb#@GG] ](}08@ݤHPX`#k#TG~({#^^ GG" ,@HHB.RBJB>@.qHPJF>G]] 0#k#~^^~ (0޴8@GGGBGGGG@Zk7@G0TG`b#j@GrBG@Zkw@G(TG`b#^@GfBGGG@Zk""bGTGB@ZkGbGTGB@Zk,H',"A0H'H!" ! Gr..rJVJ3dBwrJF>/ Kf,F#f/C zHz<[zKz?,H1G.%"PJJ0 8 "6G"t."T.qFpFuJR UJ7SFsBSsB3v`JY8KgxJ'G7WC)e,E#f#q`GCzHgHp`GcB3fBqaJ@H DW @ .J4G_G]]} (0ݤ8@P#kG GTG`b#@G70`J?G'G70`JDDG#~^^~ (0޴8@HGGG0BGGG@ZkGG4Gb#z@G',"A0H'H&D B!(bGGGtG@ZkGGb#e@GGG_G]]} (0ݤ8@HP#k',"D.$.A0H 'HDJ0 @Q $J?D2FA@",h.HS tJ`FG.G.JU JF@"G CGh/H/hKZ HK[G rC`!G @rG,,!HF HDG#~^^~ GGP8DX"X! 4G(0"} @BG!@Zk(bG`"" BTG@ZkG(bTG B @ZkGb#@ h""xbGpBTG@ZkXb4GÀGTGb#'@GG]]} 0#kG#TG~TG^^ GGG8B@bG@Zk4G8BG@bGTG@ZkGG(BG0bGTG@Zk@G]] 0#k#~^^~ (0޴8@H>P^X~`hGGG(bG xDXGTGXb#@G^G XD .("Jf "h.tJi0JB G]!_0@GGGb#.@E#X D0@ @? D@ .!h.JS hJtFG8 D# G GA B G ."!b#PJJE@G @G"G8B4G@b_"aG@Zk H"GTGXb#@GbG8B4G@bGkG@ZkDH"GTGXb#z@G4GG]]} (0ݤ8@H=P]X}`hp#k1,"h.A 1HtJ0DT.R TJSF#~^^~ (08GGG(b<@\\@ZHk "E4G1Z E HB TG0"TG8B@b1@ZkJx"! GtGD@GTGcD8 "0CGtGC 1@*0"TG8BTG@b!@Zk!G0G8BTG@b$@Zk /1ATG8BTG@b$@Zk Gp4Gb#@GbB@ZkG]]} (08@#k#4G~^^~ (0޴8@H>P^X~`GGpb#XGG@G>$,"d. D.A0HdJ'HR DJ0 @SF?D@@ GG B%G G7-" GI7I'I . #Bk!(TGPJbJ@Zk)1 A?J."" ,tG`BJJ@ HhbD@Zk G G iAGGpb#F@GG]]} (0ݤ8@H=P]X}`p#kG# ~^^ ~(08GG=p, C`HgH `.$"B bTGPJ%J@Zk#1`@= ""BtGA.,bAJ@ HD@ZkG] }](08@#kG#G~^^~ (GGXbc  2 ,HP .r" #"JO` H#@#,q.HS qJ`F B1"#G @ ,q.HS qJ`F&s"D`#0BF r.!,rJ@ HDs@ s"c GHb#p@ #,?& "1"0H@1@D G GccG B`  =ldGGG]]} (0#k.P JF3,A 3H0DG#~^^ GG=(b#@. " , .!`.QJA 1H=J2DS `JBtFTB0B01B/@G&=@.A1,JA 1H?"0DF GPBXb@ZkHbG@B@ZkH D @LvHD @C#J2F12B0Nv$J2F22BRBRRB2@4GG]] 0#k#G~G^";2 ,G:2.4G@HQ!JH'JD?F@@B1BGBGGG B&GGG@C 8C 5,5Hh_'Z#:D:v@K# @?&1"1QC'#<\C """"GG @G_G 6C G]G #kG5,5HC?&1"1D1v J# _'Z#::B '#< @h~tG^^~ GGp" H" b0B18bQG@Zk0 0=@`BtGhb@ZkP""8bTG0B@ZkG]}] `#k4+ (G H DECC$MAIN4, <b#P DECC$MAIN4+ D@ H DECC$MAIN4* Xb#P DECC$EXIT4) dG l DECC$EXIT4) h@ l DECC$EXIT4 G DECC$GFPRINTF4 b#0 DECC$GFPRINTF4 @ DECC$GFPRINTF4* b#0 DECC$EXIT4) G  DECC$EXIT4) @  DECC$EXIT4' G $ DECC$STRRCHR4( b#0 DECC$STRRCHR4' @ $ DECC$STRRCHR4 G < DECC$GFPRINTF4 4b# DECC$GFPRINTF4 8@ < DECC$GFPRINTF4* Db# DECC$EXIT4) HG P DECC$EXIT4) L@ P DECC$EXIT4' G  DECC$STRRCHR4( {# DECC$STRRCHR4' @  DECC$STRRCHR4 G  DECC$GFPRINTF4 b#0 DECC$GFPRINTF4 @  DECC$GFPRINTF4 dG t DECC$STRLEN4 p@ t DECC$STRLEN4 G  DECC$STRCPY4 @  DECC$STRCPY4% G  DECC$FCLOSE4& b# DECC$FCLOSE4% @  DECC$FCLOSE4 G DECC$STRLEN4 @ DECC$STRLEN4 G DECC$STRCPY4 @ DECC$STRCPY4 b#x DECC$STRCAT4 G DECC$STRCAT4 @ DECC$STRCAT4 G DECC$STRLEN4 @ DECC$STRLEN4#  G H SYS$ASSIGN4$  b#x SYS$ASSIGN4# D @ H SYS$ASSIGN4 G SYS$QIOW4 b#xSYS$QIOW4 @ SYS$QIOW4! G 0 DECC$STRNCPY4" b# DECC$STRNCPY4! ,@ 0 DECC$STRNCPY4 4b# DECC$STRCAT4 DG X DECC$STRCAT4 T@ X DECC$STRCAT4 G  DECC$STRLEN4 @  DECC$STRLEN4 G  DECC$STRLEN4 @  DECC$STRLEN4 (G < DECC$STRCPY4 8@ < DECC$STRCPY4 @b# DECC$STRCAT4 LG T DECC$STRCAT4 P@ T DECC$STRCAT4 Xb# DECC$STRCAT4 dG l DECC$STRCAT4 h@ l DECC$STRCAT4 xG  DECC$STRLEN4 @  DECC$STRLEN4 G  DECC$STRNCMP4 b#` DECC$STRNCMP4 @  DECC$STRNCMP4 hG x DECC$STRCPY4 t@ x DECC$STRCPY4 xb#P DECC$STRCAT4 G  DECC$STRCAT4 @  DECC$STRCAT4 b#P DECC$STRCAT4 G  DECC$STRCAT4 @  DECC$STRCAT4 b#P DECC$FOPEN4 G  DECC$FOPEN4 @  DECC$FOPEN4 LG \ DECC$ACCESS4 Pb# DECC$ACCESS4 X@ \ DECC$ACCESS4 hG  DECC$ACCESS4 pb# DECC$ACCESS4 |@  DECC$ACCESS4 G  DECC$STRCHR4 b# DECC$STRCHR4 @  DECC$STRCHR4 0G L DECC$FWRITE4 8b# DECC$FWRITE4 H@ L DECC$FWRITE4 xG  DECC$FWRITE4 b# DECC$FWRITE4 @  DECC$FWRITE4 G  DECC$FPUTC4 b#x DECC$FPUTC4 @  DECC$FPUTC4 XG l DECC$FPUTC4 `b#x DECC$FPUTC4 h@ l DECC$FPUTC4 G  DECC$FPUTC4 b#x DECC$FPUTC4 @  DECC$FPUTC4 G  DECC$FPUTC4 b#x DECC$FPUTC4 @  DECC$FPUTC4 b#x DECC$ABORT4 G  DECC$ABORT4 @  DECC$ABORT4 G  DECC$FPUTC4 b# DECC$FPUTC 4 @  DECC$FPUTC4 0G L DECC$GFPRINTF4 @b# DECC$GFPRINTF4 H@ L DECC$GFPRINTF4 G ( DECC$FPUTC4 b# DECC$FPUTC4 $@ ( DECC$FPUTC4 8G ` DECC$GFPRINTF4 Lb# DECC$GFPRINTF4 \@ ` DECC$GFPRINTF4 G DECC$GETUID4 b# DECC$GETUID4 @ DECC$GETUID4 b# DECC$GETGID4 G DECC$GETGID4 @ DECC$GETGID4 &G $'SYS$QIOW4 'b#SYS$QIOW4 '@ $'SYS$QIOW4 'G ' DECC$GFPRINTF4 'b# DECC$GFPRINTF4 '@ ' DECC$GFPRINTF4 (G (DECC$GVFPRINTF4 (b#DECC$GVFPRINTF4 (@ (DECC$GVFPRINTF4 (b# DECC$GFPRINTF4 (G (( DECC$GFPRINTF4 $(@ (( DECC$GFPRINTF P