Hi everyone,
created a macro to get output of nozzle
---------------------------------------------
VAR !NOZZ COLLECT ALL NOZZ WI (dbtype eq 'DESI')
--VAR !NOZZ COLLECT ALL NOZZ
VAR !PROJ PROJ ID
!outfile = object FILE (|c:\APPS\$!PROJ $C_NOZZ-ERR|)
!outfile.open(|OVERWRITE|)
!outfile.writerecord('SITE * ZONE * REF * TYPE * NAME * P1BORE * P1CONN * DUTY * CREF * CATREF * SPREF * DBNAME * DBFILE')
do !a from 1 to !NOZZ.SIZE()
$!NOZZ[$!A]
!SITE = NAME OF SITE
HANDLE ANY
!SITE = 'NULL'
ENDHANDLE
!ZONE = NAME OF ZONE
HANDLE ANY
!ZONE = 'NULL'
ENDHANDLE
!REF = REF
!TYPE = TYPE
!NAME = NAME
!P1BORE = P1BORE
HANDLE ANY
!P1BORE = !!error.text---------getting error on this line
ENDHANDLE
!P1CONN = P1CONN
HANDLE ANY
!P1CONN = !!error.text---------getting error on this line, as i would like to output the error code
ENDHANDLE
!DUTY = DUTY
--!SYSTEM_NO = ':SYSTEM_NO'
!CREF = CREF
!DBFILE = DBFILE
!DBNAME = DBNAME
!CATREF = NAME OF CATREF
HANDLE ANY
!CATREF = !!error.text
ENDHANDLE
!SPREF = NAME OF SPREF
HANDLE ANY
!SPREF = !!error.text
ENDHANDLE
--!outfile.writerecord(|$!SITE * $!ZONE * $!REF * $!TYPE * $!NAME * $!CATREF * $!SPREF * $!DBNAME * $!DBFILE|)
!outfile.writerecord(|$!SITE * $!ZONE * $!REF * $!TYPE * $!NAME * $!P1BORE * $!P1CONN * $!DUTY * $!CREF * $!CATREF * $!SPREF * $!DBNAME * $!DBFILE|)
ENDDO
!outfile.close()
$P ******** END OF REPORT ANB ********
--------------------------------------------------------------------
any guidance