iSharkFly-Open
/
fis-gtm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
fis-gtm/sr_port/gdeshow.m

338 lines
13 KiB
Mathematica
Raw Permalink Blame History

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright 2001, 2013 Fidelity Information Services, Inc ;
; ;
; This source code contains the intellectual property ;
; of its copyright holder(s), and is made available ;
; under a license. If you do not know the terms of ;
; the license, please stop and do not read further. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
show: ;implement the verb: SHOW
ALL
d TEMPLATE,ALLNAME,ALLREGIO,ALLSEGME,MAP
q
COMMANDS
s BOL="!"
set delim=$select("VMS"=ver:"/",1:"-")
i $l($get(cfile)) o cfile:(newversion:exc="w !,$ztatus c cfile zgoto $zl:cfilefail") u cfile d
. d namec,segmentc,regionc,templatec
. c cfile
cfilefail:
f i="@useio",$s(log:"@uself",1:"") q:'$l(i) u @i d templatec,namec,regionc,segmentc
s BOL=""
q
NAME
i '$d(nams(NAME)) zm gdeerr("OBJNOTFND"):"Name":NAME q
d n2
i log s BOL="!" u @uself w BOL d n2 w ! u @useio s BOL=""
q
n2: d namehd w !,BOL,?x(1),NAME,?x(2),nams(NAME)
q
ALLNAME
d SHOWNAM^GDEMAP
d n1
i log s BOL="!" u @uself w BOL d n1 w ! u @useio s BOL=""
q
n1: d namehd s s="#"
f s s=$o(nams(s)) q:'$l(s) w !,BOL,?x(1),s,?x(2),nams(s)
q
namec:
d SHOWNAM^GDEMAP
s s="#"
w !,"LOCKS "_delim_"REGION=",nams(s)
f s s=$o(nams(s)) q:'$l(s) d
. i "*"'=s w !,"ADD "_delim_"NAME ",s," "_delim_"REGION=",nams(s) q
. i defreg'=nams(s) w !,"CHANGE "_delim_"NAME "_s_" "_delim_"REGION=",nams(s)
w !
q
REGION
i '$d(regs(REGION)) zm gdeerr("OBJNOTFND"):"Region":REGION q
d r2
i log s BOL="!" u @uself w BOL d r2 w ! u @useio s BOL=""
q
r2: d regionhd s s=REGION d onereg
i regs(s,"JOURNAL") d jnlhd d onejnl
q
ALLREGIO
d r1
i log s BOL="!" u @uself w BOL d r1 w ! u @useio s BOL=""
q
r1: d regionhd s jnl=0,s=""
f s s=$o(regs(s)) q:'$l(s) d onereg i regs(s,"JOURNAL") s jnl=1
i jnl d jnlhd s s="" f s s=$o(regs(s)) q:'$l(s) i regs(s,"JOURNAL") d onejnl
q
onereg:
w !,BOL,?x(1),s,?x(2),regs(s,"DYNAMIC_SEGMENT"),?x(3),$j(regs(s,"COLLATION_DEFAULT"),4)
i ver'="VMS" w ?x(4),$j(regs(s,"RECORD_SIZE"),7)
e w ?x(4),$j(regs(s,"RECORD_SIZE"),5)
w ?x(5),$j(regs(s,"KEY_SIZE"),5)
w ?x(6),$s(regs(s,"NULL_SUBSCRIPTS")=1:"ALWAYS",regs(s,"NULL_SUBSCRIPTS")=2:"EXISTING",1:"NEVER")
w ?x(7),$s(regs(s,"STDNULLCOLL"):"Y",1:"N")
w ?x(8),$s(regs(s,"JOURNAL"):"Y",1:"N")
i ver'="VMS" w ?x(9),$s(regs(s,"INST_FREEZE_ON_ERROR"):"ENABLED",1:"DISABLED")
i ver'="VMS" w ?x(10),$s(regs(s,"QDBRUNDOWN"):"ENABLED",1:"DISABLED")
q
onejnl:
w !,BOL,?x(1),s,?x(2),$s($l(regs(s,"FILE_NAME")):regs(s,"FILE_NAME"),1:"<based on DB file-spec>")
i $x'<(x(3)-1) w !,BOL
w ?x(3),$s(regs(s,"BEFORE_IMAGE"):"Y",1:"N"),?x(4),$j(regs(s,"BUFFER_SIZE"),5)
w ?x(5),$j(regs(s,"ALLOCATION"),10)
i ver="VMS" w ?x(6),$j(regs(s,"EXTENSION"),5)
e w ?x(6),$j(regs(s,"EXTENSION"),10),?x(7),$j(regs(s,"AUTOSWITCHLIMIT"),13)
w !,BOL
q
regionc:
n defseen,cmd
s s="",defseen=FALSE
f s s=$o(regs(s)) q:'$l(s) d
. i s=defreg s defseen=TRUE,cmd="CHANGE"
. e s cmd="ADD"
. w !,cmd," "_delim_"REGION ",s," "_delim_"DYNAMIC=",regs(s,"DYNAMIC_SEGMENT")
. f q="COLLATION_DEFAULT","RECORD_SIZE","KEY_SIZE" w " "_delim,q,"=",regs(s,q)
. w " "_delim_"NULL_SUBSCRIPTS=",$s(regs(s,"NULL_SUBSCRIPTS")=1:"ALWAYS",regs(s,"NULL_SUBSCRIPTS")=2:"EXISTING",1:"NEVER")
. i regs(s,"STDNULLCOLL") w " "_delim_"STDNULLCOLL"
. i regs(s,"JOURNAL") d
.. w " "_delim_"JOURNAL=(",$s(regs(s,"BEFORE_IMAGE"):"",1:"NO"),"BEFORE_IMAGE",",BUFFER_SIZE=",regs(s,"BUFFER_SIZE")
.. w ",ALLOCATION=",regs(s,"ALLOCATION"),",EXTENSION=",regs(s,"EXTENSION")
.. i ver'="VMS" w ",AUTOSWITCHLIMIT=",regs(s,"AUTOSWITCHLIMIT")
.. i $l(regs(s,"FILE_NAME")) w ",FILE=""",regs(s,"FILE_NAME"),""""
.. w ")"
. else w " "_delim_"NOJOURNAL"
. i (ver'="VMS") w " "_delim_$s(regs(s,"INST_FREEZE_ON_ERROR"):"",1:"NO")_"INST_FREEZE_ON_ERROR"
. i (ver'="VMS") w " "_delim_$s(regs(s,"QDBRUNDOWN"):"",1:"NO")_"QDBRUNDOWN"
i (FALSE=defseen) w !,"DELETE "_delim_"REGION "_defreg
w !,BOL
q
SEGMENT
i '$d(segs(SEGMENT)) zm gdeerr("OBJNOTFND"):"Segment":SEGMENT q
d s2
i log s BOL="!" u @uself w BOL d s2 w ! u @useio s BOL=""
q
s2: d seghd s s=SEGMENT s am=segs(s,"ACCESS_METHOD") d oneseg
q
ALLSEGME
d s1
i log s BOL="!" u @uself w BOL d s1 w ! u @useio s BOL=""
q
s1: d seghd s s=""
f s s=$o(segs(s)) q:'$l(s) s am=segs(s,"ACCESS_METHOD") d oneseg
q
oneseg:
w !,BOL,?x(1),s,?x(2),segs(s,"FILE_NAME")
i $x'<(x(3)-1) w !,BOL
w ?x(3),segs(s,"ACCESS_METHOD")
i am="USER" q
w ?x(4),$s(segs(s,"FILE_TYPE")="DYNAMIC":"DYN",1:"STA")
w ?x(5),$j(segs(s,"BLOCK_SIZE"),5),?x(6),$j(segs(s,"ALLOCATION"),10),?x(7),$j(segs(s,"EXTENSION_COUNT"),5)
d @am
q
BG w ?x(8),"GLOB=",$j(segs(s,"GLOBAL_BUFFER_COUNT"),4)
w !,BOL,?x(8),"LOCK=",$j(segs(s,"LOCK_SPACE"),4)
w !,BOL,?x(8),"RES =",$j(segs(s,"RESERVED_BYTES"),4)
; For non-encryption platforms, always show FLAG as OFF. For VMS dont even display this line
i $ZVersion'["VMS" w !,BOL,?x(8),"ENCR=",$S((encsupportedplat=TRUE&segs(s,"ENCRYPTION_FLAG")):"ON",1:"OFF")
q
MM w ?x(8),$s(segs(s,"DEFER"):"DEFER",1:"NODEFER")
w !,BOL,?x(8),"LOCK=",$j(segs(s,"LOCK_SPACE"),4)
w !,BOL,?x(8),"RES = ",$j(segs(s,"RESERVED_BYTES"),4)
i $ZVersion'["VMS" w !,BOL,?x(8),"ENCR=OFF"
q
segmentc:
n defseen,cmd
s s="",defseen=FALSE
f s s=$o(segs(s)) q:'$l(s) s am=segs(s,"ACCESS_METHOD") d
. i s=defseg s defseen=TRUE,cmd="CHANGE"
. e s cmd="ADD"
. w !,cmd," "_delim_"SEGMENT ",s," "_delim_"ACCESS_METHOD=",segs(s,"ACCESS_METHOD")
. i am="USER" q
. f q="BLOCK_SIZE","ALLOCATION","EXTENSION_COUNT","LOCK_SPACE","RESERVED_BYTES" w " "_delim,q,"=",segs(s,q)
. i "BG"=am d
.. w " "_delim_"GLOBAL_BUFFER_COUNT=",segs(s,"GLOBAL_BUFFER_COUNT")
.. i $zver'["VMS",encsupportedplat=TRUE,segs(s,"ENCRYPTION_FLAG") w " "_delim_"ENCRYPT"
. i "MM"=am w " "_delim,$s(segs(s,"DEFER"):"DEFER",1:"NODEFER")
. w " "_delim_"FILE=",segs(s,"FILE_NAME")
i (FALSE=defseen) w !,"DELETE "_delim_"SEGMENT "_defseg
w !,BOL
q
MAP
n map
i '$d(mapreg) n mapreg s mapreg=""
e i '$d(regs(mapreg)) zm gdeerr("OBJNOTFND"):"Region":mapreg q
d SHOWMAKE^GDEMAP
d m1
i log s BOL="!" u @uself w BOL d m1 w ! u @useio s BOL=""
q
m1: n l1,s1,s2
d maphd
s s1=$o(map("$"))
i s1'="%" s map("%")=map("$"),s1="%"
f s s2=s1,s1=$o(map(s2)) q:'$l(s1) d onemap(s1,s2)
d onemap("...",s2)
i $d(nams("#")) s s2="LOCAL LOCKS",map(s2)=nams("#") d onemap("",s2) k map(s2)
q
onemap:(s1,s2)
i $l(mapreg),mapreg'=map(s2) q
s l1=$l(s1)
i $l(s2)=l1,$e(s1,l1)=0,$e(s2,l1)=")",$e(s1,1,l1-1)=$e(s2,1,l1-1) q
w !,BOL,?x(1),$tr(s2,")","0"),?x(2),$tr(s1,")","0"),?x(3),"REG = ",map(s2)
i '$d(regs(map(s2),"DYNAMIC_SEGMENT")) d q
. w !,BOL,?x(3),"SEG = NONE",!,BOL,?x(3),"FILE = NONE"
s j=regs(map(s2),"DYNAMIC_SEGMENT") w !,BOL,?x(3),"SEG = ",j
i '$d(segs(j,"ACCESS_METHOD")) w !,BOL,?x(3),"FILE = NONE"
e s s=segs(j,"FILE_NAME") w !,BOL,?x(3),"FILE = ",s
q
TEMPLATE
d t1
i log s BOL="!" u @uself w BOL d t1 w ! u @useio s BOL=""
q
t1: d tmpreghd
w !,BOL,?x(1),"<default>",?x(3),$j(tmpreg("COLLATION_DEFAULT"),4)
i ver'="VMS" w ?x(4),$j(tmpreg("RECORD_SIZE"),7)
e w ?x(4),$j(tmpreg("RECORD_SIZE"),5)
w ?x(5),$j(tmpreg("KEY_SIZE"),5)
w ?x(6),$s(tmpreg("NULL_SUBSCRIPTS")=1:"ALWAYS",tmpreg("NULL_SUBSCRIPTS")=2:"EXISTING",1:"NEVER")
w ?x(7),$s(tmpreg("STDNULLCOLL"):"Y",1:"N")
w ?x(8),$s(tmpreg("JOURNAL"):"Y",1:"N")
i ver'="VMS" w ?x(9),$s(tmpreg("INST_FREEZE_ON_ERROR"):"ENABLED",1:"DISABLED")
i ver'="VMS" w ?x(10),$s(tmpreg("QDBRUNDOWN"):"ENABLED",1:"DISABLED")
i tmpreg("JOURNAL") d tmpjnlhd,tmpjnlbd
d tmpseghd
w !,BOL,?x(1),"<default>",?x(2),$s(tmpacc="BG":" *",1:""),?x(3),"BG"
w ?x(4),$s(tmpseg("BG","FILE_TYPE")="DYNAMIC":"DYN",1:"STA"),?x(5),$j(tmpseg("BG","BLOCK_SIZE"),5)
w ?x(6),$j(tmpseg("BG","ALLOCATION"),10),?x(7),$j(tmpseg("BG","EXTENSION_COUNT"),5)
w ?x(8),"GLOB =",$j(tmpseg("BG","GLOBAL_BUFFER_COUNT"),3)
w !,BOL,?x(8),"LOCK =",$j(tmpseg("BG","LOCK_SPACE"),3)
w !,BOL,?x(8),"RES =",$j(tmpseg("BG","RESERVED_BYTES"),4)
i $ZVersion'["VMS" w !,BOL,?x(8),"ENCR = ",$s((encsupportedplat=TRUE&tmpseg("BG","ENCRYPTION_FLAG")):"ON",1:"OFF")
w !,BOL,?x(1),"<default>",?x(2),$s(tmpacc="MM":" *",1:""),?x(3),"MM"
w ?x(4),$s(tmpseg("MM","FILE_TYPE")="DYNAMIC":"DYN",1:"STA"),?x(5),$j(tmpseg("MM","BLOCK_SIZE"),5)
w ?x(6),$j(tmpseg("MM","ALLOCATION"),10),?x(7),$j(tmpseg("MM","EXTENSION_COUNT"),5)
w ?x(8),$s(tmpseg("MM","DEFER"):"DEFER",1:"NODEFER")
w !,BOL,?x(8),"LOCK =",$j(tmpseg("MM","LOCK_SPACE"),3)
q
tmpjnlbd:
w !,BOL,?x(1),"<default>",?x(2),$s($l(tmpreg("FILE_NAME")):tmpreg("FILE_NAME"),1:"<based on DB file-spec>")
i $x'<(x(3)-1) w !,BOL
w ?x(3),$s(tmpreg("BEFORE_IMAGE"):"Y",1:"N"),?x(4),$j(tmpreg("BUFFER_SIZE"),5)
w ?x(5),$j(tmpreg("ALLOCATION"),10)
i ver="VMS" w ?x(6),$j(tmpreg("EXTENSION"),5)
e w ?x(6),$j(tmpreg("EXTENSION"),10),?x(7),$j(tmpreg("AUTOSWITCHLIMIT"),13)
w !,BOL
q
templatec:
f am="MM","BG" w !,"TEMPLATE "_delim_"SEGMENT "_delim_"ACCESS_METHOD=",am d
. f q="BLOCK_SIZE","ALLOCATION","EXTENSION_COUNT","LOCK_SPACE","RESERVED_BYTES" w " "_delim,q,"=",tmpseg(am,q)
. i "BG"=am d
.. w " "_delim_"GLOBAL_BUFFER_COUNT=",tmpseg("BG","GLOBAL_BUFFER_COUNT")
.. i $zver'["VMS",encsupportedplat=TRUE,tmpseg("BG","ENCRYPTION_FLAG") w " "_delim_"ENCRYPT"
. i "MM"=am w " ",$s(tmpseg("MM","DEFER"):delim,1:delim_"NO"),"DEFER"
w !,"TEMPLATE "_delim_"REGION"
f q="RECORD_SIZE","KEY_SIZE" w " "_delim,q,"=",tmpreg(q)
w " "_delim_"NULL_SUBSCRIPTS=",$s(tmpreg("NULL_SUBSCRIPTS")=1:"ALWAYS",tmpreg("NULL_SUBSCRIPTS")=2:"EXISTING",1:"NEVER")
i tmpreg("STDNULLCOLL") w " "_delim_"STDNULLCOLL"
i (ver'="VMS") w " "_delim_$s(tmpreg("INST_FREEZE_ON_ERROR"):"",1:"NO")_"INST_FREEZE_ON_ERROR"
i (ver'="VMS") w " "_delim_$s(tmpreg("QDBRUNDOWN"):"",1:"NO")_"QDBRUNDOWN"
i tmpreg("JOURNAL") d
. w !,"TEMPLATE "_delim_"REGION "_delim_"JOURNAL=("
. w $s(tmpreg("BEFORE_IMAGE"):"",1:"NO"),"BEFORE_IMAGE,BUFFER_SIZE=",tmpreg("BUFFER_SIZE")
. w ",ALLOCATION=",tmpreg("ALLOCATION"),",EXTENSION=",tmpreg("EXTENSION")
. i ver'="VMS" w ",AUTOSWITCHLIMIT=",tmpreg("AUTOSWITCHLIMIT")
. w ")"
i $l(tmpreg("FILE_NAME")) w ",FILE=",tmpreg("FILE_NAME")
w !,BOL
q
;-----------------------------------------------------------------------------------------------------------------------------------
namehd:
s x(0)=9,x(1)=1,x(2)=36
w !,BOL,!,BOL,?x(0),"*** NAMES ***",!,BOL,?x(1),"Global",?x(2),"Region"
w !,BOL,?x(1),$tr($j("",78)," ","-")
q
regionhd:
s x(0)=32,x(1)=1,x(2)=33,x(3)=65,x(4)=71
i ver'="VMS" s x(5)=79,x(6)=85,x(7)=96,x(8)=101,x(9)=105,x(10)=114
e s x(5)=77,x(6)=83,x(7)=94,x(8)=104
w !,BOL,!,BOL,?x(0),"*** REGIONS ***"
w !,BOL,?x(7),"Std"
i ver'="VMS" w ?x(9),"Inst"
w !,BOL,?x(2),"Dynamic",?x(3),$j("Def",4)
i ver'="VMS" w ?x(4),$j("Rec",7)
e w ?x(4),$j("Rec",5)
w ?x(5),$j("Key",5),?x(6),"Null",?x(7),"Null"
i ver'="VMS" w ?x(9),"Freeze"
i ver'="VMS" w ?x(10),"Qdb"
w !,BOL,?x(1),"Region",?x(2),"Segment",?x(3),$j("Coll",4)
if ver'="VMS" w ?x(4),$j("Size",7)
e w ?x(4),$j("Size",5)
w ?x(5),$j("Size",5)
w ?x(6),"Subs",?x(7),"Coll",?x(8),"Jnl"
i ver'="VMS" w ?x(9),"on Error"
i ver'="VMS" w ?x(10),"Rndwn"
i ver'="VMS" w !,BOL,?x(1),$tr($j("",122)," ","-")
e w !,BOL,?x(1),$tr($j("",107)," ","-")
q
jnlhd:
s x(0)=26,x(1)=1,x(2)=33,x(3)=59,x(4)=65,x(5)=71,x(6)=82,x(7)=$s(ver="VMS":88,1:91)
w !,BOL,!,BOL,?x(0),"*** JOURNALING INFORMATION ***"
w !,BOL,?x(1),"Region",?x(2),"Jnl File (def ext: .mjl)"
w ?x(3),"Before",?x(4),$j("Buff",5),?x(5),$j("Alloc",10)
i ver="VMS" w ?x(6),"Exten" ;?x(7),"Stop"
e w ?x(6),$j("Exten",10),?x(7),$j("AutoSwitch",13)
w !,BOL,?x(1),$tr($j("",$s(ver="VMS":87,1:104))," ","-")
q
seghd:
s x(0)=32,x(1)=1,x(2)=33,x(3)=53,x(4)=57,x(5)=61,x(6)=67,x(7)=78,x(8)=84
w !,BOL,!,BOL,?x(0),"*** SEGMENTS ***"
w !,BOL,?x(1),"Segment",?x(2),"File (def ext: .dat)",?x(3),"Acc",?x(4),"Typ",?x(5),"Block",?x(6),$j("Alloc",10)
w ?x(7),"Exten",?x(8),"Options"
w !,BOL,?x(1),$tr($j("",91)," ","-")
q
maphd:
s x="*** MAP"_$s($l(mapreg):" for region "_mapreg,1:"")_" ***"
s x(0)=80-$l(x)*.5,x(1)=1,x(2)=33,x(3)=66,x(4)=98,x(5)=130
w !,BOL,!,BOL,?x(0),x
w !,BOL,?x(1)," - - - - - - - - - - Names - - - - - - - - - -"
w !,BOL,?x(1),"From",?x(2),"Up to",?x(3),"Region / Segment / File(def ext: .dat)"
w !,BOL,?x(1),$tr($j("",122)," ","-")
q
tmpreghd:
s x(0)=31,x(1)=1,x(2)=19,x(3)=44,x(4)=49
i ver'="VMS" s x(5)=57,x(6)=63,x(7)=74,x(8)=79,x(9)=83,x(10)=92
e s x(5)=55,x(6)=61,x(7)=72,x(8)=82
w !,BOL,!,BOL,?x(0),"*** TEMPLATES ***"
w !,BOL,?x(7),"Std"
i ver'="VMS" w ?x(9),"Inst"
w !,BOL,?x(3),$j("Def",4)
i ver'="VMS" w ?x(4),$j("Rec",7)
e w ?x(4),$j("Rec",5)
w ?x(5),$j("Key",5),?x(6),"Null",?x(7),"Null"
i ver'="VMS" w ?x(9),"Freeze"
i ver'="VMS" w ?x(10),"Qdb"
w !,BOL,?x(1),"Region",?x(3),$j("Coll",4)
i ver'="VMS" w ?x(4),$j("Size",7)
e w ?x(4),$j("Size",5)
w ?x(5),$j("Size",5)
w ?x(6),"Subs",?x(7),"Coll",?x(8),"Jnl"
i ver'="VMS" w ?x(9),"on Error"
i ver'="VMS" w ?x(10),"Rndwn"
i ver'="VMS" w !,BOL,?x(1),$tr($j("",100)," ","-")
e w !,BOL,?x(1),$tr($j("",85)," ","-")
q
tmpjnlhd:
s x(0)=26,x(1)=1,x(2)=18,x(3)=44,x(4)=51,x(5)=57,x(6)=68,x(7)=74
w !,BOL,?x(2),"Jnl File (def ext: .mjl)"
w ?x(3),"Before",?x(4),$j("Buff",5),?x(5),$j("Alloc",10)
i ver="VMS" w ?x(6),"Exten"
e w ?x(6),$j("Exten",10),?x(7),$j("AutoSwitch",13)
i ver="VMS" w !,BOL,?x(1),$tr($j("",78)," ","-")
e w !,BOL,?x(1),$tr($j("",90)," ","-")
q
tmpseghd:
s x(0)=32,x(1)=1,x(2)=18,x(3)=38,x(4)=42,x(5)=46,x(6)=52,x(7)=63,x(8)=69
w !,BOL,!,BOL,?x(1),"Segment",?x(2),"Active",?x(3),"Acc",?x(4),"Typ",?x(5),"Block",?x(6),$j("Alloc",10)
w ?x(7),"Exten",?x(8),"Options"
w !,BOL,?x(1),$tr($j("",78)," ","-")
q
Reference in New Issue View Git Blame Copy Permalink