$*
$* 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
$.