!File 12_DRTN.CMD Ver 1.0 20-Aug 97  R.Durkin SE Bne!
!Used to decode customer data catagories and display from plain Belgish !
! Corrections this version....................!
!      1.  20 MAY 97 - DMSN display to show whether LHG or single line 
!      b. !
!------------------------------------------!
!  Before you call this sub-routine you need to set the "Product_Flag"      !
!  The options are:                                                                            !
!                          Siteline                                                                   !
!                          OnRampBA-AXE
!                          OnRampBA-S12                                                            !
!                          OnRampPRA                                                           !
! On exit the Product Flag will be set to "" (nil)                                       !
!
!------------------------------------------!
@@ set two variable for each category, first is CAT_(cat), second is a (cat)_1
@LABEL DISP_CUST_DATA
@set product_flag = "OnRampBA-S12"
@@SERVICE BASIC AUTHORISATIONS
  @SET  BSASP= ""
  @SET  BSAUN= ""
  @SET  BSAAU= ""
  @SET  BSATE= ""
  @SET  BSAVI= ""
  @SET  BSAG3= ""
  @SET  BSAG4= ""
  @SET  BSATX= ""
  @SET  BCASP= ""
  @SET  BCAUN= ""
  @SET  BCAAU= ""
  @SET  BCASP= ""
  @SET  BCAUN= ""
  @SET  BCAAU= ""
@@SERVICE AUTH'NS NON BASIC & PBX
  @set  ALMCALL= ""
  @set  ALMCALL1= ""
  @set  AOCH= ""
  @set  AOCH1= ""
  @set  CARRIER= ""
  @set  CARRIER1= ""
  @set  BCAUTH= ""
  @set  BCAUTH1= ""
  @set  BEARDEP= ""
  @set  BEARDEP1= ""
  @set  BSAUTH= ""
  @set  BSAUTH1= ""
  @set  BS= ""
  @set  BS1= ""
  @set  CATDEP= ""
  @set  CATDEP1= ""
  @set  CCR= ""
  @set  CCR1= ""
  @set  CDTAX= ""
  @set  CDTAX1= ""
  @set  CGTAX= ""
  @set  CGTAX1= ""
  @set  CFWD= ""
  @set  CFWD1= ""
  @set  COL= ""
  @set  COL1= ""
  @set  CONTROL= ""
  @set  CONTROL1= ""
  @set  DATALINK= ""
  @set  DATALINK1= ""
  @set  DBLNGOBS= ""
  @set  DBLNGOBS1= ""
  @set  DETAIL= ""
  @set  DETAIL1= ""
  @set  DNX= ""
  @set  FACIL= ""
  @set  FACIL1= ""
  @set  FDC= ""
  @set  FDC1= ""
  @set  FSEIZE= ""
  @set  FSEIZE1= ""
  @set  GD= ""
  @set  GD1= ""
  @set  GRPHNT= ""
  @set  GRPHNT1= ""
  @set  HNT= ""
  @set  ICB= ""
  @set  ICB1= ""
  @set  IDFDN= ""
  @set  INHIBIT= ""
  @set  INHIBIT1= ""
  @set  INTCP= ""
  @set  INTCP1= ""
  @set  IWDN= ""
  @set  IWDN1= ""
  @set  LINECHAR= ""
  @set  LINECHAR1= ""
  @set  LINEGRP= ""
  @set  LINEGRP1= ""
  @set  LINEHNT= ""
  @set  LINEHNT1= ""
  @set  MAXCFWD= ""
  @set  MAXCFWDa= ""
  @set  MAXCFWD1= ""
  @set  MAXCFWD2= ""
  @set  MEAGRP= ""
  @set  MEAGRP1= ""
  @set  MISC= ""
  @set  MISC1= ""
  @set  MULTI= ""
  @set  MULTI1= ""
  @set  NBRIDFCD= ""
  @set  NBRIDFCD1= ""
  @set  NBRIDFCG= ""
  @set  NBRIDFCG1= ""
  @set  NBRLRES= ""
  @set  NBRLRES1= ""
  @set  NOTIFY= ""
  @set  NOTIFY1= ""
  @set  NOTIFY2= ""
  @set  NOTIFY3= ""
  @set  NTFCFWD= ""
  @set  NTFCFWD1= ""
  @set  NTFCFWD2= ""
  @set  NTFCFWD3= ""
  @set  OBSERV= ""
  @set  OBSERV1= ""
  @set  OBSERV2= ""
  @set  OBSERV3= ""
  @set  OCB= ""
  @set  OCB1= ""
  @set  OCBCFWD= ""
  @set  OCBCFWDa= ""
  @set  OCBCFWD1= ""
  @set  OCBCFWD2= ""
  @set  OFWDN= ""
  @set  OFWDN1= ""
  @set  OPTION= ""
  @set  OPTION1= ""
  @set  PASSWORD= ""
  @set  PASSWORD1= ""
  @set  PAYPHONE= ""
  @set  PAYPHONE1= ""
  @set  PH= ""
  @set  PH1= ""
  @set  PRA= ""
  @set  PRA1= ""
  @set  QUEUE= ""
  @set  QUEUE1= ""
  @set  RBPRICE= ""
  @set  RBPRICE1= ""
  @set  RDHNT= ""
  @set  RDHNT1= ""
  @set  RDHNTDEP= ""
  @set  RDHNTDEP1= ""
  @set  RECALL= ""
  @set  RECALL1= ""
  @set  RECALL2= ""
  @set  RESET= ""
  @SET REC1 = ""
  @SET REC2 = ""
  @SET REC3 = ""
  @SET REC4 = ""
  @SET REC5 = ""
  @SET RES1 = ""
  @SET RES2 = ""
  @SET RES3 = ""
  @SET RES4 = ""
  @SET RES5 = ""
  @SET RES6 = ""
  @SET RES7 = ""
  @SET RES8 = ""
  @SET RES9 = ""
  @SET RES10 = ""
  @set  RETRYCNT= ""
  @set  RETRYCNT1= ""
  @set  RNGDN= ""
  @set  RNGDN1= ""
  @set  SDN= ""
  @set  SIGDEP= ""
  @set  SIGDEP1= ""
  @set  SUBCRTL= ""
  @set  SUBCRTL1= ""
  @set  SUBGRP= ""
  @set  SUBGRP1= ""
  @set  SUBSIG= ""
  @set  TAXATION= ""
  @set  TAXATION1= ""
  @set  TAXDN= ""
  @set  TCHNSEL= ""
  @set  TCHNSEL1= ""
  @set  TIMER= ""
  @set  TKGID= ""
  @set  UUS= ""
  @set  UUS1=""
  @set UUS2=""
  @WINDOW
 @@SET CUST_TYPE = ""
  @DRAW(CUP,14,5,HIGH,"One moment please ... reading service information ...")
  @if DN <> GDN THEN SET DNX = DN
  @if DN <> GDN THEN GOSUB GET_SUBSCR
  @if GDN = DN THEN SET DNX = GDN
  @if GDN = DN THEN GOSUB GET_PBX
  @if GDN = DN THEN GOTO TEST_PBX_DATA
  @@if PBX <> "is" THEN SET DNX = DN
  @@if PBX = "is" THEN SET DNX = GDN
  @@if PBX <> "is" THEN GOSUB GET_SUBSCR
  @@if PBX = "is" THEN GOSUB GET_PBX
  @@if PBX = "is" THEN GOTO TEST_PBX_DATA
@LABEL CONT_DISP_CUST_DATA
  @if GDN = DN THEN GOTO TEST_PBX_DATA2
  @@if PBX = "is" THEN GOTO TEST_PBX_DATA2
@LABEL TEST_CUST_DATA
  @SET LINE = ""
  @SET LINE = SCAN("AOCH")
  @IF LINE <> 0 THEN GOSUB AOCH
  @IF AOCH = "" THEN SET AOCH = "Default  "
  @IF AOCH = "" THEN SET AOCH1 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CARRIER")
  @IF LINE <> 0 THEN GOSUB CARRIER
  @IF CARRIER = "" THEN SET CARRIER = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CCR")
  @IF LINE <> 0 THEN GOSUB CCR
  @IF CCR = "" THEN SET CCR = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CDTAX")
  @IF LINE <> 0 THEN GOSUB CDTAX
  @IF CDTAX = "" THEN SET CDTAX = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CFWD")
  @IF LINE <> 0 THEN GOSUB CFWD
  @IF CFWD = "" THEN SET CFWD= "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CGTAX")
  @IF LINE <> 0 THEN GOSUB CGTAX
  @IF CGTAX = "" THEN SET CGTAX = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("COL")
  @IF LINE <> 0 THEN GOSUB COL
  @IF COL = "" THEN SET COL = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("CONTROL")
  @IF LINE <> 0 THEN GOSUB CONTROL
  @IF CONTROL = "" THEN SET CONTROL = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("DATALINK")
  @IF LINE <> 0 THEN GOSUB DATALINK
  @IF DATALINK = "" THEN SET DATALINK = "Default  "
  @IF DATALINK1 = "" THEN SET DATALINK1 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("DBLNGOBS")
  @IF LINE <> 0 THEN GOSUB DBLNGOBS
  @IF DBLNGOBS = "" THEN SET DBLNGOBS = "Default "
  @IF DBLNGOBS1 = "" THEN SET DBLNGOBS1 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("DETAIL")
  @IF LINE <> 0 THEN GOSUB DETAIL
  @IF DETAIL = "" THEN SET DETAIL = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("FACIL")
  @IF LINE <> 0 THEN GOSUB FACIL
  @IF FACIL = "" THEN SET FACIL = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("FDC")
  @IF LINE <> 0 THEN GOSUB FDC
  @IF FDC = "" THEN SET FDC = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("ICB")
  @IF LINE <> 0 THEN GOSUB ICB
  @IF ICB = "" THEN SET ICB = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("IWDN")
  @IF LINE <> 0 THEN GOSUB IWDN
  @IF IWDN = "" THEN SET IWDN = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("INHIBIT")
  @IF LINE <> 0 THEN GOSUB INHIBIT
  @IF INHIBIT = "" THEN SET INHIBIT = "Default  "
  @IF INHIBIT1 = "" THEN SET INHIBIT1 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("INTCP")
  @@IF LINE <> 0 THEN GOSUB INTCP
  @IF INTCP = "" THEN SET INTCP = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("LINECHAR")
  @IF LINE <> 0 THEN GOSUB LINECHAR
  @IF LINECHAR = "" THEN SET LINECHAR = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("MAXCFWD")
  @IF LINE <> 0 THEN GOSUB MAXCFWD
  @IF MAXCFWD = "" THEN SET MAXCFWD = "Default  "
  @IF MAXCFWD1 = "" THEN SET MAXCFWD1 = "Default  "
  @IF MAXCFWD2 = "" THEN SET MAXCFWD2 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("MISC")
  @IF LINE <> 0 THEN GOSUB MISC
  @IF MISC = "" THEN SET MISC = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("MEAGRP")
  @IF LINE <> 0 THEN GOSUB MEAGRP
  @IF MEAGRP = "" THEN SET MEAGRP = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("NBRIDFCD")
  @IF LINE <> "" THEN GOSUB NBRIDFCD
  @@IF NBRIDFCD = "" THEN SET NBRIDFCD= "Default  "
  @@IF NBRIDFCD1 = "" THEN SET NBRIDFCD1= "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("NBRIDFCG")
  @IF LINE <> "" THEN GOSUB NBRIDFCG
  @@IF NBRIDFCG = "" THEN SET  NBRIDFCG= "Default  "
  @@IF NBRIDFCG1 = "" THEN SET NBRIDFCG1 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("NOTIFY")
  @IF LINE <> 0 THEN GOSUB NOTIFY
  @IF NOTIFY = "" THEN SET NOTIFY = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("NTFCFWD")
  @IF LINE <> 0 THEN GOSUB NTFCFWD
  @IF NTFCFWD = "" THEN SET NTFCFWD = "Default  "
  @IF NTFCFWD = "" THEN SET NTFCFWD1 = "Default  "
  @IF NTFCFWD = "" THEN SET NTFCFWD2= "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("OBSERV")
  @IF LINE <> 0 THEN GOSUB OBSERV
  @IF OBSERV = "" THEN SET OBSERV = "SLO Outgoing - OFF  "
  @IF OBSERV1 = "" THEN SET OBSERV1 = "SLO Incoming - OFF  "
  @IF OBSERV2 = "" THEN SET OBSERV2 = "MCT feature - OFF  "
  @IF OBSERV3 = "" THEN SET OBSERV3 = "Sub Control of MCT - OFF  "
  @SET LINE = ""
  @SET LINE = SCAN("OCB  ")
  @IF LINE <> "" THEN GOSUB OCB
  @IF OCB = "" THEN SET OCB = "Default NA0 - No Barring"
  @SET LINE = ""
  @SET LINE = SCAN("OCBCFWD")
  @IF LINE <> 0 THEN GOSUB OCBCFWD
  @IF OCBCFWD = "" THEN SET OCBCFWD = "Default  "
  @IF OCBCFWD1 = "" THEN SET OCBCFWD1 = "Default  "
  @IF OCBCFWD2 = "" THEN SET OCBCFWD2 = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("PASSWORD")
  @IF LINE <> 0 THEN GOSUB PASSWORD
  @IF PASSWORD = "" THEN SET PASSWORD = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("PAYPHONE")
  @IF LINE <> 0 THEN GOSUB PAYPHONE
  @IF PAYPHONE = "" THEN SET PAYPHONE = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("QUEUE")
  @IF LINE <> 0 THEN GOSUB QUEUE
  @IF QUEUE = "" THEN SET QUEUE = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("RBPRICE")
  @IF LINE <> 0 THEN GOSUB RBPRICE
  @IF RBPRICE = "" THEN SET RBPRICE = "Default  "
  @SET LINE = ""
  @SET LINE = SCAN("RECALL ")
  @IF LINE <> 0 THEN GOSUB RECALL
  @IF RECALL = "" THEN SET RECALL = "Default "
  @IF RECALL = "" THEN SET RECALL1 = "Default "
  @IF RECALL = "" THEN SET RECALL2 = "Default "
  @SET LINE = ""
  @SET LINE = SCAN("RESET")
  @IF LINE <> 0 THEN GOSUB RESET
  @IF RESET = "" THEN SET RESET = "Default "
  @SET LINE = ""
  @SET LINE = SCAN("RNGDN")
  @@IF LINE <> 0 THEN GOSUB RNGDN
  @IF RNGDN = 0 THEN SET RNGDN = "Default "
  @SET LINE = ""
  @SET LINE = SCAN("SUBCTRL")
  @@IF LINE <> 0 THEN GOSUB SUBCTRL
  @IF LINE = 0 THEN SET SUBCTRL = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("SUBGRP")
  @IF LINE <> 0 THEN GOSUB SUBGRP
  @IF SUBGRP = "" THEN SET SUBGRP = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("SUBSIG")
  @IF LINE <> 0 THEN GOSUB SUBSIG
  @IF SUBSIG = "" THEN SET SUBSIG = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("TAXATION")
  @IF LINE <> 0 THEN GOSUB TAXATION
  @IF LINE = 0 THEN SET TAXATION = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("TCHNSEL")
  @IF LINE <> 0 THEN GOSUB TCHNSEL
  @IF TCHNSEL = "" THEN SET TCHNSEL = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("TIMER")
  @IF LINE <> 0 THEN GOSUB TIMER
  @IF TIMER = "" THEN SET TIMER = "Default"
  @SET LINE = ""
  @SET LINE = SCAN("UUS")
  @IF LINE <> 0 THEN GOSUB UUS
  @IF UUS = "" THEN SET UUS = "Default"
@LABEL CONT_TEST_CUST_DATA_2
  @@identifying bearer service authorisations
  @SET LINE = ""
  @SET LINE = SCAN("BSAUTH")
  @IF LINE <> 0 THEN SET RES1 = TRIM(COPY(REPLY(LINE)14,8))  
  @IF LINE <> 0 THEN SET RES2 = TRIM(COPY(REPLY(LINE)24,8))  
  @IF LINE <> 0 THEN SET RES3 = TRIM(COPY(REPLY(LINE)34,8))  
  @IF LINE <> 0 THEN SET RES4 = TRIM(COPY(REPLY(LINE)44,8))  
  @IF LINE <> 0 THEN SET RES5 = TRIM(COPY(REPLY(LINE)54,8))  
  @IF LINE <> 0 THEN SET LINE2 = TRIM(COPY(REPLY(LINE+1)1,10))  
  @IF LINE2 = "BCAUTH" THEN GOTO CONTINUE
  @IF LINE <> 0 THEN SET RES6 = TRIM(COPY(REPLY(LINE+1)14,8))  
  @IF LINE <> 0 THEN SET RES7 = TRIM(COPY(REPLY(LINE+1)24,8))  
  @IF LINE <> 0 THEN SET RES8 = TRIM(COPY(REPLY(LINE+1)34,8))  
  @IF LINE <> 0 THEN SET RES9 = TRIM(COPY(REPLY(LINE+1)44,8))  
  @IF LINE <> 0 THEN SET RES10 = TRIM(COPY(REPLY(LINE+1)54,8))  
!
@LABEL CONTINUE 
 @IF RES1 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES2 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES3 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES4 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES5 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES6 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES7 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES8 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES9 = "SPEECH" THEN SET BSASP = "Speech"
 @ELSE IF RES10 = "SPEECH" THEN SET BSASP = "Speech"
!
 @IF RES1 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES2 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES3 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES4 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES5 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES6 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES7 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES8 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES9 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
 @ELSE IF RES10 = "UNR_DIG" THEN SET BSAUN = "64K Data Unres"
!
 @IF RES1 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES2 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES3 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES4 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES5 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES6 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES7 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES8 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES9 = "TELETEX" THEN SET BSATX = "Teletex"
 @ELSE IF RES10 = "TELETEX" THEN SET BSATX = "Teletex"
!
 @IF RES1 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES2 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES3 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES4 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES5 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES6 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES7 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES8 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES9 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
 @ELSE IF RES10 = "TEL_3_1K" THEN SET BSATE = "Telephone 3.1Khz"
!
 @IF RES1 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES2 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES3 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES4 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES5 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES6 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES7 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES8 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES9 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
 @ELSE IF RES10 = "FAX_G2_3" THEN SET BSAG3 = "Fax Group 2&3"
!
 @IF RES1 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES2 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES3 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES4 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES5 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES6 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES7 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES8 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES9 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
 @ELSE IF RES10 = "FAX_G4_1" THEN SET BSAG4 = "Fax Group 4"
!
 @IF RES1 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES2 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES3 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES4 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES5 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES6 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES7 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES8 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES9 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
 @ELSE IF RES10 = "VIDEOTEX" THEN SET BSAVI = "Videotext"
!
  @@identifying bearer case authorisations
  @SET LINE = ""
  @SET LINE = SCAN("BCAUTH")
  @IF LINE <> 0 THEN SET REC1 = TRIM(COPY(REPLY(LINE)14,8))  
  @IF LINE <> 0 THEN SET REC2 = TRIM(COPY(REPLY(LINE)24,8))  
  @IF LINE <> 0 THEN SET REC3 = TRIM(COPY(REPLY(LINE)34,8))  
  @IF LINE <> 0 THEN SET REC4 = TRIM(COPY(REPLY(LINE)44,8))  
  @IF LINE <> 0 THEN SET REC5 = TRIM(COPY(REPLY(LINE)54,8))  
  @IF REC1 = "SPEECH" THEN SET BCASP = "Subscribed"
  @ELSE IF REC2 = "SPEECH" THEN SET BCASP = "Subscribed"
  @ELSE IF REC3 = "SPEECH" THEN SET BCASP = "Subscribed"
  @ELSE IF REC4 = "SPEECH" THEN SET BCASP = "Subscribed"
  @ELSE IF REC5 = "SPEECH" THEN SET BCASP = "Subscribed"
  @IF BCASP <> "Subscribed" THEN SET BCASP = "NotSubscribed"
  @IF REC1 = "UNR_DIG" THEN SET BCAUN = "Subscribed"
  @ELSE IF REC2 = "UNR_DIG" THEN SET BCAUN = "Subscribed"
  @ELSE IF REC3 = "UNR_DIG" THEN SET BCAUN = "Subscribed"
  @ELSE IF REC4 = "UNR_DIG" THEN SET BCAUN = "Subscribed"
  @ELSE IF REC5 = "UNR_DIG" THEN SET BCAUN = "Subscribed"
  @IF BCAUN <> "Subscribed" THEN SET BCAUN = "NotSubscribed"
  @IF REC1 = "AUD_3_1K" THEN SET BCAAU = "Subscribed"
  @ELSE IF REC2 = "AUD_3_1K" THEN SET BCAAU = "Subscribed"
  @ELSE IF REC3 = "AUD_3_1K" THEN SET BCAAU = "Subscribed"
  @ELSE IF REC4 = "AUD_3_1K" THEN SET BCAAU = "Subscribed"
  @ELSE IF REC5 = "AUD_3_1K" THEN SET BCAAU = "Subscribed"
  @IF BCAAU <> "Subscribed" THEN SET BCAAU = "NotSubscribed"
  @GOTO PAINT_CUST_DATA
  @LABEL AOCH
  @SET LINE = ""
  @SET LINE = SCAN("PERCAPLS")
  @IF LINE <> 0 THEN SET AOCH = "PERCALPLS - 2 Per Call Pkt Switching"
  @SET LINE = ""
  @SET LINE = SCAN("PERMPS")
  @IF LINE <> 0 THEN SET AOCH = "PERMPS - Permanent Pkt Switching"
  @SET LINE = ""
  @SET LINE = SCAN("PERCALL")
  @IF LINE <> 0 THEN SET AOCH = "PERCALPS - Per Call"
  @SET LINE = ""
  @SET LINE = SCAN("PERM")
  @IF LINE <> 0 THEN SET AOCH = "PERCM - Permanent"
  @SET LINE = ""
  @SET LINE = SCAN("START")
  @IF LINE <> 0 THEN SET AOCH1 = "START - At Start"
  @SET LINE = ""
  @SET LINE = SCAN("ACTIVE")
  @IF LINE <> 0 THEN SET AOCH1 = "ACTIVE - At Activation"
  @SET LINE = ""
  @SET LINE = SCAN("END")
  @IF LINE <> 0 THEN SET AOCH1 = "END - At the End"
  @SET LINE = ""
  @SET LINE = SCAN("ELAPSED")
  @IF LINE <> 0 THEN SET AOCH1 = "ELAPSED - Elapsed"
  @SET LINE = ""
  @SET LINE = SCAN("ELAPSCON")
  @IF LINE <> 0 THEN SET AOCH1 = "ELAPSCON - Elapsd Continuously"
  @SET LINE = ""
  @SET LINE = SCAN("ENDSETUP")
  @IF LINE <> 0 THEN SET AOCH1 = "ENDSETUP - At the End of the Setup"
  @RETURN
  @LABEL CARRIER
  @SET LINE = ""
  @SET LINE = SCAN("TELSTRA")
  @IF LINE <> 0 THEN SET CARRIER = "Telstra "
  @SET LINE = ""
  @SET LINE = SCAN("OPTUS")
  @IF LINE <> 0 THEN SET CARRIER = "Optus "
  @IF CARRIER = "" THEN SET LINE = SCAN("CARRIER")
  @SET CARRIER = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL CCR
  @SET LINE = ""
  @SET LINE = SCAN("IDD")
  @IF LINE <> 0 THEN SET CCR = "IDD - International Direct Dialling "
  @SET LINE = ""
  @SET LINE = SCAN("IDDSTD")
  @IF LINE <> 0 THEN SET CCR = "IDDSTD - Standard International Direct Dialling"
  @RETURN
  @LABEL CDTAX
  @SET LINE = ""
  @SET LINE = SCAN("NOTAX")
  @IF LINE <> 0 THEN SET CCR = "NOTAX - No Taxation "
  @SET LINE = ""
  @SET LINE = SCAN("REVCH")
  @IF LINE <> 0 THEN SET CCR = "REVCH - Reverse Charging Applied "
  @RETURN
  @LABEL CFWD
  @SET LINE = ""
  @SET LINE = SCAN("UNCFIX")
  @IF LINE <> 0 THEN SET CFWD = "UNCFIX - Unconditional Fixed"
  @SET LINE = ""
  @SET LINE = SCAN("UNCVAR")
  @IF LINE <> 0 THEN SET CFWD = "UNCVAR - Unconditional Variable"
  @SET LINE = ""
  @SET LINE = SCAN("FIXANNM")
  @IF LINE <> 0 THEN SET CFWD = "Fixed Announcement"
  @SET LINE = ""
  @SET LINE = SCAN("BSUBFIX")
  @IF LINE <> 0 THEN SET CFWD = "BSUBFIX - Busy Fixed"
  @SET LINE = ""
  @SET LINE = SCAN("BSUBVAR")
  @IF LINE <> 0 THEN SET CFWD = "BSUBVAR - Busy Subscriber Variable"
  @SET LINE = ""
  @SET LINE = SCAN("NORFIX")
  @IF LINE <> 0 THEN SET CFWD = "NORFIX - No Reply Fixed"
  @SET LINE = ""
  @SET LINE = SCAN("NORVAR")
  @IF LINE <> 0 THEN SET CFWD = "NORVAR - No Reply Variable"
  @SET LINE = ""
  @SET LINE = SCAN("MWSCFWNR")
  @IF LINE <> 0 THEN SET CFWD = "MWSCFWNR - Mesage Wait Service for CFNR"
  @SET LINE = ""
  @SET LINE = SCAN("MWSCFWB")
  @IF LINE <> 0 THEN SET CFWD = "MWSCFWB - Mesage Wait Service for CFB"
  @SET LINE = ""
  @SET LINE = SCAN("K'")
  @IF LINE <> 0 THEN SET CFWD1 = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL CGTAX
  @SET LINE = ""
  @SET LINE = SCAN("CGTAX")
  @IF LINE <> 0 THEN SET CGTAX = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL COL
  @SET LINE = ""
  @SET LINE = SCAN("COL")
  @IF LINE <> 0 THEN SET COL = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL CONTROL
  @SET LINE = ""
  @SET LINE = SCAN("CONTROL")
  @IF LINE <> 0 THEN SET CONTROL = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL DATALINK
  @SET LINE = ""
  @SET LINE = SCAN("PTP")
  @IF LINE <> 0 THEN SET DATALINK = "PTP - Point to Point "
  @SET LINE = ""
  @SET LINE = SCAN("PTMP")
  @IF LINE <> 0 THEN SET DATALINK = "PTMP - Point to Multipoint Point "
  @SET LINE = ""
  @SET LINE = SCAN("PERM")
  @IF LINE <> 0 THEN SET DATALINK1 = "PERM - Permanent Layer 2"
  @SET LINE = ""
  @SET LINE = SCAN("NONPERM")
  @IF LINE <> 0 THEN SET DATALINK1 = "NONPERM - Non Permanent Layer 2 [as req'd]"
  @RETURN
  @LABEL DBLNGOBS
  @SET LINE = ""
  @SET LINE = SCAN("CG")
  @IF LINE <> 0 THEN SET DBLNGOBS = "CG - Calling "
  @SET LINE = ""
  @SET LINE = SCAN("CD")
  @IF LINE <> 0 THEN SET DBLNGOBS = "CD - Called  "
  @SET LINE = ""
  @SET LINE = SCAN("CGCD")
  @IF LINE <> 0 THEN SET DBLNGOBS = "CGCD - Calling / Called "
  @SET LINE = ""
  @SET LINE = SCAN("NORM")
  @IF LINE <> 0 THEN SET DBLNGOBS1 = "NORMAL - Normal "
  @SET LINE = ""
  @SET LINE = SCAN("DIRECT")
  @IF LINE <> 0 THEN SET DBLNGOBS1 = "DIRECT - Direct"
  @RETURN
  @LABEL DETAIL
  @SET LINE = ""
  @SET LINE = SCAN("INDIV")
  @IF LINE <> 0 THEN SET DETAIL = "INDIV - Individual Reports "
  @SET LINE = ""
  @SET LINE = SCAN("LIST")
  @IF LINE <> 0 THEN SET DETAIL = "LIST - List Report at end of Execution "
  @SET LINE = ""
  @SET LINE = SCAN("NOTIFY")
  @IF LINE <> 0 THEN SET DETAIL = "NOTIFY - Notify Report "
  @RETURN
  @LABEL FACIL
  @SET LINE = ""
  @SET LINE = SCAN("INDIV")
  @IF LINE <> 0 THEN SET FACIL = "INDIV - Individual Facilities "
  @SET LINE = ""
  @SET LINE = SCAN("GENERAL")
  @IF LINE <> 0 THEN SET FACIL = "GENERAL - General Facilities "
  @SET LINE = ""
  @SET LINE = SCAN("NONE")
  @IF LINE <> 0 THEN SET FACIL = "NONE - No Facilities "
  @RETURN
  @LABEL FDC
  @SET LINE = ""
  @SET LINE = SCAN("REMOVE")
  @IF LINE <> 0 THEN SET FDC = "REMOVE - Remove"
  @SET LINE = ""
  @SET LINE = SCAN("FDCI")
  @IF LINE <> 0 THEN SET FDC = "FDCI - FDC immediate"
  @SET LINE = ""
  @SET LINE = SCAN("FDCTO")
  @IF LINE <> 0 THEN SET FDC = "FDCTO - FDC with Time Out"
  @SET LINE = ""
  @SET LINE = SCAN("K'")
  @IF LINE <> 0 THEN SET FDC1 = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL GRPHNT
  @IF GRPHNT = "SEQTL" THEN SET GRPHNT = "SEQTL - Sequential Group Hunting"
  @IF GRPHNT = "CYCLIC" THEN SET GRPHNT = "CYCLIC - Cyclic Group Hunting"
  @RETURN
  @LABEL ICB
  @SET LINE = ""
  @SET LINE = SCAN("PERM")
  @IF LINE <> 0 THEN SET ICB1 = "PERM - Permanent Level"
  @SET LINE = ""
  @SET LINE = SCAN("FIXED")
  @IF LINE <> 0 THEN SET ICB1 = "FIXED - Predefined Fixed Barring"
  @RETURN
  @LABEL INTCP
  @SET LINE = ""
  @SET LINE = SCAN("DENI")
  @IF LINE <> 0 THEN SET INTCP = "DENI - Denied Line"
  @SET LINE = ""
  @SET LINE = SCAN("CHGNBR")
  @IF LINE <> 0 THEN SET INTCP = "CHGNBR - Changed Number"
  @SET LINE = ""
  @SET LINE = SCAN("MOVE")
  @IF LINE <> 0 THEN SET INTCP = "MOVE -Moved Line"
  @SET LINE = ""
  @SET LINE = SCAN("BADP")
  @IF LINE <> 0 THEN SET INTCP = "BADP - Bad Payer"
  @SET LINE = ""
  @SET LINE = SCAN("LOOSBADP")
  @IF LINE <> 0 THEN SET INTCP = "LOOSBADP - Line Out of Service & Bad Payer"
  @RETURN
  @LABEL INHIBIT
  @SET LINE = ""
  @SET LINE = SCAN("CCBS")
  @IF LINE <> 0 THEN SET INHIBIT = "CCBS - Call Completion - Busy Subscriber"
  @SET LINE = ""
  @SET LINE = SCAN("CCNR")
  @IF LINE <> 0 THEN SET INHIBIT1 = "CCNR - Call Completion - No Reply"
  @RETURN
  @LABEL INTCP
  @SET LINE = ""
  @SET LINE = SCAN("DENI")
  @IF LINE <> 0 THEN SET INTCP = "DENI - Denied Line"
  @SET LINE = ""
  @SET LINE = SCAN("CHGNBR")
  @IF LINE <> 0 THEN SET INTCP = "CHGNBR - Changed Number"
  @SET LINE = ""
  @SET LINE = SCAN("MOVE")
  @IF LINE <> 0 THEN SET INTCP = "MOVE - Mover Number"
  @SET LINE = ""
  @SET LINE = SCAN("BADP")
  @IF LINE <> 0 THEN SET INTCP = "BADP - Bad Payer"
  @SET LINE = ""
  @SET LINE = SCAN("LOOSBADP")
  @IF LINE <> 0 THEN SET INTCP = "LOOSBADP - Line Out of Service - Bad Payer"
  @SET LINE = ""
  @SET LINE = SCAN("OOS")
  @IF LINE <> 0 THEN SET INTCP = "OOS - Bad Payer"
  @RETURN
  @LABEL IWDN
  @SET LINE = ""
  @SET LINE = SCAN("ADD/1")
  @IF LINE <> 0 THEN SET IWDN = "ADD/1 - Add"
  @SET LINE = ""
  @SET LINE = SCAN("REMOVE/2")
  @IF LINE <> 0 THEN SET IWDN = "REMOVE/2 - Remove"
  @RETURN
  @SET IWDN1 = TRIM(COPY(REPLY(LINE+1)18,30))
  @SET IWDN1 = TRIM(COPY(REPLY(LINE+1)18,30))
  @SET IWDN1 = TRIM(COPY(REPLY(LINE+1)18,30))
  @LABEL LINETYPE
  @SET LINE = ""
  @SET LINE = SCAN("ISDN")
  @IF LINE <> 0 THEN SET LINETYPE = "ISDN - OnRamp Customer"
  @SET LINE = ""
  @SET LINE = SCAN("ORDINERY")
  @IF LINE <> 0 THEN SET LINETYPE = "ORDINERY - PSTN Customer"
  @RETURN
  @LABEL LINEHNT
  @SET LINE = ""
  @SET LINE = SCAN("SEQTL")
  @IF LINE <> 0 THEN SET LINEHNT = "SEQTL - Sequential Line Hunting"
  @SET LINE = ""
  @SET LINE = SCAN("CYCLIC")
  @IF LINE <> 0 THEN SET LINEHNT = "CYCLIC - Cyclic Line Hunting"
  @SET LINE = ""
  @SET LINE = SCAN("RANDOM")
  @IF LINE <> 0 THEN SET LINEHNT = "RANDOM - Random Line Hunting"
  @RETURN
  @LABEL MAXCFWD
  @SET LINE = ""
  @SET LINE = SCAN("CFWDU")
  @IF LINE <> 0 THEN SET MAXCFWD = "CFWDU - Unconditional "
  @IF LINE <> 0 THEN SET MAXCFWDa = trim(copy(reply(line)18,10))
  @SET LINE = ""
  @SET LINE = SCAN("CFWDFIXA")
  @IF LINE <> 0 THEN SET MAXCFWD = "CFWDFIXA - Fixed Announcement / Overwrite"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDBSUB")
  @IF LINE <> 0 THEN SET MAXCFWD1 = "CFWDBSUB - On Busy Subscriber"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDNOR")
  @IF LINE <> 0 THEN SET MAXCFWD2 = "CFWDNOR - On No Reply "
  @RETURN
  @LABEL MEAGRP
  @RETURN
  @LABEL MISC
  @SET LINE = ""
  @SET LINE = SCAN("BSDEF")
  @IF LINE <> 0 THEN SET MISC = "BSDEF - Basic Default Service "
  @SET LINE = ""
  @SET LINE = SCAN("TMLPOR")
  @IF LINE <> 0 THEN SET MISC = "TMLPOR - Terminal Portability "
  @SET LINE = ""
  @SET LINE = SCAN("CALLRET")
  @IF LINE <> 0 THEN SET MISC = "CALL RET - Call Return"
  @SET LINE = ""
  @SET LINE = SCAN("READMTR")
  @IF LINE <> 0 THEN SET MISC = "READMTR - Read Meter "
  @SET LINE = ""
  @SET LINE = SCAN("NOTIMOUT")
  @IF LINE <> 0 THEN SET MISC1 = "NOTIMOUT - No Time Out"
  @SET LINE = ""
  @SET LINE = SCAN("FAX")
  @IF LINE <> 0 THEN SET MISC = "FAX - Telefax "
  @SET LINE = ""
  @SET LINE = SCAN("MWICFNOR")
  @IF LINE <> 0 THEN SET MISC1 = "MWICFNOR - Msg Waiting Indicator for CF No Reply "
  @SET LINE = ""
  @SET LINE = SCAN("MWICFBSY")
  @IF LINE <> 0 THEN SET MISC1 = "MWICFBSY - Msg Waiting Indicator for CF Busy"
  @RETURN
  @LABEL NBRIDFCD
  @SET LINE = 0
  @SET LINE = SCAN("CGLIP")
  @IF LINE = 0 THEN SET NBRIDFCD = " - CLIP Default - No Presentation"
  @IF LINE <> 0 THEN SET NBRIDFCD = "CGLIP - CLIP Option - Present"
  @SET LINE = ""
  @SET LINE = SCAN("CGLIROWR")
  @IF LINE <> 0 THEN SET NBRIDFCD = "CGLIROWR - Calling Line Identiity Restrict / Overwrite"
  @SET LINE = ""
  @SET LINE = SCAN("CGLISAP")
  @IF LINE <> 0 THEN SET NBRIDFCD = "CGLISAP - Calling Line Identiity SubAddress Presentation"
  @SET LINE = ""
  @SET LINE = SCAN("CONLIR")
  @IF LINE <> 0 THEN SET NBRIDFCD1 = "CONLIR - Connected Line Identity Restrict "
  @SET LINE = ""
  @SET LINE = SCAN("CONLIRT")
  @IF LINE <> 0 THEN SET NBRIDFCD1 = "CONLIRT - Connected Line Identity Restrict Temp'y"
  @SET LINE = ""
  @SET LINE = SCAN("SUBADDR")
  @IF LINE <> 0 THEN SET NBRIDFCD1 = "SUBADDR - Sub Address "
  @SET LINE = ""
  @SET LINE = SCAN("PARTNBR")
  @IF LINE <> 0 THEN SET NBRIDFCD1 = "Partition Numbers "
  @RETURN
  @LABEL NBRIDFCG
  @SET LINE = ""
  @SET LINE = SCAN("CGLIRT")
  @IF LINE <> "" THEN SET NBRIDFCG = "CGLIRT - CLIR Default - Always Presents"
  @SET LINE = ""
  @SET LINE = SCAN("CGLIRDFN")
  @IF LINE = 0 THEN RETURN
  @IF LINE <> "" THEN SET NBRIDFCG = "CGLIRDFN - CLIR Option - Always Restricts"
  @@SET LINE = ""
  @@SET LINE = SCAN("CGLIR ")
  @@IF LINE <> 0 THEN SET NBRIDFCG = "CGLIR - Calling Line Identiity Restriction "
  @SET LINE = ""
  @SET LINE = SCAN("CONLIP")
  @IF LINE <> 0 THEN SET NBRIDFCG1 = "CONLIP - Connected Line IDentity Presentation "
  @SET LINE = ""
  @SET LINE = SCAN("CONLIRO")
  @IF LINE <> 0 THEN SET NBRIDFCG1 = "CONLIRO - Connected Line ID Restriction Overide"
  @SET LINE = ""
  @SET LINE = SCAN("CONLISAP")
  @IF LINE <> 0 THEN SET NBRIDFCG1 = "CONLISAP - Connected Line ID SubAdress Presentation"
  @RETURN
  @LABEL NOTIFY
  @SET LINE = ""
  @SET LINE = SCAN("CWTG ")
  @IF LINE <> 0 THEN SET NOTIFY = "CWTG - Call Waiting "
  @SET LINE = ""
  @SET LINE = SCAN("SCFWD")
  @IF LINE <> 0 THEN SET NOTIFY1 = "SCFWD - Selective Call Forwarding"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDBSUB")
  @IF LINE <> 0 THEN SET NOTIFY2 = "CFWDBSUB - Call Forward on Busy Subscriber"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDNOR")
  @IF LINE <> 0 THEN SET NOTIFY3 = "CFWDNOR - Call Forward on No Reply "
  @RETURN
  @LABEL NTFCFWD
  @SET LINE = ""
  @SET LINE = SCAN("CG ")
  @IF LINE <> 0 THEN SET NTFCFWD = "CG - Calling "
  @SET LINE = ""
  @SET LINE = SCAN("CD")
  @IF LINE <> 0 THEN SET NTFCFWD1 = "CD - Called"
  @SET LINE = ""
  @SET LINE = SCAN("CGFWDNBR")
  @IF LINE <> 0 THEN SET NTFCFWD2 = "CGFWDNBR - Calling User Forwarded Nbr"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDIDFP")
  @IF LINE <> 0 THEN SET NTFCFWD3 = "CFWDIDFP - Call Forwarding ID Presenation "
  @RETURN
  @LABEL OBSERV
  @SET LINE = ""
  @SET LINE = SCAN("ORGOBS")
  @IF LINE <> 0 THEN SET OBSERV = "ORGOBS - Line [Dch] Observation Outgoing "
  @SET LINE = ""
  @SET LINE = SCAN("TOBS")
  @IF LINE <> 0 THEN SET OBSERV1 = "TOBS - Line [Dch] Observation Terminating"
  @SET LINE = ""
  @SET LINE = SCAN("MALCIDF")
  @IF LINE <> 0 THEN SET OBSERV2 = "MALCIDF - Malicious Call Tracing ON"
  @SET LINE = ""
  @@SET LINE = SCAN("NORMRED")
  @@IF LINE <> 0 THEN SET OBSERV1 = "NORMRED - Normal Reduced "
  @@SET LINE = ""
  @@SET LINE = SCAN("NORMEXT")
  @@IF LINE <> 0 THEN SET OBSERV1 = "NORMEXT - Normal Extended"
  @@SET LINE = ""
  @@SET LINE = SCAN("DIRRED")
  @@IF LINE <> 0 THEN SET OBSERV1 = "DIRRED - Direct Reduced "
  @@SET LINE = ""
  @@SET LINE = SCAN("DIREXT")
  @@IF LINE <> 0 THEN SET OBSERV1 = "DIREXT - Direct Extended "
  @@SET LINE = ""
  @SET LINE = SCAN("TIMEOUT")
  @IF LINE <> 0 THEN SET OBSERV3 = "TIMEOUT - Timeout on A clearing [Not OnRamp]"
  @SET LINE = ""
  @SET LINE = SCAN("RECALL ")
  @IF LINE <> 0 THEN SET OBSERV3 = "RECALL - Trigger on Call Registration [Not OnRamp]"
  @SET LINE = ""
  @SET LINE = SCAN("RECALLSC")
  @IF LINE <> 0 THEN SET OBSERV3 = "RECALLSC - Trigger - Call Reg'n or Subs Code"
  @RETURN
  @LABEL OCB
  @SET OCB = ""
  @SET LINE = ""
  @SET LINE = SCAN("EMERG")
  @IF LINE <> 0 THEN SET OCB = "NA000 - Emergency Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("LOCAL")
  @IF LINE <> 0 THEN SET OCB = "NA1 - Local Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN(" TO ")
  @IF LINE <> 0 THEN SET OCB = "NA2 - Local & Tnk Opr Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("STDTOPRS")
  @IF LINE <> 0 THEN SET OCB = "NA3 - Local, Tnk Opr, STD & PRS Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("STDVASTO")
  @IF LINE <> 0 THEN SET OCB = "NA4 - Local, Tnk Opr, STD, PRS & VAS Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("IDDTOPRS")
  @IF LINE <> 0 THEN SET OCB = "NA5 - Local, Tnk Opr, STD,IDD & PRS Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("IDDVAS  ")
  @IF LINE <> 0 THEN SET OCB = "NA6 - Local, IDD, STD, VAS & PRS Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("STDVAS  ")
  @IF LINE <> 0 THEN SET OCB = "NA7 - Local, VAS, STD & PRS Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("STDTO  ")
  @IF LINE <> 0 THEN SET OCB = "NA8 - Local, Tnk Opr & STD Access "
  @IF LINE <> 0 THEN RETURN
  @SET LINE = SCAN("IDDTO  ")
  @IF LINE <> 0 THEN SET OCB = "NA9 - Local, Tnk Opr, STD & IDD Access "
  @IF LINE <> 0 THEN RETURN
  @RETURN
  @LABEL OCBCFWD
  @SET LINE = ""
  @SET LINE = SCAN("CFWDU")
  @IF LINE <> 0 THEN SET OCBCFWD = "CFWDU - Unconditional "
  @IF LINE <> 0 THEN SET OCBCFWDa = trim(copy(reply(line)18,9))
  @SET LINE = ""
  @SET LINE = SCAN("CFWDBSUB")
  @IF LINE <> 0 THEN SET OCBCFWD1 = "CFWDBSUB - On Busy Subscriber"
  @SET LINE = ""
  @SET LINE = SCAN("CFWDNOR")
  @IF LINE <> 0 THEN SET OCBCFWD2 = "CFWDNOR - On No Reply "
  @RETURN
  @LABEL RECALL
  @SET LINE = ""
  @SET LINE = SCAN("CAHLD")
  @IF LINE <> 0 THEN SET RECALL = "CAHLD - Call Hold is ON"
  @SET LINE = ""
  @SET LINE = SCAN("RECALL")
  @IF LINE = 0 THEN RETURN
  @SET LINE = ""
  @SET LINE = SCAN("CWTG")
  @IF LINE <> 0 THEN SET RECALL1 = "CWTG - Call Waiting is ON"
  @RETURN
  @LABEL SUBGRP
  @SET LINE = ""
  @SET LINE = SCAN("SUBGRP")
  @IF LINE <> 0 THEN SET SUBGRP = TRIM(COPY(REPLY(LINE)18,30))
  @RETURN
  @LABEL SUBSIG
  @RETURN
  @LABEL TIMER
  @RETURN
  @LABEL TAXATION
  @SET LINE = ""
  @SET LINE = SCAN("INDIV")
  @IF LINE <> 0 THEN SET TAXATION = "INDIV - Individual Taxation"
  @SET LINE = ""
  @SET LINE = SCAN("GLOBAL")
  @IF LINE <> 0 THEN SET TAXATION = "GLOBAL - Global Taxation"
  @RETURN
  @LABEL TCHNSEL
  @SET LINE = ""
  @SET LINE = SCAN("CHNINDAL")
  @IF LINE <> 0 THEN SET TCHNSEL = "CHNINDAL - B Ch Indication  Alternate Ch"
  @SET LINE = ""
  @SET LINE = SCAN("CHNINDNA")
  @IF LINE <> 0 THEN SET TCHNSEL = "CHNINDNA - B Ch Indication NO Alternate Ch"
  @RETURN
  @LABEL UUS
  @SET LINE = ""
  @SET LINE = SCAN("UUS1")
  @IF LINE <> 0 THEN SET UUS = "UUS1 - User to User Msg during Call Setup / Clear"
  @SET LINE = ""
  @SET LINE = SCAN("UUS2")
  @IF LINE <> 0 THEN SET UUS1 = "UUS2 - User to User Msg Type 2"
  @SET LINE = ""
  @SET LINE = SCAN("UUS3")
  @IF LINE <> 0 THEN SET UUS2 = "UUS3 - User to User Msg during Call Connected"
  @RETURN
!------------------------------------------!
@LABEL PAINT_CUST_DATA
  @WINDEND
  @CLRSCR
  @DRAW(BOX,1,1,80,21)
  @draw(CUP,3,2,HIGH,"Customer Data Settings for ",CUP,33,2,INV,"{DNX}",HIGH," Page-1")
  @draw(CUP,54,2,HIGH,"Product ",CUP,62,2,INV,"{Product_flag}")
  @draw(CUP,5,4,INV,"Bearer Case Authorisations")
  @draw(CUP,5,5,HIGH,"Speech ",CUP,18,5,"{BCASP}")
  @draw(CUP,5,6,HIGH,"Audio 3.1Khz",CUP,18,6,"{BCAAU}")
  @draw(CUP,5,7,HIGH,"64Kbps Data",CUP,18,7,"{BCAUN}")
  @draw(CUP,41,4,INV,"Bearer Service Authorisations")
  @draw(CUP,41,5,HIGH,"{BSASP}")
  @draw(CUP,41,6,HIGH,"{BSAUN}")
  @draw(CUP,41,7,HIGH,"{BSAAU}")
  @draw(CUP,41,8,HIGH,"{BSATE}")
  @draw(CUP,60,5,HIGH,"{BSATX}")
  @draw(CUP,60,6,HIGH,"{BSAG3}")
  @draw(CUP,60,7,HIGH,"{BSAG4}")
  @draw(CUP,60,8,HIGH,"{BSAVI}")
  @draw(CUP,3,9,HIGH,"*",LOW,"Service must have correct BCAUTH for call to succeed!")
  @draw(CUP,3,10,INV,"Non Basic Service Authorisations",CUP,36,10,"Current Settings")
  @draw(CUP,3,11,LOW,"Advice of Charge",CUP,36,11,HIGH,"{AOCH}")
  @draw(CUP,3,12,LOW,"STD Carrier",CUP,36,12,HIGH,"{CARRIER}")
  @draw(CUP,3,13,LOW,"Continuity Check Request",CUP,36,13,HIGH,"{CCR}")
  @draw(CUP,3,14,LOW,"Called Taxation",CUP,36,14,HIGH,"{CDTAX}")
  @draw(CUP,3,15,LOW,"Call Forwarding",CUP,36,15,HIGH,"{CFWD}")
  @draw(CUP,3,16,LOW,"Calling Taxation",CUP,36,16,HIGH,"{CGTAX}")
  @draw(CUP,3,17,LOW,"Class of Line",CUP,36,17,HIGH,"{COL}")
  @draw(CUP,3,18,LOW,"Command Control",CUP,36,18,HIGH,"{CONTROL}")
  @draw(CUP,3,19,LOW,"Datalink - L2 [1]",CUP,36,19,HIGH,"{DATALINK}",CUP,3,20,LOW,"Datalink - L2 [2]",CUP,36,20,HIGH,"{DATALINK1}")
  @draw(CUP,25,21,LOW,"Only active data categorys shown")
  @draw(box,1,22,80,24)
  @draw(CUP,5,23,LOW,"Enter ",HIGH,"N",LOW," - Next page   ",HIGH,"Q",LOW," - Quit")
  @draw(CUP,36,23,inv,"||",low," Not all cat's decoded -Check if not sure!")
  @set action = "N"
  @FORM(3,23,1,action)
  @IF action = "N" then goto PAGE_2
  @ELSE IF action = "Q" then goto STOP
  @GOTO PAINT_CUST_DATA
  !
!-----------------------------------------------------------------------------------------------------------------------------!
@LABEL PAGE_2
  @CLRSCR
  @DRAW(BOX,1,1,80,21)
  @draw(CUP,3,2,HIGH,"Customer Data Settings for ",CUP,33,2,INV,"{DNX}",HIGH," Page-2")
  @draw(CUP,54,2,HIGH,"Product ",CUP,62,2,INV,"{Product_flag}")
  @draw(CUP,3,04,LOW,"Detailed Billing Observation",CUP,36,04,HIGH,"{DBLNGOBS}")
  @draw(CUP,3,05,LOW,"Intermediate Result Report",CUP,36,05,HIGH,"{DETAIL}")
  @draw(CUP,3,06,LOW,"Originating Facilities",CUP,36,06,HIGH,"{FACIL}")
  @draw(CUP,3,07,LOW,"Fixed Destination Call",CUP,36,07,HIGH,"{FDC}")
  @draw(CUP,3,08,LOW,"Incoming Call Barring",CUP,36,08,HIGH,"{ICB}")
  @draw(CUP,3,09,LOW,"Inhibit [1] ",CUP,36,09,HIGH,"{INHIBIT}")
  @draw(CUP,3,10,LOW,"Inhibit [2] ",CUP,36,10,HIGH,"{INHIBIT1}")
  @draw(CUP,3,11,LOW,"Interception",CUP,36,11,HIGH,"{INTCP}")
  @draw(CUP,3,12,LOW,"Interworking Directory Number",CUP,36,12,HIGH,"{IWDN}")
  @draw(CUP,3,13,LOW,"Line Characteristics",CUP,36,13,HIGH,"{LINECHAR}")
  @draw(CUP,3,14,LOW,"Max Nbr Call Fowarding [1]",CUP,36,14,HIGH,"{MAXCFWD}",CUP,69,14,HIGH,"{MAXCFWDa}")
  @draw(CUP,3,15,LOW,"Max Nbr Call Fowarding [2]",CUP,36,15,HIGH,"{MAXCFWD1}")
  @draw(CUP,3,16,LOW,"Max Nbr Call Fowarding [3]",CUP,36,16,HIGH,"{MAXCFWD2}")
  @draw(CUP,3,17,LOW,"Measurement Group",CUP,36,17,HIGH,"{MEAGRP}")
  @draw(CUP,3,18,LOW,"Miscellaneous",CUP,36,18,HIGH,"{MISC}")
  @draw(CUP,3,19,LOW,"Number Idenitification Called [1]",CUP,36,19,HIGH,"{NBRIDFCD}")
  @draw(CUP,3,20,LOW,"Number Idenitification Called [2]",CUP,36,20,HIGH,"{NBRIDFCD1}")
  @draw(CUP,25,21,LOW,"Only active data categorys shown")
  @draw(box,1,22,80,24)
  @draw(CUP,5,23,LOW,"Enter ",HIGH,"N",LOW," - Next page   ",HIGH,"Q",LOW," - Quit")
  @draw(CUP,36,23,inv,"||",low," Not all cat's decoded -Check if not sure!")
  @set action = "N"
  @FORM(3,23,1,action)
  @IF action = "N" then goto PAGE_3
  @ELSE IF action = "Q" then goto STOP
  @GOTO PAGE_2
!-----------------------------------------------------------------------------------------------------------------------------!
@LABEL PAGE_3
  @CLRSCR
  @DRAW(BOX,1,1,80,21)
  @draw(CUP,3,2,HIGH,"Customer Data Settings for ",CUP,33,2,INV,"{DNX}",HIGH," Page-3")
  @draw(CUP,54,2,HIGH,"Product ",CUP,62,2,INV,"{Product_flag}")
  @draw(CUP,3,04,LOW,"Number Idenitification Calling[1]",CUP,36,04,HIGH,"{NBRIDFCG}")
  @draw(CUP,3,05,LOW,"Number Idenitification Calling[2]",CUP,36,05,HIGH,"{NBRIDFCG1}")
  @draw(CUP,3,06,LOW,"Notify [1]",CUP,36,06,HIGH,"{NOTIFY}")
  @draw(CUP,3,07,LOW,"Notify [2]",CUP,36,07,HIGH,"{NOTIFY1}")
  @draw(CUP,3,08,LOW,"Notify [3]",CUP,36,08,HIGH,"{NOTIFY2}")
  @draw(CUP,3,09,LOW,"Notify [4]",CUP,36,09,HIGH,"{NOTIFY3}")
  @draw(CUP,3,10,LOW,"Notify Call Forward [1]",CUP,36,10,HIGH,"{NTFCFWD}")
  @draw(CUP,3,11,LOW,"Notify Call Forward [2]",CUP,36,11,HIGH,"{NTFCFWD1}")
  @draw(CUP,3,12,LOW,"Notify Call Forward [3]",CUP,36,12,HIGH,"{NTFCFWD2}")
  @draw(CUP,3,13,LOW,"SLO Observation [1]",CUP,36,13,HIGH,"{OBSERV}")
  @draw(CUP,3,14,LOW,"SLO Observation [2]",CUP,36,14,HIGH,"{OBSERV1}")
  @draw(CUP,3,15,LOW,"MCT Observation [1]",CUP,36,15,HIGH,"{OBSERV2}")
  @draw(CUP,3,16,LOW,"MCT Observation [2]",CUP,36,16,HIGH,"{OBSERV3}")
  @draw(CUP,3,17,LOW,"Outgoing Call Barred",CUP,36,17,HIGH,"{OCB}")
  @draw(CUP,3,18,LOW,"Outgoing Call Barred Call FWD [1]",CUP,36,18,HIGH,"{OCBCFWD}")
  @draw(CUP,3,19,LOW,"Outgoing Call Barred Call FWD [2]",CUP,36,19,HIGH,"{OCBCFWD1}")
  @draw(CUP,3,20,LOW,"Outgoing Call Barred Call FWD [3]",CUP,36,20,HIGH,"{OCBCFWD2}")
  @draw(CUP,25,21,LOW,"Only active data categorys shown")
  @draw(box,1,22,80,24)
  @draw(CUP,5,23,LOW,"Enter ",HIGH,"N",LOW," - Next page   ",HIGH,"Q",LOW," - Quit")
  @draw(CUP,36,23,inv,"||",low," Not all cat's decoded -Check if not sure!")
  @set action = "N"
  @FORM(3,23,1,action)
  @IF action = "N" then goto PAGE_4
  @ELSE IF action = "Q" then goto STOP
  @GOTO PAGE_3
!-----------------------------------------------------------------------------------------------------------------------------!
@LABEL PAGE_4
  @CLRSCR
  @DRAW(BOX,1,1,80,21)
  @draw(CUP,3,2,HIGH,"Customer Data Settings for ",CUP,33,2,INV,"{DNX}",HIGH," Page-3")
  @draw(CUP,54,2,HIGH,"Product ",CUP,62,2,INV,"{Product_flag}")
  @draw(CUP,3,04,LOW,"Password",CUP,36,04,HIGH,"{PASSWORD}")
  @draw(CUP,3,05,LOW,"Payphone",CUP,36,05,HIGH,"{PAYPHONE}")
  @draw(CUP,3,06,LOW,"Max Nbr of Calls in Wait Queue",CUP,36,06,HIGH,"{QUEUE}")
  @draw(CUP,3,07,LOW,"Ring Back Price",CUP,36,07,HIGH,"{RBPRICE}")
  @draw(CUP,3,08,LOW,"Register Recall Type",CUP,36,08,HIGH,"{RECALL}")
  @draw(CUP,3,09,LOW,"",CUP,36,09,HIGH,"{RECALL1}")
  @draw(CUP,3,10,LOW,"Reset",CUP,36,10,HIGH,"{RESET}")
  @draw(CUP,3,11,LOW,"Subscriber Control",CUP,36,11,HIGH,"{SUBCTRL}")
  @draw(CUP,3,12,LOW,"Subs Group for Route & Charging",CUP,36,12,HIGH,"{SUBGRP}")
  @draw(CUP,3,13,LOW,"Subscriber Signalling",CUP,36,13,HIGH,"{SUBSIG}")
  @draw(CUP,3,14,LOW,"Taxation",CUP,36,14,HIGH,"{TAXATION}")
  @draw(CUP,3,15,LOW,"Terminating Channel Selection",CUP,36,15,HIGH,"{TCHNSEL}")
  @draw(CUP,3,16,LOW,"Timer Value",CUP,36,16,HIGH,"{TIMER}")
  @draw(CUP,3,17,LOW,"User to User Signalling [1]",CUP,36,17,HIGH,"{UUS}")
  @draw(CUP,3,18,LOW,"User to User Signalling [2]",CUP,36,18,HIGH,"{UUS1}")
  @draw(CUP,3,19,LOW,"User to User Signalling [3]",CUP,36,19,HIGH,"{UUS2}")
  @draw(CUP,25,21,HIGH,"Last page for Single Lines")
  @draw(box,1,22,80,24)
  @draw(CUP,5,23,LOW,"Enter ",HIGH,"N",LOW," - Next page   ",HIGH,"Q",LOW," - Quit")
  @draw(CUP,36,23,inv,"||",low," Not all cat's decoded -Check if not sure!")
  @set action = "N"
  @FORM(3,23,1,action)
  @IF action = "N" then goto TEST_PBX_PAGE
  @ELSE IF action = "Q" then goto STOP
  @GOTO PAGE_4
@LABEL TEST_PBX_PAGE
  @IF PBX <> "is" THEN GOTO PAINT_CUST_DATA
!-----------------------------------------------------------------------------------------------------------------------------!
@LABEL PAGE_5
  @CLRSCR
  @DRAW(BOX,1,1,80,21)
  @draw(CUP,3,2,HIGH,"Customer Data Settings for ",CUP,33,2,INV,"{DNX}",HIGH," Page-3")
  @draw(CUP,54,2,HIGH,"Product ",CUP,62,2,INV,"{Product_flag}")
  @draw(CUP,3,04,HIGH,"PABX - General Features")
  @draw(CUP,3,05,LOW,"Taxation Directory Number",CUP,38,05,HIGH,"{TAXDN}")
  @draw(CUP,3,06,LOW,"Identification Directory Number",CUP,38,06,HIGH,"{IDFDN}")
  @draw(CUP,3,07,LOW,"Search Directory Number",CUP,38,07,HIGH,"{SDN}")
  @draw(CUP,3,08,HIGH,"Line Information")
  @draw(CUP,3,09,LOW,"Line Group Configuration",CUP,38,09,HIGH,"{LINEGRP}")
  @draw(CUP,3,10,LOW,"Number of Individual Lines Reseved",CUP,38,10,HIGH,"{NBRLRES}")
  @draw(CUP,3,11,LOW,"Lines in Hunt Group",CUP,38,11,HIGH,"{HNT}")
  @draw(CUP,3,12,high,"Dependancy Information")
  @draw(CUP,3,13,LOW,"Bearer Dependancy",CUP,38,13,HIGH,"{BEARDEP}")
  @draw(CUP,3,14,LOW,"Signalling Dependancy",CUP,38,14,HIGH,"{SIGDEP}")
  @draw(CUP,3,15,LOW,"Reduce Hunting Dependancy",CUP,38,15,HIGH,"{RDHNTDEP}")
  @draw(CUP,3,16,LOW,"Call Category Dependancy",CUP,38,16,HIGH,"{CATDEP}")
  @draw(CUP,3,17,LOW,"Group Hunting",CUP,38,17,HIGH,"{GRPHNT}")
  @draw(CUP,3,18,high,"Linegroup Features")
  @draw(CUP,3,19,LOW,"Number of Lines",CUP,38,19,HIGH,"{NBRLNS}")
  @draw(CUP,45,19,LOW,"Line Type",CUP,57,19,HIGH,"{LINETYPE}")
  @draw(CUP,3,20,LOW,"Line Hunting",CUP,38,20,HIGH,"{LINEHNT}")
  @draw(CUP,25,21,HIGH,"No more data")
  @draw(box,1,22,80,24)
  @draw(CUP,5,23,LOW,"Enter ",HIGH,"N",LOW," - Next page   ",HIGH,"Q",LOW," - Quit")
  @draw(CUP,36,23,inv,"||",low," Not all cat's decoded -Check if not sure!")
  @set action = "N"
  @FORM(3,23,1,action)
  @IF action = "N" then goto PAINT_CUST_DATA
  @ELSE IF action = "Q" then goto STOP
  @GOTO PAGE_5
!------------------------------------------!
@LABEL STOP
!$$$$!
!------------------------------------------!
@LABEL GET_SUBSCR
  @IF DN = "" THEN GOTO TO STOP
  @SET JOB = 29
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
@RETURN
!------------------------------------------!
@LABEL GET_PBX
  @IF GDN = "" THEN GOTO TO STOP
  @SET JOB = 40
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
@RETURN
!------------------------------------------!
@LABEL TEST_PBX_DATA
  @@@existing variables
  @SET LINE = ""
  @SET LINE = scan("LINETYPE")
  @IF LINE <> "0" THEN SET LINETYPE = trim(copy(reply(line+2),33,08)
  @SET LINE = ""
  @SET LINE = scan("TAXDN")
  @IF LINE <> 0 THEN SET TAXDN = trim(copy(reply(line),11,13)
  @SET LINE = scan("DDI")
  @IF LINE <> 0 THEN SET LO_NUM = trim(copy(reply(line),14,12)
  @IF LINE <> 0 THEN SET HI_NUM = trim(copy(reply(line),34,12)
  @SET LINE = ""
  @SET LINE = SCAN("NBRLNS")
  @IF LINE <> 0 THEN INC(LINE,2)
  @SET nbrlns = trim(copy(reply(line),13,2)
  @@@new variables
  @SET LINE = ""
  @SET LINE = scan("BEARDEP")
  @IF LINE <> "0" THEN SET BEARDEP = trim(copy(reply(line+2),13,10)
  @SET LINE = ""
  @SET LINE = scan("CATDEP")
  @IF LINE <> "0" THEN SET CATDEP = trim(copy(reply(line+2),43,10)
  @SET LINE = ""
  @SET LINE = scan("GRPHNT")
  @IF LINE <> "0" THEN SET GRPHNT = trim(copy(reply(line+2),53,10)
  @GOSUB GRPHNT
  @SET LINE = ""
  @SET LINE = scan("HNT")
  @IF LINE <> "0" THEN SET HNT = trim(copy(reply(line+2),27,10)
  @SET LINE = ""
  @SET LINE = scan("IDFDN")
  @IF LINE <> 0 THEN SET IDFDN = trim(copy(reply(line),11,13)
  @SET LINE = ""
  @SET LINE = scan("LINEHNT")
  @IF LINE <> "0" THEN SET LINEHNT = trim(copy(reply(line+2),17,10)
  @GOSUB LINEHNT
  @SET LINE = ""
  @SET LINE = scan("LINEGRP")
  @IF LINE <> "0" THEN SET LINEGRP = trim(copy(reply(line+1),4,2)
  @SET LINE = ""
  @SET LINE = scan("NBRLRES")
  @IF LINE <> 0 THEN SET NBRLRES = trim(copy(reply(line+1),17,10)
  @SET LINE = ""
  @SET LINE = scan("RDHNTDEP")
  @IF LINE <> "0" THEN SET RDHNTDEP = trim(copy(reply(line+2),33,10)
  @SET LINE = ""
  @SET LINE = scan("SDN")
  @IF LINE <> 0 THEN SET SDN = trim(copy(reply(line),11,13)
  @SET LINE = ""
  @SET LINE = scan("SIGDEP")
  @IF LINE <> "0" THEN SET SIGDEP = trim(copy(reply(line+2),23,10)
  @GOTO CONT_DISP_CUST_DATA
!------------------------------------------!
@LABEL TEST_PBX_DATA2
  @SET JOB = 34
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOTO TEST_CUST_DATA
!------------------------------------------!
@LABEL DMSN
  @if (pbx <> "is") and (dn <> "") then goto CONT_DMSN
  @if (pbx = "is") and (gdn <> "") then goto CONT_DMSN
  @goto stop
  @if PBX <> "is" THEN SET DNX = DN
  @if PBX = "is" THEN SET DNX = GDN
@LABEL CONT_DMSN
  @if PBX <> "is" THEN SET DNX = DN
  @if PBX = "is" THEN SET DNX = GDN
  @DRAW(BOX,1,1,80,24)
  @IF NUMB_DEV > 1 THEN DRAW(CUP,30,03,INV,"LINE HUNT GROUP")
  @IF NUMB_DEV = 1 THEN DRAW(CUP,32,03,INV,"SINGLE LINE")
  @DRAW(CUP,26,04,INV,"BASIC ACCESS - MSN DATA")
  @DRAW(CUP,26,05,LOW,"MN Numbers for -",CUP,42,05,HIGH,{DNX})
  @DRAW(CUP,26,06,LOW,"Total Mn's = ",CUP,39,06,HIGH,{CNT_MSN})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,08,LOW,"MSN-1",CUP,32,08,HIGH,{MSN_1})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,09,LOW,"MSN-2",CUP,32,09,HIGH,{MSN_2})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,10,LOW,"MSN-3",CUP,32,10,HIGH,{MSN_3})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,11,LOW,"MSN-4",CUP,32,11,HIGH,{MSN_4})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,12,LOW,"MSN-5",CUP,32,12,HIGH,{MSN_5})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,13,LOW,"MSN-6",CUP,32,13,HIGH,{MSN_6})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,14,LOW,"MSN-7",CUP,32,14,HIGH,{MSN_7})
  @IF NUMB_DEV = 1 THEN DRAW(CUP,26,15,LOW,"MSN-8",CUP,32,15,HIGH,{MSN_8})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,08,LOW,"MSN-1",CUP,32,08,HIGH,{PMSN_1})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,09,LOW,"MSN-2",CUP,32,09,HIGH,{PMSN_2})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,10,LOW,"MSN-3",CUP,32,10,HIGH,{PMSN_3})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,11,LOW,"MSN-4",CUP,32,11,HIGH,{PMSN_4})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,12,LOW,"MSN-5",CUP,32,12,HIGH,{PMSN_5})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,13,LOW,"MSN-6",CUP,32,13,HIGH,{PMSN_6})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,14,LOW,"MSN-7",CUP,32,14,HIGH,{PMSN_7})
  @IF NUMB_DEV > 1 THEN DRAW(CUP,26,15,LOW,"MSN-8",CUP,32,15,HIGH,{PMSN_8})
  @IF NUMB_DEV = 1 THEN draw(CUP,20,17,HIGH,"For Single Lines the MNs shown apply")
  @IF NUMB_DEV > 1 THEN draw(CUP,20,17,HIGH,"For a LHG, only first MN for each line ")
  @IF NUMB_DEV > 1 THEN draw(CUP,20,18,HIGH,"is shown!",LOW," eg MSN2 is MN Prime of Line2")
  @draw(CUP,20,20,HIGH,"To check for other MNs on a individual line,")
  @draw(CUP,20,21,HIGH," re-enter the DN prime indicated")
  @draw(CUP,20,23,HIGH,"Press ",INV,"C",HIGH," to check the current line, or Enter continues")
  @set action = ""
  @FORM(74,23,1,action)
  @IF action = "C" then goto CONT_DMSN2
!$$$$!
!
@LABEL CONT_DMSN2
  @DRAW(BOX,1,1,80,24)
  @DRAW(CUP,32,03,INV,"CURRENT LINE")
  @DRAW(CUP,26,04,INV,"BASIC ACCESS - MSN DATA")
  @DRAW(CUP,26,05,LOW,"MN Numbers for -",CUP,42,05,HIGH,{DN})
  @DRAW(CUP,26,08,LOW,"MSN-1",CUP,32,08,HIGH,{MSN_1})
  @DRAW(CUP,26,09,LOW,"MSN-2",CUP,32,09,HIGH,{MSN_2})
  @DRAW(CUP,26,10,LOW,"MSN-3",CUP,32,10,HIGH,{MSN_3})
  @DRAW(CUP,26,11,LOW,"MSN-4",CUP,32,11,HIGH,{MSN_4})
  @DRAW(CUP,26,12,LOW,"MSN-5",CUP,32,12,HIGH,{MSN_5})
  @DRAW(CUP,26,13,LOW,"MSN-6",CUP,32,13,HIGH,{MSN_6})
  @DRAW(CUP,26,14,LOW,"MSN-7",CUP,32,14,HIGH,{MSN_7})
  @DRAW(CUP,26,15,LOW,"MSN-8",CUP,32,15,HIGH,{MSN_8})
  @draw(CUP,20,20,HIGH,"To check for other MNs on a individual line,")
  @draw(CUP,20,21,HIGH," re-enter the DN prime indicated")
  @draw(CUP,24,23,HIGH,"Press ENTER to continue")
  @set action = "R"
  @FORM(55,23,1,action)
  @IF action <> "R" then goto CONT_DMSN2
!$$$$!
!---------------------------!
@LABEL SEL_NEW_SNB
!$$$$!
!---------------------------!
@LABEL S12_1ST_CK
  @SET FIRSTCHK = ""
  @IF LNCD ="" THEN GOSUB NCODEWNG
  @IF LNCD = "" THEN GOTO STOP
  @IF (DN = "") and (GDN = "") THEN GOSUB NUMBWNG
@GOTO STOP
!------------------------------------------!
@LABEL NCODEWNG
  @WINDOW
  @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Node Code yet ...")
  @DRAW(HIGH,CUP,24,8,"Hit Any Key to Continue ....")
  @INKEY ()
  @windend
  @SET FIRSTCHK
  @return
!------------------------------------------!
@LABEL NUMBWNG
  @WINDOW
  @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Directory Number yet ...")
  @DRAW(HIGH,CUP,24,8,"Hit Any Key to Continue ....")
  @INKEY ()
  @windend
  @return
!------------------------------------------!
@LABEL DA
  @GOSUB CLR_DA
  @IF (NUMB_DEV = "1") AND (GDN = "") THEN GOTO DA_MSN
  @IF DN <> GDN THEN GOTO DA_MSN
  @IF DN = GDN THEN GOTO DA_LHG
  @IF (NUMB_DEV = "1") AND (GDN <> "") THEN GOTO DA_LHG
!$$$$!
!------------------------------------------!
@LABEL DA_MSN
  @IF (NUMB_DEV = "1") and (DN = "") THEN GOTO STOP
  @SET JOB = 1
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB DA_TEST
  @CLRSCR
!$$$$!
!------------------------------------------!
@LABEL DA_LHG
  @SET JOB = 34
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB DA_TEST
  @CLRSCR
!$$$$!
!------------------------------------------!
@LABEL DA_TEST
  @set line = ""
  @set LINE = scan("NONPERM")
  @if line <> "0" then SET ACT_1 = "No L1 activation [Demand]"
  @if line <> "0" then SET ACT = "NONPERM"
  @if line <> "0" then GOTO DA_TEST2
  @set line = ""
  @set LINE = scan("  PERM")
  @if line <> "0" then SET ACT_1 = "Permanent L1 activation"
  @if line <> "0" then SET ACT = "PERM"
@LABEL DA_TEST2
  @set line = ""
  @set LINE = scan("PTP")
  @if line <> "0" then SET CONFIG_1 = "Configuration is point to point"
  @if line <> "0" then SET CONFIG = "PTP"
  @set line = ""
  @set LINE = scan("PTMP")
  @if line <> "0" then SET CONFIG_1 = "Configuration is point to multi-point"
  @if line <> "0" then SET CONFIG = "PTMP"
@@@@ USING FIRST MN AS PRIME / DEFAULT BUT NOT FOR LHG
  @SET DISP_MSN = MSN_1
  @IF DN = GDN THEN SET DISP_MSN = "Not Applicable - LHG"
  @IF (ACT_1 = "No L1 activation [Demand]") AND (CONFIG_1 = "Configuration is point to multi-point") THEN SET ACCESS = "Service is default Point to Multipoint"
  @IF (ACT_1 = "Permanent L1 activation") AND (CONFIG_1 = "Configuration is point to multi-point") THEN SET ACCESS = "Service is optional Point to Multipoint with Permanent Activation"
  @IF (ACT_1 = "Permanent L1 activation") AND (CONFIG_1 = "Configuration is point to point") THEN SET ACCESS = "Service is default Point to Point"
  @IF (ACT_1 = "No L1 activation [Demand]") AND (CONFIG_1 = "Configuration is point to point") THEN SET ACCESS = "Service is non standard Point to Point with demand activation"
  @DRAW(BOX,1,1,80,24)
  @IF DN <> GDN THEN SET SNB = DN
  @IF DN = GDN THEN SET SNB = GDN
  @draw(CUP,3,3,INV,"Customer Activation Settings for ",CUP,38,3,HIGH,"{SNB}")
  @if numb_dev = 1 then draw(CUP,22,4,LOW,"Net Address ",HIGH,"{NA}",LOW,"  Eqpt Nbr ",HIGH," {NBR}")
  @if numb_dev > 1 then draw(CUP,22,4,LOW,"Number of lines ",HIGH," {numb_dev} ")
  @draw(CUP,55,4,HIGH,"Product ",CUP,65,4,INV,"{Product_flag}")
  @draw(CUP,3,5,LOW,"Activation Catagories ",CUP,30,5,LOW,"Current Settings")
  @draw(CUP,3,6,LOW,"DFLT")
  @draw(CUP,3,7,LOW,"- Access Default Number ",CUP,30,7,INV,"{DISP_MSN}")
  @draw(CUP,3,8,LOW,"ACT")
  @draw(CUP,3,9,LOW,"- Layer 1 Activation ",CUP,30,8,HIGH,"{ACT} ",CUP,30,9,INV," {ACT_1}")
  @draw(CUP,3,10,LOW,"CONFIG")
  @draw(CUP,3,11,LOW,"- Layer 2 Access",CUP,30,10,HIGH,"{CONFIG}",CUP,30,11,INV," {CONFIG_1}")
  @draw(CUP,3,12,LOW,"TON")
  @draw(CUP,3,13,LOW,"- Type of Number  ",CUP,30,13,INV,"Not applicable - S12")
  @draw(CUP,3,14,LOW,"MSNL")
  @draw(CUP,3,15,LOW,"- Number of digits sent  ",CUP,30,15,INV,"Not applicable - S12")
  @draw(CUP,3,17,LOW,"Customer Configuration ")
  @draw(CUP,3,18,INV,"{access}")
  @draw(CUP,3,20,LOW,"Subscription changes automatically performed on Prime Number not Aux Nbr!")
  @draw(CUP,5,22,LOW,"Enter ",HIGH,"Q",LOW," - Quit")
  @set action = "Q"
  @FORM(3,22,1,action)
  @IF action <> "Q" then goto DA_TEST
  @ELSE IF action = "Q" then return
!------------------------------------------!
@LABEL CLR_DA
  @SET ACT = ""
  @SET ACT_1 = ""
  @SET CONFIG = ""
  @SET CONFIG_1 = ""
  @SET ACCESS = ""
  @RETURN
!$$$$!
