User:Pabigani/sandbox

C:\Users\20077445\Desktop\for classic.xml classic for navisworks

TRAY-COG-GANI

$* Report(v2) C:\Users\20050471\Desktop\ELE-COG\COG_E-I.TMP created by user ELEC-KARIKALAN at 17:02 on 20 Jan 2014 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL |"|  var _CDCREPDEF_DEST1 |OFF|   var _CDCREPDEF_DEST2 |OFF|   var _CDCREPDEF_DEST3 |ON|   var _CDCREPDEF_DEST4 |OFF|   var _CDCREPDEF_FILENAME |C:\Users\20050471\Desktop\COG PIPE RACK AL\0C\TRAY.CSV|   var _CDCREPPAGLEN_PAGELEN ||   var pane _CDCREPDEFHDR_EXP clear add   exit   var pane _CDCREPDEFFTR_EXP clear add   exit   var _CDCREPDEF_TYPE |BRANCH MEM|   var _CDCREPDEF_FILTER ||   var _CDCREPDEF_HIERARCHY |/ELEC-0C|   var list _CDCREPDRW_VOLUME select |Off| exit   var list _CDCREPDRW_FROM select |MDB| exit   var _CDCREPRMPT_TOGFILE      |OFF|   var _CDCREPRMPT_TOGTYPE      |OFF|   var _CDCREPRMPT_TOGWITH      |OFF|   var _CDCREPRMPT_TOGHIER      |OFF|   var _CDCREPRMPT_TogNoWarning |OFF|   var _CDCREPRMPT_TOGVOLU      |OFF|   var _CDCREPRMPT_TOGFROM      |OFF|   var pane _CDCREPDEFINT_EXP clear add   exit   var !!CDCArepEXP[1] raw |ZONE|   var !!CDCArepEXP[2] raw |NAME OF OWNER| var !!CDCArepEXP[3] raw |TYPE| var !!CDCArepEXP[4] raw |ABOR| var !!CDCArepEXP[5] raw |SPEC OF SPREF| var !!CDCArepEXP[6] raw |FITLEN| var !!CDCArepEXP[7] raw |:WWEIGHT OF CMPREF OF SPREF| var !!CDCArepEXP[8] raw |:DRYWEIGHT OF CMPREF OF SPREF| var !!CDCArepEXP[9] raw |GCOF WRT WORLD| var !!CDCArepEXP[10] raw |DTXR| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepSPC[9] raw |2| var !!CDCArepSPC[10] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepWID[9] raw || var !!CDCArepWID[10] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |R| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepJUST[9] raw |L| var !!CDCArepJUST[10] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Metres| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepCONV[9] raw |Off| var !!CDCArepCONV[10] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |OFF| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepDEC[6] raw |ON| var !!CDCArepDEC[7] raw |OFF| var !!CDCArepDEC[8] raw |OFF| var !!CDCArepDEC[9] raw |ON| var !!CDCArepDEC[10] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepFRAC[9] raw |OFF| var !!CDCArepFRAC[10] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDP[9] raw |2| var !!CDCArepDP[10] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepDENOM[9] raw |64| var !!CDCArepDENOM[10] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepSTYLE[9] raw |US| var !!CDCArepSTYLE[10] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepZEROES[9] raw |On| var !!CDCArepZEROES[10] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |A to Z (Ignore Case)| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepSORT[9] raw |Off| var !!CDCArepSORT[10] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw |1| var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepPREC[9] raw || var !!CDCArepPREC[10] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepUNSET[9] raw || var !!CDCArepUNSET[10] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepDHEAD[9] raw |On| var !!CDCArepDHEAD[10] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |OFF| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |OFF| var !!CDCArepSAMEHEAD[6] raw |ON| var !!CDCArepSAMEHEAD[7] raw |OFF| var !!CDCArepSAMEHEAD[8] raw |OFF| var !!CDCArepSAMEHEAD[9] raw |ON| var !!CDCArepSAMEHEAD[10] raw |ON| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[9] raw |OFF| var !!CDCArepOLDHEAD[10] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |ON| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |ON| var !!CDCArepUDHEAD[6] raw |OFF| var !!CDCArepUDHEAD[7] raw |ON| var !!CDCArepUDHEAD[8] raw |ON| var !!CDCArepUDHEAD[9] raw |OFF| var !!CDCArepUDHEAD[10] raw |OFF| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDVAL[9] raw |On| var !!CDCArepDVAL[10] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDSUB[9] raw |Off| var !!CDCArepDSUB[10] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepDTOT[9] raw |Off| var !!CDCArepDTOT[10] raw |Off| var !!CDCArepHEAD[11] raw |BRAN NAME| var !!CDCArepHEAD[41] raw |SPEC| var !!CDCArepHEAD[61] raw |WEIGHT WITH CABLES| var !!CDCArepHEAD[71] raw |WITHOUT CABLE| var !!CDCArepHEAD[72] raw | | var !!CDCArepHEAD[81] raw |DRYWEIGHT| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $ $<$0$> $ $ $ $<$> $ $ $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del |"| if (vtext(!fileName) ne ||) then  openfile "$!fileName" write !output   handle (41,324)      confirm |OK to overwrite $!fileName?|      handle (61,115)         $!units         return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.'      endhandle      if(not $_CALERT_USERDATA) then         $!units         return      endif      openfile "$!fileName" overwrite !output      handle any         $!units         return error 1 |Unable to open file $!fileName|      endhandle   elsehandle any      $!units      return error 1 |Unable to open file $!fileName|   endhandle   var !write |writefile $!output| else   var !isShown form _CADCBTH display   handle any   elsehandle none      if(|$!isShown| eq |Off|) then         show _CADCREQ      endif   endhandle   var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (NAME OF OWNER ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (TYPE ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (ABOR ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (SPEC OF SPREF ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (string((FITLEN / 1000.0),'D2')) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate (:WWEIGHT OF CMPREF OF SPREF ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (:DRYWEIGHT OF CMPREF OF SPREF ) for all from !selection count !selNo$ ignore any || var !evalCol 9 var !col9 raw evaluate (GCOF WRT WORLD ) for all from !selection count !selNo$ ignore any || var !evalCol 10 var !col10 raw evaluate (DTXR ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile if (defined(!graphicsMode)) then prompt 'Sorting output...' endif var !sortorder sort !col3 CIASCII ASCENDING $

var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |BRAN NAME| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |TYPE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ABOR| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |SPEC| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |FITLEN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |WEIGHT WITH CABLES| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |WITHOUT CABLE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |GCOF WRT WORLD| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |DTXR| + vtext(!del)$ ) $!write (vtext(!line)) var !line raw (|| $ + vtext(!sep)$ + vtext(!sep)$ + vtext(!sep)$ + vtext(!sep)$ + vtext(!sep)$ + vtext(!sep)$ + vtext(!sep)$ + vtext(!del) + | | + vtext(!del)$ + vtext(!sep)$ + vtext(!sep)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $ sep (vtext(!sep)) $ col val !col9 q $ sep (vtext(!sep)) $ col val !col10 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

Support_COG-gani

$* Report(v2) D:\TEMP\TEMPATE\COG-SUPPORT created by user ZUBAIR at 15:02 on 24 Feb 2012 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL |"|  var _CDCREPDEF_DEST1 |OFF|   var _CDCREPDEF_DEST2 |OFF|   var _CDCREPDEF_DEST3 |ON|   var _CDCREPDEF_DEST4 |OFF|   var _CDCREPDEF_FILENAME |C:\TEMP\DKJ.CSV|   var _CDCREPPAGLEN_PAGELEN ||   var pane _CDCREPDEFHDR_EXP clear add   exit   var pane _CDCREPDEFFTR_EXP clear add   exit   var _CDCREPDEF_TYPE |SCTN|   var _CDCREPDEF_FILTER ||   var _CDCREPDEF_HIERARCHY |/INST-5P-37000-SUPP|   var list _CDCREPDRW_VOLUME select |Off| exit   var list _CDCREPDRW_FROM select |MDB| exit   var _CDCREPRMPT_TOGFILE      |OFF|   var _CDCREPRMPT_TOGTYPE      |OFF|   var _CDCREPRMPT_TOGWITH      |OFF|   var _CDCREPRMPT_TOGHIER      |OFF|   var _CDCREPRMPT_TogNoWarning |OFF|   var _CDCREPRMPT_TOGVOLU      |OFF|   var _CDCREPRMPT_TOGFROM      |OFF|   var pane _CDCREPDEFINT_EXP clear add   exit   var !!CDCArepEXP[1] raw |NAM OF ZONE|   var !!CDCArepEXP[2] raw |NAM OF STRU|   var !!CDCArepEXP[3] raw |SPREF OF SCTN| var !!CDCArepEXP[4] raw |CUTLEN OF SCTN| var !!CDCArepEXP[5] raw |POSS WRT /*| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |ON| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |OFF| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $ $<$0$> $ $ $ $<$> $ $ $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !unusedProjCode proj code var !unusedProjNumb proj numb var !unusedProjName proj name var !unusedProjDesc proj desc var !unusedProjMess proj mess var !sep |,| var !del |"| if (vtext(!fileName) ne ||) then  openfile "$!fileName" write !output   handle (41,324)      confirm |OK to overwrite $!fileName?|      handle (61,115)         $!units         return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.'      endhandle      if(not $_CALERT_USERDATA) then         $!units         return      endif      openfile "$!fileName" overwrite !output      handle any         $!units         return error 1 |Unable to open file $!fileName|      endhandle   elsehandle any      $!units      return error 1 |Unable to open file $!fileName|   endhandle   var !write |writefile $!output| else   var !isShown form _CADCBTH display   handle any   elsehandle none      if(|$!isShown| eq |Off|) then         show _CADCREQ      endif   endhandle   var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (NAM OF ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (NAM OF STRU ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (SPREF OF SCTN ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (CUTLEN OF SCTN ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (POSS WRT /* ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |NAM OF ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |NAM OF STRU| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |SPREF OF SCTN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |CUTLEN OF SCTN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |POSS WRT /*| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

equipment COG from-kari-gani

$* Report(v2) C:\Users\20050471\Desktop\ELE-COG\EQPT created by user ELEC-KARIKALAN at 17:43 on 20 Jan 2014 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL |"|  var _CDCREPDEF_DEST1 |OFF|   var _CDCREPDEF_DEST2 |OFF|   var _CDCREPDEF_DEST3 |OFF|   var _CDCREPDEF_DEST4 |OFF|   var _CDCREPDEF_FILENAME |E:\5S-COG.CSV|   var _CDCREPPAGLEN_PAGELEN ||   var pane _CDCREPDEFHDR_EXP clear add   exit   var pane _CDCREPDEFFTR_EXP clear add   exit   var _CDCREPDEF_TYPE |EQUI|   var _CDCREPDEF_FILTER ||   var _CDCREPDEF_HIERARCHY |/ELEC-5S|   var list _CDCREPDRW_VOLUME select |Off| exit   var list _CDCREPDRW_FROM select |MDB| exit   var _CDCREPRMPT_TOGFILE      |OFF|   var _CDCREPRMPT_TOGTYPE      |OFF|   var _CDCREPRMPT_TOGWITH      |OFF|   var _CDCREPRMPT_TOGHIER      |OFF|   var _CDCREPRMPT_TogNoWarning |OFF|   var _CDCREPRMPT_TOGVOLU      |ON|   var _CDCREPRMPT_TOGFROM      |OFF|   var pane _CDCREPDEFINT_EXP clear add   exit   var !!CDCArepEXP[1] raw |ZONE|   var !!CDCArepEXP[2] raw |TYPE|   var !!CDCArepEXP[3] raw |FUNC|   var !!CDCArepEXP[4] raw |EQUI| var !!CDCArepEXP[5] raw |Usrweight| var !!CDCArepEXP[6] raw |POS WRT WORLD| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |OFF| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |OFF| var !!CDCArepDEC[6] raw |OFF| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepSORT[1] raw |A to Z (Ignore Case)| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepPREC[1] raw |1| var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |OFF| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |OFF| var !!CDCArepSAMEHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |ON| var !!CDCArepUDHEAD[6] raw |ON| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepHEAD[41] raw |Usrweight| var !!CDCArepHEAD[51] raw |POS WRT/*| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then kill _PROMPT handle(61,115) return error 1 'Cannot run this report when not in graphics mode' endhandle setup form _PROMPT at xr 0.425 yr 0.0 size 0.1 0.1 title |Report Details| option _VOLUME at X0 YMAX 'Volume   ' call 'CALLIBR RSELECT CHANGEVOLUME _PROMPT' width 20 para _VOLTEXT at X35 YMIN width 30 lines 1 button _OK at x0 ymax+1 |  OK   | call |CALLIBR RSELECT RUN $<$0$>  $ $ $<$> $ $<$$_PROMPT_VOLUME$> $<$$_PROMPT_VOLTEXT$> $<$>| button _CANCEL at XMAX FORM - SIZE YMIN | Cancel | Cancel exit var list _PROMPT_VOLUME clear add 'Off' add 'Completely Within...' add 'Partially Within...' select 'Off' exit var _PROMPT_VOLTEXT '' show _PROMPT return endif hide _PROMPT var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del |"| if (vtext(!fileName) ne ||) then  openfile "$!fileName" overwrite !output   handle (41,324)      confirm |OK to overwrite $!fileName?|      handle (61,115)         $!units         return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.'      endhandle      if(not $_CALERT_USERDATA) then         $!units         return      endif      openfile "$!fileName" overwrite !output      handle any         $!units         return error 1 |Unable to open file $!fileName|      endhandle   elsehandle any      $!units      return error 1 |Unable to open file $!fileName|   endhandle   var !write |writefile $!output| else   var !isShown form _CADCBTH display   handle any   elsehandle none      if(|$!isShown| eq |Off|) then         show _CADCREQ      endif   endhandle   var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (TYPE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (FUNC ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (EQUI ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (Usrweight ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (POS WRT WORLD ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile if (defined(!graphicsMode)) then prompt 'Sorting output...' endif var !sortorder sort !col1 CIASCII ASCENDING $

var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + || + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |FUNC| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |EQUI| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |Usrweight| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |POS WRT/*| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

EI-EQUIP-WEIGHT-COG-REPORT-gani

$* Report(v2) C:\AVEVA\Plant\PDMS12.1.SP4\PDMSUI\reports\templates\EI-EQUIP-WEIGHT-COG-REPORT created by user TAMILESON at 13:40 on 28 Mar 2016 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\INST-EQUIP-REPORT.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |EQUI| var _CDCREPDEF_FILTER |MATCHW(NAME OF ZONE,'*CAB') OR MATCHW(NAME OF ZONE,'*FG') OR MATCHW(NAME OF ZONE,'*JB') OR MATCHW(NAME OF ZONE,'*TRAN')| var _CDCREPDEF_HIERARCHY || var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |FUNCTION| var !!CDCArepEXP[4] raw |NAMN| var !!CDCArepEXP[5] raw |:DWEIGHT| var !!CDCArepEXP[6] raw |:WWEIGHT| var !!CDCArepEXP[7] raw |USRWEIGHT| var !!CDCArepEXP[8] raw |POS WRT /*| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepDEC[6] raw |ON| var !!CDCArepDEC[7] raw |ON| var !!CDCArepDEC[8] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |ON| var !!CDCArepSAMEHEAD[6] raw |ON| var !!CDCArepSAMEHEAD[7] raw |ON| var !!CDCArepSAMEHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |OFF| var !!CDCArepUDHEAD[6] raw |OFF| var !!CDCArepUDHEAD[7] raw |OFF| var !!CDCArepUDHEAD[8] raw |ON| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepHEAD[71] raw |COG| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $ $<$0$> $ $ $ $<MATCHW(NAME OF ZONE,'*CAB') OR MATCHW(NAME OF ZONE,'*FG') OR MATCHW(NAME OF ZONE,'*JB') OR MATCHW(NAME OF ZONE,'*TRAN')$> $<$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (FUNCTION ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (NAMN ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (:DWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (:WWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate (USRWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (POS WRT /* ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |FUNCTION| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |NAMN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:DWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:WWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |USRWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |COG| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

EI-SUPPORT-WEIGHT-COG-REPORT-gani

$* Report(v2) C:\AVEVA\Plant\PDMS12.1.SP4\PDMSUI\reports\templates\EI-SUPPORT-WEIGHT-COG-REPORT created by user TAMILESON at 13:02 on 28 Mar 2016 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\INST-SUPP.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |SCTN GENSEC PANE| var _CDCREPDEF_FILTER || var _CDCREPDEF_HIERARCHY || var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |STRU| var !!CDCArepEXP[4] raw |SPREF| var !!CDCArepEXP[5] raw |str(real(PROP UWIG) * (cutlen / 1000))| var !!CDCArepEXP[6] raw |CUTLEN| var !!CDCArepEXP[7] raw |(STR(PSIZE[1]) + 'x' + STR(PSIZE[2]) + 'x' + STR(LOHE))| var !!CDCArepEXP[8] raw |BEFORE(STR(((PSIZE[1] / 1000) * (PSIZE[2] / 1000) * (LOHE / 1000)) * 7850),'mm')| var !!CDCArepEXP[9] raw |POS WRT /*| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepSPC[9] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepWID[9] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepJUST[9] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepCONV[9] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |OFF| var !!CDCArepDEC[6] raw |OFF| var !!CDCArepDEC[7] raw |OFF| var !!CDCArepDEC[8] raw |OFF| var !!CDCArepDEC[9] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepFRAC[9] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDP[9] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepDENOM[9] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepSTYLE[9] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepZEROES[9] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepSORT[9] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepPREC[9] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepUNSET[9] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepDHEAD[9] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |OFF| var !!CDCArepSAMEHEAD[6] raw |OFF| var !!CDCArepSAMEHEAD[7] raw |OFF| var !!CDCArepSAMEHEAD[8] raw |OFF| var !!CDCArepSAMEHEAD[9] raw |OFF| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[9] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |ON| var !!CDCArepUDHEAD[6] raw |ON| var !!CDCArepUDHEAD[7] raw |ON| var !!CDCArepUDHEAD[8] raw |ON| var !!CDCArepUDHEAD[9] raw |ON| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDVAL[9] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDSUB[9] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepDTOT[9] raw |Off| var !!CDCArepHEAD[41] raw |UNIT WEIGHT(Kg)| var !!CDCArepHEAD[51] raw |LENGTH| var !!CDCArepHEAD[61] raw |PANEL SIZE| var !!CDCArepHEAD[71] raw |PANEL WEIGHT(Kg)| var !!CDCArepHEAD[81] raw |COG| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $<RUN$> $<$0$> $ $<C:\TEMP\INST-SUPP.CSV$> $<SCTN GENSEC PANE$> $<$> $<$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (STRU ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (SPREF ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (str(real(PROP UWIG) * (cutlen / 1000)) ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (CUTLEN ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate ((STR(PSIZE[1]) + 'x' + STR(PSIZE[2]) + 'x' + STR(LOHE)) ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (BEFORE(STR(((PSIZE[1] / 1000) * (PSIZE[2] / 1000) * (LOHE / 1000)) * 7850),'mm') ) for all from !selection count !selNo$ ignore any || var !evalCol 9 var !col9 raw evaluate (POS WRT /* ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |STRU| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |SPREF| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |UNIT WEIGHT(Kg)| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |LENGTH| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |PANEL SIZE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |PANEL WEIGHT(Kg)| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |COG| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $ sep (vtext(!sep)) $ col val !col9 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

EI-TRAY-WEIGHT-COG-REPORT-gani

$* Report(v2) C:\AVEVA\Plant\PDMS12.1.SP4\PDMSUI\reports\templates\EI-TRAY-WEIGHT-COG-REPORT created by user TAMILESON at 13:33 on 28 Mar 2016 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\INST-TRAY.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |BRAN MEM| var _CDCREPDEF_FILTER || var _CDCREPDEF_HIERARCHY || var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |NAMN OF BRAN| var !!CDCArepEXP[4] raw |TYPE| var !!CDCArepEXP[5] raw |ABORE| var !!CDCArepEXP[6] raw |SPOW| var !!CDCArepEXP[7] raw |BRWEIGHT| var !!CDCArepEXP[8] raw |FITLEN| var !!CDCArepEXP[9] raw |GCOF WRT /*| var !!CDCArepEXP[10] raw |DTXR| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepSPC[9] raw |2| var !!CDCArepSPC[10] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepWID[9] raw || var !!CDCArepWID[10] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepJUST[9] raw |L| var !!CDCArepJUST[10] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepCONV[9] raw |Off| var !!CDCArepCONV[10] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepDEC[6] raw |OFF| var !!CDCArepDEC[7] raw |ON| var !!CDCArepDEC[8] raw |ON| var !!CDCArepDEC[9] raw |ON| var !!CDCArepDEC[10] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepFRAC[9] raw |OFF| var !!CDCArepFRAC[10] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDP[9] raw |2| var !!CDCArepDP[10] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepDENOM[9] raw |64| var !!CDCArepDENOM[10] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepSTYLE[9] raw |US| var !!CDCArepSTYLE[10] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepZEROES[9] raw |On| var !!CDCArepZEROES[10] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepSORT[9] raw |Off| var !!CDCArepSORT[10] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepPREC[9] raw || var !!CDCArepPREC[10] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepUNSET[9] raw || var !!CDCArepUNSET[10] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepDHEAD[9] raw |On| var !!CDCArepDHEAD[10] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |ON| var !!CDCArepSAMEHEAD[6] raw |OFF| var !!CDCArepSAMEHEAD[7] raw |OFF| var !!CDCArepSAMEHEAD[8] raw |ON| var !!CDCArepSAMEHEAD[9] raw |ON| var !!CDCArepSAMEHEAD[10] raw |ON| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[9] raw |OFF| var !!CDCArepOLDHEAD[10] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |OFF| var !!CDCArepUDHEAD[6] raw |ON| var !!CDCArepUDHEAD[7] raw |ON| var !!CDCArepUDHEAD[8] raw |OFF| var !!CDCArepUDHEAD[9] raw |OFF| var !!CDCArepUDHEAD[10] raw |OFF| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDVAL[9] raw |On| var !!CDCArepDVAL[10] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDSUB[9] raw |Off| var !!CDCArepDSUB[10] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepDTOT[9] raw |Off| var !!CDCArepDTOT[10] raw |Off| var !!CDCArepHEAD[51] raw |SPEC| var !!CDCArepHEAD[61] raw |WEIGHT(Kg)| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $<RUN$> $<$0$> $ $<C:\TEMP\INST-TRAY.CSV$> $<BRAN MEM$> $<$> $<$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (NAMN OF BRAN ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (TYPE ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (ABORE ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (SPOW ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate (BRWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (FITLEN ) for all from !selection count !selNo$ ignore any || var !evalCol 9 var !col9 raw evaluate (GCOF WRT /* ) for all from !selection count !selNo$ ignore any || var !evalCol 10 var !col10 raw evaluate (DTXR ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |NAMN OF BRAN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |TYPE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ABORE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |SPEC| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |WEIGHT(Kg)| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |FITLEN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |GCOF WRT /*| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |DTXR| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $ sep (vtext(!sep)) $ col val !col9 q $ sep (vtext(!sep)) $ col val !col10 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

SUPP-CONTIGENCY-REPORT-gani

$* Report(v2) Z:\CAD_Operation\Working\ADMINISTRATION\PDMS_REPORT_TMPL\SUPP-CONTIGENCY-REPORT created by user TAMILESON at 11:15 on 14 Sep 2015 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\SUPPORT-REPORT.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |ATTA| var _CDCREPDEF_FILTER |DESC OF SPOW EQ 'SUPP' AND :RESTCASE1 NEQ ''| var _CDCREPDEF_HIERARCHY |CE| var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |PIPE| var !!CDCArepEXP[4] raw |REF| var !!CDCArepEXP[5] raw |NAMN| var !!CDCArepEXP[6] raw |:RESTSYS| var !!CDCArepEXP[7] raw |:RESTNODE| var !!CDCArepEXP[8] raw |:RESTTYPE| var !!CDCArepEXP[9] raw |:RESTCRIT| var !!CDCArepEXP[10] raw |:CONTFACT| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepSPC[9] raw |2| var !!CDCArepSPC[10] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepWID[9] raw || var !!CDCArepWID[10] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepJUST[9] raw |L| var !!CDCArepJUST[10] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepCONV[9] raw |Off| var !!CDCArepCONV[10] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepDEC[6] raw |ON| var !!CDCArepDEC[7] raw |ON| var !!CDCArepDEC[8] raw |ON| var !!CDCArepDEC[9] raw |ON| var !!CDCArepDEC[10] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepFRAC[9] raw |OFF| var !!CDCArepFRAC[10] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDP[9] raw |2| var !!CDCArepDP[10] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepDENOM[9] raw |64| var !!CDCArepDENOM[10] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepSTYLE[9] raw |US| var !!CDCArepSTYLE[10] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepZEROES[9] raw |On| var !!CDCArepZEROES[10] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepSORT[9] raw |Off| var !!CDCArepSORT[10] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepPREC[9] raw || var !!CDCArepPREC[10] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepUNSET[9] raw || var !!CDCArepUNSET[10] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepDHEAD[9] raw |On| var !!CDCArepDHEAD[10] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |ON| var !!CDCArepSAMEHEAD[6] raw |ON| var !!CDCArepSAMEHEAD[7] raw |ON| var !!CDCArepSAMEHEAD[8] raw |ON| var !!CDCArepSAMEHEAD[9] raw |ON| var !!CDCArepSAMEHEAD[10] raw |ON| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[9] raw |OFF| var !!CDCArepOLDHEAD[10] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |OFF| var !!CDCArepUDHEAD[6] raw |OFF| var !!CDCArepUDHEAD[7] raw |OFF| var !!CDCArepUDHEAD[8] raw |OFF| var !!CDCArepUDHEAD[9] raw |OFF| var !!CDCArepUDHEAD[10] raw |OFF| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDVAL[9] raw |On| var !!CDCArepDVAL[10] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDSUB[9] raw |Off| var !!CDCArepDSUB[10] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepDTOT[9] raw |Off| var !!CDCArepDTOT[10] raw |Off| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $<RUN$> $<$0$> $ $<C:\TEMP\SUPPORT-REPORT.CSV$> $<ATTA$> $<DESC OF SPOW EQ 'SUPP' AND :RESTCASE1 NEQ ''$> $<CE$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (PIPE ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (REF ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (NAMN ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (:RESTSYS ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate (:RESTNODE ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (:RESTTYPE ) for all from !selection count !selNo$ ignore any || var !evalCol 9 var !col9 raw evaluate (:RESTCRIT ) for all from !selection count !selNo$ ignore any || var !evalCol 10 var !col10 raw evaluate (:CONTFACT ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |PIPE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |REF| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |NAMN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:RESTSYS| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:RESTNODE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:RESTTYPE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:RESTCRIT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:CONTFACT| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $ sep (vtext(!sep)) $ col val !col9 q $ sep (vtext(!sep)) $ col val !col10 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

EI-SUPPORT-WEIGHT-COG-REPORT-GANI

$* Report(v2) C:\AVEVA\Plant\PDMS12.1.SP4\PDMSUI\reports\templates\EI-SUPPORT-WEIGHT-COG-REPORT created by user TAMILESON at 13:02 on 28 Mar 2016 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\INST-SUPP.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |SCTN GENSEC PANE| var _CDCREPDEF_FILTER || var _CDCREPDEF_HIERARCHY || var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |STRU| var !!CDCArepEXP[4] raw |SPREF| var !!CDCArepEXP[5] raw |str(real(PROP UWIG) * (cutlen / 1000))| var !!CDCArepEXP[6] raw |CUTLEN| var !!CDCArepEXP[7] raw |(STR(PSIZE[1]) + 'x' + STR(PSIZE[2]) + 'x' + STR(LOHE))| var !!CDCArepEXP[8] raw |BEFORE(STR(((PSIZE[1] / 1000) * (PSIZE[2] / 1000) * (LOHE / 1000)) * 7850),'mm')| var !!CDCArepEXP[9] raw |POS WRT /*| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepSPC[9] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepWID[9] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepJUST[9] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepCONV[9] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |OFF| var !!CDCArepDEC[6] raw |OFF| var !!CDCArepDEC[7] raw |OFF| var !!CDCArepDEC[8] raw |OFF| var !!CDCArepDEC[9] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepFRAC[9] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDP[9] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepDENOM[9] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepSTYLE[9] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepZEROES[9] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepSORT[9] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepPREC[9] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepUNSET[9] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepDHEAD[9] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |OFF| var !!CDCArepSAMEHEAD[6] raw |OFF| var !!CDCArepSAMEHEAD[7] raw |OFF| var !!CDCArepSAMEHEAD[8] raw |OFF| var !!CDCArepSAMEHEAD[9] raw |OFF| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[9] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |ON| var !!CDCArepUDHEAD[6] raw |ON| var !!CDCArepUDHEAD[7] raw |ON| var !!CDCArepUDHEAD[8] raw |ON| var !!CDCArepUDHEAD[9] raw |ON| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDVAL[9] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDSUB[9] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepDTOT[9] raw |Off| var !!CDCArepHEAD[41] raw |UNIT WEIGHT(Kg)| var !!CDCArepHEAD[51] raw |LENGTH| var !!CDCArepHEAD[61] raw |PANEL SIZE| var !!CDCArepHEAD[71] raw |PANEL WEIGHT(Kg)| var !!CDCArepHEAD[81] raw |COG| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $<RUN$> $<$0$> $ $<C:\TEMP\INST-SUPP.CSV$> $<SCTN GENSEC PANE$> $<$> $<$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (STRU ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (SPREF ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (str(real(PROP UWIG) * (cutlen / 1000)) ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (CUTLEN ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate ((STR(PSIZE[1]) + 'x' + STR(PSIZE[2]) + 'x' + STR(LOHE)) ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (BEFORE(STR(((PSIZE[1] / 1000) * (PSIZE[2] / 1000) * (LOHE / 1000)) * 7850),'mm') ) for all from !selection count !selNo$ ignore any || var !evalCol 9 var !col9 raw evaluate (POS WRT /* ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |STRU| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |SPREF| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |UNIT WEIGHT(Kg)| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |LENGTH| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |PANEL SIZE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |PANEL WEIGHT(Kg)| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |COG| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $ sep (vtext(!sep)) $ col val !col9 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

E&I-EQUIP-WEIGHT-COG-REPORT-GANI

$* Report(v2) C:\AVEVA\Plant\PDMS12.1.SP4\PDMSUI\reports\templates\EI-EQUIP-WEIGHT-COG-REPORT created by user TAMILESON at 13:40 on 28 Mar 2016 if (|$1| eq |DEFINE|) then var list _CDCREPOPTFMT_FORMAT select |CSV| exit var _CDCREPOPTFMT_SEP |,| var _CDCREPOPTFMT_DEL || var _CDCREPDEF_DEST1 |OFF| var _CDCREPDEF_DEST2 |ON| var _CDCREPDEF_DEST3 |OFF| var _CDCREPDEF_DEST4 |OFF| var _CDCREPDEF_FILENAME |C:\TEMP\INST-EQUIP-REPORT.CSV| var _CDCREPPAGLEN_PAGELEN || var pane _CDCREPDEFHDR_EXP clear add exit var pane _CDCREPDEFFTR_EXP clear add exit var _CDCREPDEF_TYPE |EQUI| var _CDCREPDEF_FILTER |MATCHW(NAME OF ZONE,'*CAB') OR MATCHW(NAME OF ZONE,'*FG') OR MATCHW(NAME OF ZONE,'*JB') OR MATCHW(NAME OF ZONE,'*TRAN')| var _CDCREPDEF_HIERARCHY || var list _CDCREPDRW_VOLUME select |Off| exit var list _CDCREPDRW_FROM select |MDB| exit var _CDCREPRMPT_TOGFILE     |OFF| var _CDCREPRMPT_TOGTYPE     |OFF| var _CDCREPRMPT_TOGWITH     |OFF| var _CDCREPRMPT_TOGHIER     |OFF| var _CDCREPRMPT_TogNoWarning |OFF| var _CDCREPRMPT_TOGVOLU     |OFF| var _CDCREPRMPT_TOGFROM     |OFF| var pane _CDCREPDEFINT_EXP clear add exit var !!CDCArepEXP[1] raw |SITE| var !!CDCArepEXP[2] raw |ZONE| var !!CDCArepEXP[3] raw |FUNCTION| var !!CDCArepEXP[4] raw |NAMN| var !!CDCArepEXP[5] raw |:DWEIGHT| var !!CDCArepEXP[6] raw |:WWEIGHT| var !!CDCArepEXP[7] raw |USRWEIGHT| var !!CDCArepEXP[8] raw |POS WRT /*| var !!CDCArepSPC[1] raw |2| var !!CDCArepSPC[2] raw |2| var !!CDCArepSPC[3] raw |2| var !!CDCArepSPC[4] raw |2| var !!CDCArepSPC[5] raw |2| var !!CDCArepSPC[6] raw |2| var !!CDCArepSPC[7] raw |2| var !!CDCArepSPC[8] raw |2| var !!CDCArepWID[1] raw || var !!CDCArepWID[2] raw || var !!CDCArepWID[3] raw || var !!CDCArepWID[4] raw || var !!CDCArepWID[5] raw || var !!CDCArepWID[6] raw || var !!CDCArepWID[7] raw || var !!CDCArepWID[8] raw || var !!CDCArepJUST[1] raw |L| var !!CDCArepJUST[2] raw |L| var !!CDCArepJUST[3] raw |L| var !!CDCArepJUST[4] raw |L| var !!CDCArepJUST[5] raw |L| var !!CDCArepJUST[6] raw |L| var !!CDCArepJUST[7] raw |L| var !!CDCArepJUST[8] raw |L| var !!CDCArepCONV[1] raw |Off| var !!CDCArepCONV[2] raw |Off| var !!CDCArepCONV[3] raw |Off| var !!CDCArepCONV[4] raw |Off| var !!CDCArepCONV[5] raw |Off| var !!CDCArepCONV[6] raw |Off| var !!CDCArepCONV[7] raw |Off| var !!CDCArepCONV[8] raw |Off| var !!CDCArepDEC[1] raw |ON| var !!CDCArepDEC[2] raw |ON| var !!CDCArepDEC[3] raw |ON| var !!CDCArepDEC[4] raw |ON| var !!CDCArepDEC[5] raw |ON| var !!CDCArepDEC[6] raw |ON| var !!CDCArepDEC[7] raw |ON| var !!CDCArepDEC[8] raw |ON| var !!CDCArepFRAC[1] raw |OFF| var !!CDCArepFRAC[2] raw |OFF| var !!CDCArepFRAC[3] raw |OFF| var !!CDCArepFRAC[4] raw |OFF| var !!CDCArepFRAC[5] raw |OFF| var !!CDCArepFRAC[6] raw |OFF| var !!CDCArepFRAC[7] raw |OFF| var !!CDCArepFRAC[8] raw |OFF| var !!CDCArepDP[1] raw |2| var !!CDCArepDP[2] raw |2| var !!CDCArepDP[3] raw |2| var !!CDCArepDP[4] raw |2| var !!CDCArepDP[5] raw |2| var !!CDCArepDP[6] raw |2| var !!CDCArepDP[7] raw |2| var !!CDCArepDP[8] raw |2| var !!CDCArepDENOM[1] raw |64| var !!CDCArepDENOM[2] raw |64| var !!CDCArepDENOM[3] raw |64| var !!CDCArepDENOM[4] raw |64| var !!CDCArepDENOM[5] raw |64| var !!CDCArepDENOM[6] raw |64| var !!CDCArepDENOM[7] raw |64| var !!CDCArepDENOM[8] raw |64| var !!CDCArepSTYLE[1] raw |US| var !!CDCArepSTYLE[2] raw |US| var !!CDCArepSTYLE[3] raw |US| var !!CDCArepSTYLE[4] raw |US| var !!CDCArepSTYLE[5] raw |US| var !!CDCArepSTYLE[6] raw |US| var !!CDCArepSTYLE[7] raw |US| var !!CDCArepSTYLE[8] raw |US| var !!CDCArepZEROES[1] raw |On| var !!CDCArepZEROES[2] raw |On| var !!CDCArepZEROES[3] raw |On| var !!CDCArepZEROES[4] raw |On| var !!CDCArepZEROES[5] raw |On| var !!CDCArepZEROES[6] raw |On| var !!CDCArepZEROES[7] raw |On| var !!CDCArepZEROES[8] raw |On| var !!CDCArepSORT[1] raw |Off| var !!CDCArepSORT[2] raw |Off| var !!CDCArepSORT[3] raw |Off| var !!CDCArepSORT[4] raw |Off| var !!CDCArepSORT[5] raw |Off| var !!CDCArepSORT[6] raw |Off| var !!CDCArepSORT[7] raw |Off| var !!CDCArepSORT[8] raw |Off| var !!CDCArepPREC[1] raw || var !!CDCArepPREC[2] raw || var !!CDCArepPREC[3] raw || var !!CDCArepPREC[4] raw || var !!CDCArepPREC[5] raw || var !!CDCArepPREC[6] raw || var !!CDCArepPREC[7] raw || var !!CDCArepPREC[8] raw || var !!CDCArepUNSET[1] raw || var !!CDCArepUNSET[2] raw || var !!CDCArepUNSET[3] raw || var !!CDCArepUNSET[4] raw || var !!CDCArepUNSET[5] raw || var !!CDCArepUNSET[6] raw || var !!CDCArepUNSET[7] raw || var !!CDCArepUNSET[8] raw || var !!CDCArepDHEAD[1] raw |On| var !!CDCArepDHEAD[2] raw |On| var !!CDCArepDHEAD[3] raw |On| var !!CDCArepDHEAD[4] raw |On| var !!CDCArepDHEAD[5] raw |On| var !!CDCArepDHEAD[6] raw |On| var !!CDCArepDHEAD[7] raw |On| var !!CDCArepDHEAD[8] raw |On| var !!CDCArepSAMEHEAD[1] raw |ON| var !!CDCArepSAMEHEAD[2] raw |ON| var !!CDCArepSAMEHEAD[3] raw |ON| var !!CDCArepSAMEHEAD[4] raw |ON| var !!CDCArepSAMEHEAD[5] raw |ON| var !!CDCArepSAMEHEAD[6] raw |ON| var !!CDCArepSAMEHEAD[7] raw |ON| var !!CDCArepSAMEHEAD[8] raw |OFF| var !!CDCArepOLDHEAD[1] raw |OFF| var !!CDCArepOLDHEAD[2] raw |OFF| var !!CDCArepOLDHEAD[3] raw |OFF| var !!CDCArepOLDHEAD[4] raw |OFF| var !!CDCArepOLDHEAD[5] raw |OFF| var !!CDCArepOLDHEAD[6] raw |OFF| var !!CDCArepOLDHEAD[7] raw |OFF| var !!CDCArepOLDHEAD[8] raw |OFF| var !!CDCArepUDHEAD[1] raw |OFF| var !!CDCArepUDHEAD[2] raw |OFF| var !!CDCArepUDHEAD[3] raw |OFF| var !!CDCArepUDHEAD[4] raw |OFF| var !!CDCArepUDHEAD[5] raw |OFF| var !!CDCArepUDHEAD[6] raw |OFF| var !!CDCArepUDHEAD[7] raw |OFF| var !!CDCArepUDHEAD[8] raw |ON| var !!CDCArepDVAL[1] raw |On| var !!CDCArepDVAL[2] raw |On| var !!CDCArepDVAL[3] raw |On| var !!CDCArepDVAL[4] raw |On| var !!CDCArepDVAL[5] raw |On| var !!CDCArepDVAL[6] raw |On| var !!CDCArepDVAL[7] raw |On| var !!CDCArepDVAL[8] raw |On| var !!CDCArepDSUB[1] raw |Off| var !!CDCArepDSUB[2] raw |Off| var !!CDCArepDSUB[3] raw |Off| var !!CDCArepDSUB[4] raw |Off| var !!CDCArepDSUB[5] raw |Off| var !!CDCArepDSUB[6] raw |Off| var !!CDCArepDSUB[7] raw |Off| var !!CDCArepDSUB[8] raw |Off| var !!CDCArepDTOT[1] raw |Off| var !!CDCArepDTOT[2] raw |Off| var !!CDCArepDTOT[3] raw |Off| var !!CDCArepDTOT[4] raw |Off| var !!CDCArepDTOT[5] raw |Off| var !!CDCArepDTOT[6] raw |Off| var !!CDCArepDTOT[7] raw |Off| var !!CDCArepDTOT[8] raw |Off| var !!CDCArepHEAD[71] raw |COG| var !!CDINrepmaxhedlen 10 var pane _CDCREPDEFSMY_EXP clear add exit var _CDCREPDEF_SYSCOM || return endif if (|$1| eq |PROMPT| or |$1| eq ||) then $M "%PDMSUI%/CLIB/REP/RSELECT" $<RUN$> $<$0$> $ $<C:\TEMP\INST-EQUIP-REPORT.CSV$> $<EQUI$> $<MATCHW(NAME OF ZONE,'*CAB') OR MATCHW(NAME OF ZONE,'*FG') OR MATCHW(NAME OF ZONE,'*JB') OR MATCHW(NAME OF ZONE,'*TRAN')$> $<$> $<Off$> $<$> $<$> return endif var !fileName (trim(|$2|)) var !selType (upcase(trim(|$3|))) var !selFilter (trim(|$4|)) var !selHierarchy (trim(|$5|)) var !selVolSpec (trim(|$6|)) var !selVolume (trim(|$7|)) var !selFrom (trim(|$8|)) if(vtext(!selType) eq || or vtext(!selType) eq |ALL|) then var !criteria |ALL| else var !criteria (|ALL (| + vtext(!selType) + |)|) endif if(vtext(!selFilter) ne ||) then var !criteria (vtext(!criteria) + | WITH (| + vtext(!selFilter) + | )|) endif if(vtext(!selVolSpec) eq |Completely Within...|) then var !criteria (vtext(!criteria) + | EXCL WITHIN | + vtext(!selVolume)) elseif(vtext(!selVolSpec) eq |Partially Within...|) then var !criteria (vtext(!criteria) + | WITHIN | + vtext(!selVolume)) endif if(vtext(!selHierarchy) ne ||) then var !criteria (vtext(!criteria) + | FOR | + vtext(!selHierarchy)) endif if(vtext(!selFrom) eq |Drawlist|) then var !criteria (vtext(!criteria) + | FROM DRAWLIST|) elseif(vtext(!selFrom) eq |Obstruction List|) then var !criteria (vtext(!criteria) + | FROM OBST HIER|) endif var !units units mm bore mm distance var !date clock date var !time clock time var !projCode proj code var !projNumb proj numb var !projName proj name var !projDesc proj desc var !projMess proj mess var !sep |,| var !del || if (vtext(!fileName) ne ||) then openfile "$!fileName" overwrite !output handle (41,324) confirm |OK to overwrite $!fileName?| handle (61,115) $!units return error 1 'File $!fileName exists. Use OVERWRITE mode to force write.' endhandle if(not $_CALERT_USERDATA) then $!units return endif openfile "$!fileName" overwrite !output handle any $!units return error 1 |Unable to open file $!fileName| endhandle elsehandle any $!units return error 1 |Unable to open file $!fileName| endhandle var !write |writefile $!output| else var !isShown form _CADCBTH display handle any elsehandle none if(|$!isShown| eq |Off|) then show _CADCREQ endif endhandle var !write |write| endif onerror golabel /closefile prompt 'Selecting elements from database...' handle (61,115) elsehandle none var !graphicsMode 1 endhandle var !selection collect $!criteria handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units return error 1 |Selection is invalid $!!ERROR.TEXT| endhandle var !selSize (arraysize(!selection)) if (defined(!graphicsMode)) then prompt 'Evaluating expressions for $!selSize elements...' endif onerror golabel /badeval var !evalCol 1 var !col1 raw evaluate (SITE ) for all from !selection count !selNo$ ignore any || var !evalCol 2 var !col2 raw evaluate (ZONE ) for all from !selection count !selNo$ ignore any || var !evalCol 3 var !col3 raw evaluate (FUNCTION ) for all from !selection count !selNo$ ignore any || var !evalCol 4 var !col4 raw evaluate (NAMN ) for all from !selection count !selNo$ ignore any || var !evalCol 5 var !col5 raw evaluate (:DWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 6 var !col6 raw evaluate (:WWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 7 var !col7 raw evaluate (USRWEIGHT ) for all from !selection count !selNo$ ignore any || var !evalCol 8 var !col8 raw evaluate (POS WRT /* ) for all from !selection count !selNo$ ignore any || onerror golabel /closefile var !sortorder evaluate (vval(!selNo)) indices !selection count !selNo var !selection delete if (defined(!graphicsMode)) then prompt 'Formatting output...' endif var !line raw (|| $ + vtext(!del) + |SITE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |ZONE| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |FUNCTION| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |NAMN| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:DWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |:WWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |USRWEIGHT| + vtext(!del)$ + vtext(!sep)$ + vtext(!del) + |COG| + vtext(!del)$ ) $!write (vtext(!line)) if (defined(!graphicsMode)) then prompt 'Writing report...' endif if(|$!write| eq |write|)then var !composeCom |var !lines compose sort !sortorder quote (vtext(!del)) nosuml| else var !composeCom |$!write compose sort !sortorder quote (vtext(!del)) nosuml| endif $!composeCom $ col val !col1 q $ sep (vtext(!sep)) $ col val !col2 q $ sep (vtext(!sep)) $ col val !col3 q $ sep (vtext(!sep)) $ col val !col4 q $ sep (vtext(!sep)) $ col val !col5 q $ sep (vtext(!sep)) $ col val !col6 q $ sep (vtext(!sep)) $ col val !col7 q $ sep (vtext(!sep)) $ col val !col8 q $

if(|$!write| eq |write|)then do !line values !lines write |$!line| enddo endif if (vtext(!fileName) ne ||) then closefile $!output endif onerror golabel /restoreUnits $!units if (defined(!graphicsMode)) then prompt dismiss endif return label /badeval handle any if(vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error 2 |Unable to evaluate expression for column $!evalCol $!!ERROR.TEXT| endhandle label /closefile handle any if (vtext(!fileName) ne ||) then closefile $!output endif $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle label /restoreUnits handle any $!units if (defined(!graphicsMode)) then prompt dismiss endif return error endhandle

from excel to autocd LISP program.gani

(defun c:e2cad  (setq snapmode (getvar "osmode"))  (setvar "osmode" 0)  (setvar "cmdecho" 0)  (setq copymode (getvar "copymode"))  (setq fna (acet-ui-getfile "Enter input filename"                               "excel.csv"                               "csv"		               "Acet:Att"                                1664                         ) ) (setq fna (findfile fna))  (setq csvfile (open fna "r"))  (setq pt (getpoint "\nSpecify the starting point of the table:"))  (setq reftext (car (entsel "\nSelect a reference text:")))  (setq pipctr 0)  (repeat 5000 (setq piptext (read-line csvfile)) (if (null piptext)           (progn (if (equal (strlen piptext) 0)	 	  (progn (if (equal (substr piptext 1 1) ",")	     	      (progn (setq pipctr (1+ pipctr)) )	     )	    )	  )	)      )    )  (close csvfile)  (setq csvfile (open fna "r"))  (setq pipelist (list ))  (setq pipsizelist (list ))  (repeat pipctr (setq piptext (read-line csvfile)) (if (<= (length (acet-str-m-find "," piptext)) 3)     (progn (setq piptext (strcat piptext ",,,")) )     (progn (setq piptext piptext) )     )    (setq piptextlen (strlen piptext)) (setq stra 0) (while     (/= a ",")	(setq stra (1+ stra))	(setq a (substr piptext stra 1))      ) (progn    (setq str1 stra)     (setq strb stra)     (setq a nil)     ) (while     (/= a ",")      (progn (setq strb (+ strb 1)) (setq a (substr piptext strb 1)) )     )    (progn     (setq str2 strb)     (setq strc strb)     (setq a nil)     ) (while     (/= a ",")      (progn (setq strc (+ strc 1)) (setq a (substr piptext strc 1)) )     )    (progn     (setq str3 strc)     (setq a nil)     ) (progn     (setq strlen1 (- str1 1))      (setq strlen2 (- (- str2 1) str1))      (setq strlen3 (- (- str3 1) str2))      (setq strlen4 (- piptextlen str3))      ) (progn     (setq pipsizestr (substr piptext 1 strlen1))      (setq pipschstr (substr piptext (+ str1 1) strlen2))      (setq pipodstr (substr piptext (+ str2 1) strlen3))      (setq s4 (substr piptext (+ str3 1) strlen4))      ) (progn     (setq pipelist (append (list (list pipsizestr pipschstr					 pipodstr)) pipelist) )   )    )  (setq pipelist (reverse pipelist))  (setq pipelist (cdr pipelist))  (close csvfile)  (setq llength (length pipelist))  (setq elctr 0)  (setvar "copymode" 0)  (repeat llength (setq pth (polar pt 0 10)) (setq ptv1 (polar pth (* 1.5 pi) (- (* (+ elctr 1) 10) 5))) (setq ptv2 (polar ptv1 0 15)) (setq ptv3 (polar ptv2 0 95)) (setq contents (nth elctr pipelist)) (command "copy" reftext "" '(0 0 0) '(0 0 0) "") (setq objr1 (entlast)) (command "justifytext" objr1 "" "MC") (setq obj1 (entlast)) (setq obj1ent (entget obj1)) (setq obj1ent (subst (append (list 11) ptv1) (assoc 11 obj1ent) obj1ent)) (setq con1 (nth 0 contents)) (setq obj1ent (subst (cons 1 con1) (assoc 1 obj1ent) obj1ent)) (entmod obj1ent) (command "copy" reftext "" '(0 0 0) '(0 0 0) "") (setq objr2 (entlast)) (command "justifytext" objr2 "" "ML") (setq obj2 (entlast)) (setq obj2ent (entget obj2)) (setq obj2ent (subst (append (list 11) ptv2) (assoc 11 obj2ent) obj2ent)) (setq con2 (nth 1 contents)) (setq obj2ent (subst (cons 1 con2) (assoc 1 obj2ent) obj2ent)) (entmod obj2ent) (command "copy" reftext "" '(0 0 0) '(0 0 0) "") (setq objr3 (entlast)) (command "justifytext" objr3 "" "MC") (setq obj3 (entlast)) (setq obj3ent (entget obj3)) (setq obj3ent (subst (append (list 11) ptv3) (assoc 11 obj3ent) obj3ent)) (setq con3 (nth 2 contents)) (setq obj3ent (subst (cons 1 con3) (assoc 1 obj3ent) obj3ent)) (entmod obj3ent) (setq ptt1 (polar ptv1 pi 10)) (setq ptt2 (polar ptt1 (* 1.5 pi) 5)) (setq ptt3 (polar ptt2 0 140)) (command "line" ptt2 ptt3 "") (setq elctr (+ 1 elctr)) ) (setq pto1 (polar pt (* 1.5 pi) (* elctr 10)))  (command "line" pt pto1 "")  (setq outobj1 (entlast))  (command "copy" outobj1 "" '(0 0 0) '(20 0 0) "")  (command "copy" outobj1 "" '(0 0 0) '(100 0 0) "")  (command "copy" outobj1 "" '(0 0 0) '(140 0 0) "")  (setq pto2 (polar pt 0 140))  (command "line" pt pto2 "")  (setvar "osmode" snapmode)  (setvar "copymode" copymode)  )

for-tag-no-change-GANI

!!CE.NAME = !!CE.NAME.REPLACE('DOT','MNW')