CatScan Macro Listing - Intergraph Smart Isometrics I-Convert - Help - Hexagon PPM

Smart Isometrics I-Convert Help

PPMProductFamily
3D Design and Visualization
PPMProduct
Intergraph Smart Isometrics I-Convert
PPMCategory
Help
Version_IConvert
8.0(2019)

$*

$* version 1.6

$* date 02 Dec 98

$*

$* Version History

$* 1.0 Created by Stuart Tilley, Survey-2-CAD

$* 1.1 DRTL Alias Limited 27/11/98. Changed output syntax

$* 1.2 ST 01/12/98 - to increase points set from 4 to 6

$* 1.3 DLM 02/12/98 - incorporate DuPont changes

$* 1.31 DLM 02/12/98 - adopt Dupont attribute names

$* 1.32 DLM 02/12/98 - remove Intercat reference

$* 1.5 DJW 23/07/99 - Updated by MWK for PDMS V11 - hardcoded names need removing

$* 1.6 DJW 26/08/99 - Updated by Kvaerner for PDMS V11 also multi bolt fix from MWK

$* MONIT

$* DEV TTY

$* PARAGON

$* $P PLEASE ENTER THE SPECIFICATION NAME (WITH A '/')

$* VAR !SPECC READ

$*******line added to input out file name

$* $P PLEASE ENTER THE OUTPUT TEMP FILE (WITH A '/')

$* VAR !OUTF READ

$********

$* REPORTER

$* FILE /TEMP.TMP OVER

$* SORT SPCO

$* LIST

$* $!SPECC

$* MONIT

$* PARAGON

$*$*OPENFILE /11190X.IN READ !INFILE

$*$*HANDLE (41,323)

$*$*$P FATAL ERROR FILE $!INFILE DOES NOT EXIST

$*$*CLOSEFILE $!INFILE

$*$*RETURN ERROR

$*$*ENDHANDLE

$*****next line changed to read user defined file

---Added by Kvaerner Bridgewater-----

!Selected = !!ALisKetch.speclist.val

if !Selected.empty() then

!!Alert.error('No pipe spec/s highlighted')

return

endif

!Xarray = !!ALisKetch.speclist.Selection()

do !count from 1

ar !spcocollect collect all spco for $!Xarray[$!count]

handle (2,752)

break

endhandle

ar !spcocomplete append |$!Xarray[$!count]|

ar !spco eval (name) for all from !spcocollect

OPENFILE /$!!ALisKetch.filename.val$!Xarray[$!count]$n.DAT OVERWRITE !OUTFILE

DO !LINE.NUMBER

prompt 'Exporting spec $!Xarray[$!count] $!line.number'

!record = !spco[$!line.number]

handle (2,752)

closefile $!outfile

break

endhandle

--READFILE $!INFILE !RECORD

--HANDLE (41,325)

--BREAK

--ENDHANDLE

--VAR1 (SUBS('$!RECORD',3,1))

--IF('$V1' EQ '/') THEN

--VAR !RECORD1 (SUBS('$!RECORD',3))

WRITEFILE $!OUTFILE 'Spref $!RECORD'

$!RECORD

VAR !CAT CATREF

VAR !DET DETRE

VAR !MAT Matxt

VAR !BLT Bltref

VAR !MESC :MESC

-- Handle for undefined UDA

handle (99,532)

ar !MESC 'uda not defined'

endhandle

IF('$!DET' EQ '=0/0') THEN

WRITEFILE $!OUTFILE 'DETAIL Ref Null'

WRITEFILE $!OUTFILE 'Detail Null'

WRITEFILE $!OUTFILE 'MESC Null'

WRITEFILE $!OUTFILE 'Skey Null'

WRITEFILE $!OUTFILE 'Rtext Null'

WRITEFILE $!OUTFILE 'Stext Null'

WRITEFILE $!OUTFILE 'Ttext Null'

GOLABEL /AFTDET

ENDIF

$!DET

VAR !SKE Skey

VAR !RTX Rtext

VAR !STX Stext

VAR !TTX Ttext

WRITEFILE $!OUTFILE 'Detail $!DET'

WRITEFILE $!OUTFILE 'MESC $!MESC'

WRITEFILE $!OUTFILE 'Skey $!SKE'

WRITEFILE $!OUTFILE 'Rtext $!RTX'

WRITEFILE $!OUTFILE 'Stext $!STX'

WRITEFILE $!OUTFILE 'Ttext $!TTX'

LABEL /AFTDET

IF('$!MAT' EQ '=0/0') THEN

WRITEFILE $!OUTFILE 'MATERIAL Ref Null'

WRITEFILE $!OUTFILE 'Matxt Null'

WRITEFILE $!OUTFILE 'Xtext Null'

WRITEFILE $!OUTFILE 'Ytext Null'

WRITEFILE $!OUTFILE 'Ztext Null'

GOLABEL /AFTMAT

ENDIF

$!MAT

VAR !XTX Xtext

VAR !YTX Ytext

VAR !ZTX Ztext

WRITEFILE $!OUTFILE 'Matxt $!MAT'

WRITEFILE $!OUTFILE 'Xtext $!XTX'

WRITEFILE $!OUTFILE 'Ytext $!YTX'

WRITEFILE $!OUTFILE 'Ztext $!ZTX'

LABEL /AFTMAT

WRITEFILE $!OUTFILE 'Catref $!CAT'

$!CAT

VAR !GTY Gtype

WRITEFILE $!OUTFILE 'Gtype $!GTY'

$*******************

IF('$!BLT' EQ '=0/0') THEN

WRITEFILE $!OUTFILE 'Bltref Null'

ELSE

$!BLT

$* v1.3 (Deal with multi bolts)

ar !MBOL Type

if (match (|$!MBOL| ,|MBOL|)neq 0) THEN

ar !MBRA MBOL

ar !SBRA1 SBRA NUM 1

ar !SBRA2 SBRA NUM 2

ar !SBRA3 SBRA NUM 3

ar !SBRA4 SBRA NUM 4

HANDLE (2,102)

GOLABEL /TEST

$!SBRA1

VAR !MBDI1 Bdiameter

VAR !MBLE1 (Attribute Length)

VAR !MBNO1 Noff

WRITEFILE $!OUTFILE 'MultBltref $!MBRA'

WRITEFILE $!OUTFILE 'SbraBltref1 $!SBRA1'

WRITEFILE $!OUTFILE 'Bdiam $!MBDI1'

WRITEFILE $!OUTFILE 'Leng $!MBLE1'

WRITEFILE $!OUTFILE 'Noff $!MBNO1'

$!SBRA2

VAR !MBDI2 Bdiameter

VAR !MBLE2 (Attribute Length)

VAR !MBNO2 Noff

WRITEFILE $!OUTFILE 'SbraBltref2 $!SBRA2'

WRITEFILE $!OUTFILE 'Bdiam $!MBDI2'

WRITEFILE $!OUTFILE 'Leng $!MBLE2'

WRITEFILE $!OUTFILE 'Noff $!MBNO2'

$!SBRA3

VAR !MBDI3 Bdiameter

VAR !MBLE3 (Attribute Length)

VAR !MBNO3 Noff

WRITEFILE $!OUTFILE 'SbraBltref3 $!SBRA3'

WRITEFILE $!OUTFILE 'Bdiam $!MBDI3'

WRITEFILE $!OUTFILE 'Leng $!MBLE3'

WRITEFILE $!OUTFILE 'Noff $!MBNO3'

$!SBRA4

VAR !MBDI4 Bdiameter

VAR !MBLE4 (Attribute Length)

VAR !MBNO4 Noff

WRITEFILE $!OUTFILE 'SbraBltref4 $!SBRA4'

WRITEFILE $!OUTFILE 'Bdiam $!MBDI4'

WRITEFILE $!OUTFILE 'Leng $!MBLE4'

WRITEFILE $!OUTFILE 'Noff $!MBNO4'

LABEL /TEST

ENDHANDLE

else

VAR !BDI Bdiameter

VAR !BLE (Attribute Length)

VAR !BNO Noff

WRITEFILE $!OUTFILE 'Bltref $!BLT'

WRITEFILE $!OUTFILE 'Bdiam $!BDI'

WRITEFILE $!OUTFILE 'Leng $!BLE'

WRITEFILE $!OUTFILE 'Noff $!BNO'

endif

ENDIF

IF(SUBS('$!GTY',1,7 Intergraph Corporation.EQ 'BOLT') THEN

GOLABEL /IS-BOLT

ENDIF

$!CAT

$*******************

VAR !PTR Ptref

$*******************************

$*IF(SUBS('$!GTY',1,2) EQ 'EL' OR SUBS('$!GTY',1,2) EQ 'BE') THEN

$* GOLABEL /AFTPT IF('$!PTR' NEQ '/KS/P2-5X')

$!PTR

FIRST MEMBER

$********

DO

VAR !FMN Number

$**************

IF('$!FMN' EQ '1') THEN

VAR !PTYP1 TYPE

$*************

IF('$!PTYP1' EQ 'PTAX') THEN

VAR !PT1 Pdistance

ELSEIF('$!PTYP1' EQ 'PTCA' OR '$!PTYP1' EQ 'PTMI') THEN

VAR !PTX1 Px

VAR !PTY1 Py

VAR !PTZ1 Pz

ENDIF

IF('$!PTYP1' EQ 'PTAX' OR '$!PTYP1' EQ 'PTMI') THEN

VAR !PAXI1 Paxis

ELSEIF('$!PTYP1' EQ 'PTCA') THEN

VAR !PAXI1 Ptcdir

ENDIF

$*************

VAR !PB1 Pbore

ELSEIF('$!FMN' EQ '2') THEN

VAR !PTYP2 TYPE

$*************

IF('$!PTYP2' EQ 'PTAX') THEN

VAR !PT2 Pdistance

ELSEIF('$!PTYP2' EQ 'PTCA' OR '$!PTYP2' EQ 'PTMI') THEN

VAR !PTX2 Px

VAR !PTY2 Py

VAR !PTZ2 Pz

ENDIF

IF('$!PTYP2' EQ 'PTAX' OR '$!PTYP2' EQ 'PTMI') THEN

VAR !PAXI2 Paxis

ELSEIF('$!PTYP2' EQ 'PTCA') THEN

VAR !PAXI2 Ptcdir

ENDIF

$*************

VAR !PB2 Pbore

ELSEIF('$!FMN' EQ '3') THEN

VAR !PTYP3 TYPE

$*************

IF('$!PTYP3' EQ 'PTAX') THEN

VAR !PT3 Pdistance

ELSEIF('$!PTYP3' EQ 'PTCA' OR '$!PTYP3' EQ 'PTMI') THEN

VAR !PTX3 Px

VAR !PTY3 Py

VAR !PTZ3 Pz

ENDIF

IF('$!PTYP3' EQ 'PTAX' OR '$!PTYP3' EQ 'PTMI') THEN

VAR !PAXI3 Paxis

ELSEIF('$!PTYP3' EQ 'PTCA') THEN

VAR !PAXI3 Ptcdir

ENDIF

$*************

VAR !PB3 Pbore

ELSEIF('$!FMN' EQ '4') THEN

VAR !PTYP4 TYPE

$*************

IF('$!PTYP7 Intergraph Corporation.EQ 'PTAX') THEN

VAR !PT4 Pdistance

ELSEIF('$!PTYP7 Intergraph Corporation.EQ 'PTCA' OR '$!PTYP7 Intergraph Corporation.EQ 'PTMI') THEN

VAR !PTX4 Px

VAR !PTY4 Py

VAR !PTZ4 Pz

ENDIF

IF('$!PTYP7 Intergraph Corporation.EQ 'PTAX' OR '$!PTYP7 Intergraph Corporation.EQ 'PTMI') THEN

VAR !PAXI4 Paxis

ELSEIF('$!PTYP7 Intergraph Corporation.EQ 'PTCA') THEN

VAR !PAXI4 Ptcdir

ENDIF

$*************

VAR !PB4 Pbore

$****** start of added section to increase points read from 4 to 6

ELSEIF('$!FMN' EQ '5') THEN

VAR !PTYP5 TYPE

$*************

IF('$!PTYP5' EQ 'PTAX') THEN

VAR !PT5 Pdistance

ELSEIF('$!PTYP5' EQ 'PTCA' OR '$!PTYP5' EQ 'PTMI') THEN

VAR !PTX5 Px

VAR !PTY5 Py

VAR !PTZ5 Pz

ENDIF

IF('$!PTYP5' EQ 'PTAX' OR '$!PTYP5' EQ 'PTMI') THEN

VAR !PAXI5 Paxis

ELSEIF('$!PTYP5' EQ 'PTCA') THEN

VAR !PAXI5 Ptcdir

ENDIF

$*************

VAR !PB5 Pbore

ELSEIF('$!FMN' EQ '6') THEN

VAR !PTYP6 TYPE

$*************

IF('$!PTYP6' EQ 'PTAX') THEN

VAR !PT6 Pdistance

ELSEIF('$!PTYP6' EQ 'PTCA' OR '$!PTYP6' EQ 'PTMI') THEN

VAR !PTX6 Px

VAR !PTY6 Py

VAR !PTZ6 Pz

ENDIF

IF('$!PTYP6' EQ 'PTAX' OR '$!PTYP6' EQ 'PTMI') THEN

VAR !PAXI6 Paxis

ELSEIF('$!PTYP6' EQ 'PTCA') THEN

VAR !PAXI6 Ptcdir

ENDIF

$*************

VAR !PB6 Pbore

ENDIF

$*************

NEXT

HANDLE (41,66)

BREAK

ENDHANDLE

ENDDO

$!CAT

VAR !PARA PARAM

$****************************

WRITEFILE $!OUTFILE 'Parameter $!PARA'

$*************

IF('$!PTYP1' EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 1 $!PTYP1'

WRITEFILE $!OUTFILE 'Paxis 1 $!PAXI1'

WRITEFILE $!OUTFILE 'PDis 1 $!PT1'

ELSEIF('$!PTYP1' EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 1 $!PTYP1'

WRITEFILE $!OUTFILE 'Direction 1 $!PAXI1'

WRITEFILE $!OUTFILE 'PDXYZ 1 $!PTX1 $!PTY1 $!PTZ1'

ELSEIF('$!PTYP1' EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 1 $!PTYP1'

WRITEFILE $!OUTFILE 'Paxis 1 $!PAXI1'

WRITEFILE $!OUTFILE 'PDXYZ 1 $!PTX1 $!PTY1 $!PTZ1'

ENDIF

$*************

VAR !XXX '$!PTYP2'

HANDLE (46,28)

VAR !XXX DELETE

WRITEFILE $!OUTFILE 'Pt type 2 Null'

WRITEFILE $!OUTFILE 'Paxis 2 Null'

WRITEFILE $!OUTFILE 'PDis 2 Null'

WRITEFILE $!OUTFILE 'Pt type 3 Null'

WRITEFILE $!OUTFILE 'Paxis 3 Null'

WRITEFILE $!OUTFILE 'PDis 3 Null'

WRITEFILE $!OUTFILE 'Pt type 4 Null'

WRITEFILE $!OUTFILE 'Paxis 4 Null'

WRITEFILE $!OUTFILE 'PDis 4 Null'

WRITEFILE $!OUTFILE 'Pt type 5 Null'

WRITEFILE $!OUTFILE 'Paxis 5 Null'

WRITEFILE $!OUTFILE 'PDis 5 Null'

WRITEFILE $!OUTFILE 'Pt type 6 Null'

WRITEFILE $!OUTFILE 'Paxis 6 Null'

WRITEFILE $!OUTFILE 'PDis 6 Null'

GOLABEL /SKP-PT

ENDHANDLE

IF('$!PTYP2' EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 2 $!PTYP2'

WRITEFILE $!OUTFILE 'Paxis 2 $!PAXI2'

WRITEFILE $!OUTFILE 'PDis 2 $!PT2'

ELSEIF('$!PTYP2' EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 2 $!PTYP2'

WRITEFILE $!OUTFILE 'Direction 2 $!PAXI2'

WRITEFILE $!OUTFILE 'PDXYZ 2 $!PTX2 $!PTY2 $!PTZ2'

ELSEIF('$!PTYP2' EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 2 $!PTYP2'

WRITEFILE $!OUTFILE 'Paxis 2 $!PAXI2'

WRITEFILE $!OUTFILE 'PDXYZ 2 $!PTX2 $!PTY2 $!PTZ2'

ENDIF

$*************

VAR !XXX '$!PTYP3'

HANDLE (46,28)

VAR !XXX DELETE

WRITEFILE $!OUTFILE 'Pt type 3 Null'

WRITEFILE $!OUTFILE 'Paxis 3 Null'

WRITEFILE $!OUTFILE 'PDis 3 Null'

WRITEFILE $!OUTFILE 'Pt type 4 Null'

WRITEFILE $!OUTFILE 'Paxis 4 Null'

WRITEFILE $!OUTFILE 'PDis 4 Null'

WRITEFILE $!OUTFILE 'Pt type 5 Null'

WRITEFILE $!OUTFILE 'Paxis 5 Null'

WRITEFILE $!OUTFILE 'PDis 5 Null'

WRITEFILE $!OUTFILE 'Pt type 6 Null'

WRITEFILE $!OUTFILE 'Paxis 6 Null'

WRITEFILE $!OUTFILE 'PDis 6 Null'

GOLABEL /SKP-PT

ENDHANDLE

IF('$!PTYP3' EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 3 $!PTYP3'

WRITEFILE $!OUTFILE 'Paxis 3 $!PAXI3'

WRITEFILE $!OUTFILE 'PDis 3 $!PT3'

ELSEIF('$!PTYP3' EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 3 $!PTYP3'

WRITEFILE $!OUTFILE 'Direction 3 $!PAXI3'

WRITEFILE $!OUTFILE 'PDXYZ 3 $!PTX3 $!PTY3 $!PTZ3'

ELSEIF('$!PTYP3' EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 3 $!PTYP3'

WRITEFILE $!OUTFILE 'Paxis 3 $!PAXI3'

WRITEFILE $!OUTFILE 'PDXYZ 3 $!PTX3 $!PTY3 $!PTZ3'

ENDIF

$*************

VAR !XXX '$!PTYP4'

HANDLE (46,28)

VAR !XXX DELETE

WRITEFILE $!OUTFILE 'Pt type 4 Null'

WRITEFILE $!OUTFILE 'Paxis 4 Null'

WRITEFILE $!OUTFILE 'PDis 4 Null'

WRITEFILE $!OUTFILE 'Pt type 5 Null'

WRITEFILE $!OUTFILE 'Paxis 5 Null'

WRITEFILE $!OUTFILE 'PDis 5 Null'

WRITEFILE $!OUTFILE 'Pt type 6 Null'

WRITEFILE $!OUTFILE 'Paxis 6 Null'

WRITEFILE $!OUTFILE 'PDis 6 Null'

GOLABEL /SKP-PT

ENDHANDLE

IF('$!PTYP7 Intergraph Corporation.EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 4 $!PTYP4'

WRITEFILE $!OUTFILE 'Paxis 4 $!PAXI4'

WRITEFILE $!OUTFILE 'PDis 4 $!PT4'

ELSEIF('$!PTYP7 Intergraph Corporation.EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 4 $!PTYP4'

WRITEFILE $!OUTFILE 'Direction 4 $!PAXI4'

WRITEFILE $!OUTFILE 'PDXYZ 4 $!PTX4 $!PTY4 $!PTZ4'

ELSEIF('$!PTYP7 Intergraph Corporation.EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 4 $!PTYP4'

WRITEFILE $!OUTFILE 'Paxis 4 $!PAXI4'

WRITEFILE $!OUTFILE 'PDXYZ 4 $!PTX4 $!PTY4 $!PTZ4'

ENDIF

$*************

VAR !XXX '$!PTYP5'

HANDLE (46,28)

VAR !XXX DELETE

WRITEFILE $!OUTFILE 'Pt type 5 Null'

WRITEFILE $!OUTFILE 'Paxis 5 Null'

WRITEFILE $!OUTFILE 'PDis 5 Null'

WRITEFILE $!OUTFILE 'Pt type 6 Null'

WRITEFILE $!OUTFILE 'Paxis 6 Null'

WRITEFILE $!OUTFILE 'PDis 6 Null'

GOLABEL /SKP-PT

ENDHANDLE

IF('$!PTYP5' EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 5 $!PTYP5'

WRITEFILE $!OUTFILE 'Paxis 5 $!PAXI5'

WRITEFILE $!OUTFILE 'PDis 5 $!PT5'

ELSEIF('$!PTYP5' EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 5 $!PTYP5'

WRITEFILE $!OUTFILE 'Direction 5 $!PAXI5'

WRITEFILE $!OUTFILE 'PDXYZ 5 $!PTX5 $!PTY5 $!PTZ5'

ELSEIF('$!PTYP5' EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 5 $!PTYP5'

WRITEFILE $!OUTFILE 'Paxis 5 $!PAXI5'

WRITEFILE $!OUTFILE 'PDXYZ 5 $!PTX5 $!PTY5 $!PTZ5'

ENDIF

$*************

VAR !XXX '$!PTYP6'

HANDLE (46,28)

VAR !XXX DELETE

WRITEFILE $!OUTFILE 'Pt type 6 Null'

WRITEFILE $!OUTFILE 'Paxis 6 Null'

WRITEFILE $!OUTFILE 'PDis 6 Null'

GOLABEL /SKP-PT

ENDHANDLE

IF('$!PTYP6' EQ 'PTAX') THEN

WRITEFILE $!OUTFILE 'Pt type 6 $!PTYP6'

WRITEFILE $!OUTFILE 'Paxis 6 $!PAXI6'

WRITEFILE $!OUTFILE 'PDis 6 $!PT6'

ELSEIF('$!PTYP6' EQ 'PTCA') THEN

WRITEFILE $!OUTFILE 'Pt type 6 $!PTYP6'

WRITEFILE $!OUTFILE 'Direction 6 $!PAXI6'

WRITEFILE $!OUTFILE 'PDXYZ 6 $!PTX6 $!PTY6 $!PTZ6'

ELSEIF('$!PTYP6' EQ 'PTMI') THEN

WRITEFILE $!OUTFILE 'Pt type 6 $!PTYP6'

WRITEFILE $!OUTFILE 'Paxis 6 $!PAXI6'

WRITEFILE $!OUTFILE 'PDXYZ 6 $!PTX6 $!PTY6 $!PTZ6'

ENDIF

$*************

LABEL /SKP-PT

$*************

WRITEFILE $!OUTFILE 'Bore 1 $!PB1'

WRITEFILE $!OUTFILE 'Bore 2 $!PB2'

HANDLE (46,28)

GOLABEL /SKP-PB

ENDHANDLE

WRITEFILE $!OUTFILE 'Bore 3 $!PB3'

HANDLE (46,28)

WRITEFILE $!OUTFILE 'Bore 3 Null'

WRITEFILE $!OUTFILE 'Bore 4 Null'

WRITEFILE $!OUTFILE 'Bore 5 Null'

WRITEFILE $!OUTFILE 'Bore 6 Null'

GOLABEL /SKP-PB

ENDHANDLE

WRITEFILE $!OUTFILE 'Bore 4 $!PB4'

HANDLE (46,28)

WRITEFILE $!OUTFILE 'Bore 4 Null'

WRITEFILE $!OUTFILE 'Bore 5 Null'

WRITEFILE $!OUTFILE 'Bore 6 Null'

GOLABEL /SKP-PB

ENDHANDLE

WRITEFILE $!OUTFILE 'Bore 5 $!PB5'

HANDLE (46,28)

WRITEFILE $!OUTFILE 'Bore 5 Null'

WRITEFILE $!OUTFILE 'Bore 6 Null'

GOLABEL /SKP-PB

ENDHANDLE

WRITEFILE $!OUTFILE 'Bore 6 $!PB6'

HANDLE (46,28)

WRITEFILE $!OUTFILE 'Bore 6 Null'

GOLABEL /SKP-PB

ENDHANDLE

LABEL /SKP-PB

LABEL /IS-BOLT

$*************

VAR !PARA DELETE

VAR !PT1 DELETE

VAR !PT2 DELETE

VAR !PT3 DELETE

VAR !PT4 DELETE

VAR !PT5 DELETE

VAR !PT6 DELETE

VAR !PB1 DELETE

VAR !PB2 DELETE

VAR !PB3 DELETE

VAR !PB4 DELETE

VAR !PB5 DELETE

VAR !PB6 DELETE

VAR !PTYP1 DELETE

VAR !PTYP2 DELETE

VAR !PTYP3 DELETE

VAR !PTYP4 DELETE

VAR !PTYP5 DELETE

VAR !PTYP6 DELETE

$*ENDIF

$ ******************************

$******************************

WRITEFILE $!OUTFILE ''

ENDDO

$*CLOSE ALL FILES

$* CLOSEFILE $!INFILE

$*CLOSEFILE $!OUTFILE

--$P

--$P************************************

--$P** FILE TEMP.OUT CONTAINS RESULTS **

--$P************************************

$* QUIT

$*

enddo

prompt |Selected pipe specs exported|

RETURN

$.