cSYSPQL010C.BCKSYSPQL010C.BCKtBACKUP [.ALPHA]*.*;,[.VAX]*.*;,[.SRC]*.*;,[]*.COM,.DOC,*.TXT FREEWARE_DIR:SYSPQL010C.BCK/PROT=W:R/SAV/LOG/BLOCK=4096 GEGE V6.2 _LISZT:: _$1$DUA7: V6.2  @*[SYSPQL.ALPHA]SETSYSPQL.EXE;1+,G./ 4-G0123 KPWO5678gs}9C?GHJ (h (0@<hd SETSYSPQLV1.0A11-14@$ $ $  $ $J $( 8  DECC$SHR_0014& LIBOTS_001<}ESYS$BASE_IMAGE_001@lESYS$PUBLIC_VECTORS_001WSDEFAULTWSEXTENTPGFLQUOTATQELM1Invalid answer Code: %d `CPULIMDIOLMBIOLM00 P F ASTLMBYTLMFJTQUOTA&'PRCLMFILLMENQLMWSQUOTA0 0 Please set file SYS$LOADABLE_IMAGES:SYSPQL.DAT /NOMOVEError writing SYSPQL.DAT attributes, status=%08X Error reading SYSPQL.DAT attributes, status=%08X SYSPQL quota %s not changed: new value is lower Code:%10s: minimum:%8u; active:%8u; default:%8u :Illegal PQL parameter %s ignored  (0Error opening SYS$LOADABLE_IMAGES:SYSPQL.DATsaved SYSPQL.DAT has a bad version number; delete it and retry;SYSPQL.DAT saved VMS version mismatch: minimums loaded from running systemCreated SYS$LOADABLE_IMAGES:SYSPQL.DATsys$loadable_images:syspql.datP 0VSYSPQL010C.BCKGG[SYSPQL.ALPHA]SETSYSPQL.EXE;1s;#4G~^ ^(GG#(B  = > 0bzZkb# @ӈBGb4GoYZkG] ](0#kG#G~^^~޴>^ ~(08޵@GG#0"BGBZk?"b17$J&b_#\}`:FK4G0JB`4}4G@5JB@HB HH@0"{AZk&<=" G4G&!HŴDT4G @BHb@"aZkG(%IE"^_"^B4G^?&1" 1vH(}"bG4GGGGZkGݤ1$vH0vJ-%1v H0F"CR H2v@J2D e$.#.5/U/JW J8KZ XKF:GCCFFtF`@B4GHb"aZk G4G@BHb"|aZk 0D @B4GHbx"saZkGB4GbXZk¤ƠG,H05@BB#\B<CkGp"!!"!x"!"!"!"!0"!"!@"!"!"! "! "! ð"!àB=!b"h""tGRZk,(TGHC0BG0B8b"PZkG  %@@A&"@0D F.f.QJS qJ SF C FÜ`G.".GGJ0BV J8b"FCGGnPZkB"b4GPZk"B0@Zk GCGPB"bH""TGhvZk`B"hb4GNZkC 0B.4G8bPJ>P"MPZk4G GC`Bhb" ,4GA H  < E F G N N N N N N N N IJ                   R   r r sW~ r r    nL      __main `<0h0T0*[SYSPQL.ALPHA]SETSYSPQL.OBJ;1+,G./ 4 -G0123KPWO56}7!a 8!ː-9C?GHJEE SETSYSPQLV1.030-MAY-1995 12:18DEC C V4.0-000  $ABS$i<$CODE$h $LITERAL$0$LINK$$DATA$T$BSS$0 $READONLY$DECC$GA_RMS_FAB DECC$GXPRINTFDECC$GXSPRINTF DECC$GETS DECC$PUTS DECC$ATOL DECC$EXIT DECC$STRCAT DECC$STRLEN PQL$AR_SYSPQL PQL$GL_SYSPQLLENSYS$GQ_VERSION SYS$CREATESYS$QIOW(JMAIN(J__MAIN DECC$MAIN DECC$EXITOTS$MOVE =D<#4G~^ ^(GG#(B  = > 0b@Zkb# @ӈBGb4G@ZkG] ](0#kG#G~^^~޴>^ ~(08޵@GG#0"BG@Zk?"b17$J&b_#\}`:FK4G0JB`4}4G@5JB@HB HH@0"@Zk&<=" G4G&!HŴDT4G @BHb@"@ZkG(%IE"^_"^B4G^?&1" 1vH(}"bG4GGGG@ZkGݤ1$vH0vJ-%1v H0F"CR H2v@J2D e$.#.5/U/JW J8KZ XKF:GCCFFtF`@B4GHb"@Zk G4G@BHb"@Zk 0D @B4QSYSPQL010C.BCKGG[SYSPQL.ALPHA]SETSYSPQL.OBJ;1nGHbx"@ZkGB4Gb@Zk¤ƠG,H05@BB#\B<CkGp"!!"!x"!"!"!"!0"!"!@"!"!"! "! "! ð"!àB=!b"h""tG@Zk,(TGHC0BG0B8b"@ZkG  %@@A&"@0D F.f.QJS qJ SF C FÜ`G.".GGJ0BV J8b"FCGG@ZkB"b4G@Zk"B@Zk GCGPB"bH""TG@Zk`B"hb4G@ZkC 0B.4G8bPJ>P"@Zk4G GC`Bhb" ,4GA H <@ZkG,&,!.,HP J 0D C&.&J F 0BG8bTG"@Zkì A -% IA@ HCF G0BTG8b"@Zk4G$@ @GGc&lSIe-IB#v`HP¥ EbEe%"(%1v`J}"GTGG ޵G(G@Zk= v I 0D@G0BTG8bp"@Zk  e}"4GBG1v`IG G(GbG@Zk G-vIE)`8e$P% B+vxIb'H $$EPgA8}"GG1vHG ޵G(G@Zk G-vI 0E @0BG8bTG8"@Zk@@B4GHb@ZkG]G]}ݤ=] }(08ݥ@P#k4$GH DECC$MAIN4<b# DECC$MAIN4D@H DECC$MAIN4PGd DECC$EXIT4Xb# DECC$EXIT4`@d DECC$EXIT4GOTS$MOVE4@OTS$MOVE4b# SYS$CREATE4<GT SYS$CREATE4P@T SYS$CREATE4 G DECC$PUTS4 b# DECC$PUTS4 @ DECC$PUTS4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4 G DECC$PUTS4 b# DECC$PUTS4 @ DECC$PUTS4 G DECC$PUTS4 b# DECC$PUTS4 @ DECC$PUTS4 G DECC$PUTS4 b# DECC$PUTS4 @ DECC$PUTS4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4 tG DECC$GXPRINTF4 |b# DECC$GXPRINTF 4 @ DECC$GXPRINTF4G DECC$GETS4b# DECC$GETS4@ DECC$GETS4G DECC$STRLEN4qSYSPQL010C.BCKGG[SYSPQL.ALPHA]SETSYSPQL.OBJ;1 @ DECC$STRLEN4G DECC$STRCAT4b# DECC$STRCAT4@ DECC$STRCAT4 G DECC$ATOL4b# DECC$ATOL4 @ DECC$ATOL4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4 ,GL DECC$ATOL40b# DECC$ATOL4 H@L DECC$ATOL4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4<GSYS$QIOW4Lb#SYS$QIOW4@SYS$QIOW4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4DGSYS$QIOW4Lb#SYS$QIOW4@SYS$QIOW4 G DECC$GXPRINTF4 b# DECC$GXPRINTF4 @ DECC$GXPRINTF4 G DECC$PUTS4 b# DECC$PUTS4 @ DECC$PUTS =xkPlease set file SYS$LOADABLE_IMAGES:SYSPQL.DAT /NOMOVEError writing SYSPQL.DAT attributes, status=%08X p=@3Error reading SYSPQL.DAT attributes, status=%08X =@2SYSPQL quota %s not changed: new value is lower =@3Code:%10s: minimum:%8u; active:%8u; default:%8u :=0#Illegal PQL parameter %s ignored <=@8 (0x=8.Error opening SYS$LOADABLE_IMAGES:SYSPQL.DAT=PAsaved SYSPQL.DAT has a bad version number; delete it and retry;=XLSYSPQL.DAT saved VMS version mismatch: minimums loaded from running system@=0(Created SYS$LOADABLE_IMAGES:SYSPQL.DATD D= WSDEFAULT= WSEXTENT = PGFLQUOTA0=TQELM8=1@= Invalid answer X= Code: %dp DECC$GETS DECC$EXIT7DECC$GA_RMS_FAB SYS$CREATE=CPULIMDIOLM=BIOLM7SYS$GQ_VERSIONSYS$QIOW;;=0 ;=P ;  DECC$GXPRINTF DECC$PUTS;[rSYSPQL010C.BCKGG[SYSPQL.ALPHA]SETSYSPQL.OBJ;1W P DECC$ATOL=ASTLMh=BYTLMp7PQL$GL_SYSPQLLEN8OTS$MOVE7 PQL$AR_SYSPQLDECC$GXSPRINTF= JTQUOTA DECC$STRCAT DECC$STRLEN=PRCLM=FILLM=ENQLM= WSQUOTA=0 ;=0   DECC$MAIN =P4= 04666  ==='sys$loadable_images:syspql.dat? ?=/'& SETSYSPQLDEC C V4.0-000? ?= 4=TRANSFER$BREAK$GO# #= okassumes = # #= open_file = $ $=  write_file =  = 44= main4=nf  2\L 2 3 6 3 4 6 7 : : 9 : ; < > < E F G N N N N N N N N IJ                   R   r r sW~ r r    nL$ $= 4. .=  4= . .=  4=  =  = . .=  4=  = . .=  4= . .=  4=  =  = : := 4= ` `= 44= __main4: := `4=  =   *[SYSPQL.ALPHA]SYSPQL.EXE;1+,G./ 4-G0123KPWO56Iv 7*W8OME}9C?GHJMuYSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.EXE;1EL0h (0dSYSPQLV1A11-14(@@$$J<}ESYS$BASE_IMAGE_001@lESYS$PUBLIC_VECTORS_001>C~^ GG(F-`>CGGGGGGG4G0ͦG6G/T"@>CKm#pG6@KGC@(-CFGGFCGGGCk GG>C~^~ G(G@MCHm GBZk0M8m?ZkG~ (Ck>C~^GC4PKG@KGCkGk ?D `/ `K `/ `K?0.G`.0JS`Jt J"tF`> a/GaK @0.`/0J[`Kr J"rG`?t. tJ?kG#G~G ^TG(G" H(TTG0tGBZk@6.X@5BBr6HQ6J71B2F6>G"C "t#_G ](0#kG#tG~G^^~޴>^ GG#G="xGBp= | t=Gpx=">4G>]"b}"d"`"G~Zk`GŰp GG"b#4Gg_ӄ=%`BE"4Ghb"G~ZkG C Ű?"`F "b#b_Ӱ"b#__("b#\_Ө"b#Y_#ݦGFݶGJX.F@@K5,AGRXJ5H@s8HHSFX>z/D8,F@zK".@rUKA5H.J2D5z/D8,F@zK".@rVKA6H.J2D6.AG.!D@J"z/@`HUJ.zKF>8"X.tQKJx#RQJ`{JTFQ>. C HVJ#F>("b#_G "b#4Ga_G D [ %`""?D %b#}_@"b#z_("b#w_Ӏb#4GP"r_b#_ "Gb#A_ D &'s"RJ1v J0vJ4vJQF B ¦;>%SYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.EXE;1tY./F 6,Jv.X KE HS `JeF3DCCWG`GFV.4G6.VJQ6JQF%5i G(/e(KCSC$C=`75 C;`缷B#\BCkGpB!>B!<xB!:èB!8ÀB!6ðB!4B!2(B!0 B!.B!,B!*B!(B!&PB!$ P"b#D _.b#JC%_H=#  _ ,Y. HRYJs9H SFY>.9#J .xJ WJF>@/9#@K_ &`? b#F "_@"b#_("b#_P"b#_Gb#_@"b#_".b#.4GJW JFC_ "Gb#_ D .4GEH# %GJ6J4pJ?GCF,TFE? 4Gh/,8K %zKCPB0J@ H@`G"b#_0"b#_("b#_"b#_Gb#_Ӏb#4G"_G "b#\_ D .Ee"."J.2AJJPBPB0JV JpBFC?#4GF b#"4GG f_"b#c_("b#`_b#"\_Gb#Y_ "Gb#+_ D .4GEEJ3pJCrFx@..""PBJW JFCGl zF`4GGGC %` "?D %b#+_@"b#(_("b#%_"b#"_Gb#_P"BG(/". KuKY 6KWJ:GF6?>" b#"D  _h"b#_("b#_"b#_Gb#_b#"_.b#JUB_G ?"b#F "_"b#_("b#_Ӏb#"_Әb#.JC_"b#_Gb# "4G_ D ) A!?@GD{% E"_ `BhbG"{Zk G"b#E _"b#_("b#_"WG E"b#G _E E_"b#_("b#_Ӏb#GX"_@ݦ?#F@ݶJX/F@Iu,EZXKuH@`xH I@GX?. !E.D @Jx").@{ITJA.)JF>".`6IAJx WJp#HF>X/ C9"HZCK#PGC??8"G "b#E `_ "b#]_("b#Z_ "b#V_G "b#4G'_ % ?E %0B4G8b{ZkGGG E"b# _E E=_"b#:_("b#7_Ӏb#4G3_ "Gb#_ E G]]}ݤ=] 0#k[SYS$LDR]SYSPQL.DAT0 `0 h 0 0 `mWSEXTENTAdded ENQLMPGFLQUOTAWSDEFAULTE-ERRUPDW-NOTUPD0W-SETMIN set to minimumI-RAISED 2CPULIMFILLMBIOLMParameter %SYSPQL-0 0 p, `I-DEBUGCode: 2ASTLMBYTLMDIOLME-NOFILE; read: open :I-STATUSW-INVPQLI-UPDDEFPARSkippedF-BADVERSI-UPDATEDWSQUOTATQELMPRCLMI-ADDEFPAR; Value: JTQUOTA0  0 0( "--0  SYSPQL.DAT version mismatchSYSPQL.DAT not updated, file is not set /NOMOVEError updating SYSPQL.DAT, status=Updated SYSPQL.DATInvalid system PQL parameter number value raised to Updated default parameter to default parameter list08@HPX` ߱SYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.EXE;1hpxSystem PQL length is Error opening SYSPQL.DAT, status=0123456789ABCDEFTXx4,8@ hPsx`s@p@ @SYS$BASE_IMAGE@SYS$PUBLIC_VECTORS@@SYSPQLV130-MAY-1995 12:1830-MAY-1995 12:18Linker A11-14  .$$ABS$$. *[SYSPQL.ALPHA]SYSPQL.MAP;1+,G.$/ 4$n-G0123KPWO56L7d8ΐ-9C?GHJ SYSPQL.EXE 30-MAY-1995 12:18 Linker A11-14 Page 1G +------------------------+G ! Object Module Synopsis !G +------------------------+lModule Name Ident Bytes File Creation Date Creatorl----------- ----- ----- ----- ------------- -------nSYSPQL_INIT V1 588 SYSPQL_INIT.OBJ;1 30-MAY-1995 12:18 AMAC V2.0-22pSYSPQL V1.0 5648 SYSPQL.OBJ;1 30-MAY-1995 12:18 DEC C V4.0-000oSYS$BASE_IMAGE ALPHA X5SC-E5N 0 [SYS$LDR]SYS$BASE_IMAGE.EXE;1 2-APR-1994 06:49 Linker T11-11SYS$PUBLIC_VECTORS o X-33 0 [SYSLIB]SYS$PUBLIC_VECTORS.EXE;2 12-SEP-1994 12:40 Linker T11-11 USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 2G +------------------------+G ! Image Section Synopsis !G +------------------------+~ Cluster Type Pglts Base Addr Disk VBN PFC Protection and Paging Global Sec. Name  SYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.MAP;1$ Match Majorid Minorid~ ------- ---- ----- --------- -------- --- --------------------- ---------------- ----- ------- -------INITIALIZATION_PSECTS N 4 13 00000000-R 3 0 READ WRITE COPY ON REFP 2 1 00010000-R 16 0 READ WRITE FIXUP VECTORSSYS$BASE_IMAGE 1 82 00000000-R 0 0 READ ONLY EXECUTABLE SYS$BASE_IMAGE_0 EQUAL 69 8197348 1 216 0000C000-R 0 0 READ WRITE COPY ON REF SYS$BASE_IMAGE_0 EQUAL 69 8197348 2 7 00028000-R 0 0 READ WRITE FIXUP VECTORS SYS$BASE_IMAGE_0 EQUAL 69 8197348SYS$PUBLIC_VECTORS  2 11 00000000-R 0 0 READ ONLY EXECUTABLE SYS$PUBLIC_VECTO EQUAL 69 12837996 1 33 00004000-R 0 0 READ WRITE COPY ON REF SYS$PUBLIC_VECTO EQUAL 69 12837996 2 1 0000C000-R 0 0 READ WRITE FIXUP VECTORS SYS$PUBLIC_VECTO EQUAL 69 12837996$ Key for special characters above: +--------------------+ ! R - Relocatable ! ! P - Protected ! +--------------------+ USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 3H +--------------------------+H ! Program Section Synopsis !H +--------------------------+kPsect Name Module Name Base End Length Align Attributesk---------- ----------- ---- --- ------ ----- ----------. BLANK . 00000000 00000000 00000000 ( 0.) OCTA 4 NOPIC,CON,REL,LCL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL_INIT 00000000 00000000 00000000 ( 0.) OCTA 4$BSS$ 00000000 000001C7 000001C8 ( 456.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL 00000000 000001C7 000001C8 ( 456.) OCTA 4$CODE$ 000001D0 000012F3 00001124 ( 4388.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL_INIT 000001D0 0000035B 0000018C ( 396.) QUAD 3Q SYSPQL 00000360 000012F3 00000F94 ( 3988.) OCTA 4$DATA$ 00001300 00001317 00000018 ( 24.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL 00001300 00001317 00000018 ( 24.) OCTA 4$LINK$ 00001320 00001608 000002E9 ( 745.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL 00001320 00001608 000002E9 ( 745.) OCTA 4$LINKAGE 00001610 000016CF 000000C0 ( 192.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL_INIT 00001610 000016CF 000000C0 ( 192.) OCTA 4$LITERAL$ 000016D0 0000185A 0000018B ( 395.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL 000016D0 0000185A 0000018B ( 395.) OCTA 4$READONLY$ 00001860 00001887 00000028 (  8GG[SYSPQL.ALPHA]SETSYSPYU;OBJ;1d $,8 &iSٴ#wե~zh#Z~}Ԥ(c^3䲨[+f5J6h܅a>e_o!-s0u`V 1HhXiGCGdѫb S6%A]/N7$:$c ]!0$aXǯ;:̍r(Ac{J *.(̝E9s9m)[JKI>XC ˅M%:ea(0΋>e~-|ZIZKeS' %qm.3/Zi;zC>wT^D~@HM= 0x-eipOtnzK@7uWx[ Eܲhd @d4wjo(1H 1<=.A_0" u jaԣ唜9Nܠ]Û-K$mUx ήv<,NO~wAJU?C{ kb;ȵ?/k{s`!a;$U&5B YK* , iNDˆPA$3'?Sl6z&d9֑(:;VYC#+(YuUˀ[Oz;tȃa{1uIf35Iou缑_pIjkY";i%U T?~;0H15c%_jy ՁQ_5g#Ir͝'Z1ύ3xCWe/sy .ajc2O@3repF-TiާbْM2h"y@M{R mC#985=#0 S RH^=gYwYU0&8𶅙Cf}\lI$EN&}^+ED%dkdg^K8>Gi_,m+9vHSc0/P_SG׹ڻb.HHw2;45o*\i5J8Ywhړ,E#6PSf%٨ɹ"Oy .*#)۠t- 1nsK}l$'=l?G5[2(c1T,Kta,ս[(.s+W[@ij 1Ũ]Pn=k <,#(ʉ׺S9_}/9Ƣ>[ mce6@="*LtJf7#|V7mhN-]g.('pHa1rf\&5SlbX?Zm۲wkGĕ@ 1m+d%:[.*qDyN+>}j{>~3jISd?9prwYv)FiGyFQ6Г= Dtb7wz,Z`bJlҿ*pD>* pFKx~6,.Fh2 p" R'=\]'ZLUlv?Zo`Y6 Ѐ yj$!w5[Iba$k+% 6& >fns4gl^a`~`YCoEJs+8[ vʕJtոVin:@ =>ŵ^k}Ey*'~KѴ @71ӂi~ z>d[mCW@;H T8 bhwzxmG k"LoDv{D;0GGWGE>yԞBh+gF#;^ ԯvJQ& X9lV6";,L[Czf#BPa?xS qzbhli'嵂ԇ~}^m41)V3GyA .zxaReԅ]\&)ezʰJBi:oR 4I+6~}.y[\|SesuZsBŌ1mriFN߃/hw%W/_9Ib2xE?Jd#I/7TZ{/m,D]|(w29 B9.#5beV_vgf4\LKU{Lm22&w]-vc3?r5_oahJURu]Z]9ic!x`TƄ|(H 6z|?Lm\HHwMYsgy{i_xieR5jvljsw* .B1+ e;hz/y͇OHD.s'"dinGp1 5WZ aG3[4ocF@ϲn H[Q:=XG5p}K&FI5/\ragfLe6!TZi1 C%#'ee7B0pSgT`P6RKYr'LPs4_I$D|6eBJP0I 8^ڧ{LGnc=&# GRO!w}TGpn4MS5$C_a ]b'5-FNa~:.BBJ)e^Zt ns޺9cRLr2{7Ws4,@z?M~+$ry48 Λ јSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.MAP;1$Z 40.) OCTA 4 PIC,CON,REL,GBL,NOSHR, EXE, WRT,NOVEC, MOD Q SYSPQL 00001860 00001887 00000028 ( 40.) OCTA 4 USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 4C +-----------------+C ! Symbols By Name !C +-----------------+Symbol Value Symbol Value Symbol Value ------ ----- ------ ----- ------ ----- XCHECK_NOMOVE 000016B0-R XCONSPRINTF 00001660-R XEXE$GL_STATE 00009900-RX XEXE$GPQ_SWRPB 00009B20-RX XEXE$OUTCRLF 00002DB0-RX XEXE$OUTZSTRING 00002DF0-RX XFIL$OPENFILE 00003200-RX XFIL$RDWRTLBN 00003220-RX XIMAGE_INIT 00001610-R XOTS$DIV_UI 00006D60-RX XPQL$AR_SYSPQL 00007350-RX XPQL$GL_SYSPQLLEN 00007360-RX XSYS$DASSGN 00000230-RX XSYS$GQ_VERSION 00008040-RX XSYS$K_VERSION 00000000-X XSYS$K_VERSION_01 00000010-X XSYS$K_VERSION_02 00000020-X XSYS$K_VERSION_03 00000030-X XSYS$K_VERSION_04 00000040-X XSYS$K_VERSION_05 00000050-X XSYS$K_VERSION_06 00000060-X XSYS$K_VERSION_07 00000070-X XSYS$K_VERSION_08 00000080-X XSYS$K_VERSION_09 00000090-X XSYS$K_VERSION_10 000000A0-X XSYS$K_VERSION_11 000000B0-X XSYS$K_VERSION_12 000000C0-X XSYS$K_VERSION_13 000000D0-X XSYS$K_VERSION_14 000000E0-X XSYS$K_VERSION_15 000000F0-X XSYS$K_VERSION_16 00000100-X XSYS$K_VERSION_17  $SYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.MAP;1$[ 0000A6F0-X XSYS$K_VERSION_18 0000A700-X XSYSPQL 000014B0-R  USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 5PD +------------------+D ! Symbols By Value !D +------------------+2Value Symbols...2----- ---------- 00000000 X-SYS$K_VERSION 00000010 X-SYS$K_VERSION_01 00000020 X-SYS$K_VERSION_02 00000030 X-SYS$K_VERSION_03 00000040 X-SYS$K_VERSION_04 00000050 X-SYS$K_VERSION_05 00000060 X-SYS$K_VERSION_06 00000070 X-SYS$K_VERSION_07 00000080 X-SYS$K_VERSION_08 00000090 X-SYS$K_VERSION_09 000000A0 X-SYS$K_VERSION_10 000000B0 X-SYS$K_VERSION_11 000000C0 X-SYS$K_VERSION_12 000000D0 X-SYS$K_VERSION_13 000000E0 X-SYS$K_VERSION_14 000000F0 X-SYS$K_VERSION_15 00000100 X-SYS$K_VERSION_16 00000230 RX-SYS$DASSGN 000014B0 R-SYSPQL 00001610 R-IMAGE_INIT 00001660 R-CONSPRINTF 000016B0 R-CHECK_NOMOVE 00002DB0 RX-EXE$OUTCRLF 00002DF0 RX-EXE$OUTZSTRING 00003200 RX-FIL$OPENFILE 00003220 RX-FIL$RDWRTLBN 00006D60 RX-OTS$DIV_UI 00007350 RX-PQL$AR_SYSPQL 00007360 RX-PQL$GL_SYSPQLLEN 00008040 RX-SYS$GQ_VERSION 00009900 RX-EXE$GL_STATE 00009B20 RX-EXE$GPQ_SWRPB 0000A6F0 X-SYS$K_VERSION_17 0000A700 X-SYS$K_VERSION_18$ Key for special characters above: +--------------------+ ! * - Undefined ! ! A - Alias Name ! ! I - Internal Name ! ! U - Universal ! ! R - Relocatable ! ! X - External ! ! WK - Weak ! ! M - Mask value ! +--------------------+ TUSR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 6 C +----------------+TC ! Image Synopsis !LC +----------------+ hVirtual memory allocated: 00000000 0001FFFF 00020000 (131072. bytes, 256. pages)AStack size: 0. pages-UImage header virtual block limits: 1. 2. ( 2. blocks) UImage binary virtual block limits: 3. 16. ( 14. blocks) ;Image name and identification: SYSPQL V1-;System component mask: 0000102805 SYS$K_VERSION_FILES_VOLUMES 2,0X6 SYS$K_VERSION_SYSGEN 1,646 SYS$K_VERSION_STABLE 1,64;Number of files: 5. ;Number of modules: 4.O;Number of program sections: 12.8;Number of global symbols: 15.0;Number of image sections: 8.,:User transfer address: 00001610;Number of code references to shareable images: QSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.MAP;1$) 30. ~Image type: PIC, SHAREABLE. Global Section Match=EQUAL, Ident, Major=18, Minor=1049068wMap format: FULL in file USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.MAP;10<Estimated map length: 32. blocksE +---------------------+ E ! Link Run Statistics !LE +---------------------+ESPerformance Indicators Page Faults CPU Time Elapsed Time,S---------------------- ----------- -------- ------------ U Command processing: 33 00:00:00.03 00:00:00.130U Pass 1: 106 00:00:00.11 00:00:00.64 U Allocation/Relocation: 0 00:00:00.02 00:00:00.13$U Pass 2: 4 00:00:00.01 00:00:00.23BU Map data after object module synopsis: 3 00:00:00.01 00:00:00.040U Symbol table output: 0 00:00:00.02 00:00:00.32EUTotal run values: 146 00:00:00.20 00:00:01.52 XUsing a working set limited to 5648 pages and 81 pages of data storage (excluding image)5Total number object records read (both passes): 568 V of which 0 were in libraries and 100 were DEBUG data records containing 5127 bytes6Number of modules extracted explicitly = 01 with 0 extracted to resolve undefined symbols ?1 library searches were for symbols not in the library searched 4A total of 9 global symbol table records was writtenLINK/NOSYSSHR/NOTRACEBACK/SHARE=SYSPQL.EXE/CONTIGUOUS/MAP=SYSPQL.MAP/FULL/SYMBOL=SYSPQL.STB/SYSEXE/NODEMAND_ZERO SYS$INPUT/OPTIONRsyspql_init.obj syspql.objsymbol_table=GLOBALSpsect_attr=$CODE$,NOSHR,WRT,EXE9"psect_attr=$LITERAL$,NOSHR,WRT,EXE USR$ADMIN:[GEGE.SYSTEME.KERNEL.SYSPQL.ALPHA]SYSPQL.EXE;1 30-MAY-1995 12:18 Linker A11-14 Page 7 #psect_attr=$READONLY$,NOSHR,WRT,EXE #psect_attr=$DATA$,NOSHR,WRT,EXE,PIC #psect_attr=$LINK$,NOSHR,WRT,EXE,PIC %psect_attr=$LINKAGE,NOSHR,WRT,EXE,PICN&psect_attr=$BSS$,NOSHR,WRT,EXE,MOD,PIC)psect_attr=OTS$LINK,NOSHR,WRT,EXE,MOD,PICI$psect_attr=OTS$LIT,NOSHR,WRT,EXE,MOD!psect_attr=OTS$CODE,NOSHR,WRT,EXE >COLLECT=INITIALIZATION_PSECTS/ATTRIBUTES=INITIALIZATION_CODE,-G $CODE,$CODE$,$DATA$,$DATA,$LINK$,$LINKAGE,$LITERAL$,$READONLY$,$BSS$,-0 OTS$LIT, OTS$CODE, OTS$LINK XPQL$AR_SYSPQL 00007350-RX XPQL$GL_SYSPQLLEN 00007360-RX XSYS$DASSGN 00000230-RX XSYS$GQ_VERSION 00008040-RX XSYS$K_VERSION *[SYSPQL.ALPHA]SYSPQL.OBJ;1+,G.$/ 4$-G0123KPWO56#7 8Ɛ-9C?GHJXSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.OBJ;1$^BBSYSPQLV1.030-MAY-1995 12:18DEC C V4.0-000  $ABS$i$CODE$ $LITERAL$$LINK$$DATA$$BSS$( $READONLY$ CONSPRINTF PQL$AR_SYSPQL PQL$GL_SYSPQLLENSYS$GQ_VERSION FIL$OPENFILE FIL$RDWRTLBN CHECK_NOMOVE SYS$DASSGN(JHSYSPQL OTS$DIV_UI =Gk ?D `/ `K `/ `K?0.G`.0JS`Jt J"tF`> a/GaK @0.`/0J[`Kr J"rG`?t. tJ?kG#G~G ^TG(G" H(TTG0tG@Zk@6.X@5BBr6HQ6J71B2F6>G"C "t#_G ](0#kG#tG~G^^~޴>^ GG#G="xGBp= | t=Gpx=">4G>]"b}"d"`"G@Zk`GŰp GB"b4G@Zk=%`BE"4Ghb"G@ZkG C Ű?"`F "b#b_Ӱ"b#__("b#\_Ө"b#Y_#ݦGFݶGJX.F@@K5,AGRXJ5H@s8HHSFX>z/D8,F@zK".@rUKA5H.J2D5z/D8,F@zK".@rVKA6H.J2D6.AG.!D@J"z/@`HUJ.zKF>8"X.tQKJx#RQJ`{JTFQ>. C HVJ#F>("b#_0B "8b4G@ZkG D [ %`""?D %b#}_@"b#z_("b#w_Ӏb#4GP"r_b#_ "0B8b@Zk D &'s"RJ1v J0vJ4vJQF B ¦./F 6,Jv.X KE HS `JeF3DCCWG`GFV.4G6.VJQ6JQF%5i G(/e(KCSC$C=`75 C;`缷B#\BCkGpB!>B!<xB!:èB!8ÀB!6ðB!4B!2(B!0 B!.B!,B!*B!(B!&PB!$ P"b#D _.b#JC%_H=#  _ ,Y. HRYJs9H SFY>.9#J .xJ WJF>@/9#@K_ &`? b#F "_@"b#_("b#_P"b#_Gb#_@"b#_".b#.4GJW JFC_ "0B8b@Zk D .4GEH# %GJ6J4pJ?GCF,TFE? 4Gh/,8K %zKCPB0J@ H@`G"b#_0"b#_("b#_"b#_Gb#_Ӏb#4G"_0B "8b@Zk D .Ee"."J.2AJJPBPB0JV JpBFC?#4GF b#"4GG f_"b#c_("b#`_b#"\_Gb#Y_ "0B8b@Zk D .4GEEJ3pJCrFx@..""PBJW JFCGl zF`4GGGC %` "?D %b#+_@"b#(_("b#%_"b#"_Gb#_P"BG(/". KuKY 6KWJ:GF6?>" XwSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.OBJ;1$ b#"D  _h"b#_("b#_"b#_Gb#_b#"_.b#JUB_G ?"b#F "_"b#_("b#_Ӏb#"_Әb#.JC_"b#_0B8b "4G@Zk D ) A!?@GD{% E"_ `BhbG"@Zk G"b#E _"b#_("b#_"WG E"b#G _E E_"b#_("b#_Ӏb#GX"_@ݦ?#F@ݶJX/F@Iu,EZXKuH@`xH I@GX?. !E.D @Jx").@{ITJA.)JF>".`6IAJx WJp#HF>X/ C9"HZCK#PGC??8"G "b#E `_ "b#]_("b#Z_ "b#V_0B "8b4G@Zk % ?E %0B4G8b@ZkGGG E"b# _E E=_"b#:_("b#7_Ӏb#4G3_ "0B8b@Zk E G]]}ݤ=] 0#k4G OTS$DIV_UI 4t#( OTS$DIV_UI4@ OTS$DIV_UI4G FIL$OPENFILE4b# FIL$OPENFILE4@ FIL$OPENFILE4G$ CHECK_NOMOVE4b# CHECK_NOMOVE4 @$ CHECK_NOMOVE4 0GP FIL$RDWRTLBN4 @b# FIL$RDWRTLBN4 L@P FIL$RDWRTLBN4 xG CONSPRINTF4 b# CONSPRINTF4 @ CONSPRINTF4 G CONSPRINTF4 b# CONSPRINTF4 @ CONSPRINTF4 PG\ CONSPRINTF4 Tb# CONSPRINTF4 X@\ CONSPRINTF4  G CONSPRINTF4  b# CONSPRINTF4  @ CONSPRINTF4  G CONSPRINTF4  b# CONSPRINTF4  @ CONSPRINTF4  G CONSPRINTF4  b# CONSPRINTF4  @ CONSPRINTF4  G CONSPRINTF4  b# CONSPRINTF4  @ CONSPRINTF4  G FIL$RDWRTLBN4  b# FIL$RDWRTLBN4  @ FIL$RDWRTLBN4 G CONSPRINTF4 b# CONSPRINTF4 @ CONSPRINTF4G SYS$DASSGN4b# SYS$DASSGN4@ SYS$DASSGN4 @GL CONSPRINTF4 Db# CONSPRINTF4 H@L CONSPRINTF =(SYSPQL.DAT version mismatch =@1SYSPQL.DAT not updated, file is not set /NOMOVEX=0$Error updating SYSPQL.DAT, status== Updated SYSPQL.DATxSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.OBJ;1$?=0&Invalid system PQL parameter number =  value raised to =(Updated default parameter =( to default parameter list=@808@HPX`hpxP= System PQL length is h=+#Error opening SYSPQL.DAT, status=u u=0 ;=0 ; ;=0 ;=0 P OTS$DIV_UI= WSEXTENTp=Added ENQLM= PGFLQUOTA= WSDEFAULT= E-ERRUPD= W-NOTUPD SYS$DASSGN= W-SETMIN=  set to minimum= I-RAISED CHECK_NOMOVE FIL$OPENFILE;=CPULIMFILLMH7 PQL$AR_SYSPQL=BIOLMX7PQL$GL_SYSPQLLEN= Parameter p7SYS$GQ_VERSION;= %SYSPQL-=0 H;=0 ;=,  CONSPRINTF= I-DEBUG=Code:  FIL$RDWRTLBN=ASTLM=BYTLM=DIOLM= E-NOFILE(= ; read: 8= open :I-STATUSP= W-INVPQL`= I-UPDDEFPARp= Skipped= F-BADVERS= I-UPDATED= WSQUOTA=TQELM=PRCLM= I-ADDEFPAR= ; Value: = JTQUOTA4 4=[SYS$LDR]SYSPQL.DATy y===0123456789ABCDEF< <=,$#SYSPQLDEC C V4.0-000v v= 44= okassumes4=  $ $= 4: := 4= ! !=doprint = x x= 44=printstr4= ! Ԙ$ $= 4: := 4=  = 4(4=printdec4=:21 &  &  &  ,  - $ $= 4: := ,4= " "=printhex = " "=printini = # #= my_strcpy = # #= read_file = % %=!_aTSYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.OBJ;1$y update_file = $ $=  close_file =  = H44= syspqlH4=d\  i 0 l -< l  h  i  h  j 4 k   l $ F c = D F c F c H b =  ; p ;  =  =  = l <  =  <  < m =  ; r ;  =  =  = l <  =  <  <   )l F  F l H k < x =  ;  =  =  = l <  =  <  <      F t F w G  F t H s                    Q  Q  Q  Q  F  F  F  H      F  F  F   F  G  H     D F    F  G  F  H     ,     F  F  F  H   , G  F  F  H   F  F  H    ]  F E  F  G  F  H  4  F  F  H  <  ;  ;  =  =  = l <  =  <  <  F  F  H   'E  F  F | H {      8$ $= L4. .=  H4= . .=  H4= . .=  G4=  = . .=  G4=  = . .=  G4=  =  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  =  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .x㌧SYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL.OBJ;1$=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  G4=  = . .=  L4=  = : := X4= L =  *[SYSPQL.ALPHA]SYSPQL.STB;1+,G. / 4 X-G0123KPWO56e,7(GJ8q}9C?GHJ@@SYSPQLV130-MAY-1995 12:1830-MAY-1995 12:18Linker A11-14  .$$ABS$$. 0JSYSPQL8J  CHECK_NOMOVE0J`` CONSPRINTF0J IMAGE_INIT *[SYSPQL.ALPHA]SYSPQL_INIT.OBJ;1+,G. / 4h -G0123KPWO56-7Q8͐-9C?GHJEE SYSPQL_INITV130-MAY-1995 12:18AMAC V2.0-22 $LINKAGE$CODE$ $ABS$ . BLANK . . ABS . EXE$GL_STATE EXE$GPQ_SWRPBSYSPQLEXE$OUTZSTRING EXE$OUTCRLF0J IMAGE_INIT0JP CONSPRINTF0JP CHECK_NOMOVE =0 ;= =7 EXE$GL_STATE7 EXE$GPQ_SWRPB@SYSPQL"=0 ;=0( ="  EXE$OUTCRLF EXE$OUTZSTRING=0P;= h h=>C~^ GG(F-`>CGGGGGGG4G0ͦG6G/T"@>CKHmpG6@K@MC@Zk(-CFGGFCGGGCk GG>C~^~ G(G@MCHm G@Zk0M8m@ZkG~ (Ck>C~^GC4PKG@KGCk,|m#SYSPQL,GSYSPQL,@SYSPQL4G(EXE$OUTZSTRING4m#P#ESYSPQL010C.BCKGG[SYSPQL.ALPHA]SYSPQL_INIT.OBJ;1h EXE$OUTZSTRING4$@(EXE$OUTZSTRING4(G4 EXE$OUTCRLF4,m#P EXE$OUTCRLF40@4 EXE$OUTCRLF  ІHSYSPQL010C.BCKGGYSPQL.VAX]SETSYSPQL.EXE;1 ޿*[SYSPQL.VAX]SETSYSPQL.EXE;1+,G. / 4 -G0123 KPWO 56a07U08w{|9C?GHJ 0D`0205/ h SETSYSPQLV1.03/05-13P  ?!! DECC$SHR_001Q! MTHRTL_001! LIBRTL_001$+CMA$TIS_SHR_001( 0sys$loadable_images:syspql.datCreated SYS$LOADABLE_IMAGES:SYSPQL.DATsaved SYSPQL.DAT has a bad version number; delete it and retry;SYSPQL.DAT saved VMS version mismatch: minimums loaded from running systemError reading SYSPQL.DAT attributes, status=%08X Error writing SYSPQL.DAT attributes, status=%08X Please set file SYS$LOADABLE_IMAGES:SYSPQL.DAT /NOMOVEError opening SYS$LOADABLE_IMAGES:SYSPQL.DATSystem PQL length is %d ASTLMBIOLMBYTLMCPULIMDIOLMFILLMPGFLQUOTAPRCLMTQELMWSQUOTAWSDEFAULTENQLMWSEXTENTJTQUOTACode: %dIllegal PQL parameter %s ignored Code:%10s: minimum:%8u; active:%8u; default:%8u :1Invalid answer SYSPQL quota %s not changed: new value is lower SYSPQL quota %s not changed: new value is lower <^\QR(PbԐЏPTT1TϽ  1P|~<~l|~1<~ PTT?PZ}ZuZmZeZ]ZUZMZEZ=Z5Z-Z%ZZZe~ZeRRZf1PeRBY$ ХX  XYB˜XYݥXZf PRT\R\\S8gPBϹfTBgPTSJեeRRծ8Zϒf-ѮeRЮBeRxRRRPZϗfTT1CU1Aϩϥk ϙPRn RRPje  e ~BJ;1  Qy7$uSF5qA&| \| V8gfmZ )^G^kiE@q67r wH*$ `W> P@X><)$^`j g>țP9~gbKbquӣU!^V̺Fm+]R+T~G~hYޠŽ+dI@Yiq>oY 9O%:NY6ԨkZ;#t=^ZuViM iփ-ft޷4سZ4tii׋,E%;>,A"pU`sp?0G`6-5o[5^9-)M|F;_ J_7pJomoz1b˙}K7aHIp~d}pPR:^q ~jphOJvAVeM\8|i d5?_K|,V 0$os8 ,Խa3D UC)ץhNz3W+@dc.a)I``a332%%pi;ѓh̭كMcdR^Lv:i;h{j\l JO/v0i)]G#H/9Dn M\#%-)o , y021?3-榰W,ubL`Q!yyѴD@`z:I0at0q)s 6&&MGE5V}a]snl34L7y 2>PY!l2+y~#kF0H^펠5E NJ y+g.tV$J(aW}CDh$={Ò!EKpChR``vCtÏ%ZU%(vڷ^'+:"~*`ioWa¸,Q8!\I~ʲyQT3&COhD40~ yʇ$H24Z?q dT>=h=ˍKzG(u<=VHq`XGmBu W2A鐘_/jz[)_ yg9qLYn:"= H6Gm/nE _䝫X *d.=6Skq4zp"'VM|l6Wtq9 Oz=Z ,N mL>I6ق4'3/n$1X6M"+#{tBRܻ}e>d mnKE:2LZ.o?x2 bh/F|eu~,{Mq;T*j/'I YwԹ*S;  G;e7EL'$\TL+#% qA;v3$t]ÂaBZK:>FLl &1m~.;8)M94X%5@k,Mx?J=RVNa7Z5d&YJ>YE)gRW(4Pmi}g8`ݜ<>].J~_h}5a#T 5.<@q(F C*)0/ćW}4_h_=>sr%q[9%SAl"Z\mnQM0|_tSB8çEי\;Lz)Ss״c8 )mQ,l> {sþO^EpfMxSO8ӊ{R)l5L= 2̖ )N骉! m(˹jq}R%!F Ljdh+\Nް N#@DK ZYAo[s.TPOI#8\.j2 1-Ѱsl :Vl&Ib}$W) "Nt#de ll?ud\!uR,_vo8ag1zJLv_0깜IS*S5'S5TOev}=4oty 7v}~A3h/BqE ˡf oɓ|R~2.i}: M%)kuLRs"I2(z; Z Ň -5S'wLW/nɆ+B!uNz)/"$Ε^ $yr*X0\vJXʫgC*3 =Z*%=hPbJepa[zǠ|ll>KR FFF# ¿TIG)y}D\ns`=/#st:#[1dO?Årv-hfo͙~ ex`݇SA>TT DTrje1ǽ]nz#( =8x,í'ݧ#F}8kR#\4wP|ZrbwGbygD:^iĂROJ/EF623:6@LK/G_E/GN`gWB*]>|9fpJNG4m#P&SYSPQL010C.BCKGGYSPQL.VAX]SETSYSPQL.EXE;1 @@t p(p0   @DECC$SHRMTHRTLLIBRTL CMA$TIS_SHR SETSYSPQL open_file write_file main ǹ G R*[SYSPQL.VAX]SETSYSPQL.OBJ;1+,G. / 4 ` -G0123KPWO56575:.&85z-9C?GHJ6 SETSYSPQLV1.030-MAY-1995 12:12DEC C V4.0-000PSYSPQL quota %s not changed: new value is lower PSYSPQL quota %s not changed: new value is lower PInvalid answer P1\PCode:%10s: minimum:%8u; active:%8u; default:%8u ::PIllegal PQL parameter %s ignored 0PCode: %d(PJTQUOTAPWSEXTENTPENQLMPWSDEFAULTPWSQUOTAPTQELMPPRCLMPPGFLQUOTAPFILLMPDIOLMPCPULIMPBYTLMPBIOLMPASTLMPSystem PQL length is %d wPError opening SYS$LOADABLE_IMAGES:SYSPQL.DAT@PPlease set file SYS$LOADABLE_IMAGES:SYSPQL.DAT /NOMOVEPError writing SYSPQL.DAT attributes, status=%08X PError reading SYSPQL.DAT attributes, status=%08X PP( 0PSYSPQL.DAT saved VMS version mismatch: minimums loaded from running systemPPsaved SYSPQL.DAT has a bad version number; delete it and retry;#PCreated SYS$LOADABLE_IMAGES:SYSPQL.DATPsys$loadable_images:syspql.datPP<^\DECC$GA_RMS_FABR(PbԐЏ SYS$CREATEPTT1TϽ DECC$PUTS  1P|~<~l|~1<~ SYS$QIOWPTT?PZ}ZuZmZeZ]ZUZMZpiSYSPQL010C.BCKGGYSPQL.VAX]SETSYSPQL.OBJ;1 /EZ=Z5Z-Z%ZZZe~ZXR SETSYSPQL open_file write_file main ǹ GR@SYS$GQ_VERSIONPQL$GL_SYSPQLLEN PQL$AR_SYSPQLDECC$GA_RMS_FAB DECC$EXITSYS$QIOW SYS$CREATE DECC$STRLEN DECC$STRCAT DECC$EXIT DECC$ATOL DECC$PUTS DECC$GETS DECC$DSPRINTF DECC$DPRINTF __MAIN MAIN DECC$MAIN$CODEh$DATAu DECC$DSPRINTFeRRZf1PeRBY$ ХX  XYB˜XYݥXZf PRT\R\\S8gPBϹfTBgPTSJեeRRծ8Zϒf-ѮeRЮBeRxRRRPZϗfTT1CU1Aϩϥk ϙPRn R DECC$EXITRPP)19AIQYaiqy*[SYSPQL.VAX]SYSPQL.EXE;1+,G./ 4 d-G0123KPWO 56!_L/77 L/8S1^|9C?GHJ0D`0205K/ SYSPQL0K/05-13(QP ПQ0PP~KЬQ[p%P%ЬP4P0123456789ABCDEF%SYSPQL-, F-NOASSUMESAssumes don't holdI-STATUSopen :; read: E-NOFILEError opening SYSPQL.DAT, status=I-DEBUGSystem PQL length is F-BADVERSSYSPQL.DAT version mismatchW-INVPQLInvalid system PQL parameter number SkippedASTLMBIOLMBYTLMCPULIMDIOLMFILLMPGFLQUOTAPRCLMTQELMWSQUOTAWSDEFAULTENQLMWSEXTENTJTQUOTACode: I-DEBUGCode: ; Value: I-ADDEFPARAdded to default parameter listI-UPDDEFPARUpdated default parameter W-SETMINParameter set to minimumI-RAISEDParameter value raised to I-UPDATEDUpdated SYSPQL.DATE-ERRUPDError updating SYSPQL.DAT, status=W-NOTUPDSYSPQL.DAT not updated, file is not set /NOMOVE|^ЬTVRVBVSVQTP RRRPRQPQP{RPPQ0QQCQTP R RP Q{RPQPQTPVPi SPUcR PScPSTSddR SQSaaPP< ^TSSQˏTP@|AxTTSSឭS RSUbP{B_SYSPQL010C.BCKGG[SYSPQL.VAX]SYSPQL.EXE;1 PRbPRSRccP RQRaaPP Wg6SgRSUbPRbPRTRddP RQRaaPЬRgSRVcPScPSTSddP SQSaaPSgRSTbP PRbPRPR``P RQRaaPP Ό^ R¼͐욏P͌¬h'PSS SB͌ COLLECT=INITIALIZATION_PSECTS/ATTRIBUTES=INITIALIZATION_CODE,- $CODE,$DATA Module Name Base End Length Align Attributesk---------- ----------- ---- --- ------ ----- ----------$CODE 00000000 000*[SYSPQL.VAX]SYSPQL.OBJ;1+,G./ 4  -G0123KPWO 5607 8J_K9C?GHJ3SYSPQLV1.030-MAY-1995 12:11DEC C V4.0-000PSYSPQL.DAT not updated, file is not set /NOMOVEPW-NOTUPDdPError updating SYSPQL.DAT, status=[PE-ERRUPDHPUpdated SYSPQL.DAT>PI-UPDATED,P value raised to !PParameter PI-RAISEDP set to minimumPParameter PW-SETMINPUpdated default parameter PI-UPDDEFPARP to default parameter listPAdded PI-ADDEFPARP; Value: PCode: PI-DEBUGxPCode: pPJTQUOTA`PWSEXTENTZPENQLMPPWSDEFAULTHPWSQUOTA>PTQELM8PPRCLM.PPGFLQUOTA(PFILLM"PDIOLMPCPULIMPBYTLMPBIOLMPASTLMPSkippedPInvalid system PQL parameter number PW-INVPQLPSYSPQL.DAT version mismatchPF-BADVERSPSystem PQL length is PI-DEBUGfPError opening SYSPQL.DAT, status=\PE-NOFILESP; read: LPopen :CPI-STATUS0PAssumes don't hold$PF-NOASSUMESP[SYS$LDR]SYSPQL.DATP, P%SYSPQL-P0123456789ABCDEFPP|^ЬTVRVBVSVQTP RRRPRQPQP{RPPQ0QQCQTP R RP Q{RPQPQTPVPSPUcR PScPSTSddR SQSaaPP< ^TSSQˏTP@|AxTTSSឭSRSUbP PRbPRSRccP RQRaaPPWg6SgRSUbPRbPRTRddP RQRaaPЬRgSRVcPScPSTSddP SQSaaPSgRSTbP PRbPRPR``P RQRaaPP PSYSPQL010C.BCKGG[SYSPQL.VAX]SYSPQL.OBJ;1Ό^R¼͐욏P͌¬ FIL$OPENFILEPSS SB͌ -/*#include /* sys$lib_c, sigh! */-/*#include /* sys$lib_c, sigh! */#define FCH$M_NOMOVE 0x200000#include #include #include #include #include #include #include #include "syspql.h"extern pqlent * PQL$AR_SYSPQL;&extern unsigned long PQL$GL_SYSPQLLEN;extern vmsvers SYS$GQ_VERSION;static parambuf modbuf;static u16 channel;static int newfile;static int sysverdif; static int open_file(){ struct FAB syspql_fab;@static const char file_name[]= "sys$loadable_images:syspql.dat";& int status, SYS$CREATE(), SYS$QIOW(); syspql_fab=cc$rms_fab;* syspql_fab.fab$l_fna= (char *) file_name;, syspql_fab.fab$b_fns= sizeof file_name - 1;- syspql_fab.fab$l_fop= FAB$M_UFO | FAB$M_CIF;! syspql_fab.fab$b_fac= FAB$M_PUT;! syspql_fab.fab$b_rfm= FAB$C_UDF; syspql_fab.fab$l_alq= 1;" status= SYS$CREATE (&syspql_fab);I channel= syspql_fab.fab$l_stv;/* happiness is a warm user mode channel*/ if (status&1) { if (status==RMS$_CREATED) {3 puts ("Created SYS$LOADABLE_IMAGES:SYSPQL.DAT"); newfile= 1; modbuf.nb_param= PARAM_SIZE; } else { u16 iosb[4];: status= SYS$QIOW (0, channel, IO$_READVBLK, iosb, 0, 0,+ &modbuf, sizeof modbuf, 1, 0, 0, 0);! if (status&1) status= iosb[0]; if (status&1)% if ( (modbuf.versmin!=VERS_MIN)( ||(modbuf.versmaj!=VERS_MAJ)) { puts (I "saved SYSPQL.DAT has a bad version number; delete it and retry;" ); status= SS$_IDMISMATCH; }9 else if ( (SYS$GQ_VERSION.low != modbuf.sysver.low)> ||(SYS$GQ_VERSION.high != modbuf.sysver.high)) { puts (P "SYSPQL.DAT saved VMS version mismatch: minimums loaded from running system" ); sysverdif=1; } } } /* $create ok */ return status;} static int write_file(){ u16 iosb[4]; int status, SYS$QIOW(); int canupd;static u32 uchar;#pragma member_alignment save#pragma nomember_alignmentstatic union { char bytes[ATR$S_RECATTR]; struct { char rien[8]; u16 FAT$W_EFBLKH; u16 FAT$W_EFBLKL; u16 FAT$W_FFBYTE; } FAT; } fatblk;5static struct {u16 size, type; p32 addr;} atrlst[3]= ' { {ATR$S_UCHAR, ATR$C_UCHAR, &uchar},, {ATR$S_RECATTR, ATR$C_RECATTR, &fatblk}, {0, 0, NULL}}; #pragma member_alignment restore7 status= SYS$QIOW (0, channel, IO$_ACCESS, iosb, 0, 0,  0, 0, 0, 0, atrlst, 0); if (status&1) status= iosb[0]; canupd= status&1; if (canupd==0) {? printf ("Error reading SYSPQL.DAT attributes, status=%08X\n", status); }: status= SYS$QIOW (0, channel, IO$_WRITEVBLK, iosb, 0, 0, ) &modbuf, sizeof modbuf, 1, 0, 0, 0); if (status&1) status= iosb[0]; if (status&1&canupd) {> fatblk.FAT.FAT$W_FFBYTE= sizeof modbuf; /* pretty looking */3 fatblk.FAT.FAT$W_EFBLKL= 1; /* pretty looking */ uchar |= FCH$M_NOMOVE;: status= SYS$QIOW (0, chann!B ~ ~r<7 'i`X}&CL J2V|UR;O`;<&IE9#=[orx}YeC? jIgqRieU;qQKbt䲟5 471iC'ohn_r48B F_ gw#Q(@ZR: F]Zx]iNAp-ugFB:¿u8%Bo6#ަbPwB4YȒj͹%JfOz(BnYf|xD&Cti:ɨvEl|3}KdzvygZJ<"F=qT"tmb&P; V,Wv\o~lL#3HB'_6HB _SvW0-SW$@\RhJ+CR> 9H->譐}KIݛl/KkD Cd/V͝c7.3-͵E6<W]W7xK̿ɠԎ-f:hԔxKHynQ ߼7PuP@>, RG`VG鷂ǁ*lœXhfL Dʖ7l%)c6~ "P)mG!}hh],Th 쨋Xbޖ̫m.7p +QqVKLw˶0L[ޫ+XKR`(9 \ iXo%]hIQL 7,,PѝC&"rUrfŰܦ܈V/p $kqNTxf$X9GlfM~dcZ2[ *>afQ+{v+ϚywsB]6N`EW?wX$j2)+1w[ ,I^)9PUػ2w:跊-$*ia~0;qFg΋za=3FDረB!(kBxdtb\?C 5mKSFW$'HV/3|(5q^5EZ4JrUnJva C!p^*Ngf0`&sد`aSY\if !tۻaqGLdq ]i~[_?srrwU=,t7"o2W(2iQ (`ew 7Rc:;nNcKa<لׇŽf="&Las?ݘKp+G|V8GFVKJ$@kX,v+ v[!H5 6-B:rUW1PAMXN } 26WD]ph~x I(n,J:2/x>f֪3iGSd#ȑM}' uČ*^p37atO Nxv0f .$Xf!$r-^6nIyqe}[Ny@|f7n3W ,6[_) J:kSȌ+jbz5 /Ư ; EL[m%B$'Om>'<]NQ"A,H ӣ91`/G\ <$MO)+g@J, OlϮE@쁻3ěvCE&XZ3ߑmH4?Z~g|-1[akwN9Y&KzF4+v,I-uBm֠MUS>J^xxww)bHe~_0rTlSIxXTI-y68֍ri:ʬ*9,(3X^0fdeKLm,eX4UC=u/)ۧ4JуKm;&fnF6gj45zM8Ye2S|zFݟ/-|,?Ajx M IvRASR ؈4!h^Oib*ҕ-}sۨѠնn:'O`\A}]#iH; Σgi%zDgQ]NAQڜ{lzi`8)ܟ&)aKFi"9ƁiB9Zm$ocMz-hƷs0ONj OQ)V8ׅVdH5.31{>#Fu]P݌~ ??qT$ۀ67lE{w$~XxGͅ䟫[\AGκsėm~UϹ:0; pe++, sz-= sizeof (pqlent)) { char unkcode[20], *cp; u32 newval; int badrep, change; u32 min_value, stored_value; switch (pe->typ) {& case PQL$_ASTLM: cp= "ASTLM"; break;& case PQL$_BIOLM: cp= "BIOLM"; break;& case PQL$_BYTLM: cp= "BYTLM"; break;' case PQL$_CPULM: cp= "CPULIM"; break;& case PQL$_DIOLM: cp= "DIOLM"; break;& case PQL$_FILLM: cp= "FILLM"; break;. case PQL$_PGFLQUOTA: cp= "PGFLQUOTA"; break;& case PQL$_PRCLM: cp= "PRCLM"; break;& case PQL$_TQELM: cp= "TQELM"; break;* case PQL$_WSQUOTA: cp= "WSQUOTA"; break;. case PQL$_WSDEFAULT: cp= "WSDEFAULT"; break;& case PQL$_ENQLM: cp= "ENQLM"; break;, case PQL$_WSEXTENT: cp= "WSEXTENT"; break;* case PQL$_JTQUOTA: cp= "JTQUOTA"; break;5 default: sprintf (cp=unkcode, "Code: %d", pe->typ); }" if (pe->typ >= modbuf.nb_param){5 printf ("Illegal PQL parameter %s ignored\n", cp); continue; }' stored_value= modbuf.values[pe->typ]; if (sysverdif||newfile) { min_value= pe->val;( if (newfile) stored_value= min_value; }, else min_value= modbuf.defvalues[pe->typ]; do { do { int lrep; char rep[80];@ printf ("Code:%10s: minimum:%8u; active:%8u; default:%8u :", * cp, min_value, pe->val, stored_value); gets(rep); lrep= strlen(rep);" badrep=0; /* assume good rep */ change= lrep != 0; if (change==0) break; strcat (rep,"1"); if (atol(rep)==0) { rep[lrep]= 0; printf ("Invalid answer\n"); badrep= 1; } else{ rep[lrep]= 0; newval= atol(rep); } } while (badrep); if (change) { if (pe->val==0) { if (pe->typ == PQL$_CPULM){ if (newval!=0) printf (= "SYSPQL quota %s not changed: new value is lower\n", cp); continue; } } if (newval >= pe->val) {3 modbuf.values[pe->typ]= (unsigned long) newval; modbuf.map |= 1<typ; } else{ printf (= "SYSPQL quota %s not changed: new value is lower\n", cp); badrep=1; } } } while (badrep); } modbuf.versmaj= VERS_MAJ; modbuf.versmin= VERS_MIN; modbuf.map0inf= 1<#include ?typedef struct {unsigned char typ; unsigned long val;} pqlent; extern pqlent * PQL$AR_SYSPQL;&extern unsigned long PQL$GL_SYSPQLLEN;main(){ pqlent * pe; int sz;8 printf ("System PQL length is %d\n", PQL$GL_SYSPQLLEN);4 for (pe= PQL$AR_SYSPQL, sz=PQL$GL_SYSPQLLEN; sz>0; pe++, sz-= sizeof (pqlent)) { char unkcode[20], *cp; switch (pe->typ) {& case PQL$_ASTLM: cp= "ASTLM"; break;& case PQL$_BIOLM: cp= "BIOLM"; break;& case PQL$_BYTLM: cp= "BYTLM"; break;' case PQL$_CPULM: cp= "CPULIM"; break;& case PQL$_DIOLM: cp= "DIOLM"; break;& case PQL$_FILLM: cp= "FILLM"; break;. case PQL$_PGFLQUOTA: cp= "PGFLQUOTA"; break;& case PQL$_PRCLM: cp= "PRCLM"; break;& case PQL$_TQELM: cp= "TQELM"; break;* case PQL$_WSQUOTA: cp= "WSQUOTA"; break;. case PQL$_WSDEFAULT: cp= "WSDEFAULT"; break;& case PQL$_ENQLM: cp= "ENQLM"; break;, case PQL$_WSEXTENT: cp= "WSEXTENT"; break;* case PQL$_JTQUOTA: cp= "JTQUOTA"; break;5 default: sprintf (cp=unkcode, "Code: %d", pe->typ); }0 printf ("Code: %s: value: %u\n", cp, pe->val); } }*[SYSPQL.SRC]SYSPQL.C;45+,G./ 4Q-G0123KPWO564%7,˕8˴&E9C?GHJ9#define SYSINIT /* defined if used as a loadable image *//**/#ifdef __alpha#ifdef SYSINIT/* fixed with axpsys06_061 */Q/*#error "Does not work in SYSINIT on alpha/VMS: hang in boot, ast not delivered"/**/#elseN#error "Does not work on an alpha/VMS running system (crash in FIL$OPENFILE)."#endif#endif#include #include #include #ifndef SYSINIT#include #endif#include "syspql.h"#ifdef SYSINIT#define SYS$CMEXEC(a,b) a()void consprintf (char *);#elseint SYS$CMEXEC();#endifstatic char outbuf[132]; static void doprint(){#ifdef SYSINIT consprintf (outbuf);#else puts(outbuf);#endif outbuf[0]= 0;} static voidprintstr(char * str){ char * cp= outbuf, *cps= str; while (*cp) cp++; while (*cp++ = *cps++); } static voidprintdec (unsigned long val){ char resbuf[20]; unsigned long resval= val; int i= sizeof resbuf -1; resbuf[i--]= 0;% do { resbuf[i--] = '0'+ resval % 10; resval /= 10; } while (resval != 0); printstr (resbuf+i+1);} static voidprinthex(unsigned long val){/static const char hexstr[]= "0123456789ABCDEF"; char bufres[9]; int resval= val; int i; bufres[sizeof bufres -1] = 0; for (i=0; i<=7; i++) {$ bufres[7-i]= hexstr[resval & 0xF]; resval >>= 4; } printstr(bufres);} static voidprintini(char * str){ outbuf[0]= 0; printstr ("%SYSPQL-"); printstr (str); printstr (", ");} static$VmSYSPQL010C.BCKGG[SYSPQL.SRC]SYSPQL.C;45Q void(my_strcpy (char *dest, const char * src){ char *cpd=dest; const char *cps=src; do *cpd++= *cps++; while (*cps);}extern pqlent * PQL$AR_SYSPQL;&extern unsigned long PQL$GL_SYSPQLLEN;extern vmsvers SYS$GQ_VERSION;static parambuf modbuf;#static int openst,readst, accessst;static u32 channel;static u16 iosb[4];6static u32 filelbn; /* = 0 => no update is possible */static read_file(){,static char pqlfile[]="[SYS$LDR]SYSPQL.DAT";< struct {unsigned long len; void * addr;} filedesc,rtrvdesc;< int status, FIL$OPENFILE(), FIL$RDWRTLBN(), check_nomove();( unsigned char filhdr[512], ixfhdr[512]; unsigned long statblk[2]; unsigned long rtrvlen;2 struct {unsigned long count, lbn;} rtrvarray[10]; filedesc.addr = pqlfile;# filedesc.len = sizeof pqlfile -1; rtrvdesc.addr = &rtrvarray;" rtrvdesc.len = sizeof rtrvarray;D status= FIL$OPENFILE (&channel, &filedesc, ixfhdr, filhdr, statblk,, &rtrvlen, &rtrvdesc, 1 /*nocache*/); openst= status;F/* if (status&1) { /* se proteger contre un MOVEFILE catastrophique */B/* status= access_file(channel, filhdr); /* si on doit ecrire */-/* accessst= status; /* => use XQP open */$/* } /* pas possible dans SYSINIT *//**/ if (status&1) {( if (rtrvlen==0) status= SS$_ENDOFFILE; else {;/* status= SYS$QIOW(0, channel, IO$_READVBLK, iosb, 0, 0,,/* &modbuf, sizeof modbuf, 1, 0, 0, 0);#/* if (status&1) status= iosb[0];/**/7 if (check_nomove(filhdr)) filelbn= rtrvarray[0].lbn;3 status= FIL$RDWRTLBN (channel, rtrvarray[0].lbn,8 &modbuf, IO$_READLBLK, sizeof modbuf);/**/ } } readst= status; return status; } static int update_file(){ int status,FIL$RDWRTLBN();( status= FIL$RDWRTLBN (channel, filelbn,7 &modbuf, IO$_WRITELBLK, sizeof modbuf); return status;} static int close_file(){ int status, SYS$DASSGN(); status= SYS$DASSGN (channel); return status;}intsyspql(int debug){ pqlent * pe; int sz; int status; int rewrite= 0; if (okassumes()) { printini ("F-NOASSUMES");" printstr ("Assumes don't hold"); doprint(); return SS$_BUGCHECK; }! status= SYS$CMEXEC(read_file,0); if (debug) { printini ("I-STATUS"); printstr ("open :"); printhex (openst); printstr ("; read: "); printhex (readst); doprint(); } if ((status&1) == 0) { printini ("E-NOFILE");1 printstr ("Error opening SYSPQL.DAT, status="); printhex (status); doprint(); return status; } if (debug) { printini ("I-DEBUG");% printstr ("System PQL length is "); printdec (PQL$GL_SYSPQLLEN); doprint(); }C if ( (modbuf.versmaj != VERS_MAJ) || (modbuf.versmin > VERS_MIN) ) { printini ("F-BADVERS");+ printstr ("SYSPQL.DAT version mismatch"); doprint(); return SS$_IDMISMATCH; }0 modbuf.map0inf |= 1<0; pe++, sz-= sizeof (pqlent)) { char unkcode[20], *cp;$ if ((pe->typ > modbuf.nb_param) ||) (pe->typ >= 8*sizeof modbuf.map)) { printini ("W-INVPQL");5 printstr ("Invalid system PQL parameter number "); printdec (pe->typ); printstr ("Skipped"); doprint(); continue; } switch (pe->typ) {& case PQL$_ASTLM: cp= "ASTLM"; break;%ȀSYSPQL010C.BCKGG[SYSPQL.SRC]SYSPQL.C;45Q8  & case PQL$_BIOLM: cp= "BIOLM"; break;& case PQL$_BYTLM: cp= "BYTLM"; break;' case PQL$_CPULM: cp= "CPULIM"; break;& case PQL$_DIOLM: cp= "DIOLM"; break;& case PQL$_FILLM: cp= "FILLM"; break;. case PQL$_PGFLQUOTA: cp= "PGFLQUOTA"; break;& case PQL$_PRCLM: cp= "PRCLM"; break;& case PQL$_TQELM: cp= "TQELM"; break;* case PQL$_WSQUOTA: cp= "WSQUOTA"; break;. case PQL$_WSDEFAULT: cp= "WSDEFAULT"; break;& case PQL$_ENQLM: cp= "ENQLM"; break;, case PQL$_WSEXTENT: cp= "WSEXTENT"; break;* case PQL$_JTQUOTA: cp= "JTQUOTA"; break; default: outbuf[0]= 0; printstr ("Code: "); printdec (pe->typ); my_strcpy (unkcode, outbuf); } if (debug) { printini ("I-DEBUG"); printstr ("Code: "); printstr (cp); printstr ("; Value: "); printdec (pe->val); doprint(); }- if ( ((1<typ) & modbuf.mapdef) == 0) { rewrite= 1; modbuf.mapdef |= 1<typ;3 modbuf.values[modbuf.nb_param+pe->typ]= pe->val; printini ("I-ADDEFPAR"); printstr ("Added "); printstr (cp);+ printstr (" to default parameter list"); doprint(); }; if ( pe->val != modbuf.values[modbuf.nb_param+pe->typ]) { rewrite= 1;3 modbuf.values[modbuf.nb_param+pe->typ]= pe->val; printini ("I-UPDDEFPAR");+ printstr ("Updated default parameter "); printstr (cp); doprint(); }2 if ( ((1<typ) & modbuf.map) /* present */? && (modbuf.values[pe->typ] != pe->val)){ /* and different*/ int underflow;% if ( (1<typ)&modbuf.map0inf )! if (pe->val==0) underflow= 1;' else if (modbuf.values[pe->typ]!=0), underflow= modbuf.values[pe->typ] < pe->val; else underflow= 0;4 else underflow= modbuf.values[pe->typ] < pe->val; if (underflow) { printini ("W-SETMIN"); printstr ("Parameter "); printstr (cp);! printstr (" set to minimum"); } else {$ pe->val= modbuf.values[pe->typ]; printini ("I-RAISED"); printstr ("Parameter "); printstr (cp);# printstr (" value raised to ");& printdec (modbuf.values[pe->typ]); } doprint(); } } if (rewrite && (status&1)){ if (filelbn!=0) {& status= SYS$CMEXEC(update_file, 0); if (status&1) { printini ("I-UPDATED");$ printstr ("Updated SYSPQL.DAT"); } else { printini ("E-ERRUPD");4 printstr ("Error updating SYSPQL.DAT, status="); printhex (status); } } else { printini ("W-NOTUPD");@ printstr ("SYSPQL.DAT not updated, file is not set /NOMOVE"); } doprint(); }1 if (status&1) status= SYS$CMEXEC(close_file, 0); return status;}*[SYSPQL.SRC]SYSPQL.H;7+,G. / 4F -G0123KPWO56iuԘ7-G0123KPWO56R( 7A, 8wB9C?GHJ& .title SYSPQL_INIT -- interface to OS .library /sys$share:lib/H $BOOSTATEDEF ; used to know if we're in SYSINIT or with a running syst. $FH2DEF $FIBDEF $PRDEF ; pour enb/dsbINT $SSDEF .if NDF,ALPHA $RPBDEF .global EXE$GL_RPB .iff $SWRPBDEF .global EXE$GPQ_SWRPB .endc .disable global7 .global EXE$GL_STATE,EXE$OUTZSTRING,EXE$OUTCRLF,SYSPQL; .if DF,ALPHA( .psect $CODE$ QUAD,PIC,SHR,RD,NOWRT,EXE .iff' .psect $CODE QUAD,PIC,SHR,RD,NOWRT,EXE .endc;; 4(AP)= @ ldrimg block; .align quad .entry image_init,^M<>;;; jsb G^INI$BRKE bbs #BOOSTATE$V_STARTUP,G^EXE$GL_STATE,VMS ; br if vms is already up;F; on alpha systems, we will not be notified of IO completions if we're!; running at or above IPL$_ASTDEL; .if DF,ALPHA@ dsbint #0 ; allow AST's to be delivered ,for io postprocessing. .endc .if NDF,ALPHAVMS: movl G^EXE$GL_RPB,R1, extzv #RPB$V_BOOTLOG,#1,RPB$L_BOOTR5(r1),r0 .iff movl G^EXE$GPQ_SWRPB,r1D extzv #SWRPB_BOOT_FLAGS$V_USER_MSGS,#1,SWRPB$IL_BOOT_FLAGS_L(r1),r0 .endc movl r0,-(SP) calls #1,syspqlD bbs #BOOSTATE$V_STARTUP,G^EXE$GL_STATE,1$ ; br if vms is already up .if DF,ALPHA enbint .endc1$: ret .if DF,ALPHA9VMS: movl #SS$_BUGCHECK,r0 ; crashes while VMS is running ret .endc; .align quad .entry consprintf,^m movl 4(ap),r1 clrl r11 jsb G^EXE$OUTZSTRING jsb G^EXE$OUTCRLF ret;; P1= @ of file header; .align quad .entry check_nomove,^M<> movl 4(ap),r0- extzv #FH2$V_NOMOVE,#1,FH2$L_FILECHAR(r0),r0 ret; .end image_init'9zSYSPQL010C.BCK4G[SYSPQL]INSTALL_SYSPQL.COM;186 )*[SYSPQL]INSTALL_SYSPQL.COM;18+,4. / 46 -G0123KPWO563Qz748t|9GHJ$!$ arch = f$getsyi ("Arch_name"))$ file= f$search ("[.''arch']SYSPQL.EXE")/$ mgtfile= f$search ("[.''arch']SETSYSPQL.EXE"),$ dbgfile= f$search ("[.''arch']SYSPQL.STB")$ name= f$parse (file,,,"NAME")$ sysman:= $sysman$ add= p1.nes."REMOVE"$ replace= p1.eqs."REPLACE"$ v= f$verify()$!$ on warning then goto exit$ if add6$ then copy 'file' sys$common:[sys$ldr];/prot=w:Re/log4$ copy 'mgtfile' sys$common:[sysexe];/prot=w:Re/log$ if dbgfile.nes."" then -5 copy 'dbgfile' sys$common:[sys$ldr];/prot=w:Re/log2$ set file/nomove sys$loadable_images:syspql.exe;$ if replace then goto exit/$ sysman sys_loadable add SYSPQL 'name' /log - /load_step=sysinit-* /severity=info/mess="SYSPQL.EXE loaded"$ else0$ sysman sys_loadable remove SYSPQL 'name' /log5$ delete sys$common:[sys$ldr]'name'.exe;*,.stb;*/log0$ delete sys$common:[sysexe]setsyspql.exe;*/log$ endif$ v= f$verify (0) $ @ sys$update:vms$system_images$exit: set noon$ v:= f$verify (v)*[SYSPQL]LINK.COM;56+,G. / 4N -G0123KPWO56WTY/7jHY/8ro9C?GHJ"$ if f$getsyi ("hw_model").le.1024$ thenN$ LINK /NOSYSSHR/NOTRACEBACK/SHARE=syspql.exe/CONTIGUOUS/map=syspql.map/full - SYS$INPUT/OPTIONsyspql_init.obj syspql.obj#sys$system:SYS.STB/SELECTIVE_SEARCH+!symbol_table=GLOBALS ! pas valide sur vaxpsect_attr=$CODE,NOSHR,WRT,EXEpsect_attr=$DATA,NOSHR,WRT,EXE>COLLECT=INITIALIZATION_PSECTS/ATTRIBUTES=INITIALIZATION_CODE,- $CODE,$DATA/$ LINK /NOSYSSHR/NOTRACEBACK/NOEXE/CONTIGUOUS -% /SYMBOL=syspql.stb SYS$INPUT/OPTIONsyspql_init.obj syspql.obj#sys$system:SYS.STB/SELECTIVE_SEARCHpsect_attr=$CODE,NOSHR,WRT,EXEpsect_attr=$DATA,NOSHR,WRT,EXE>COLLECT=INITIALIZATION_PSECTS/ATTRIBUTES=INITIALIZATION_CODE,- $CODE,$DATA universal=*$ elseN$ LINK /NOSYSSHR/NOTRACEBACK/SHARE=syspql.exe/CONTIGUOUS/map=syspql.map/full -: /SYMBOL=syspql.stb/SYSEXE/NODEMAND_ZERO SYS$INPUT/OPTIONsyspql_init.obj syspql.objsymbol_table=GLOBALSpsect_attr=$CODE$,NOSHR,WRT,EXE"psect_attr=$LITERAL$,NOSHR,WRT,EXE#psect_attr=$READONLY$,NOSHR,WRT,EXE#psect_attr=$DATA$,NOSHR,WRT,EXE,PIC#psect_attr=$LINK$,NOSHR,WRT,EXE,PIC%psect_attr=$LINKAGE,NOSHR,WRT,EXE,PIC&psect_attr=$BSS$,NOSHR,WRT,EXE,MOD,PIC)psect_attr=OTS$LINK,NOSHR,WRT,EXE,MOD,PIC$psect_attr=OTS$LIT,NOSHR,WRT,EXE,MOD!psect_attr=OTS$CODE,NOSHR,WRT,EXE>COLLECT=INITIALIZATION_PSECTS/ATTRIBUTES=INITIALIZATION_CODE,-G $CODE,$CODE$,$DATA$,$DATA,$LINK$,$LINKAGE,$LITERAL$,$READONLY$,$BSS$,- OTS$LIT, OTS$CODE, OTS$LINK$ endif$ exit*[SYSPQL]MAKE.COM;16+,G. / 4@ j-G0123KPWO56]1<{Ҙ7Q{Ҙ86ro9C?GHJ(SYSPQL010C.BCKGG[SYSPQL]MAKE.COM;16@ $ arch= f$getsyi ("Arch_name")$ alpha= arch.eqs."Alpha" $ if alpha -$ then arch_def= "sys$library:arch_defs.mar+"$ syslink:= /sysexe$ else arch_def= ""1$ syslink= ",sys$system:sys.stb/selective_search"$ endif$ filename:= syspql $ macsw= ""$!@$ if f$search ("''arch'.dir;1").eqs."" then create/dir [.'arch']#$ savdir= f$environment ("default")$ on warning then goto exit$ set default [.'arch']$ call compile cc syspql.c$ call compile cc setsyspql.c2$ call compile macro syspql_init.mar "''arch_def'"$ call link syspql "@[-]link"%$ call link setsyspql "" "''syslink'"$!$exit: set noon$ set default 'savdir'$ exit$!>$compile: subroutine !p1: compiler p2:source file p3: switches$ name= f$parse (p2,,,"NAME")*$ do_comp= f$search ("''name'.OBJ").eqs."""$ if .not. do_comp then do_comp= -. f$cvtime(f$file("[-.src]''p2'","RDT")).gts. -& f$cvtime(f$file("''name'.OBJ","RDT"))?$ if do_comp then 'p1'/object=[]'name' 'p3'sys$disk:[-.src]'p2'$ endsubroutine$link: subroutine !p1: exe file($ do_link= f$search ("''p1'.EXE").eqs.""$ name= f$parse (p1,,,"NAME")"$ if .not. do_link then do_link= -- f$cvtime(f$file("''name'.OBJ","RDT")).gts. -& f$cvtime(f$file("''name'.EXE","RDT")) $ if do_link$ then if p2.eqs."",$ then link /exec='name'.exe 'name'.obj 'p3' $ else 'p2'$ endif$ endif$ endsubroutine*[SYSPQL]MKFREEWARE.COM;9+,R. / 4@ -G0123KPWO56sb7up8}9GHJ$!$ open/read v version.dat$ read v version $ close v>$ if f$search ("[-]dirstartup.com").nes."" then @[-]dirstartup$!@$ backup [.alpha]*.*;,[.vax]*.*;,[.src]*.*;,[]*.com,.doc,*.txt -+ FREEWARE_DIR:syspql'version'.bck/prot=w:R- /sav/log/block=4096*[SYSPQL]MKFREEWARE.COM;8+,G. / 4A -G0123KPWO56c/7/8E4}9C?GHJ$!$ open/read v version.dat$ read v version $ close v>$ if f$search ("[-]dirstartup.com").nes."" then @[-]dirstartup$!@$ backup [.alpha]*.*;,[.vax]*.*;,[.src]*.*;,[]*.com,.doc,*.txt -A $1$dua7:[anonymous.pub.freeware_cd]syspql'version'.bck/prot=w:R- /sav/log/block=4096*[SYSPQL]MKKIT.COM;9+,G. / 4? -G0123KPWO56:/7ϠF:/8zso9C?GHJ)1 SYSPQL010C.BCKGG[SYSPQL]MKKIT.COM;9? $!$ open/read v version.dat$ read v version $ close v$!>$ if f$search ("[-]DIRSTARTUP.COM").nes."" then @[-]dirstartup$!?$ backup [.alpha]*.*;,[.vax]*.*;,[.src]*.*;,[]*.com,.doc,.dat -* []syspql'version'.bck /sav/log/block=4096 *)7SYSPQL010C.BCKNG[SYSPQL]SYSPQL.DOC;12H *[SYSPQL]SYSPQL.DOC;12+,N. / 4H H-G0123KPWO56K7F8>}9GHJ syspql V1.0C---9 This program modifies the quota for the startup process.it is implemented with 3 filesC sys$loadable_images:syspql.exe: loadable_images that does the workG sys$loadable_images:syspql.dat: new parameters for the startup process7 setsyspql.exe: creates and manages the syspql.dat file---1 backup this kit keeping the directory structure:! backup sysqpl010c.back/sav [...] install with: @install_syspql% update with: @install_syspql update% remove with: @install_syspql remove---$ syspql.exe can only increase quota.---B when the system boots, the system actual startup quota are copiedA to the syspql.dat file, if they have changed from the last boot.E These saved parameters are used by setsyspql.exe. SYSPQL.dat must be@ /NOMOVE for the update to take place. setsyspql.exe creates the file /NOMOVE.---C if you have trouble booting and suspect SYSPQL.EXE is the problem,= boot into SYSBOOT and set the parameter LOAD_SYS_IMAGES to 0---. tested VAX versions: VMS V6.1 on a vs4000/vlcG!! # does NOT work on alpha/VMS V6.1 --- maybe needs patch AXPSYS06_061D works on VMS v6.2, probably V6.1, i did the upgrade before the test works with AXPSYS06_061....? tested ALPHA versions: VMS V6.1+AXPSYS06_061 on a dec 3000-600$ VMS V6.2 on a dec 3000-600---H 25-aug-1997: divverence with version 1.0B: copy setsyspql in sys$system> 7-jul-1995: difference with version 1.0A: symbol file for VAX5 difference with version 1.0: - updated documentation' - logging during instal_syspql---& Author: 10-mar-1995 Guillaume grard  email: gerard@cal.enst.fr; X.400: C=FR; AD=ATLAS; PD=TELECPARIS, sur and first name P.S.I: 020807504128502::gg ftpanon: brel.enst.fr http://brel.enst.fr@ copyright () Ecole Nationale suprieure des Tlcommunications+'*SYSPQL010C.BCKMGYSPQL]FREEWARE_DEMO.TXT;6$ m*[SYSPQL]FREEWARE_DEMO.TXT;6+,M. / 4$ -G0123KPWO56Pԏ7ש8X\}9GHJ$!$! install the software$!$ @install_syspql$!$! choose your preferred quota$!$$ define/user sys$input sys$command:$ mc setsyspql*[SYSPQL]FREEWARE_README.TXT;3+,=. / 4G -G0123KPWO56o7`xo8`]<}9GHJASYSPQL v1.0C, SYSTEM MANAGEMENT, STARTUP process quota adjustmentG This program allows increasing the startup process quota, as specified by the user.*[SYSPQL]RELFORM.TXT;2+,G. / 4D -G0123KPWO56*Ř7W28<>-9C?GHJ RELEASE FORM ------------OpenVMS Freeware CD--------------------DEVELOPER RELEASE FORM:= As the owner/developer of this software, I release it to be D included on the OpenVMS Freeware CD-ROM. I expect no renumerances D or payments for the use of this software from Digital or Digital's customers. gerard@cal.enst.fr Developer/Owner Name,ɎXqsnxtm@ (A 18 J \KfFiS5's,IQZp&SFw*4|!?) SllidN({eP!=lu>I=7ZE E,aL9D?B|4oGQ.[X],nhXF,X=`%.XZv_"r[ r)P*Z7k&i_;1N}{^SG +v]w:kp4.Ti6bL]'r$hwb.jOKLHq́_ |5Ld!K.%UXAm3F\-?HVK@O0(<7bm "Nx0 sTHOmN_b> lOE)= Yo+H-" 1w,ue3w]q )HV*]j [t<)@|z!RtHtf&nBZ YcpbQBi29\ (CEX NjS H}J n{~yJ H!uhn%t*N+*t wng%wNKrS}cXGu} lIZbP1ZVX89eksQ>&bWI<[.`G|'E.;d0Qh{MKFK{HJ3Hv*5j9TA:rNa`@E8V.D`8"MJ34y`| Rp:3>^.G28(%A.L7rV9T&QMX1$<RmJG-W[ 5 S \GAIqyz80BkP05z7~ 'A*|zps[e_%l,J`Fw4M //j>tbuxh2#2A2  SHHj5 X;;oy gb:"X3Mr3o1S$j}x$80*p@*mõ6:tre-.0O{m;^&X{0 Md?,*'X{5|e{mirGXu]Cpb<9UqQ[j=DEXo nz1`,03Jg8wzGbj5HYDnvp_w\JbP?{jQ?W!wM 2\>%?HJNz7oXm4C&(%4KF-o/b}k+058f1T~$s" T#)4pHKX-x#vQ [k~%`j)]]_gc?F*wN{Ee,}#&BHZX1Z# EF1^B3i>{C'!Z?)i;5+;&m; Yg8vo #d_5GT"7Tbm7G`nce<BlT\D]0+Sj6:>1H=o Q z_wC!6( Hn@ L*J")x'q8j@Ny) X1s,ZvV51IVh  ?V]O ]2u ^Uo}RoIcp0oJBKm$>5SvFqzw&}J)V ju$b(b{b^Yx*_ qcIBp7LQnm) R"w>e7"hT2]t"jD4k 4.s9E6\F/IqAI;SvEK77Sp]o+5_sl%NTI5TNmH:s"u5S e)~;Mi=h&8(hL#TuR9+ #IY SD> .Xw_>[@ !gd<,\$oF=),CLz$6g` Z ! tB[`gq$&鹜4RbGQ9wG0 t'Ck#ap!%M%c>-5jR yd8mEG4Ao.Ix}*B>N#j}- ,YGC95xxxSC\s6\ a R\Gz;=2e'3 tMP7.?&ASrJ2WtZ/NFw - p}UW(L""K"&h @^&f-G+O._Osy!6+C2{nuW5>A!/ w,q,!!O:c$sxEko|(6PPd`gAFtLYnL jE"{"~pi:5Pb_gcXpt6Hk:?@@7Z5Ae/uY30!3~ed_%fz){quO^FX Qwif;5JQFcqMR4wP/){hJRp)Gd|9vhug aHjK XSOB BF"MN O L9 3Q!lhj8ZO*H^kCi40#M6p`MuA ZgyyFh57YW,kTki+8-iZ{kf]X'# |FOOy^JHL=7J*7hW"/z`T?v"^t+'LVjtVSE"sa>)Z)O#:)e .J kiPzJIEE8'XDyBdrZgTe^KVQL}6xsl;K Oss@>7T_ hpl;+ n-C2XBa!!s|u|xdrx)1lTm2E 'L!72Hh/!FF1!N@l:!M!f,p!_yHWDXn]r[a'v0xuv)1\_w I\ _TQ@-6#7wI/<:Rj&ZOR@?L= Yl-@}}V;3Z^3:*|5HM:Aߔ  ({dg Qi1XW1*a $1)Y@ Dc/8RE*c,YNMfTU30-?341(,+P3^^X/$<>C/6ix H.7\4Raz  AM%8?GV__,<'i&u.hiyh B\F e~[z`I[RT 1T)POTYbf'L &o#t#ON9 s+( ~~a&JSkXM9umF']ps`N[0EDWDmBQv-z09"<2 >ylnlRGx?[X"cq'#typ); printstr ("Skipped"); doprint(); continue; } switch (pe->typ) {& case PQL$_ASTLM: cp= "ASTLM"; break;