TE002216*nMdytOZ] ;2MSG CLEARFILEFNNOPETEWS1COMPAREWS2COMPFILEFILE1 COMPAREFILESFILE2LIMT1T2S1S2CXPOPENcrFORIMCOMPBOOLBBRBCRXYZILISFIXSTDIAGCALCENDL1L4L8N1N2R1R2C1C2SHOWP1P2OBJL0TIEshowPNAMESL2TIMENS4B3DISPLAYS5B4L5PNCEQLVARFNCRCOMPFNPVALCOMPVARDM1MCOMPM2JDMR1COMPINDzoneUNIQUEF1F2V1V2COMPACKSRSDSCSIMPLSCLVECMATVMWSsvmFITWPDIMSEPLFNDONNOPAKnlinesREPexpnfmFILEAD0OKTWSwMOVEwTIEwLwENDPSMAVINPUTINCRDESCRIBEDUMMATIOTAUversion COMPFILE2describeinstbinpackbinpackerrspchkpdefpnamespsysidplocalspvtom12034501234PACKPCHKPDEFPEXPINSPPDEFPSELLPRPNPANYObJPaKFOCOMFILEFIOTAPRINTfsrnCsR12aLlrEphIdsRh98067345DeFxcMCTBrtzsilKwmsg clearfileenopelpcompackrpn1n2r1r2c1c2limobjanyomatiotas4b3displays5b4endl2vmfitpncl5eqlvarfncrcompfnv1pvalcompvarvrrEpsRcws1comparews2wsfile1 comparefilesfile2t1t2s1s2xpopenforicompboolbbrbcylifixstdiagcalcl1l4l8compfilep1p2l0printtimenf1f2mcompcompindv2npsrsdscsimplSVMsclvecmatrepsepdfnpakdonnoNLINESpdimoBjpAkfEXPininputajdmr1m1m2ZONEuniquetiefilead0okpexPVTOMpinsppdefpseldumvpsmtwsWmoveWtieWendWlVersionWorkFileWCOMPARESSINDEXSStoMATappendpageoutPAGESLIVEHOST Greenwich SYSTEMNAME WHOTOMBOX MASTERKEYBOOTCPTftiePAGEDINpageinFILECPTAUTOinitnewnumsTIENOSFILESstiefmtchknamesSystemreadpswsptv setnamesopuntieopenlistTRACE bringbackPASSfsrchmove2tofstndfpnfcompfcoverhistfrepfaddchangesfetchfdelfpatchfpdfpvalfNdnOlUpeNdqstballtindextcreplacefdpackcoverhsignalappendreplacecc1contentsmccat1sinceafdificiwhyanforindnameWhyBYWHOMdspl10l20unL3L7L9kaddws filetypesusefilesforws removeusers giveaccess addaccess removeaccessremovews listfiles sqzaccess listaccess editfilenamesadduserslistfw Filestouse Tienumbers WorkspacesifmvuUsersAccess WhoisusertiacusermaxWsId Filenames TievariablesType LibnumbersVERSIONa_w_libfindvarsaccusetypdefs3loopqstexecchangeadddeleteqstnsures9 rightjustleftjustid workspaces filestouseusersmagicaccess whoisusermag tienumbers filenamestype libnumbers tievariablestrapps checkstac createfilestacfix resetstacstactaallfindseqcreatefcreateherewhohostkakk2rdaceforstacspcnostienosn0 justincaseCbarfcreateresizeMAXDELAYunholdappendrlibtieholdcredossvofcmeLocksrunsappendrptrnerxatnow timeencoderesizekeylcucymddateofdaysincenterDIGITSALPHANUMALF100defaultexceptvaluesdaterepremtrbltsindxnubenclpackindexleftrightgraderowsselectiotawhatcondrjljvalarrayshpqposkwmlpkdispnlfnfdcompcptMAXDIMSseencevclupcr2l3sameclfnnDSPADSPBDSPXDSPPDSPFDSPCDSPDSPODSP6DSP1DSP12DSP7DSP4DSP5DSP9DSP10DSP11DSP20mwsmnlbusinessdaysleft encletter decletterMONTHSdate currentdatesholidaysmonitoreltrletrndaystsspMonitorbdadwybydtrmHolidaysaddsecssecstimedevmsgteststopoffcpueditupdformforcleanfilepermfsefsfindrefwhererunpushnotlocalws4fsssefilesrfilerenumpakinpakpkfilenlsepacksrpacksvnencodenowayeXpCCrinpcharscodesctlescapechbodylinetxtcat1spcod9998969594fmcpt97sHaPeaLlrEpShAdOwSeArChsEafNxTrAlLsinostarte11fpsnnli currentdatetcff skiplines setupheadersetupoutputnewpagemheadingheadingheaderfooter ejectpagelastmodspagefmt clearpageglobalstitleinitreportwithexampleOlplOclineHeadHindexHtextOtopmgOnltOnlfObotmgOpplOnocolOmargeOcolsepOppwOpagenOpgfldstuffjOuttieOtotrmskiplsrlcodeclcwlppcswcoOwrapwrapprmoreOUTBUFelcolsfoldpagepnoddphHwidthsHfromptOpsmtopGtTLprmcolparmsfnlineofftrimexpandhsphsprintexecinexqcleanlibdnodecodedstimesvnhorizplfstdfilesvertplbtoibottomciotar1miota rpplusredfcnixVrVuVfVnL6erasetedstdldhsvrrarboldhlntnxnyXpITtFtiLaLepwec getcomments delcomments repcomments addcommentsCoffCdir putcommentsptrdirComcomrelrefreusedelthereapprepdirXglobalsXtreegenXrdXqzXobjectsXmvXgensymbXftXfnsXeq XdescribeXc1XcallsXaddXversionflistXrefofXfrXcomparefcptsforXfXrXnXstXbrXallXfsXnlfnnameXlXxpdodalocgllabslnaMnrefgOshOXlpasignonstoutstbsetstsetstbreak STASKMODE staskmodeshowsstatusoprtaskstsend signstask stretract initSTASKstreadconversebsstrSTASKstsSTSPrOpv3svcinpoupscidlastnullmodeaoutmoreaoutainbreak sendbreaknoblimmexexitoutpromptiemaskaskstateaskerroraskoaskhelpaskmacroASKSUFASKASKBUFaskosasknASKSEPl6l7l9ASKMAC completedgetparmwsnameparmholdSchedtidbadtblpagerRevtabResDovarCcwsArbtypeSLconnectXwsexec XwsversionXwspurgeXwsopenXwsinitXwsfile XwsdescribedropXwstiederremptyXkXprXtXiXsXbPPdefosslPdebarreDEBROWFINDPSYSIDPACKBINPACKERRSpchkpdefpnamespncpsysidpvalpackbin packerrspexpinsppdefpselPACKPCHKPDEFPNAMESPNCPSYSIDPVALPACKBIN PACKERRSPEXPINSPPDEFPSELDETAILSMcompkeepUCMDRESULTPDRCPACKBINPDEFPNAMES GLOBALALX GLOBALELX GLOBALCT GLOBALIO GLOBALPWUFILESSYSIDUCMD2OVERMATRIFYMATIOTAIFERRINOUTFOPEN OVEROBJ MATRIFYOBJ MATIOTAOBJXAEHIJKLNTTYPEVVARCSUERRMSGQPKGTIEDYZW2312111013141522161718211920aZaAaBCMDOSSOSpOvL10L11L17L15L20L60L25L45L30L55L35L40L50CASWSBDELTMPXSFSEXERRd[Jd [Jd = = 8 d0d d00010000# resets SHOW with value d d 00020000 2 d [J@d  9 ;;d  d 00010000ERROR(-IO-DMTCNL)DM.(/ , ( DPNAMES) ) > [  0;]# Copyright (c) 1987, I.P. Sharp AssociatesNOPQR d &\J@d  B ;;d d 00010000ERROR(-IO-DMTCNL)DM.(/ , ( DPNC) ) > [  0;]# Copyright (c) 1987, I.P. Sharp Associates &d D\J@(d  G ;;(d &d 00010000ERROR(-IO-DMTCNL)DM.(/ , ( DPVAL) ) > [  0;]# Copyright (c) 1987, I.P. Sharp Associates3d]J 9j@]J4 COMPARE UTILITY THIS GRP/WS WILL PROVIDE USEFUL INFO BETWEEN 2 OBJECTS, MAINLY THE DIFFERENCE BETWEEN THEM. THERE ARE 2 MAIN FNS: R C1 COMPFN C2 COMPARES 2 FNS; '' IF IDENTICAL. C1 AND C2 ARE THE CR OF FNS. R V1 COMPVAR V2 COMPARES 2 VARIABLES; '' IF SAME. DIFFERENCES ARE SHOWN ON SIMPLE OBJECTS OF RANK 2 OR LESS OR IF THEY ARE SMALL ENOUGH. THE FORMAT OF COMPFN IS AS FOLLOW: THE FUNCTION ON THE LEFT IS ASSUMED TO BE THE ONE WHICH HAS CHANGED. THE FN ON THE RIGHT IS ASSUMED TO BE THE REPLACING FN. THE OUTPUT IS BASED ON THESE ASSUMTIONS. EACH LINE OF THE FN ON THE LEFT IS PRECEEDED BY ITS LINE NUMBER [XX]. WHERE THE LINE HAS BEEN DELETED A SYMBOL APPEARS () BEFORE THE LINENUMBER. WHERE A NEW LINE HAS BEEN INSERTED THERE IS NO LINE NUMBERING. EXAMPLE: FNA FNB [1] SAME LINE [1] SAME LINE [2] FNA LINE 2 [2] FNB LINE 2 [3] SAME LINE 3 [3] SAME LINE 3 [4] COMMENT DELETED [4] NEW COMMON LINE [5] NEW COMMON LINE [5] NEW COMMENT (CR 'FNA') COMPFN CR 'FNB' [0] FNA FNB [1] SAME LINE [2] FNA LINE 2 FNB LINE 2 [3] SAME LINE 3 [4] COMMENT DELETED [5] NEW COMMON LINE NEW COMMENT NOTE THAT IN ORDER TO AVOID LENGHTY OUTPUT OF BIG FUNCTIONS WITH LITTLE DIFFERENCE ONLY SECTIONS OF THE FUNCTION ARE SHOWN, THOSE WHERE THE CHANGES OCCURED PLUS A CERTAIN NO OF LINES BEFORE AND AFTER (SEE VAR zone). IN ORDER TO COMPARE ENTIRE WSS IT IS NECESSARY TO SEND THE WSS ON FILE AND TO USE THE 'COMPFILE' PROGRAM AS FOLLOW: )XLOAD WS1 )COPY COMPARE TWS TWS TRANSFER THE WS )XLOAD WS2 )COPY COMPARE TWS TWS )LOAD COMPARE COMPFILE CLEARFILE IF WANTED SO 'TWS' IS THE tRANSFER ws FUNCTION. IT MOVES THE VARIABLES AND FUNCTIONS OF THE WS ONTO FILE PRECEEDED BY NAMETIMESTAMP. IF THE FILE DOES NOT EXIST IT IS CREATED. AFTER 'COMPFILE' HAS BEEN RUN, 'CLEARFILE' SHOULD BE RUN IN ORDER TO GET RID OF THE FILE EASILY. NOTE: TWS HAS NO PROVISION FOR PENDING STACK DETECTION [ )SI ]. COMPFILE MAY NOT WORK FINE FOR VERY LARGE OBJECTS (>135K) PW IS USED TO DELIMIT OUTPUT OUTPUT SPECIFICATIONS THE AMOUNT OF INFO DISPLAYED IS DETERMINED BY A FEW GLOBALS. ONE OF THEM, show, CONTAINS 3 VALUES FOR EACH ONE OF THE SECTIONS OF THE REPORT, THAT IS - THE SYMBOLS FOUND only IN THE FIRST OBJECT/WS - THOSE FOUND only IN THE SECOND ONE - THOSE FOUND IN BOTH EACH SECTION IS DIVIDED INTO 3 SUB-SECTIONS - THE NUMBER OF SYMBOLS - THEIR NAMES - THEIR CONTENTS (OR DIFFERENCE) THE FIRST ONE IS ALWAYS DISPLAYED. THE LAST 2 ONES DEPEND ON THE RELATIVE VALUE IN show: IF 1 THE NAMES ONLY ARE DISPLAYED 2 THEIR CONTENTS/DIFFERENCE ONLY IS DISPLAYED 3 BOTH 0 NOTHING IS SHOWN THE DEFAULT VALUE IS 0 2 3, THAT IS THE FIRST SECTION IS NOT DISPLAYED, THE SECOND ONE HAS ITS CONTENTS DISPLAYED AND THE THIRD ONE IS ALL SHOWN. D BARONET 840718 850705 NEW FUNCTION, 'FILE1' COMPAREFILES 'FILE2' WILL COMPARE 2 FILES, SHOWING EACH COMPONENT WITH SAME NUMBER. THAT IS, IF FILE1 RANGES FROM COMPONENTS 10 TO 20 AND FILE2 RANGES FROM 15 TO 45 THEN ONLY COMPONENTS 15 TO 20 WILL BE COMPARED. 850917 A NEW VARIABLE, nlines, SPECIFIES THE MAXIMUM NO OF LINES TO SHOW IN A VARIABLE. PRESENTLY 20, CAN BE RESET. IF THE DISPLAY IS INCOMPLETE, THE STRING '...[MORE]' APPEARS AFTER. 4dp]J3DJEDEC865(2.. =u .2. & - +ظ.BӡkP]J HPGSEP90PACKp2O2,)%     .V.X.*..,.7s.6t˾8Bˎێÿ....>,5v / u..x.>,6v5P t.R.xT.z@R&Z.~.|.>,7vp.|..6.L..V=w.X.t =t33t=t˸.V23S.VRQYZ[D./Ŏ3Q2ȋ<V^VŎؾ^+ Y3..2.P.Z t.P .v.f.\.t..Z.`t.>u .>rv.f." u s.rw.V.3Ѓ...VɎ.>fu4.-..,.... Ȏؾ3.j..Z.`.\.t.rt.=v.f@P.hȃy3ɸ.^MY..Z.`.\.t.V.j.r;tMQPS.^_[X;s+S.;uPXu[Y[Xbf.h.n.+j..+j&+..@@.p3.uw...>u.SWP.^X_[.j&>.>t& && &.Vt .n33.-..,..f. .j Ȏؾ.j te.".h.r.Dts.;"~."..>L ێ؎Çt|t |wË.+L3һ .t&=t~ك.h.&.>v&1D t{\fs.Z.`.\.t\.>u t .r9t<~ك.h..t.6v&&x..f3.t.6v..f=Mv[؃&?tLs:S.r.+j.V&.j.r.Z&.`.\&.t[&u tÉ3.t.n .P.Lx.;frV.^.t.6v.n3.p.f=Mv+V.|^t+&.j؉QȭV.`^YCC t..2.P.4.N .S .>,6r1.>u).n.6p. .jÎ&t.P.R..X?t5t.>f3[t˽t|tu.> 3tdt ..>2.R.Z 3.n.6p. FFu;r.>p&%3.n.6p. xHV.+6pxNt^ÀljT^t".jؠ$u 1 tFF3.>,7rP.>xtH.) .n.6p. .x#.+p_P .)) Xt AnyFF3.jQ>u>tp.) Y.jQ>u>t @.) Y.N.+) .n.6p. .x-.+p_&t.j؉&L FF3.n3.tÀ T3. .n3.|.pt0.j&؉>ߠPSu K_q [X 3.>,7rL.>xtD.) . .n3.|Pa .)) X.pt oyÃ3)t .X.?uˎt.>ftDt.n3t.j;r.p& uˌȎ٠u.>ut1t_.Z ..V&$ 3QS.n.l;s٠  u3 [Y.j .nP.t8.>,6v QS [Y%ؠ ut ؠ Xtˌ؎.X.?u>&1.n.6p.juÎؠt3ˎ.ft.>ft.f,".fW] =r__3˸.V..X.`.Zu/;s+.>p&u.jؠt3[Y_WQS3.`.>b.;>ds[&<t,.d+ϰ tFOAuA.>b؋+ً& .b uOAuA3VQS.t.6v.<WVQ=Mv .: u :u 4.`tY^_FFиY^_3[Y^ VQ~MuI t,u3Y^,6r<_t:.`>váu<tÀvÊ2.b*.d<ut4> u-.fWQS؎.>b.d+3۰ tCt[Y_=v.f3. UR,Z]ur.n3|tÊ< W_LS.r3.rë3QX%t+Ȱ.+jG[ì<ÎQ2YRP&t$x":uWV<wG&E^_t :XZWQV.R.2<~  ..>L^uV.+L3һ. ;s6V.6p^x'&Et=w=ؠu  u(&&&$&ë^_}..;Ru.R׃3Y_WRQP..>L.R.P+2.>T.R.P+2XYZ_RP.N@.L.TXZVQ2 F2F..6T.6Y^VQSP.j.n3<~X[Y^uVSt[^VRQЬ2PFFZYZ^WVRQ.ر.._V.s&.7CC- .L.SV[GGYZ^_S>t>us>rl.; ub.(;uX;uY;wPt@;u4$,8r-P t .L؃+ɰXtDtE..604..عdDt u;\t`u tt 3[Y^P.j.l.n@@.pXWVQɎY^_.>,7r.>xtS.[.>,uQSPX[YUWVRZ^_].>,7rf.>xt^QSP..p+t,7r.>xtQPSf [u\XYSR. t.t(.+L.x.zGtg Z[SQR.+L.x.zGtZY[.>,7s.>xtRQSPP$u tXQaZ.+L.x.zGt$QG$p t  GY.)NW+u]_X[YZRP.;|r+.6~ t@XZ+u &u0002000;d]J DOMAIN ERROR SYNTAX ERROR RANK ERROR LIMIT ERROR SYMBOL TABLE FULL PKG SYSTEM ERROR APL VER NOT SUPPORTEDPKG VER NOT SUPPORTED(RESERVED) VWS FULL  Id ]J@Kd ; ; ; ; ; Kd@Id 00010000# Copyright (c) 1987, I.P. Sharp AssociatesOd ]JQd  ;;QdPOd Vd00010000# Vector to matrix, multiple blanks are ignoredVd@Qd Zd00020000 (    )/   Zd@Vd ^d00030000ERROR (-IO-DMTCNL)DM^d Zd 00040000 (D2 0)KPS؎& u<t[͈X˾&&<u&I܊++&I:tC;rE[͈[ȿ & +۬I:uQ+ YC kd *^J@md  ; ; ;;00md kd 00010000ERROR(-IO-DMTCNL)DM.(/ , ( DPACK) ) > [  0;]# Copyright (c) 1987, I.P. Sharp AssociatesH V0005000xd 0^J@zd  ;;7 5^zd xd d00010000ERROR(-IO-DMTCNL)DM.(/,  ( DPCHK) ) > [(, ) 0;]# Copyright (c) 1987, I.P. Sharp Associatesd0zd 00020000 :  []pchk d 6^J@d ;;d d 00010000ERROR(-IO-DMTCNL)DM.(/ , ( DPDEF) ) > [  0;]# Copyright (c) 1987, I.P. Sharp Associates=d0<^Jd  ;;;; ; ; ; d@d d00010000ERROR(-IO-DMTCNL)DMdPd d00020000# WARNING: The X variables must not be in the package!!!dPd d00030000# For now I don't do any testing of this.d`d d00040000# NOTE: Cannot be used in run-time systems that don't have DEF. d d d00050000>(/71)/ SYNTAX ERROR>(R )/ DOMAIN ERROR>(-  )/ RANK ERROR>(/ )/ DOMAIN ERRORdPd d00060000  9   I    .(  ) d@d d00070000  >( )/ DOMAIN ERRORdpd d00080000 0(; )4[1] PDEF 2  2  2PACK 3[(3)~4;]d d d00090000  !"d@d d00100000>(/ )/PEX DEF ERROR=>?@ABd d d00110000- OPQRd@d 00120000# Copyright (c) 1987, I.P. Sharp Associatesr3d0B^Jd  ;;; ; ; ; (5^d@d d00010000ERROR(-IO-DMTCNL)DMdPd d00020000# WARNING: The X variables must not be in the packages!!!*dPd d00030000# For now I don't do any testing of this.NOPQRd`d d00040000# NOTE: Cannot be used in run-time systems that don't have DEF.}~d@d d00050000>((/ )/ )/ DOMAIN ERRORd0d d00060000  9   9 d d d00070000 0(; )(; )G[1] PDEF 1  1  PDEF 2  2  1PACK (,' ',3),,' ',4 psysd d d00080000  d@d d00090000>(/ )/PINS DEF ERROR,d d e00100000- e@d 00110000# Copyright (c) 1987, I.P. Sharp Associatessi"e H^Je  ;;; e@e e00010000ERROR(-IO-DMTCNL)DM987, I.P. S e@e e00020000>(/ )/ DOMAIN ERRORep e e00030000.(/71) >(R )/ DOMAIN ERROR>(-  )/ RANK ERRORe`e e00040000  I     7 >( )/ DOMAIN ERROR. ,(e0e e00050000 :  9  7 (PEXe@e #e00060000 : /  (0 ) ( ) CDEF#e@e 00070000# Copyright (c) 1987, I.P. Sharp AssociatesEF<'e0N^J*e  ;;; ; ; ,*e@'e .e00010000ERROR(-IO-DMTCNL)DM.eP*e 3e00020000# WARNING: The X variables must not be in the package!!!3eP.e 8e00030000# For now I don't do any testing of this.8e`3e >e00040000# NOTE: Cannot be used in run-time systems that don't have DEF.>e 8e He00050000>(/71)/ SYNTAX ERROR>(R )/ DOMAIN ERROR>(-  )/ RANK ERROR>(/ )/ DOMAIN ERROR HeP>e Me00060000  9   I    .(  ) -DMTCNMe@He Qe00070000>( )/ DOMAIN ERRORKBIN)0  EQe`Me We00080000 0(; )$[1] PDEF 2  2  2PACK 1  We Qe Ye00090000  01000Ye@We ]e00100000>(/ )/PSEL DEF ERROR ( D]e Ye _e00110000- > [ _e@]e 00120000# Copyright (c) 1987, I.P. Sharp Associatesce \_Jee  ; m; l;; eePce je00010000# danb 840701 erase file holding transfered wssje@ee ne00020000  File erasednope m  Fnepje ue00030000.( l($[;  ]./ m)/ %)  m l((  l) l ) ue0ne xe00040000 : m l.xe0ue 00050000 : No file to clearlPt_Jl  ;; ; ; ; ; ; ; ; ; l; n; ; 8; ; ; ; ; l@l l00010000# danb 880325 package comparisonl l l00020000l@l l00030000# first, find all obj names in each packagelPl l00040000# SHOW: 1=show names ;2=contents ;3=both ;0=nothingl0l l00050000 lpl l00060000 8 2  o S |[1](0S)/0rr,,CR,Sl0l l00070000    9 l0l l00080000    9 lpl l00090000      (  )  (  ) # adjust dimensionsl l l00100000l0l l00110000# names known, display headerl`l l00120000  outstanding objects in # objects not appearing in the other objl@l l00130000.(/ 0 / )/ l`l l00140000 ***(/ ) left- 8[]/o vm fit in1l`l l00150000. 8[]  l  /   0 # show individual objectslPl l00160000 :.( l-  )/  p [ [ ];]. l@l l00170000# show object; names are preceeded by

l l l00180000l@l l00190000 :.(/ 0 / )/ l`l l00200000 ***(/ ) right- 8[]/o vm fit in2l`l m00210000. 8[]  l  /   0 # show individual objectsmPl m00220000 :.( l-  )/  p [ [ ];]. m m m00230000 m@m m00240000# show objects common to both wsmP m m00250000 :.(/    )   nmPm m00260000 ***( ) common objects. 8[] m m m00270000 mPm m00280000 :   B   B   8[]m m !m00290000!mPm &m00300000# display difference between both version of each object&mP!m +m00310000 :.( -  )  n [ ;].( [ ] [ ])/ +mP&m 0m00320000 / |*  n has different classes . 0m@+m 4m00330000 :.( [ ] )   n   n 4m00m 7m00340000.(A  ) 7mP4m ,..>u. ......>.&...6.>;uI .$.;"~ .u .;"}t .&.&.*.>,&-..&.;"~.6$E;~.>".>.,.>,.;>tp=!m@Zm m00040000#dyadic iota on matrices - rows to rowsmPm m00050000#x,y  both character matrices with same widthm0m m00060000# r  io++/^\y.xmPm m00070000# (256avx)256avy ... faster but lacks precisionm0m m00080000# rx matiota y;n;t;u;v;iom@m m00090000# io1  vavyxxav[256]m0m m00100000# tv<1+n1y  runmPm m00110000# r[t/v]((~t)/v)[1+(t/t)-u]-n ...[io+t/+\~t]...m0m 00120000# r[(/yx[r;])/u]04{e0_J~e   ; ; ; !; ;~e@{e e00010000# danb 840629 display object from packageeP~e e00020000  |.(  " # $)[VFP  ]e`e e00030000 :.(   )/   !{ ( ) d structure }. e`e e00040000 :  /   |/ !(  ) |  [( )/  % ( )]ee e00050000 :   (R ) [c] |(  !)(  !)/ ...[more].ee e00060000 ":   (/  (R< >P<[>Q<]>BLI5   ) )/ .ePe e00070000 #:.( (  ) B )/ $   . "e0e e00080000 :  G . e@e 00090000 $:    is undefined !$e _Je  ! n;e0e e00010000# matrix from vectorePe e00020000error(^\dmtcnl)/dm# DEFAULT d=tcnlePe e00030000.(-  n)/  n.# any work to do ?e0e e00040000 n(Dz d m) mP[l` .. =u &&<u-u&u&>u& .َ&>t&.&6 .6 .. ;uIуK}.͈.. ...& .3ߎNj.;uI.&'C.+6A..J}m0m m00060000   d l. m0m m00070000 : l l# same rankmpm m00080000.(( )A )  Objects differ in shape: ( ) and  mm m00090000 :.((  )/ )   (/ );objects differ in type. m@m m00100000 :.(( ) l)/  mpm m00110000 'Objects are of rank >2; they differ at (/  ) places. mpm m00120000 :  objects are (/ )char  [ l;].(   )[ l]m@m m00130000 :   |  .m@m m00140000 :   | .mpm m00150000 :   | elements ( /    ) are differents (io=0)m@m m00160000 :.(-/3v1 v2) m`m 00170000   |(Var1: |  ) | |Var2: |  f @`Jf ; ; f`f f00010000# danb 840822 ws comparison pgm - NOTE WON'T WORK UNLESS )xload ALLOWEDf f f00020000   f f f00030000%)xloa   )copy   tws tws )xloa   )copy   tws tws )load   compfile f f 00040000. f0X`J!f ; ; ; ; ; ; ; ; !f0f $f00010000      $fp!f +f00020000  has (  / ) components starting at   +fp$f 2f00030000  has (  / ) components starting at   2fp+f 9f00040000 ( |) Component   c,itCR (  )  9fP2f 00050000*(t(fread t1,i)compvar fread t2,i)/xp >f `J@f 4 5; m; @f@>f Df00010000# open file, return its tie noDf`@f Jf00020000.(/  5)/ 6 m(0 C 5)/ 5# remove double ' 'JfpDf Qf00030000 m(   ) (/\  m) m( / m) m. 7Qf@Jf Uf00040000 6: m  ( 5 )/ 5Uf@Qf Yf00050000 7:.( 4($./ m)/ %)/Yf@Uf 00060000 m 4((  4) 4 ) ]f `J_f + ; ; ; _f`]f ef00010000    -/  .   ef0_f hf00020000   +hfPef mf00030000 A( ) ( F)(  +) Nii+1mf hf of00040000 ofPmf 00050000# danb 83/9/27 will EXP for i:=N[1](or io) to N[2]m@`Jn n ; ; ; ; ; ; ; ; ; ; ; ; l;; mn m n00010000. n`n n00020000# bboolean matrix b m is b with some of the 1's replaced by 0 n@n n00030000# m has the properties that:(1) 1(+/m),+m nP n n00040000# (2) each 1 is below and to the right of the previous 1nP n n00050000# (3) +/,m is a maximum for constraints (1) and (2)n`n n00060000# NOTES io0, m is not necessarily the unique optimal solution of (3)n`n #n00070000# this function is one of the seven wonders of the modern world#n`n )n00080000# main algorithm calculates the boolean matrix x (line l1) where :)nP#n .n00090000# max[i;j]+/,compbool (i,j)b and xmax-0 10,max.nP)n 3n00100000# then uses this to calculate result at line l43n`.n 9n00110000 : ( / )(  )/ # get rid of zero rows and columns9n03n ,G# formatnPn n00200000 *** Comparing   l d  nPn n00210000  with   l d  nPn n00220000  |Report l d n n n00230000n`n o00240000  outstanding objects in # objects not appearing in the other ws:o@n o00250000.(/ 0 / )/ o`o o00260000  |***(/ )  - 8[]/print fit 0 1in1 opo o00270000. 8[]  l  /     # show individual objectso` o o00280000 :.( l-  )/  (   )  [  [ ];]. o@o o00290000# show object; names are preceeded by V or Fo o o00300000 o@o $o00310000 :.(/0 /  )/ $o` o *o00320000  |***(/ )  - 8[]/print fit 0 1in2*op$o 1o00330000. 8[]  l  /      # show individual objects1o`*o 7o00340000 :.( l-  )/  (   )  [  [ ];]. 7o 1o 9o003500009o@7o =o00360000# show objects common to both ws=o`9o Co00370000 :.(/   (  ) )   /   /  CoP=o Ho00380000  | |***( ) common objects |Ho@Co Lo00390000- 8[]/print fit 0 1objLo@Ho Po00400000. 8[]  (  ) Po`Lo Vo00410000  [ ;]   ( )  n   # FREE nXVo Po Xo00420000XoPVo ]o00430000# display difference between both version of each object]o`Xo co00440000 :.( -  )  n l [ ;].(// l) coP]o ho00450000  |- n has different classes. ho@co lo00460000 :   [ ]   [ ]lo@ho po00470000.(V  l)/ .(A  ) po@lo to00480000  | - function  n  . to0po wo00490000 :.(A  )/ wo@to {o00500000  | - variable  n  . {o wo }o00510000}o@{o 00520000 : |"Use 'clearfile' to erase the file.tf`Juf  uf tf 00010000 wf `Jyf   ; ; ?;yfPwf ~f00010000#copyright i.p.sharp associates limited 1980~fPyf f00020000 ? =\z2Q  H@fP~f f00030000 hv@  pAf`f f00040000 ( ( ? ) )  ?[( ? ) ]fPf 00050000 (l v@) <<  0f  aJf ! 0  1; ; ; ;f0f f00010000# matrix comparisonf`f f00020000# display the object m1 together with the lines from m2 which are f@f f00030000# NOTE 2=(m1)=m2 and (1m1)=1m2f@f f00040000  0 / 1 /  0 f`f f00050000 ! [ ] [,Q]LI4   # row nos, =left, =rightf@f f00060000 ,(  ) / 0 # order of displayf`f f00070000  0 1 ! !((/ ))   !( ! )[ ;]f@f f00080000 (  2) 2# zone of displayfpf f00090000  /   ![; ]./   3(/ .-  !)/  . f f 00100000 ! ![ ;]f aJf l  fPf f00010000# return nos. from 1 to +/b for each element of b such thatfPf f00020000# n is strictly increasing and b/n is +/b(io=1)f`f 00030000 l\ l/ l( l)  l /   f0 3 >f@f g00010000# danb eliminate doubles from list vg0f 00020000 >(( > >)/  >)/ >6g bJg @; @; ; ; g`g g00010000 @   WCOMPARE%1 . g0g g00020000 :   dmgPg g00030000 :dm ()gpg g00040000 @(( @) lx dm elxalxsi sys) @( @) @g@g !g00050000 @VFV[ 7 @] @!gpg (g00060000 // / // @(g@!g ,g00070000 ( ),g@(g 0g00080000.(- @ @) 0g ,g 9g00090000 : (-((/-\0VF @)/cr0) 1tws[io;]).( @ @)/ 9g00g 00100000 :# sa action: clear ?bJWCOMPARE=?g JbJAg  x H ; ;Ag`?g Gg00010000#segsubstrsegstr SSINDEX inds -- Index selection from segmented stringGgPAg Lg00020000ERROR(^\DMTCNL)/DM# Copyright (C) 1985, UNIWARELg`&Gg rg00030000.(/ x, ((DA C B R)) SQRPSUQP u%X%[Y uX}[YZ uXY3 [SQRUVQ؎ڎѾ & ~Ju[+[^]ZY[Ëڋ+ۋ;t) ھ FFItB AڎEË tP&uJKt&&& &&ٿ &B+&~;|GG+ &Ë?PȸSȌ‹[ڎۿ& &E JFF& XË؎QWR& &+ABZ_YPӋ؎& GG&+K&&ڋX t1&u*t/u(&& &*&+C ) rg Lg 00040000>((VALUEDOMAINRANKLENGTHLIMITINDEXSEPARATOR[ $[ x  ]  [ x  ]]) ERRORMo PbJo  I x;63 6064 39o`o o00010000#charmatSStoMAT segstr -- Delimited character vector to matrix8968 16865 1oPo o00020000#Enhanced to accept any-sized argument (21 Sep 87)4 9782 551oPo o00030000ERROR(^\DMTCNL)/DM# Copyright 1987, UNIWARE 1828oP5o o00040000.(/ x, (DA R)PS؎ u$t[[[X3ҋؾȀtṷt u[XgaȬIu t‹ـ瀀 tB3. . ..3..I:tP.u. u..;r"u ..;r.... u. u. 빸. u).  u .u. u .. ..6[2.u. .. [ح3tЬQ€tBY3..I:u u u.u.3PS؎.. . ..[2.6.=t. .3. .[. .&؋. .& tPS. .& u. .& u uYZrQtBY u2QS[Y tSP؋JX[ tSPX[PSQR....++}JQtBY u tJ ZY[X) 914 o`o 00050000 x x 0>( DOMAINRANK[[ x] [ x]]) ERROR 156+|g qJ~g  ; ;64 257 ~g`|g g00010000#resDEB chararray -- Delete extraneous blank columns in a char mat or vecERg0~g g00020000ERROR(^\DMTCNL)/DMg g 00030000 (DZ B T). ...&<tt;tu&.& .. -.&.. ......"...$..&.." ....tk.6&.< t..$.$.$=u ..&Ju.$=uO t&<u&.. u ...]..> ....."..6.> ... ͬ."&'Cu.Ju6 8 wo qJo  x ; ;o`o o00010000#indscharmat ROWFIND chararr -- Origin-1 indices of char rows in a char matoPo o00020000#Enhanced to accept any-sized arrays (9/21/87)oPo o00030000ERROR(^\DMTCNL)/DM# Copyright 1987, UNIWAREoPeo 00040000 (DZ A B) ........t<u t7tt. t$... t....6.t<u t7tt뫭. t$... t....6.....;w#u;w..++sK.."...++sH...u . u.u . u$2......2..6.. u u..>....ṯ"ԀsBsB. . .>u,.>u$3 u tJPhX........6. ....3..3 yuˋ3 u t t... tC_..3 yuً;3 u t>ٰ u0ȋ3 yuً 3 u tٰ tf...3. .t.rë«\Ë..;ru ..;v ... u....;.rw.. .;.w..3.O..C.+sB.....; u..; u%QRsCÌ$ЁZYQRsCÌ$ЁZYQSހˌَہ[YQS[Y.s.PSW...3m3.t_[XU3........ y uK@RJ}Z t ? .l¹ Հ@.Z +ʋӻ|3PXR[3ۊހ. .܀. .....]PSQ3 tÀ tĀtȀ tȀtBY[XgqJ@g  gPg 00010000 ([ ])0[]REpPqJ HPGSEP90PACKXE:p2,2O2,Z ^0^^)%     .V.X.*..,.7s.6t˾8Bˎێÿ....>,5v / u..x.>,6v5P t.R.xT.z@R&Z.~.|.>,7vp.|..6.L..V=w.X.t =t33t=t˸.V23S.VRQYZ[D./Ŏ3Q2ȋ<V^VŎؾ^+ Y3..2.P.Z t.P .v.f.\.t..Z.`t.>u .>rv.f." u s.rw.V.3Ѓ...VɎ.>fu4.-..,.... Ȏؾ3.j..Z.`.\.t.rt.=v.f@P.hȃy3ɸ.^MY..Z.`.\.t.V.j.r;tMQPS.^_[X;s+S.;uPXu[Y[Xbf.h.n.+j..+j&+..@@.p3.uw...>u.SWP.^X_[.j&>.>t& && &.Vt .n33.-..,..f. .j Ȏؾ.j te.".h.r.Dts.;"~."..>L ێ؎Çt|t |wË.+L3һ .t&=t~ك.h.&.>v&1D t{\fs.Z.`.\.t\.>u t .r9t<~ك.h..t.6v&&x..f3.t.6v..f=Mv[؃&?tLs:S.r.+j.V&.j.r.Z&.`.\&.t[&u tÉ3.t.n .P.Lx.;frV.^.t.6v.n3.p.f=Mv+V.|^t+&.j؉QȭV.`^YCC t..2.P.4.N .S .>,6r1.>u).n.6p. .jÎ&t.P.R..X?t5t.>f3[t˽t|tu.> 3tdt ..>2.R.Z 3.n.6p. FFu;r.>p&%3.n.6p. xHV.+6pxNt^ÀljT^t".jؠ$u 1 tFF3.>,7rP.>xtH.) .n.6p. .x#.+p_P .)) Xt AnyFF3.jQ>u>tp.) Y.jQ>u>t @.) Y.N.+) .n.6p. .x-.+p_&t.j؉&L FF3.n3.tÀ T3. .n3.|.pt0.j&؉>ߠPSu K_q [X 3.>,7rL.>xtD.) . .n3.|Pa .)) X.pt oyÃ3)t .X.?uˎt.>ftDt.n3t.j;r.p& uˌȎ٠u.>ut1t_.Z ..V&$ 3QS.n.l;s٠  u3 [Y.j .nP.t8.>,6v QS [Y%ؠ ut ؠ Xtˌ؎.X.?u>&1.n.6p.juÎؠt3ˎ.ft.>ft.f,".fW] =r__3˸.V..X.`.Zu/;s+.>p&u.jؠt3[Y_WQS3.`.>b.;>ds[&<t,.d+ϰ tFOAuA.>b؋+ً& .b uOAuA3VQS.t.6v.<WVQ=Mv .: u :u 4.`tY^_FFиY^_3[Y^ VQ~MuI t,u3Y^,6r<_t:.`>váu<tÀvÊ2.b*.d<ut4> u-.fWQS؎.>b.d+3۰ tCt[Y_=v.f3. UR,Z]ur.n3|tÊ< W_LS.r3.rë3QX%t+Ȱ.+jG[ì<ÎQ2YRP&t$x":uWV<wG&E^_t :XZWQV.R.2<~  ..>L^uV.+L3һ. ;s6V.6p^x'&Et=w=ؠu  u(&&&$&ë^_}..;Ru.R׃3Y_WRQP..>L.R.P+2.>T.R.P+2XYZ_RP.N@.L.TXZVQ2 F2F..6T.6Y^VQSP.j.n3<~X[Y^uVSt[^VRQЬ2PFFZYZ^WVRQ.ر.._V.s&.7CC- .L.SV[GGYZ^_S>t>us>rl.; ub.(;uX;uY;wPt@;u4$,8r-P t .L؃+ɰXtDtE..604..عdDt u;\t`u tt 3[Y^P.j.l.n@@.pXWVQɎY^_.>,7r.>xtS.[.>,uQSPX[YUWVRZ^_].>,7rf.>xt^QSP..p+t,7r.>xtQPSf [u\XYSR. t.t(.+L.x.zGtg Z[SQR.+L.x.zGtZY[.>,7s.>xtRQSPP$u tXQaZ.+L.x.zGt$QG$p t  GY.)NW+u]_X[YZRP.;|r+.6~ t@XZ+u &u0002000gqJ DOMAIN ERROR SYNTAX ERROR RANK ERROR LIMIT ERROR SYMBOL TABLE FULL PKG SYSTEM ERROR APL VER NOT SUPPORTEDPKG VER NOT SUPPORTED(RESERVED) VWS FULL  qPqJ HPGSEP90PACKp2O2,)%     .V.X.*..,.7s.6t˾8Bˎێÿ....>,5v / u..x.>,6v5P t.R.xT.z@R&Z.~.|.>,7vp.|..6.L..V=w.X.t =t33t=t˸.V23S.VRQYZ[D./Ŏ3Q2ȋ<V^VŎؾ^+ Y3..2.P.Z t.P .v.f.\.t..Z.`t.>u .>rv.f." u s.rw.V.3Ѓ...VɎ.>fu4.-..,.... Ȏؾ3.j..Z.`.\.t.rt.=v.f@P.hȃy3ɸ.^MY..Z.`.\.t.V.j.r;tMQPS.^_[X;s+S.;uPXu[Y[Xbf.h.n.+j..+j&+..@@.p3.uw...>u.SWP.^X_[.j&>.>t& && &.Vt .n33.-..,..f. .j Ȏؾ.j te.".h.r.Dts.;"~."..>L ێ؎Çt|t |wË.+L3һ .t&=t~ك.h.&.>v&1D t{\fs.Z.`.\.t\.>u t .r9t<~ك.h..t.6v&&x..f3.t.6v..f=Mv[؃&?tLs:S.r.+j.V&.j.r.Z&.`.\&.t[&u tÉ3.t.n .P.Lx.;frV.^.t.6v.n3.p.f=Mv+V.|^t+&.j؉QȭV.`^YCC t..2.P.4.N .S .>,6r1.>u).n.6p. .jÎ&t.P.R..X?t5t.>f3[t˽t|tu.> 3tdt ..>2.R.Z 3.n.6p. FFu;r.>p&%3.n.6p. xHV.+6pxNt^ÀljT^t".jؠ$u 1 tFF3.>,7rP.>xtH.) .n.6p. .x#.+p_P .)) Xt AnyFF3.jQ>u>tp.) Y.jQ>u>t @.) Y.N.+) .n.6p. .x-.+p_&t.j؉&L FF3.n3.tÀ T3. .n3.|.pt0.j&؉>ߠPSu K_q [X 3.>,7rL.>xtD.) . .n3.|Pa .)) X.pt oyÃ3)t .X.?uˎt.>ftDt.n3t.j;r.p& uˌȎ٠u.>ut1t_.Z ..V&$ 3QS.n.l;s٠  u3 [Y.j .nP.t8.>,6v QS [Y%ؠ ut ؠ Xtˌ؎.X.?u>&1.n.6p.juÎؠt3ˎ.ft.>ft.f,".fW] =r__3˸.V..X.`.Zu/;s+.>p&u.jؠt3[Y_WQS3.`.>b.;>ds[&<t,.d+ϰ tFOAuA.>b؋+ً& .b uOAuA3VQS.t.6v.<WVQ=Mv .: u :u 4.`tY^_FFиY^_3[Y^ VQ~MuI t,u3Y^,6r<_t:.`>váu<tÀvÊ2.b*.d<ut4> u-.fWQS؎.>b.d+3۰ tCt[Y_=v.f3. UR,Z]ur.n3|tÊ< W_LS.r3.rë3QX%t+Ȱ.+jG[ì<ÎQ2YRP&t$x":uWV<wG&E^_t :XZWQV.R.2<~  ..>L^uV.+L3һ. ;s6V.6p^x'&Et=w=ؠu  u(&&&$&ë^_}..;Ru.R׃3Y_WRQP..>L.R.P+2.>T.R.P+2XYZ_RP.N@.L.TXZVQ2 F2F..6T.6Y^VQSP.j.n3<~X[Y^uVSt[^VRQЬ2PFFZYZ^WVRQ.ر.._V.s&.7CC- .L.SV[GGYZ^_S>t>us>rl.; ub.(;uX;uY;wPt@;u4$,8r-P t .L؃+ɰXtDtE..604..عdDt u;\t`u tt 3[Y^P.j.l.n@@.pXWVQɎY^_.>,7r.>xtS.[.>,uQSPX[YUWVRZ^_].>,7rf.>xt^QSP..p+t,7r.>xtQPSf [u\XYSR. t.t(.+L.x.zGtg Z[SQR.+L.x.zGtZY[.>,7s.>xtRQSPP$u tXQaZ.+L.x.zGt$QG$p t  GY.)NW+u]_X[YZRP.;|r+.6~ t@XZ+u &u0002000gqJ DOMAIN ERROR SYNTAX ERROR RANK ERROR LIMIT ERROR SYMBOL TABLE FULL PKG SYSTEM ERROR APL VER NOT SUPPORTEDPKG VER NOT SUPPORTED(RESERVED) VWS FULL  OsP(rJ HPGSEP90PACKp2O2,)%     .V.X.*..,.7s.6t˾8Bˎێÿ....>,5v / u..x.>,6v5P t.R.xT.z@R&Z.~.|.>,7vp.|..6.L..V=w.X.t =t33t=t˸.V23S.VRQYZ[D./Ŏ3Q2ȋ<V^VŎؾ^+ Y3..2.P.Z t.P .v.f.\.t..Z.`t.>u .>rv.f." u s.rw.V.3Ѓ...VɎ.>fu4.-..,.... Ȏؾ3.j..Z.`.\.t.rt.=v.f@P.hȃy3ɸ.^MY..Z.`.\.t.V.j.r;tMQPS.^_[X;s+S.;uPXu[Y[Xbf.h.n.+j..+j&+..@@.p3.uw...>u.SWP.^X_[.j&>.>t& && &.Vt .n33.-..,..f. .j Ȏؾ.j te.".h.r.Dts.;"~."..>L ێ؎Çt|t |wË.+L3һ .t&=t~ك.h.&.>v&1D t{\fs.Z.`.\.t\.>u t .r9t<~ك.h..t.6v&&x..f3.t.6v..f=Mv[؃&?tLs:S.r.+j.V&.j.r.Z&.`.\&.t[&u tÉ3.t.n .P.Lx.;frV.^.t.6v.n3.p.f=Mv+V.|^t+&.j؉QȭV.`^YCC t..2.P.4.N .S .>,6r1.>u).n.6p. .jÎ&t.P.R..X?t5t.>f3[t˽t|tu.> 3tdt ..>2.R.Z 3.n.6p. FFu;r.>p&%3.n.6p. xHV.+6pxNt^ÀljT^t".jؠ$u 1 tFF3.>,7rP.>xtH.) .n.6p. .x#.+p_P .)) Xt AnyFF3.jQ>u>tp.) Y.jQ>u>t @.) Y.N.+) .n.6p. .x-.+p_&t.j؉&L FF3.n3.tÀ T3. .n3.|.pt0.j&؉>ߠPSu K_q [X 3.>,7rL.>xtD.) . .n3.|Pa .)) X.pt oyÃ3)t .X.?uˎt.>ftDt.n3t.j;r.p& uˌȎ٠u.>ut1t_.Z ..V&$ 3QS.n.l;s٠  u3 [Y.j .nP.t8.>,6v QS [Y%ؠ ut ؠ Xtˌ؎.X.?u>&1.n.6p.juÎؠt3ˎ.ft.>ft.f,".fW] =r__3˸.V..X.`.Zu/;s+.>p&u.jؠt3[Y_WQS3.`.>b.;>ds[&<t,.d+ϰ tFOAuA.>b؋+ً& .b uOAuA3VQS.t.6v.<WVQ=Mv .: u :u 4.`tY^_FFиY^_3[Y^ VQ~MuI t,u3Y^,6r<_t:.`>váu<tÀvÊ2.b*.d<ut4> u-.fWQS؎.>b.d+3۰ tCt[Y_=v.f3. UR,Z]ur.n3|tÊ< W_LS.r3.rë3QX%t+Ȱ.+jG[ì<ÎQ2YRP&t$x":uWV<wG&E^_t :XZWQV.R.2<~  ..>L^uV.+L3һ. ;s6V.6p^x'&Et=w=ؠu  u(&&&$&ë^_}..;Ru.R׃3Y_WRQP..>L.R.P+2.>T.R.P+2XYZ_RP.N@.L.TXZVQ2 F2F..6T.6Y^VQSP.j.n3<~X[Y^uVSt[^VRQЬ2PFFZYZ^WVRQ.ر.._V.s&.7CC- .L.SV[GGYZ^_S>t>us>rl.; ub.(;uX;uY;wPt@;u4$,8r-P t .L؃+ɰXtDtE..604..عdDt u;\t`u tt 3[Y^P.j.l.n@@.pXWVQɎY^_.>,7r.>xtS.[.>,uQSPX[YUWVRZ^_].>,7rf.>xt^QSP..p+t,7r.>xtQPSf [u\XYSR. t.t(.+L.x.zGtg Z[SQR.+L.x.zGtZY[.>,7s.>xtRQSPP$u tXQaZ.+L.x.zGt$QG$p t  GY.)NW+u]_X[YZRP.;|r+.6~ t@XZ+u &u0002000g.rJ DOMAIN ERROR SYNTAX ERROR RANK ERROR LIMIT ERROR SYMBOL TABLE FULL PKG SYSTEM ERROR APL VER NOT SUPPORTEDPKG VER NOT SUPPORTED(RESERVED) VWS FULL  gZJCLEARFILEgZJNOPEgZJCOMPAREgZJCOMPFILEgZJFILE1g ZJCOMPAREFILESgZJFILE2g[JOPENg![JFORIg-[JCOMPBOOLg{[JDIAGg[JCALCg[JSHOWg[Jshowg[JPNAMESg[JTIMENg \JDISPLAYg5\JFNCRg;\JCOMPFNgA\JPVALgG\JCOMPVARgY\JMCOMPge\JJDMR1gk\JCOMPINDgq\Jzonegw\JUNIQUEg\JCOMPACKg\JSIMPLg]JDONNOg ]Jnlinesg1]JFILEgI]JwMOVEgO]JwTIEg[]JwENDgs]JINPUTg]JDESCRIBEg]JMATIOTAg]Jversiong]JCOMPFILE2g]Jdescribeh]Jinstbinh]Jpackbinh]Jpackerrsh]Jpchkh]Jpdefh]Jpnamesh]Jpsysidh]Jplocalsh]Jpvtom h'^JPACK h-^JPCHK h3^JPDEF h?^JPINS hE^JPPDEFhK^JPSELh^JCOMFILEh^JFIOTAh0VJ*** WORKSPACE comparison ws ***h^JPRINThY_Jclearfilehe_Jnopehq_Jcompackh_Jmatiotah_Jdisplayh `Jfncrh`Jcompfnh`Jpvalh%`Jcompvarh+`JvrrEph=`Jcompare hO`Jfile1!h U`Jcomparefiles#h[`Jfile2$h`Jopen%h`Jfori&h`Jcompbool'h`Jdiag(h`Jcalc)h`Jcompfile*h`Jprint+h`Jtimen,h aJmcomp-haJcompind.h3aJsimpl/hoaJdonno0huaJNLINES1haJinput2haJjdmr13haJZONE4haJunique5haJfile6haJPVTOM7haJpins8haJppdef9haJpsel:hbJWmove;h#bJWtieh;bJWorkFile?hAbJWCOMPARE@hGbJSSINDEXAhMbJSStoMATBhXJChZJDhSbJappendEhYbJpageoutFh_bJPAGESGhebJLIVEHhkbJHOSTIhqbJGreenwichJh wbJSYSTEMNAMELh}bJWHOTOMBOXMhbJMASTERKEYNhbJBOOTCPTOhbJftiePhbJPAGEDINQhbJpageinRhbJFILECPTShbJAUTOThbJinitUhbJSystemVhbJnumsWhbJTIENOSXhbJFILESYhbJstieZhbJnames[hbJread\hcJsetnames]h cJuntie^hcJopen_hcJlist`hcJTRACEah%cJbringbackbh+cJPASSch1cJfsrchdh7cJmove2toeh=cJfstndfhIcJfcompghOcJfcoverhhUcJhistih[cJfrepjhacJfaddkhgcJchangeslhmcJfetchmhscJfdelnhycJfpatchohcJfpvalphcJcontentsqhcJpackrhcJqstbshcJtindexthcJreplaceuhcJcovervhcJsignalwhcJappendxhcJreplaceyhcJmccat1zhcJsince{h3dJname|h?dJBYWHOM}hudJaddws~h{dJfiletypeshdJusefileshdJforwsh dJremoveusersh dJgiveaccesshdJaddaccessh dJremoveaccesshdJremovewshdJlistfileshdJsqzaccessh dJlistaccessh dJeditfilenameshdJaddusershdJlistfwh5eJVERSIONh dJFilestouseh dJTienumbersh dJWorkspaceshdJUsershdJAccesshdJWhoisuserheJtiach eJuserheJWsIdheJFilenamesh #eJTievariablesh)eJTypeh /eJLibnumbershMeJfindhSeJvarshweJloopheJexecheJchangeheJdeleteheJqstnheJsureheJrightjustheJleftjusthfJtraph eJworkspacesh eJfilestouseheJusersheJmagicheJaccessheJwhoisuserh eJtienumbersheJfilenamesheJtypeh eJlibnumbersh fJtievariablesh fJcheckstach fJcreatefilehfJstacfixh %fJresetstach+fJstach7fJallfh=fJindseqhCfJcreatehIfJfcreatehOfJhereh[fJhostkhmfJrdachsfJeforhyfJstachfJtienoshfJCbarh fJjustincasehfJfcreatehfJresizehfJMAXDELAYhfJunholdhfJappendrhfJlibhfJtiehfJholdhfJdoshfJLockshfJrunshfJappendrhgJptrnh !gJtimeencodeh'gJresizehEgJdateofhKgJdaysinhQgJcenterhWgJDIGITSh]gJALPHANUMhigJ100hogJdefaulthugJexcepth{gJvalueshgJdaterephgJremtrblhgJtsindxhgJnubhgJenclhgJpackhgJindexhgJlefthgJrighthgJgradehgJrowshgJselecthgJiotahgJwhathgJcondhgJarrayhhJdispnlhhJfnfdh#hJcompcpti)hJMAXDIMSiShJsamecli_hJDSPAiehJDSPBikhJDSPXiqhJDSPPiwhJDSPFi}hJDSPCihJDSPO ihJDSP6 ihJDSP1 ihJDSP12 ihJDSP7 ihJDSP4ihJDSP5ihJDSP9ihJDSP10ihJDSP11ihJDSP20i hJbusinessdaysleftihJencletterihJdecletterihJMONTHSihJdatei hJcurrentdatesiiJholidaysiiJmonitori iJeltriiJletriiJndays i+iJMonitor!iUiJHolidays"i[iJaddsecs#iaiJsecs$igiJtime%imiJdevmsg&isiJtest'iyiJstopoff(iiJedit)iiJformfor*iiJclean+iiJfileperm,iiJfsfind-iiJrefwhere.iiJpush/iiJnotlocal0iiJsefile1iiJsrfile2iiJrenum3iiJpakinpak4iiJpkfile5iiJsepack6iiJsrpack7i jJencode8ijJnoway9i!jJrinp:i'jJchars;i-jJcodesiKjJline?iWjJcat1@ijJsHaPeAijJaLlBijJrEpCijJShAdOwDijJSeArChEijJstartFi kJcurrentdateHi kJtcffIikJskiplinesJi kJsetupheaderLikJsetupMi#kJoutputNi)kJnewpageOi/kJmheadingPi5kJheadingQi;kJheaderRiAkJfooterSiGkJejectpageTiMkJlastmodsUiSkJpagefmtViYkJclearpageWi_kJglobalsXiekJtitleYi kkJinitreportwith[iqkJexample\iwkJOlpl]i}kJOcline^ikJHead_ikJHindex`ikJHtextaikJOtopmgbikJOnltcikJOnlfdikJObotmgeikJOpplfikJOnocolgikJOmargehikJOcolsepiikJOppwjikJOpagenkikJOpgfldlikJstuffmikJOuttienikJOtotrmoikJskippilJcodeqi%lJOwrapri+lJwrapsi7lJmoreti=lJOUTBUFuiIlJcolsviOlJfoldwiUlJpageximlJHwidthsyislJHfromzilJOpsm{ilJparms|ilJfnline}ilJoff~ilJtrimilJexpandilJhsprintilJexecinilJcleanlibilJdecodeilJdstimeilJsvnilJhorizplilJfstdimJfilesi mJvertplimJbtoiimJbottomimJciotar1i!mJmiotai'mJrpplusredi]mJerasei mJgetcommentsi mJdelcommentsi mJrepcommentsi mJaddcommentsimJCoffimJCdiri nJputcommentsi/nJreusei;nJthereiGnJrepdiriMnJXglobalsiSnJXtreegenienJXobjectsiqnJXgensymbi}nJXfnsinJXdescribeinJXcallsinJXaddinJXversioninJflistinJXrefofinJXcompareinJfcptsforinJXallinJfnnamei1oJnrefiCoJXlpaiIoJsignoniOoJstoutiUoJstbseti[oJstsetiaoJstbreakigoJSTASKMODEi moJstaskmodeshowisoJsstatusiyoJoprioJtaskioJstsendioJsignstaskioJstretractioJinitSTASKioJstreadioJconverseioJSTASKioJoupsioJlastioJlmodeipJaouti pJmoreaoutipJbreakipJsendbreaki!pJnobli'pJimmexi-pJexiti9pJpromptiKpJaskstateiQpJaskerroriWpJaskoi]pJaskhelpicpJaskmacroiipJASKSUFiupJASKBUFi{pJaskosipJasknipJASKSEPipJASKMACipJcompletedipJgetparmipJwsnameipJparmipJholdipJSchedipJpageripJRevtabipJDovaripJCcwsipJArbtypei qJconnectiqJXwsexeci qJXwsversioniqJXwspurgei#qJXwsopeni)qJXwsiniti/qJXwsfilei 5qJXwsdescribei;qJdropiGqJtiediSqJemptyi}qJPPdefiqJdebarreiqJROWFINDiqJPSYSIDiqJPACKBINiqJPACKERRSiqJpchkiqJpdefiqJpnamesiqJpnciqJpsysidiqJpvaliqJpackbiniqJpackerrsiqJpexiqJpinsjqJppdefjqJpseljqJPACKjrJPCHKjrJPDEFj rJPNAMESjrJPNCjrJPSYSIDjrJPVAL j%rJPACKBIN j+rJPACKERRS j1rJPEX j7rJPINS j=rJPPDEFjCrJPSELjIrJDETAILSjOrJMcompjUrJkeepj[rJUCMDjarJRESULTjyrJPACKBINjrJPDEFjrJPNAMESj rJGLOBALALXj rJGLOBALELXjrJGLOBALCTjrJGLOBALIOjrJGLOBALPWjrJUFILESjrJSYSID jrJUCMD2!jrJOVER"jrJMATRIFY#jrJMATIOTA$jrJIFERRIN%jrJOUT&jrJFOPEN'jrJOVEROBJ(j rJMATRIFYOBJ*j rJMATIOTAOBJ,j'sJTTYPE-j3sJVARC.jEsJERRMSG/jQsJPKG0jWsJTIED1jsJCMDOSS(2j J.3j J 4j J.5j"J! 6j JLX'7j J> 8j\J $ ASCOMPARE] ;2 SYSHELP