Re: LISTDIFF
- From: Carl Distefano <cld@xxxxxxxxxx>
- To: xywrite@xxxxxxxxxxxxx
- Date: Thu, 26 Jul 2012 23:10:12 -0400
Reply to note from Fred Weiner <fw1948@xxxxxxxxx> Wed, 25 Jul 2012
20:02:41 -0700
Fred:
> Is it possible to make LISTDIFF (U2 Denizen) work against
> defined blocks? Can't see that in the HELPFILE.
Nope, it's not there. Here's a quick-and-dirty frame LDDF. (DECODE,
DeFine entire frame, and command ADD2U2<Helpkey> to add frame to U2.)
Usage: LDDF<Helpkey>. Requires DeFined blocks in adjacent screens.
XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5lddf}} Compare (list differences in) DeFined blocks in ad
jacent screens [CLD][cr|lf]{002}[BX_]es 1[Q2_]{<}SX50,{<}VA$E
D{>}{>}[JM_]2.GetPath[Q2_]{<}SU61,{<}SV62,{>}[DZ_]{<}IF{<}VA$
DE{>}>0{>}[BX_]sad/nv {<}PV50{>}\lddf{<}PV63{>}.tmf[Q2_]{<}IF
@not({<}ER{>}){>}{<}SX64,{<}VA$FP{>}{>}{<}EX{>}{<}EI{>}{<}EI{
{062}}{<}SV62,!{>}{>}{<}SX63,0{>}{<}GT61{>}{<}IF{<}VA|62{>}>0{>}{
<}LBa{>}{<}PRDF blocks required in both adjacent files!{>}{<}
EX{>}{<}EI{>}{<}SX65,{<}IS64{>}{>}[AS_]{<}SX63,1{>}{<}GT61{>}
[AS_]{<}IF{<}VA|62{>}>0{>}{<}GLa{>}{<}EI{>}{<}SU61,{<}SX62,{<
}VA$WA{>}{>}[BX_]func #{<}PV62{>}[Q2_][BX_]ca/100 {<}PV50{>}\
lddf{<}PV63{>}.tmf[Q2_]{>}{<}GT61{>}{<}SX66,{<}VA$WN{>}{>}{<}
SX63,0{>}{<}GT61{>}{<}SX67,{<}VA$WN{>}{>}[JM_]2.listdiff[Q2_]
{<}SX63,{<}VA$WN{>}{>}{<}SU61,[BX_]func #{<}PV66{>}[Q2_][BX_]
ab[Q2_]{<}IF{<}VA$WS{>}<1{>}[BX_]rs[Q2_]{<}EI{>}{>}{<}GT61{>}
{<}SX66,{<}PV67{>}{>}{<}GT61{>}[AS_][BX_]func #{<}PV63{>}[Q2_
]{<}IF{<}VA$WS{>}<1{>}[BX_]rs[Q2_]{<}EI{>}[DO_][FF_][BX_]ch/1
{<}PV50{>}\lddf0.tmf {<}PV65{>}[Q2_][BX_]ch/1 {<}PV50{>}\l
ddf1.tmf {<}PV64{>}[Q2_][BX_]ch/1 "Files diverge"DeFined bloc
ks diverge"[Q2_][BX_]ch/1 "(CP)"(CP), measured from start of{032}
each DF block"[Q2_]{002}[cr|lf][cr|lf]
-nd
XPLeNCODE
--
Carl Distefano
cld@xxxxxxxxxx
Other related posts:
