| Title: | RMS asks, 'R U Journaled?' |
| Moderator: | STAR::TSPEER UVEL |
| Created: | Tue Mar 11 1986 |
| Last Modified: | Wed Jun 04 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 3031 |
| Total number of notes: | 12302 |
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 5.1 | BASIC tool to count data, deleted and RRV record in prologue 3 file. | HEIN::VANDENHEUVEL | Your holistic TP Consultant. | Thu Jan 24 1991 14:52 | 257 |
| 5.3 | Data bucket checker in MACRO-32 | CX3PST::GORE::G_FROEHLIN | Fly like an eagle or crash like a VAX | Mon Feb 04 1991 14:57 | 222 |
| 5.5 | INDEXFILE_VERIFY.BAS check bucket layout, generate patch.com | STAR::VANDENHEUVEL | You have 1 new message | Fri Oct 18 1991 14:13 | 230 |
| 5.4 | Command file to list global buffer params used | STAR::VANDENHEUVEL | You have 1 new message | Fri Oct 18 1991 14:18 | 55 |
| 5.7 | SHOW_ROOTS.C list index root level for passed file. | STAR::VANDENHEUVEL | You have 1 new message | Thu Oct 31 1991 03:25 | 54 |
| 5.9 | Multy file global buffer hit rate monitor | STAR::VANDENHEUVEL | You have 1 new message | Fri Nov 22 1991 16:20 | 238 |
| 5.10 | BACKWARDS.BAS | VMSZOO::VANDENHEUVEL | Famille Nombreuse | Thu Mar 26 1992 14:34 | 127 |
| 5.11 | List records with highed record ID (RFA) in buckett | STAR::VANDENHEUVEL | Famille Nombreuse | Sun Mar 29 1992 04:32 | 188 |
| 5.12 | MACRO Subroutine to return PID of user of 'locked' record | CSC32::BLAYLOCK | If at first you doubt,doubt again. | Tue Jun 09 1992 00:48 | 316 |
| 5.14 | SIDR.C tool to help analyze secondary indeces | STAR::VANDENHEUVEL | Cherish the bug you know. | Tue Mar 16 1993 14:57 | 427 |
| 5.15 | RMS_GBLINFO - Calc SYSGEN Param Usage by RMS | NITTY::COHEN | Harry it S*cks | Fri Apr 02 1993 19:26 | 186 |
| 5.16 | rms_journal_snap - RMS After Image Journal File Snapshot Program | DUCATI::LASTOVICA | Pocket Full of Kryptonite | Tue Apr 20 1993 23:58 | 812 |
| 5.17 | FILE_LOCK - Display RMS and XQP locks for a file | EEMELI::MOSER | Orienteers do it in the bush... | Mon May 31 1993 09:38 | 534 |
| 5.18 | Sample FDL$GENERATE with file name as input. | STAR::VANDENHEUVEL | Cherish the bug you know. | Thu Jun 17 1993 20:33 | 78 |
| 5.19 | New SIDR.C which can DUMP SIDR BUCKETS in FAKE INDEXED FILE. | STAR::VANDENHEUVEL | Cherish the bug you know. | Thu Jul 01 1993 16:03 | 543 |
| 5.21 | INDEXFILE_EXTRACT.MAR. Mostly template. Hope it works some still. | STAR::VANDENHEUVEL | Cherish the bug you know. | Thu Jul 01 1993 16:08 | 169 |
| 5.22 | RMS dangling global buffer lock killer. | STAR::VANDENHEUVEL | Proud to be your Heineken bud. | Thu Sep 09 1993 13:24 | 262 |
| 5.23 | RMS_TRACE. Unprivved tool to provide trace for some applications. | STAR::VANDENHEUVEL | Proud to be your Heineken bud. | Thu Sep 30 1993 13:49 | 457 |
| 5.24 | SYS$MODIFY | STAR::VANDENHEUVEL | Old QARs never die, they just fade away (if you are lucky). | Tue Nov 09 1993 19:46 | 85 |
| 5.25 | Hack to set GBLPAGFIL. (see also note 11.4) | VMSINT::VANDENHEUVEL | Hein | Wed Dec 01 1993 03:31 | 61 |
| 5.26 | DUCATI::LASTOVICA | straight but not narrow minded | Wed Dec 01 1993 05:06 | 3 | |
| 5.27 | GET_FILE_SIZE | DYPSS1::DYSERT | Barry - Custom Software Development | Wed Jul 13 1994 14:50 | 58 |
| 5.28 | Sample RMS Program to create (preallocated) directory. | EPS::VANDENHEUVEL | Things that make you think, Hmmm... | Wed Aug 24 1994 17:15 | 80 |
| 5.29 | Report RMS index-seq. file fragmentation | SSDEVO::FROEHLIN | Life is hard but unjust | Thu Sep 01 1994 15:10 | 366 |
| 5.30 | Alternative RMS Monitor Statistics tool RMS_STATS.C | EPS::VANDENHEUVEL | Things that make you think, Hmmm... | Thu Dec 29 1994 14:43 | 580 |
| 5.31 | INDEX_FILE_BACKUP.C. Use topic 2899 to discuss. | EPS::VANDENHEUVEL | Things that make you think, Hmmm... | Wed Dec 20 1995 04:13 | 375 |
| 5.32 | BLOCKING.C, helps determining who holds (RMS) lock | EPS::VANDENHEUVEL | Things that make you think, Hmmm... | Wed Jan 24 1996 18:54 | 139 |
| 5.6 | Improved INDEXED_FILE_ZAP.MAR. Helps patching (remote) files. | EPS::VANDENHEUVEL | Don't fix it,if it ain't baroque | Fri Mar 22 1996 19:08 | 223 |
| 5.34 | IO$M_ERASE example, and (relative) file clear tool | EPS::VANDENHEUVEL | Hein | Mon Dec 16 1996 18:02 | 138 |
| 5.35 | RRV.C, count Buckets, Records and RRV's | UTRTSC::DORLAND | The Wizard of Odz2 | Thu Dec 19 1996 13:26 | 267 |
| 5.36 | RMS.XLS Excell indexed file sizing tool | EPS::VANDENHEUVEL | Hein | Mon May 05 1997 18:11 | 361 |
Included is a UUENCODED Excell V5 spreadsheet for easy
indexed file sizing excersizes. Makes for a pretty good
'what if' tool if I dare say so myself.
In case I messed up the encoding, try EPS::UTL:RMS.XLS
If you end up using this spreadsheet within a week or two
from posting, then kindly send me a quick mail to let me
know whether the encoded stuff worked, the file worked,
and nothably whether you think this little tool helps you.
(This is beerware).
Have fun,
Hein van den Heuvel
begin 777 rms.xls
MT,\1X*&Q&N$ /@ # /[_"0 & !
M ' $ _O___P #^____ !L #_____________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M______________________\*"0@( %!0 S$\H'X0 ,$ @ +\ "D
M 8 0 0#P P .( !< #8 $TAE:6X@=F%N(&1E;B!(975V96P@(" @
M(" @(" @(" @(" @(" @(" @(" @(" @(" @(" @0@ " .0$/0$" Z@ "
M /__G " X &0 " $@ " $P " /0 2 '@ AP ?.U0D.
M 0!8 D @ ! (T @ "( @ X @ ! -H @ #$ % #( _W^0
M 0 '@5!<FEA;#$ % #( $ _W^\ @ '@5!<FEA;#$ % #( (
M_W^0 0 '@5!<FEA;#$ % #( , _W^\ @ '@5!<FEA;#$ % #(
M _W^0 0 '@5!<FEA;#$ % 8 0 _W^0 0 ( '@5!<FEA;#$
M% #P _W^0 0 ( '@5!<FEA;#$ % #( _W^0 0 ( '@5!<FEA
M;#$ % 8 0 " "0 0 ( '@5!<FEA;#$ % #( " "0 0 ( '@5!
M<FEA;#$ % #P $ " "\ @ '@5!<FEA;!X$&@ % !<B)"(C+",C,%\I
M.UPH(B0B(RPC(S!<*1X$'P & !PB)"(C+",C,%\I.UM2960*75PH(B0B(RPC
M(S!<*1X$( ' !TB)"(C+",C,"XP,%\I.UPH(B0B(RPC(S N,#!<*1X$)0 (
M "(B)"(C+",C,"XP,%\I.UM2961=7"@B)"(C+",C,"XP,%PI'@0U "H ,E\H
M(B0B*B C+",C,%\I.U\H(B0B*B!<*",L(R,P7"D[7R@B)"(J("(M(E\I.U\H
M0%\I'@0L "D *5\H*B C+",C,%\I.U\H*B!<*",L(R,P7"D[7R@J("(M(E\I
M.U\H0%\I'@0] "P .E\H(B0B*B C+",C,"XP,%\I.U\H(B0B*B!<*",L(R,P
M+C P7"D[7R@B)"(J("(M(C\_7RD[7RA 7RD>!#0 *P Q7R@J(",L(R,P+C P
M7RD[7R@J(%PH(RPC(S N,#!<*3M?*"H@(BTB/S]?*3M?*$!?*1X$$ "D TP
M+C P,# P,# P,# PX 0 #U_R P" #@ ! 0 /7_(/3
M( . $ ! ]?\@], @ X 0 ( #U_R#TP"
M #@ ! @ /7_(/3 ( . $ ]?\@], @ X 0
M #U_R#TP" #@ ! /7_(/3 ( . $
M]?\@], @ * . $ ]?\@], @ X 0 #U_R#T
MP" #@ ! /7_(/3 ( . $ ]?\@], @
M X 0 #U_R#TP" #@ ! /7_(/3 ( .
M$ 0 @ , @ X 0 4 *P#U_R#XP" #@ ! !0 I
M /7_(/C ( . $ % "P ]?\@^, @ X 0 4 *@#U_R#X
MP" #@ ! !0 ) /7_(/C ( . $ & 0 C&, @
M X 0 "P ! " $P" #@ ! $ ($ O( $ .
M$ 0 @<"\@ 0 X 0 H ! "$8P" #@ ! !@
M $ (U@)( $ . $ * 0 A6 D@ 0 X 0 L ! "%8
M-R ! #@ ! !@ $ (U@8( $ . $ 0 @0 D@ 0
M X 0 ! "%0"2 ! #@ ! $ (' )( $ .
M$ % 0 B>"\@ 0 "@ X 0 < * 0 C6!L@ 0 X 0 @
M ! "-8&R ! #@ ! $ ($ ;( $ . $ ) , A
M_"X@ 0"2@$ @X 0 H "'X*2 ! ) 0"#@ ! "0 (?@N( $
MD ! (. $ @X"D@ 0"0 $ @X 0 L P ! "!<-R ! #@
M ! "@ $ (?@I( $ D ! (. $ 0 @X"D@@8"0 $ @X 0
M ! "!@+R ! #@ ! " $ (&@O( $ ),"! 0@ /_DP($
M !& !O^3 @0 $H $_Y,"! 3@ ?_DP($ " /^3 @0 %( %_X4 #0 M!P
M &4VAE970Q"@ D(" !1 ,Q/*!PL"$ 4 / ' 6%
M#0 " $ # " &0 #P " $ $0 " $ ( /RI\=)-8E _7P " $ *@ "
M *P " @@ " $ @ ( )0($ : &, 0 0 ! ($
M @#!!!0 P ")D$5 @ !U!A9V4@)E"# ( "$ ( "A "( ! $
M 0 ! 0 M. 2 . _ X#___U4 @ ( 'T # VQD*
M%0 0 ?0 , $ 0#;$1D $ 'T # " ( D@L/ $ ! !] P P #
M "0)%P 0 ?0 , 0 ! %Q< $ 'T # & 8 ) \/ ! @H
M 4 !P @"$ !P!H 0 $@ 0 " (0 $ ' "P! P
M !$@ ( A @ < + $ .QW $6 @"$ # !P#_ 0 14
M" (0 0 ' &@!!@ ! 0$( A !0 < + $$ !( 'Z1P@"$ &
M !P L 04 <U'" (0 < ' "P! P 7 !$@ ( A " <
M#@$ $ ( @"$ ) !P!H 0 TW< 1< " (0 H ' &@!
M !8$ ( A "P < _P !8 $ @"$ , !P#_ $@ 6%
M" (0 T ' /\ ! ( A #@ < _P &!0 $ @"$ /
M !P#_ $@ 41 " (0 ! ' /\ !%4 ( A $0 <
M: $ !50 $ @"$ 2 !P!H 0 %% 1( " (0 !, ' &@!
M ! $ AH !T $@ *3G5M8F5R(&]F(%)E8V]R9',Z?@(* 0 E
M ! GT & #D # "P (D 0 _\C $0&P )$!, !1 O P5$
M#, #!!4%1 ' 40-P ,#%09" <4 ! (? ! A !< 4F5C;W)D<R!P97(@
M9&%T82!B=6-K972^ H % !< '@ & 0"&P ! (@ 3 $%V97)A9V4@
M4F5C;W)D(%-I>F5^ @H 0 ! "8 !^0 8 .0 ! , +0 )!Z0
M!0 #_R, 1 ? D0%P )$"\ #!40-P ,$%05$ L !1 [ P,5!D(!Q0 $ AT
M 0 $ !< %0!+97ES('!E<B!I;F1E>"!B=6-K972^ H 0 % !< '@ & 0"
M$ " (@ ( $ME>2!3:7IE?@(* ( 0 F )$"^ P @ $ !@ %P >
M 8 O@ * , C "H 0 $ A, P % !< "P @(" @($)L;V-K<P$"!@ #
M 8 '@ $ AD ! !T $0!$871A($)U8VME="!3:7IE.GX""@ $ $ )P
M ") !@ E 0 P 7 X&M ' +_#P!$ , !1 # P8> 0!!( $$
M AX ! $ !@ %@!,979E;" P("AD871A*2!"=6-K971S!@ *'P $ 4 %P
M %R?0 "0 !_PD 1 3 T0$P $% 0(& 0 !@ > 0"&0 % (@ 1
M $EN9&5X($)U8VME="!3:7IE?@(* 4 0 F )$ & #8 !0 " \
M )$ X _\@ $0%P $> -&0(( "0%P $9" L ) 3 1D( P!" P$
M!@ L 4 P 7 / _ & /_%@!$!, #1 ' P8> 0!!( $> 0!"
M @< !@! 4 ! 8 ? %< /__ % 7_*@!$!< #08 &0(5 !</3&5V
M96P@,2!"=6-K971S&0@) !< &0@# $(# 0 ' A$ #P!,979E;" Q($)U8VME
M=',& !L !0 % !@ ", 5P __\( 8 !/\% $% 4 O 0L 4 "0 %!0,%
M(@!, ,#_08 &0(- $0% ), ,#_!1D("0 7 !D( P!" P$ !P(" 0(&
M 4 !@ > 0"( & (@ 8 $1A=&$@0G5C:V5T($9I;&P@4&5R8V5N= $"
M!@ & $ * & !L !@ " \ \#\( _X% $& ( O 0[ 8
M!P " @,",0 >9 >,@!, ,#_'@ #1D"" L ,#_&0@* !YD !D( P B P$
M0@(' $("!@ *'F0 !@8 &P & , %P %P!7 #__P@ !P #_P4 08 P"\
M!$P !@ ) ,# P1" $S__P!!@ 9 BT 3/__ !X! T9 A, 3/__ $0! ,&
M'@$ 02 !&0@) !< &0@# "(# 0 9" D %P 9" , 0@,! <" @ 8 0 &
M 0 & /P 7 #__P !@ %_RH 1 ; T& !D"%0 7#TQE=F5L(#(@0G5C
M:V5T<QD("0 7 !D( P!" P$ !P(" !@ ; 8 !0 8 %< /__" $
M 7_!0 !!0 % <" @ $"!@ & 8 '@ $ B$ !P "( &0!);F1E>"!"
M=6-K970@1FEL;"!097)C96YT 0(& < 0 F 8 &P ' ( #P #P
M/P@ !0 "_P4 08 @ & !L !P # !< !@ 5P __\( @ _\% $& ,
M!P(" !@! < ! 8 5 %< /__ ' 7_*@!$!\ #08 &0(5 !</
M3&5V96P@,R!"=6-K971S&0@) !< &0@# $(# 0 ' @( & !L !P % !@
M !X 5P __\( 4 !/\% $% 4 !P(" 0(& < !@ > +X "@ (
M) K $ !@ ; @ P 7 9 %< /__" *"0 #_P4 08 P ' @( &
M $ " $ !@ !8 5P __\ @ !?\J $0(P -!@ 9 A4 %P],979E;" T
M($)U8VME=',9" D %P 9" , 0@,! <" @ 8 &P ( 4 & '0!7 #_
M_P@ !P $_P4 04 !0 ' @( ! @8 " & !X ! (9 D = !$ 5&]T
M86P@06QL;V-A=&EO;CH& #( "0 ! "D "$GT H ?\< $0$P %$
M!, #!14E!< )P ,#&1!,$40%P (%%0,& !L "0 # !< !H 5P __\( D
M!/\% $& , !P(" !@! D ! 8 ; %< /__ ) 7_*@!$"< #
M08 &0(5 !</3&5V96P@-2!"=6-K971S&0@) !< &0@# $(# 0 ' @( &
M !L "0 % !@ !P 5P __\( @ !/\% $% 4 !P(" 0(& D !@ >
M 0"$P * '0 + %)O;W0@3&5V96PZ!@"! H 0 < / _ !E
M;#K]:P!$"< #08 &0(' !X% !D(6 !$", #08 &0(' !X$ !D(/@!$!\ #
M08 &0(' !X# !D() !$!L #08 &0(' !X" !D("@ > 0 9" , (@,! !D*
M" , (@,! !D( P B P$ &0@# $(# 0"^ H "@ % !< '@ & +X "@ +
M'@ ? $ ?@(* L P > @$ $ A< "P $ !X #P!">71E($)L;V-K('-I
M>F6^ H "P % !X '@ & +X # , '@ > !8 @!^ @H # # !X N
M0 0"' , 0 '@ 4 $)Y=&4@0G5C:V5T($]V97)H96%DO@ * P !0 > !X
M!@"^ H #0 !X '@ ! 'X""@ - , '@ "9 ! (< T ! > !0 0GET
M92!296-O<F0@3W9E<FAE862^ H #0 % !X '@ & +X # . '@ > !X
M @ & %L #@ # !X $ $ _]% $0$P ,> @ >& !!40$-&0('
M !X$ !D(*P!$!, #'@( 'A 05$!#1D"!P > P 9" H '@( &0@# "(# 0 9
M" , 0@,! 0"'0 . 0 '@ 5 $)Y=&4@2V5Y(%!O:6YT97(@4VEZ9;X "@ .
M 4 '@ > 8 O@ 4 \ > !X '@ > " '@ > 8 O@ 4 ! > !X
M'@ > " '@ > 8 O@ 4 !$ : !L '@ > " '@ > 8 O@ 4 !( :
M !L '@ > " '@ > 8 O@ *% 3 &@ ; !X '@ @ !X '@ & -< + "R
M"P ? &: )D ,@ O *, 30%Z >P K #Q *H 10!, $H G@ 8 !@ & 8 #X"
M"@"V!@ '0 / ,# 0 ! , P $!*L (@ @ *C_________
M________________________________"@
M
M
M
M
M
M
M
M *_O\ ,S @
M 0 ."%G_+Y3V@0JY$( "LGL]DP C 8
M ! . 0 ! " % 2 8 P !X $P
M (0 " Y 0 !X % 2&5I;@#___\> !0 $AE:6X ____
M'@ ! !-:6-R;W-O9G0@17AC96P 0 (#TA>T*Z[L! P
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M_O\ ,S @ 0 +5S=6<+AL0DY<( "LL^:XP
M F 8 ! . \ ! "P % 0 6 T
M !@ # ', " Y 0 !X ( 1&EG:71A; +
M L 'A $ ' 4VAE970Q P0 " '@ L !7
M;W)K<VAE971S , !
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M *
M
M
M
M
M
M
M
M
M
M
M
M * 0 ( # ! 4 & !P @ )
M"@ /[___\, #0 X / $ !$ 2 _O___Q0 5
M %@ !< 8 &0 !H #^_____?____[_________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M____________________________________________________________
M__________________________________\*4@!O &\ = @ $4 ;@!T '(
M>0 !4 %P%' 0 "P<14 N 4
M !8 !0'__________P( 0" ( , !& $#"@I\L5;P!
M0#'+@K15O '^____ 'AL<RE" &\ ;P!K
M "@ " ?__
M_____________P
M "1% 4 4P!U &T ;0!A '( >0!) &X 9@!O '( ;0!A '0
M:0!O &X H (! 0 , #_
M____ "P 0
M !496UP!0!$ &\ 8P!U &T 90!N '0 4P!U &T ;0!A '( >0!) &X 9@!O
M '( ;0!A '0 :0!O &X #@ @'_______________\
M 3 ! *
end
| |||||
| 5.37 | Doesn't work for me | GIDDAY::GILLINGS | a crucible of informative mistakes | Tue May 06 1997 04:16 | 6 |
Hein,
When I UUDECODE -.1, I get an XLS file, but it just hangs Excel. I tried
copying the file from EPS via an OpenVMS system. Excel starts successfully,
but I can't find anything useful. Just an empty sheet with a single cell A1
containing a rectangle character.
John Gillings, Sydney CSC
| |||||
| 5.38 | EPS::VANDENHEUVEL | Hein | Thu May 08 1997 04:46 | 16 | |
> Hein,
> When I UUDECODE -.1, I get an XLS file, but it just hangs Excel. I tried
My own PC is connected to a wrong network for days to come so I
have a hard time testing this. I exchanged mail with John, and
he was doing slightly special things (DECnet DOS, not Pathworks)
Anyone succesfully used the spreadsheet and/or new tuning presentation
in the same directory (EPS::UTL:RMS_TUNING.PPT) ? Kindly mail me.
[this reply will self-destruct and perhpas take the previous two
replies with it in a few days / weeks ]
hein.
| |||||
| 5.39 | QUARK::LIONEL | Free advice is worth every cent | Fri May 09 1997 13:16 | 4 | |
I tried UUDECODEing the XLS in .36 and my copy of Excel doesn't like it either. The copies I took from EPS:: worked fine. Steve | |||||
| 5.37 | GLOBAL_BUFFERS.MAR Open list of shared files and go to sleep. | EPS::VANDENHEUVEL | Hein | Wed Jun 04 1997 18:35 | 66 |
; GLOBAL_BUFFERS.MAR
; Simple program to open files specified to sys$input in shared mode and then
; go to sleep. The main intent is to create global buffers and/or file statis-
; tics blocks and keep them alive if the application occacionally closes files.
;
; Written in macro as that is present on all systems.
; Run for example with $SPAWN/NOWAIT/INPUT=<file-with-filenames GLOBAL_BUFFERS
; Stop with stop /id or STOP GLOBAL_BUFFERS.
;
; Have fun, Hein van den Heuvel, 1997
;
.PSECT code,exe,nowrt
.ENTRY START, ^M<>
MOVAL FAB,R8
PUSHAQ PROCESS_NAME
CALLS #1, G^SYS$SETPRN
input_loop:
MOVL #FILENAME_SIZE, FILENAME
PUSHAL FILENAME
PUSHAQ FILENAME_PROMPT
PUSHAQ FILENAME
CALLS #3, G^LIB$GET_INPUT
BLBC R0, wait_a_while
MOVB FILENAME, FAB$B_FNS(R8) ;Insert the filename size
CLRW FAB$W_IFI(R8) ;Walk away from previous open
$OPEN FAB=R8 ;Open the input file
BLBC R0, open_error ;See you later!
$CONNECT RAB=RAB
BLBS R0, input_loop ;Any more to connect?
open_error:
MOVL #FAO_OUTBUF_L, FAO_OUTBUF_D ;init size
PUSHAQ FILENAME ;6 File
PUSHL FAB$L_STV(R8) ;5
PUSHL R0 ;4 Error code
PUSHAL FAO_OUTBUF_D ;3
PUSHAL FAO_OUTBUF_D ;2
PUSHAL FAO_CTRSTR_D ;1
CALLS #5, G^SYS$FAO
PUSHAL FAO_OUTBUF_D
CALLS #1, g^LIB$PUT_OUTPUT
brw input_loop
wait_a_while:
PUSHL #0
CALLS #1, SYS$HIBER
BYE: RET
.PSECT data,noexe,wrt
FAB: $FAB FAC = GET, -
FNA = FILENAME_BUF, - ;Address of filename string
SHR = PUT
RAB: $RAB FAB = FAB, - ;Associated FAB
MBC = 2 ;Minimize buffers
PROCESS_NAME: .ASCID "GLOBAL_BUFFERS"
FILENAME_PROMPT:.ASCID "Please enter filename:"
FILENAME_BUF: .BLKB 80
FILENAME_SIZE = . - FILENAME_BUF
FILENAME: .LONG FILENAME_SIZE, FILENAME_BUF ;input buffer descriptor
FAO_CTRSTR_A: .ASCII "Error STS = !XL STV = !XL while opening !AS!\"
FAO_CTRSTR_L = . - FAO_CTRSTR_A
FAO_CTRSTR_D: .LONG FAO_CTRSTR_L, FAO_CTRSTR_A
FAO_OUTBUF_L = 200
FAO_OUTBUF_A: .BLKB FAO_OUTBUF_L
FAO_OUTBUF_D: .LONG FAO_OUTBUF_L, FAO_OUTBUF_A
.END START
| |||||
| 5.38 | GBLPAGFIL.MAR, Hack to bump GBLBAGFIL in a running system. | EPS::VANDENHEUVEL | Hein | Wed Jun 04 1997 18:39 | 22 |
; GBLPAGFIL.MAR, Hack to bump GBLBAGFIL in a running system.
; Written in macro as that is present on all systems.
; See also reply 5.25 for slightly more elaborated C example.
; Hein van den Heuvel, May-1997
.psect data,wrt,noexe
count: .long 2000
.external sgn$gl_gblpagfil, mmg$gl_gblpagfil;
.psect code,nowrt,exe
.entry set_gblpagfil,0
addl2 count, sgn$gl_gblpagfil
addl2 count, mmg$gl_gblpagfil
movl #1, r0
ret
.entry start,0
pushl #0
pushal set_gblpagfil
calls #2, g^sys$cmkrnl
ret
.end start
| |||||