! Ron Durkin SE Brisbane (0738872561)
! S12_CRTN.CMD V2.0     Start date      18/11/96  
!                       Print Date      06/01/97
!       1. Correction to WHICH_EN_NA for no entry 2/3/97
!
! S12_CRTN.CMD V2.1     Start date      03/08/97  
!                       Print Date      
!       1. Change SNB to DFLT value when input = MEMB (fixes inconsistancy problem 
!       patched in SAS4.2)
!       2. Update Get term Add to take account of new A&P module and new VDU add.  
!       3. Improve result handling and decrease delays.
!       4. More result failure tests added.
!           
! S12_CRTN.CMD V2.2     Start date      05/10/97  
!                       Print Date      
!           1. Var CONTINUE added & tested to ensure wrong platform detected.
!           2. autofile SET TO no TO FORCE USE OF connect.cmd MENUS
!
! S12_CRTN.CMD V2.3     Start date      12/1/98  
!                       Print Date      
!           1. Adiional modules for previsioning and special.
!           2. ORJ module and failure routine split out to S12_CRT2.CMD
!           3. "N" choices changed to any key
!           4. Takestime highlighted
!           5. Abort function added to Warning sub routines
!           6.  Decode numeric ftype option added to DISP_FAULT_2
!           7.  22 May - Ensure old_dn is cleared after use when number ro be tested not a prime
!
!--------------------COMMON FUNCTIONS--------------------------------------------------------------!
@LABEL CHECK_MODULE
  @@CLRSCR
  @IF DN = "" THEN GOTO STOP
  @IF NUMB_DEV > "1" THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @SET EMG = "NA = H'{NA} & 1"
  @SET JOB = "90"
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @SET LINE = ""
  @SET LINE = SCAN("DSCEAS")   
  @IF LINE <> "" THEN SET EM = "ISM OFF HOST {LNCD}"
  @SET LINE = SCAN("DSCENS")
  @IF LINE <> "" THEN SET EM = "ISM OFF HOST {LNCD}"
  @SET LINE = SCAN("EMRIMMD")
  @IF LINE <> "" THEN SET EM = "MIXED MODULE OF RSU OFF HOST {LNCD}"
  @IF LINE <> "" THEN GOTO CALC_EMR
  @IF LINE = "" THEN GOTO STOP
@LABEL CALC_EMR
  @@@@CALCULATE NBR RANGE FOR A SLIF
  @SET SBLMIN = ""
  @SET SBLMAX = ""
  @SET SBLMINA = ""
  @SET SBLMAXA = ""
!
@@@@MINIMUMS
  @IF (NBR > 0) AND (NBR < 9) THEN SET SBLMIN = "1"
  @ELSE IF (NBR > 16) AND (NBR < 25) THEN SET SBLMIN = "17"
  @ELSE IF (NBR > 32) AND (NBR < 39) THEN SET SBLMIN = "33"
  @ELSE IF (NBR > 48) AND (NBR < 57) THEN SET SBLMIN = "49"
  @ELSE IF (NBR > 64) AND (NBR < 73) THEN SET SBLMIN = "65"
  @ELSE IF (NBR > 80) AND (NBR < 89) THEN SET SBLMIN = "81"
  @ELSE IF (NBR > 97) AND (NBR < 105) THEN SET SBLMIN = "97"  
  @ELSE IF (NBR > 112) AND (NBR < 121) THEN SET SBLMIN = "113"
  @ELSE IF (NBR > 128) AND (NBR < 137) THEN SET SBLMIN = "129"
  @ELSE IF (NBR > 144) AND (NBR < 153) THEN SET SBLMIN = "145"
  @ELSE IF (NBR > 160) AND (NBR < 169) THEN SET SBLMIN = "161"
  @ELSE IF (NBR > 176) AND (NBR < 185) THEN SET SBLMIN = "177"
  @ELSE IF (NBR > 192) AND (NBR < 201) THEN SET SBLMIN = "193"
  @ELSE IF (NBR > 208) AND (NBR < 217) THEN SET SBLMIN = "209"
  @ELSE IF (NBR > 224) AND (NBR < 233) THEN SET SBLMIN = "225"
  @ELSE IF (NBR > 240) AND (NBR < 249) THEN SET SBLMIN = "241"
!
@@@@MAXIMUMS
  @IF (NBR > 0) AND (NBR < 9) THEN SET SBLMAX = "8"
  @ELSE IF (NBR > 16) AND (NBR < 25) THEN SET SBLMAX = "24"
  @ELSE IF (NBR > 32) AND (NBR < 39) THEN SET SBLMAX = "40"
  @ELSE IF (NBR > 48) AND (NBR < 57) THEN SET SBLMAX = "56"
  @ELSE IF (NBR > 64) AND (NBR < 73) THEN SET SBLMAX = "72"
  @ELSE IF (NBR > 80) AND (NBR < 89) THEN SET SBLMAX = "88"
  @ELSE IF (NBR > 97) AND (NBR < 105) THEN SET SBLMAX = "104"
  @ELSE IF (NBR > 112) AND (NBR < 121) THEN SET SBLMAX = "120"
  @ELSE IF (NBR > 128) AND (NBR < 137) THEN SET SBLMAX = "136"
  @ELSE IF (NBR > 144) AND (NBR < 153) THEN SET SBLMAX = "152"
  @ELSE IF (NBR > 160) AND (NBR < 169) THEN SET SBLMAX = "168"
  @ELSE IF (NBR > 176) AND (NBR < 185) THEN SET SBLMAX = "184"
  @ELSE IF (NBR > 192) AND (NBR < 201) THEN SET SBLMAX = "200"
  @ELSE IF (NBR > 208) AND (NBR < 217) THEN SET SBLMAX = "216"
  @ELSE IF (NBR > 224) AND (NBR < 233) THEN SET SBLMAX = "232"
  @ELSE IF (NBR > 240) AND (NBR < 249) THEN SET SBLMAX = "248"
!
@@@@IDENTIFY SLIF
!
@LABEL GET_SLIF
  @SET SBLMINPOS = ""
  @SET SBLMAXPOS = ""
  @SET H = 1
  @SET SMCL = ""
  @SET LINE = ""
  @SET LINE = SCAN("SBLMIN ",SBLMINPOS)
  @SET LINE = ""
  @SET LINE = SCAN("SBLMAX ",SBLMAXPOS)
  @SET LINE = SCAN("SLIF")
  @SET SBLMINA = TRIM(COPY(REPLY(LINE),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "FIRST" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+1),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "SECOND" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+2),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "THIRD" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+3),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "FOURTH" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+4),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "FIFTH" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+5),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "SIXTH" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+6),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "SEVENTH" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @INC(H)
  @SET SBLMINA = TRIM(COPY(REPLY(LINE+7),SBLMINPOS,5))
  @IF SBLMINA = ""  THEN GOTO CONT_CHECK_MODULE 
  @IF SBLMINA = SBLMIN  THEN SET SMCL = "EIGHTH" 
  @IF SBLMINA = SBLMIN  THEN GOTO CONT_CHECK_MODULE 
  @LABEL CONT_CHECK_MODULE
  @SET K = 1
  @FOR K = 1 TO 8 
  @SET SNB{K} = ""
  @NEXT K
  @WINDOW
  @DRAW(CUP,10,03,INV,"CUSTOMER SERVICES IN MODULE - {EM}")
  @DRAW(CUP,05,04,LOW,"Module address - ",HIGH,"{EMG}")
  @DRAW(CUP,40,04,LOW,"- Customers are on the ",HIGH,"{SMCL}",LOW," SMCL card")
  @DRAW(CUP,05,05,LOW,"Affected customer address range - ",HIGH,"{NA} & {SBLMIN}",LOW," to ",HIGH,"{NA} & {SBLMAX}")
  @LABEL CONT_CHECK_MODULE2
  @DRAW(CUP,07,06,"1st Customer - ",HIGH,"{SNB1}",low,cup,47,06,"2nd Customer - ",HIGH,"{SNB2}")
  @DRAW(CUP,07,07,"3rd Customer - ",HIGH,"{SNB3}",low,cup,47,07,"4th Customer - ",HIGH,"{SNB4}")
  @DRAW(CUP,07,08,"5th Customer - ",HIGH,"{SNB5}",low,cup,47,08,"6th Customer - ",HIGH,"{SNB6}")
  @DRAW(CUP,07,09,"7th Customer - ",HIGH,"{SNB7}",low,cup,47,09,"8th Customer - ",HIGH,"{SNB8}")
   @inkey(dummy,"Press D to get directory numbers or any other key to continue!")
  @if dummy = "D" then GOTO GET_MODULE_SNB
  @WINDEND
  @@CLRSCR
  !$$$$!
  @@@@IDENTIFY SLIF & SNBS
@LABEL GET_MODULE_SNB
  @SET NBRS = SBLMIN
  @SET K = 1
  @FOR K = 1 TO 8 
  @SET JOB = 91
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @SET LINE = ""
  @SET LINE = SCAN("LCE")
  @IF LINE <> "" THEN SET SNB{k} =  TRIM(COPY(REPLY(LINE+2),30,10))
  @IF SNB{K} = "" THEN SET SNB{k} =  TRIM(COPY(REPLY(LINE+2),60,10))
  @INC(NBRS)
  @NEXT K
  @GOTO CONT_CHECK_MODULE2
!$$$$!
@LABEL CHANGE_AXE
  @SET EXCH = "/29"
  @COMMENT(" You are connected to a /29 AXE EXCH!")
  @COMMENT("OCFE will now return to the Product Select Menu!")
  @COMMENT("Use the appropriate Product Menu for AXE /29 or re-eselect exchange")
@goto exit
!---------------------------!
@LABEL CLR_VAR
  @SET CB_PARAM = ""
  @set old_dn = ""
  @set abort = ""
  @set service = ""
  @SET EM = ""
  @SET EMG = ""
  @SET NA_DISP = ""
  @SET NBR_DISP = ""
  @SET Z = ""
  @SET PJZ = ""
  @set L_T = ""
  @set LAS_TAS = ""
  @set LAS_TAS = ""
  @set NUMB_MSN = ""
  @set CNT_MSN = ""
  @set patch = ""
  @set PNB = ""
  @SET RRN = ""
  @SET ALM_VAL = ""
  @set DEV = ""
  @set L = ""
  @set ex_ck = ""
  @set con_flag = ""
  @SET NUMBER = ""
  @SET ALM_VAL = ""
  @SET CUST_TYPE = ""
  @SET BLO_LI = "0"
  @SET GDN = ""
  @SET HI_NUM = ""
  @SET LO_NUM = ""
  @SET CNT_MSN = ""
  @SET PBX = ""
  @SET MSNDDI = ""
  @SET NA = ""
  @SET NUMB_DEV = "0"
  @SET NBR = ""
  @SET GET_ALMS = ""
  @SET DN = ""
  @SET MANI_CODE = ""
  @SET ACTION_CODE = ""
  @SET FAULT_LOC = ""
  @SET TEST_RES = ""
  @set ERR = ""
  @SET err_flag = 0
  @SET FAIL = ""
  @SET BSA_1 = ""
  @SET BSA_2 = ""
  @SET BCA_1 = ""
  @SET BCA_2 = ""
  @SET NBA_1 = ""
  @SET NBA_2 = ""
  @SET NBA_3 = ""
  @SET NBA_4 = ""
  @SET NBA_5 = ""
  @SET NBA_6 = ""
  @SET NBA_7 = ""
  @SET NBA_8 = ""
  @SET NBA_9 = ""
  @SET NBA_10 = ""
  @SET NBA_11 = ""
  @SET NBA_12 = ""
  @SET NBA_13 = ""
  @SET NBA_14 = ""
  @SET NBA_15 = ""
  @SET BAS_1 = ""
  @SET BAS_2 = ""
  @SET BAS_3 = ""
  @SET BAS_4 = ""
  @SET BAS_5 = ""
  @SET BAS_6 = ""
  @SET BAS_7 = ""
  @SET BAS_8 = ""
  @SET BAS_9 = ""
  @SET MSN_1 = ""
  @SET MSN_2 = ""
  @SET MSN_3 = ""
  @SET MSN_4 = ""
  @SET MSN_5 = ""
  @SET MSN_6 = ""
  @SET MSN_7 = ""
  @SET MSN_8 = ""
  @SET PMSN_1 = ""
  @SET PMSN_2 = ""
  @SET PMSN_3 = ""
  @SET PMSN_4 = ""
  @SET PMSN_5 = ""
  @SET PMSN_6 = ""
  @SET PMSN_7 = ""
  @SET PMSN_8 = ""

  @SET LNCD = TRIM(GETDEST())
  !$$$$!
!---------------------------!
@LABEL CK_PABX_ISDN
  @SET MSNDDI = ""
  @IF CNT_MSN > 0 THEN SET MSNDDI = "MSN"
  @IF LO_NUM > 0 THEN SET MSNDDI = "DDI"
  @SET NUMB_DEV = PJZ
  @SET PBX = "is"
  @SET JOB = "34"
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @SET LINE = scan("COL  ")
  @IF LINE = 0 THEN GOTO NO_CLR_TEST_RES
  @SET CUST_TYPE = trim(copy(reply(line),18,10))
  @IF CUST_TYPE = "ISDN" THEN SET CUST_TYPE = "ISDNSUB"
  @IF CUST_TYPE <> "ISDNSUB" THEN GOSUB NOT_ISDN_SUB
  @GOSUB CK_SERV_DATA
  @WINDEND
  @RETURN
!---------------------------!
@LABEL CK_SERV_DATA
  @if (GDN = "") AND (number = "(Auxillery Number)") then set gdn = msn_1
  @if number = "(Auxillery Number)" then set PNB = "Prime"
  @@if (number <> "(Auxillery Number)") OR (NUMBER <> "(MNLHG Member Nbr)") then set PNB = ""
  @if cnt_msn <> "" then set numb_msn = "Total MSNs"
  @SET LINE = SCAN("BSAUTH")
  @SET BSA_1 = trim(copy(reply(line),14,50))
  @SET BSA_2 = trim(copy(reply(line +1),14,50))
  @SET LINE = SCAN("BCAUTH")
  @SET BCA_1 = trim(copy(reply(line),14,50))
  @SET BCA_2 = trim(copy(reply(line +1),20,50))
  @SET LINE = SCAN("NON BASIC")
  @SET NBA_1 = trim(copy(reply(line +2),6,40))
  @IF NBA_1 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_2 = trim(copy(reply(line +3),6,40))
  @IF NBA_2 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_3 = trim(copy(reply(line +4),6,40))
  @IF NBA_3 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_4 = trim(copy(reply(line +5),6,40))
  @IF NBA_4 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_5 = trim(copy(reply(line +6),6,40))
  @IF NBA_5 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_6 = trim(copy(reply(line +7),6,40))
  @IF NBA_6 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_7 = trim(copy(reply(line +8),6,40))
  @IF NBA_7 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_8 = trim(copy(reply(line +9),6,40))
  @IF NBA_8 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_9 = trim(copy(reply(line +10),6,40))
  @IF NBA_9 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_10 = trim(copy(reply(line +11),6,40))
  @IF NBA_10 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_11 = trim(copy(reply(line +12),6,40))
  @IF NBA_11 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_12 = trim(copy(reply(line +13),6,40))
  @IF NBA_12 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_13 = trim(copy(reply(line +14),6,40))
  @IF NBA_13 = "" THEN GOTO CK_SERV_DATA_2
  @SET NBA_14 = trim(copy(reply(line +15),6,40))
  @IF NBA_14 = "" THEN GOTO CK_SERV_DATA_2
   @SET NBA_15 = trim(copy(reply(line +16),6,40))
  @IF NBA_15 = "" THEN GOTO CK_SERV_DATA_2
@GOTO CK_SERV_DATA_2
!$$$$!
!---------------------------!
@LABEL CK_SERV_DATA_2
  @SET LINE = SCAN("   BASIC SERVICE")
  @SET BAS_1 = trim(copy(reply(line +1),6,40))
  @SET BAS_2 = trim(copy(reply(line +2),6,40))
  @IF BAS_2 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_3 = trim(copy(reply(line +3),6,40))
  @IF BAS_3 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_4 = trim(copy(reply(line +4),6,40))
  @IF BAS_4 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_5 = trim(copy(reply(line +5),6,40))
  @IF BAS_5 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_6 = trim(copy(reply(line +6),6,40))
  @IF BAS_6 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_7 = trim(copy(reply(line +7),6,40))
  @IF BAS_7 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_8 = trim(copy(reply(line +8),6,40))
  @IF BAS_8 = "" THEN GOTO CK_FOR_LHG
  @SET BAS_9 = trim(copy(reply(line +9),6,40))
  @IF BAS_9 = "" THEN GOTO CK_FOR_LHG
  @RETURN
!---------------------------!
@LABEL CK_FOR_LHG
  @IF GDN <> "" THEN GOSUB WNG_MSN
  @IF GDN <> "" THEN SET JOB = 40
  @IF GDN <> "" THEN GOTO GET_PBX_EN_NA_2
  @RETURN
!------------------------------------------!
@label wng_MSN
 @IF Dn = gdn then return
 @WINDOW
 @CLRSCR
 @draw(CUP,08,5,HIGH,">>>> Your Directory Number forms part of a Line Hunt Group <<<<")
  @INKEY(DUMMY,"Press any key to continue!")
 @WINDEND
 @return
!---------------------------!
@LABEL CK_SUBSC
@SET LINE = ""
@SET LINE = SCAN("DATALINK")
@IF LINE = "" THEN GOTO DA_FAILS
@SET DATALINK = TRIM(COPY(REPLY(LINE),20,6))
@IF DATALINK = "PTMP" THEN GOSUB DAPMP
@ELSE IF DATALINK = "PTP" THEN GOSUB DAP
!$$$$!
!---------------------------!
@LABEL CHOIC_X
  @SET CHOIC_X = ""
  @INKEY(CHOIC_X,"Enter Y to display Customer Data or any other key to continue!")
  @IF CHOIC_X = 'Y' THEN GOTO DISP_CUST_DATA
  @GOTO END
!$$$$!
!------------------------------------------!
@LABEL DAP
  @@CLRSCR
  @DRAW(box,2,2,78,10)
  @DRAW(CUP,18,06,INV,"THIS BASIC ACCESS SERVICE IS POINT TO POINT")
  @DELAYSEC(5)
  @RETURN
!------------------------------------------!
@LABEL DAPMP
  @@CLRSCR
  @DRAW(box,2,2,78,10)
  @DRAW(CUP,15,06,INV,"THIS BASIC ACCESS SERVICE IS POINT TO MULTI-POINT")
  @DELAYSEC(5)
  @RETURN
!------------------------------------------!
@LABEL DA_FAILS
  @@CLRSCR
  @DRAW(box,2,2,78,10)
  @DRAW(CUP,05,06,INV,"A SERVICE SUBSCRIPTION COULD NOT BE IDENTIFIED - NO DATALINK SETTING")
  @DELAYSEC(5)
 !$$$$!
!------------------------------------------!
@LABEL DISP_CUST_DATA
  @IF BCA_1 <> "" THEN GOTO DISP_SERV_DATA
  @LABEL CONT_DISP_CUST_DATA
  @SET JOB = 1
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @INKEY(DUMMY,"Press ANY key to continue...")
  @GOSUB CK_SERV_DATA
  @GOSUB DISP_SERV_DATA
!$$$$!
@LABEL DISP_CUST_DATA_2
  @GOSUB GET_EN_NA
  @GOSUB CHOIC_X
  @RETURN
@LABEL DISP_CUST_DATA_3
  @GOSUB GET_PBX_EN_NA
  @GOSUB CHOIC_X
  @RETURN
!---------------------------!
@LABEL DL_ALL
  @GOSUB WARNING3
  @IF ABORT = "YES" THEN GOTO END
  @IF NUMB_DEV < 2 THEN RETURN
  @SET JOB = 5
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @IF TEST_RES = "SUCCESSFUL" THEN INC(BLO_LI,1)
  @NEXT Z
!$$$$!
!---------------------------!
@LABEL GET_CALL_STAT
  @set choic_r = ""
  @IF DN = GDN THEN GOTO GET_CALL_STAT_IND
  @SET JOB = 2
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set patch = "YES"
  @IF (RRN = "NOT SUCCESSFUL") AND (patch = "YES") THEN GOSUB ALT_TEST_CS
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @GOSUB DISP_CONN1
  @INKEY(CHOIC_R,"Enter R to repeat the DISP-CONN ORJ, any other key continues")
  @if choic_r = "R" then goto get_call_stat
  @goto end
  !$$$$!
!---------------------------!
@LABEL GET_CALL_STAT_IND
  @set choic_r = ""
  @gosub which_en_na
@LABEL GET_CALL_STAT_IND2
  @IF NA = "" THEN GOTO STOP
  @SET JOB = 28
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB DISP_CONN1
  @INKEY(CHOIC_R,"Enter R to repeat the DISP-CONN ORJ, any other key continues")
  @if choic_r = "R" then goto get_call_stat_ind2
  @goto end
!$$$$!
!---------------------------!
@LABEL GET_CALL_STAT_ALL
  @set choic_r = ""
  @SET JOB = 28
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB DISP_CONN1
  @NEXT Z
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to repeat the DISP-CONN ORJ, any other key continues")
  @if choic_r = "R" then goto get_call_stat_all
  @@INKEY(CHOIC_R,"Enter R to see the DISP-CONN Report, any other key continues")
  @@IF CHOIC_R = 'R' THEN VIEWFILE(R1692)
  @goto end
!$$$$!
!---------------------------!
@LABEL DISP_PBX_LINE_STAT
  @SET JOB = 2
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set patch = "YES"
  @IF (RRN = "NOT SUCCESSFUL") AND (patch = "YES") THEN GOSUB ALT_TEST_PBX_STAT
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @GOSUB DISP_CONN1
  @INKEY(CHOIC_R,"Enter R to test another line or any key to continue!")
  @IF CHOIC_R = 'R' THEN GOTO ALT_TEST_PBX_STAT
  @IF CHOIC_R <> 'R' THEN GOTO CONT_DISP_PBX_LINE_STAT
!
@LABEL CONT_DISP_PBX_LINE_STAT
  @goto end
   !$$$$!
!---------------------------!
@LABEL ALT_TEST_PBX_STAT
  @windend
  @set choic_a = ""
  @WINDOW
  @DRAW(BOX,27,04,52,06)
  @DRAW(CUP,29,05,INV,"TROUBLE REPORTED FAULT")
  @DRAW(CUP,05,08,HIGH,"This task has failed due a fault that has previousely been identified!")
  @DRAW(CUP,20,09,HIGH,">> An alternate test will be offered <<")
  @INKEY(choic_a,"Press Y for alternate test, or any other key to continue!")
  @WINDEND
  @if choic_a <> "Y" then return
  @if choic_a = "Y" then goto cont_alt_test_PBX_STAT
@LABEL CONT_ALT_TEST_PBX_STAT
  @set job = "35"
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @NEXT Z
  @RETURN
!---------------------------!
@LABEL ALT_TEST_CS
  @set choic_a = ""
  @WINDOW
  @DRAW(BOX,28,04,52,06)
  @DRAW(CUP,29,05,INV,"TROUBLE REPORTED FAULT")
  @DRAW(CUP,05,08,HIGH,"This task has failed due a fault that has previousely been identified!")
  @DRAW(CUP,20,09,HIGH,">> An alternate test will be offered <<")
  @INKEY(choic_a,"Press Y for alternate test, any other key to continue")
  @WINDEND
  @if choic_a <> "Y" then return
  @if choic_a = "Y" then goto cont_alt_test_CS
@LABEL CONT_ALT_TEST_CS
  @IF GDN <> "" THEN GOTO CONT_ALT_TEST_CS2
  @Set old_dn = dn
  @set dn = msn_1
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @Set dn = old_dn
  @RETURN
@LABEL CONT_ALT_TEST_CS2
  @SET JOB = 28
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set old_dn = ""
  @IF RRN = "NOT SUCCESSFUL" THEN GOSUB TEST_FAIL
  @IF RRN = "SUCCESSFUL" THEN GOSUB TEST_PASS
  @RETURN
!---------------------------!
@LABEL ALT_TEST_DCS
  @WINDOW
  @DRAW(BOX,28,04,52,06)
  @DRAW(CUP,29,05,INV,"TROUBLE REPORTED FAULT")
  @DRAW(CUP,05,08,HIGH,"This task has failed due a fault that has previousely been identified!")
  @DRAW(CUP,20,09,HIGH,">> An alternate test will be offered <<")
  @delaysec(5)
  @WINDEND
  @set choic_a = ""
  @INKEY(choic_a,"Press Y for alternate test, any other key to continue")
  @if choic_a <> "Y" then return
  @if choic_a = "Y" then goto cont_alt_test_dcs
@LABEL CONT_ALT_TEST_dcs
  @gosub which_en_na
  @IF NA = "" THEN GOTO STOP
  @SET JOB = 35
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @RETURN
!---------------------------!
@LABEL DISP_PBX_LINE_SE
    @INKEY(DUMMY,"ORJ may fail on LHG due to SE (DN/EN translate) - press any key! ")
  @RETURN
  
!---------------------------!
@LABEL DISP_CALL_STAT
  @DRAW(BOX,50,07,80,13)
  @DRAW(CUP,51,08,HIGH,"Traffic State - Dev Type")
  @DRAW(CUP,51,09,INV,C_STAT_T)
  @DRAW(CUP,51,10,LOW,"IT     = In service")
  @DRAW(CUP,51,11,LOW,"FIT    = Out of Service")
  @DRAW(CUP,51,12,LOW,"BUSY   = In Test")
  @DELAYSEC(4)
  @DRAW(BOX,60,16,80,20)
  @DRAW(CUP,61,17,HIGH,"LINE  - BCH STATE")
  @DRAW(CUP,61,18,INV,C_STAT_B1)
  @DRAW(CUP,61,19,INV,C_STAT_B2)
  @SET CHOIC_R = ""
  @DRAW(BOX,06,16,34,20)
  @DRAW(CUP,07,17,"UNAV    =Line OOS")
  @DRAW(CUP,07,18,"AVFREE=Line InServ & Idle" )
  @DRAW(CUP,07,19,"AVBUSY=Line InServ & Busy" )
  @DELAYSEC(4)
  @INKEY(CHOIC_R,"Enter Y to see the DISP-SBL-DATA Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0065)
@LABEL CONT_DISP_CALL_STAT
  @INKEY(CHOIC_R,"Enter Y to see the DISP-LINE-STATUS Report or any other key to continue!")
  @@CLRSCR
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4035)
  @GOTO END
  !$$$$!
!---------------------------!
@LABEL DISP_MCALL_STAT
  @DRAW(BOX,30,14,80,(16+BC_VAL))
  @DRAW(CUP,32,15,HIGH,"LINE  -    BCH STATE")
  @FOR Z = 1 TO BC_VAL
  @DRAW(CUP,32,(15+Z),LOW,C_STAT_{Z})
  @NEXT Z
  @SET CHOIC_R = ""
  @DRAW(BOX,01,14,29,18)
  @DRAW(CUP,02,15,"UNAV     =Line OOS")
  @DRAW(CUP,02,16,"AVFREE =Line InServ & Idle" )
  @DRAW(CUP,02,17,"AVBUSY =Line InServ & Busy" )
  @DELAYSEC(5)
  @DELAYSEC(3)
  @INKEY(CHOIC_R,"Enter Y to see the DISP-LINE-STATUS Report  or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4035)
  @GOTO END
  !$$$$!
!---------------------------!
@LABEL DISP_FAULT_STAT
  @GOSUB S12_1ST_CK
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @SET JOB = 36
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB GET_TRAF_STAT
!
@LABEL DISP_FAULT_STAT2
   @WINDOW
   @DRAW(BOX,26,02,52,05)
   @DRAW(CUP,30,03,INV,"S12 BA ALARM DISPLAY")
   @DRAW(CUP,34,04,LOW,"for",HIGH," SAS {exch}")
  @SET JOB = 3
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @IF EXCH = "410" THEN GOTO DISP_410
  @ELSE IF EXCH = "420" THEN GOTO DISP_420
@LABEL DISP_FAULT_STAT3
  @INKEY(CHOIC_R,"Enter 1 for DISP-SBL-DATA RRN or 2  to see DISPLAY-BA_ALARMS RRN")
  @IF CHOIC_R = '1' THEN VIEWFILE(R0065)
  @IF CHOIC_R = '2' THEN VIEWFILE(R4917)
@LABEL CONT_DISP_FAULT_STAT
  @WINDEND
  @goto end
!$$$$!
!
@LABEL DISP_410
   @DRAW(CUP,03,02,HIGH,"Notes for reading")
    @DRAW(CUP,03,03,HIGH,"the layout of this RRN")
   @DRAW(CUP,03,06,HIGH,"Mnemonic ",LOW,"- Starts with L1 or L2 & describes the fault  eg L2RETSM [retries]")
   @DRAW(CUP,03,07,HIGH,"Count ",LOW,"- The number of times it has occurred since midnight")
   @DRAW(CUP,03,08,HIGH,"Midnight - ON",LOW," this alarm existed at midnight ",HIGH,"OFF",LOW," - It did not exist then")
   @DRAW(CUP,03,09,HIGH,"Begin-End ",LOW,"Times refer to last system check & event - A fault may still exist")
  @set choic_r = ""
  @INKEY(CHOIC_R,"Enter D to decode numeric alarms, or any key continues")
  @if choic_r = "D" then goto decode_ftype
@GOTO DISP_FAULT_STAT3
!
@LABEL DISP_420
   @DRAW(CUP,03,03,HIGH,"Notes for reading")
    @DRAW(CUP,03,04,HIGH," the layout of this RRN")
   @DRAW(CUP,05,06,LOW,"The alarm is a mnemonic starting with L1 or L2!")
   @DRAW(CUP,05,07,"there is a fault where sometimes only anumber displays -use the decoder")
   @DRAW(CUP,05,08,LOW,"Count - The number of times it has occurred since midnight")
   @DRAW(CUP,05,09,LOW,"Midnight 1. ON - this alarm existed at midnight 2. OFF - It did not")
  @set choic_r = ""
  @INKEY(CHOIC_R,"Enter D to decode numeric alarm, or any key continues")
  @if choic_r = "D" then goto decode_ftype
@GOTO DISP_FAULT_STAT3
!$$$$!
!
@LABEL DECODE_FTYPE
   @WINDEND
   @WINDOW
   @DRAW(BOX,26,02,52,05)
   @DRAW(CUP,27,03,INV,"S12 NUMERIC ALARM DECODER")
   @DRAW(CUP,34,04,HIGH,"for SAS {exch}")
   @DRAW(CUP,10,06,LOW,"Enter the numeric value of the fault type",HIGH,"*  ")
   @DRAW(CUP,58,06,high,"EG: 0 TO 25")
   @DRAW(CUP,05,07,HIGH,"*",LOW,"It may be right of the DN for SAS4.1 - It is right of BAL1/2 & for SAS4.2")
@LABEL DECODE_FTYPE2
   @SET FT = ""
   @SET RESULT = ""
   @DRAW(CUP,10,08,HIGH,"{RESULT}")
    @FORM(54,6,2,FT)
   @IF (EXCH = "410") AND (FT <> "") THEN GOTO FT_410
   @ELSE IF (EXCH = "420") AND (FT <> "") THEN GOTO FT_420
   @WINDEND
   @goto end
!
@LABEL FT_410
  @IF FT = 0 THEN SET RESULT = "L1LOSSCL / 0 - layer 1 loss clock "
  @IF FT = 1 THEN SET RESULT = "L1VILOW / 1 - layer 1 V* interface low  "
  @IF FT = 2 THEN SET RESULT = "L1ILCDFT / 2 - layer 1 interface link controller defect"
  @IF FT = 3 THEN SET RESULT = "L1ICDFT / 3 - layer 1 interface circuit defect"
  @IF FT = 4 THEN SET RESULT = "L1POWFOC / 4 - layer 1 powerfeed overcurrent"
  @IF FT = 5 THEN SET RESULT = "L1ACTLFL / 5 - layer 1 activation line  failure"
  @IF FT = 6 THEN SET RESULT = " L1LOSSYN / 6 - layer 1 loss synchronisation "
  @IF FT = 7 THEN SET RESULT = "L1BERALH / 7 - layer 1 bit error rate alarm high "
  @IF FT = 8 THEN SET RESULT = "L1BERALL / 8 - layer 1 bit error rate alarm low "
  @IF FT = 9 THEN SET RESULT = "L1RFCSEL / 9 - layer 1 received frame check sequence error limit"
  @IF FT = 10 THEN SET RESULT = "L2RUSV / 10 - layer 2 received unsolicited supervisory"
  @IF FT = 11 THEN SET RESULT = "L2RUDM1 / 11 - layer 2 received unsolicited disconnect mode"
  @IF FT = 12 THEN SET RESULT = "L2RUUA1 / 12 - layer 2 received unsolicited unnumbered ack."
  @IF FT = 13 THEN SET RESULT = "L2RUUA0 / 13 - layer 2 received unsolicited unnumbered ack."
  @IF FT = 14 THEN SET RESULT = "L2RUDM0 / 14 - layer 2 received unsolicited disconnect mode"
  @IF FT = 15 THEN SET RESULT = "L2PIRST / 15 - layer 2 peer initiated reset "
  @IF FT = 16 THEN SET RESULT = "L2TSABME / 16 - layer 2 timeout set asynchronous balance mode extended "
  @IF FT = 17 THEN SET RESULT = "L2TODISC / 17 - layer 2 timeout disconnect    "
  @IF FT = 18 THEN SET RESULT = "L2TORRDY / 18 - layer 2 timeout receive ready"
  @IF FT = 19 THEN SET RESULT = "L2RSVARE / 19 - layer 2 receive sequence variable (N/R) error"
  @IF FT = 20 THEN SET RESULT = "L2RFREJE / 20 - layer 2 receive frame reject (FRMR) error "
  @IF FT = 21 THEN SET RESULT = "L2RFUCF / 21 - layer 2 receive frame with undefined control field"
  @IF FT = 22 THEN SET RESULT = "L2RIFLDE / 22 - layer 2 receipt of I field     "
  @IF FT = 23 THEN SET RESULT = "L2RFSIZE / 23 - layer 2 receive frame with wrong size"
  @IF FT = 24 THEN SET RESULT = "L2MOCIF / 24 - layer 2 maximum number of octets in information frame"
  @IF FT = 25 THEN SET RESULT = "L2RETRSM / 25 - layer 2 retransmission  "
  @DRAW(CUP,10,08,HIGH,"{RESULT}")
  @INKEY(DUMMY,"        Press any key to continue!")
  @SET RESULT = ""
  @GOTO DECODE_FTYPE2
!
@LABEL FT_420
  @IF FT = 0 THEN SET RESULT = " "
  @IF FT = 1 THEN SET RESULT = " "
  @IF FT = 2 THEN SET RESULT = ""
  @IF FT = 3 THEN SET RESULT = ""
  @IF FT = 4 THEN SET RESULT = ""
  @IF FT = 5 THEN SET RESULT = ""
  @IF FT = 6 THEN SET RESULT = ""
  @IF FT = 7 THEN SET RESULT = ""
  @IF FT = 8 THEN SET RESULT = ""
  @IF FT = 9 THEN SET RESULT = ""
  @IF FT = 10 THEN SET RESULT = ""
  @IF FT = 11 THEN SET RESULT = ""
  @IF FT = 12 THEN SET RESULT = ""
  @IF FT = 13 THEN SET RESULT = ""
  @IF FT = 14 THEN SET RESULT = ""
  @IF FT = 15 THEN SET RESULT = ""
  @IF FT = 16 THEN SET RESULT = ""
  @IF FT = 17 THEN SET RESULT = ""
  @IF FT = 18 THEN SET RESULT = ""
  @IF FT = 19 THEN SET RESULT = ""
  @IF FT = 20 THEN SET RESULT = ""
  @IF FT = 21 THEN SET RESULT = ""
  @IF FT = 22 THEN SET RESULT = ""
  @IF FT = 23 THEN SET RESULT = ""
  @IF FT = 24 THEN SET RESULT = ""
  @IF FT = 25 THEN SET RESULT = ""
  @DRAW(CUP,10,08,HIGH,"{RESULT}")
  @INKEY(DUMMY,"        Press any key to continue!")
  @SET RESULT = ""
  @GOTO DECODE_FTYPE2
!
!---------------------------!
@LABEL DISP_FAULT_STAT_ALL
  @GOSUB S12_1ST_CK
  @IF ERR_FLAG > 0 THEN RETURN
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @SET JOB = 36
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @GOSUB GET_TRAF_STAT
  @SET JOB = 3
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @NEXT Z
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter 1 for DISP-SBL-DATA RRN or 2  to see DISPLAY-BA_ALARMS RRN")
  @IF CHOIC_R = '1' THEN VIEWFILE(R0065)
  @IF CHOIC_R = '2' THEN VIEWFILE(R4917)
@LABEL CONT_DISP_FAULT_STAT_ALL
  @goto end
!$$$$!
!---------------------------!
@LABEL DISP_SERV_DATA
  @hide
  @WINDEND
  @@CLRSCR
  @DRAW(BOX,01,01,80,24)
  @DRAW(BOX,51,03,79,09)
  @DRAW(CUP,20,02,INV,"S12 CUSTOMER ACTIVATION DATA")
  @DRAW(CUP,02,04,HIGH,"Basic Service Authorisation (Teleservice)",CUP,52,04,HIGH,"MSN Numbers")
  @DRAW(CUP,03,05,LOW,BSA_1,CUP,52,05,LOW,"1. ",MSN_1,CUP,66,05,LOW,"5. ",MSN_5)
  @DRAW(CUP,03,06,LOW,BSA_2,CUP,52,06,LOW,"2. ",MSN_2,CUP,66,06,LOW,"6. ",MSN_6)
  @DRAW(CUP,02,07,HIGH,"Bearer Capability Authorisation",CUP,52,07,LOW,"3. ",MSN_3,CUP,66,07,LOW,"7. ",MSN_7)
  @DRAW(CUP,03,08,LOW,BCA_1,CUP,52,08,LOW,"4. ",MSN_4,CUP,66,08,LOW,"8. ",MSN_8)
  @DRAW(CUP,02,09,HIGH,"ChargeMeter ",LOW,BCA_2)
  @DRAW(CUP,02,11,HIGH,"Basic Services",CUP,42,10,HIGH,"Non Basic Services")
  @DRAW(CUP,03,12,LOW,BAS_1,CUP,43,11,LOW,NBA_1)
  @DRAW(CUP,03,13,LOW,BAS_2,CUP,43,12,LOW,NBA_2)
  @DRAW(CUP,03,14,LOW,BAS_3,CUP,43,13,LOW,NBA_3)
  @DRAW(CUP,03,15,LOW,BAS_4,CUP,43,14,LOW,NBA_4)
  @DRAW(CUP,03,16,LOW,BAS_5,CUP,43,15,LOW,NBA_5)
  @DRAW(CUP,03,17,LOW,BAS_6,CUP,43,16,LOW,NBA_6)
  @DRAW(CUP,03,18,LOW,BAS_7,CUP,43,17,LOW,NBA_7)
  @DRAW(CUP,03,19,LOW,BAS_8,CUP,43,18,LOW,NBA_8)
  @DRAW(CUP,03,20,LOW,BAS_9,CUP,43,19,LOW,NBA_9)
  @DRAW(CUP,43,20,LOW,NBA_10)
  @DRAW(CUP,03,21,HIGH,"Basic Serv (continued - if reqd)",CUP,43,21,LOW,NBA_11)
  @DRAW(CUP,03,22,LOW,NBA_14,CUP,43,22,LOW,NBA_12)
  @DRAW(CUP,03,23,LOW,NBA_15,CUP,43,23,LOW,NBA_13)
  @delaysec(5)
  @draw(CUP,5,24,LOW,"Enter Y to see the DISP-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @set action = "N"
  @FORM(70,24,1,action)
  @IF action = "N" then goto CONT_DISP_SERV_DATA
  @ELSE IF action = "Y" then VIEWFILE(R4263)
  @else if action = "" then goto DISP_SERV_DATA
  @@delaysec(5)
  @@delaysec(5)
  @@delaysec(5)
  @@delaysec(5)
  @@INKEY(CHOIC_R,"Enter Y to see the DISP-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @@IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @@IF CHOIC_R = 'N' THEN GOTO CONT_DISP_SERV_DATA
@LABEL CONT_DISP_SERV_DATA 
  @@CLRSCR
  !$$$$!
!---------------------------!
@LABEL DISP_CONN1
  @set CS = "0"
  @SET DEV_STAT1 = "0"
  @SET SIG_STAT1 = "0"
  @SET DEV_STAT2 = "0"
  @SET SIG_STAT2 = "0"
  @SET DNB = "NOT CONNECTED"
  @SET DNB1 = "NOT CONNECTED"
  @IF LINE = 0 THEN SET TEST_RES = "SUCCESSFUL"
  @IF TEST_RES = "UNSUCCESSFUL" THEN GOTO TEST_FAIL
  @SET LINE = "0"
  @SET LINE = SCAN("NO CONNECT")
  @IF LINE <> "0" THEN SET CS = "1"
  @IF LINE <> "0" THEN GOTO CONT_DISP_CONN1
  @SET LINE = "0"
  @SET LINE = SCAN("FROM SIDE A")
  @IF LINE <> "0" THEN SET DEV_STAT1 = TRIM(COPY(REPLY(LINE+5),28,25))
  @IF LINE <> "0" THEN SET SIG_STAT1 = TRIM(COPY(REPLY(LINE+6),28,25))
  @SET LINE = "0"
  @SET LINE = SCAN("FROM SIDE A1")
  @IF LINE <> "0" THEN SET DEV_STAT2 = TRIM(COPY(REPLY(LINE+4),28,25))
  @IF LINE <> "0" THEN SET SIG_STAT2 = TRIM(COPY(REPLY(LINE+5),28,25))
  @SET LINE = ""
  @SET LINE = SCAN("TO SIDE B")
  @IF LINE <> "0" THEN SET DNB = TRIM(COPY(REPLY(LINE+2),28,20))
  @SET LINE = ""
  @SET LINE = SCAN("TO SIDE B1")
  @IF LINE <> "0" THEN SET DNB1 = TRIM(COPY(REPLY(LINE+2),28,20))
  @SET CW = "No calls on hold"
  @SET LINE = ""
  @SET LINE = SCAN("ISUP CALL")
  @IF LINE <> "0" THEN SET CW = "One or more calls held - see report!"
!---------------------------!
@LABEL CONT_DISP_CONN1
  @WINDOW
  @DRAW(BOX,21,01,58,04)
  @DRAW(CUP,25,02,INV,"CONNECTION STATE  - {DN}")
  @IF GDN <> "" THEN DRAW(CUP,22,03,HIGH,"IF a GDN - This is Line number ... ",INV,"{Z}")
  @IF CS = "1" THEN DRAW(CUP,08,06,HIGH,">>>> There are NO fully connected calls present at this time <<<<")
  @IF CS = "1" THEN GOTO CONT_DISP_CONN2 
  @DRAW(CUP,03,05,INV,"B1",LOW," Channel state ",HIGH,"{DEV_STAT1}",LOW," Call State ",HIGH,"{SIG_STAT1}",CUP,45,06,LOW," connected to ",HIGH,"{DNB}")
  @DRAW(CUP,03,07,INV,"B2",LOW," Channel state ",HIGH,"{DEV_STAT2}",LOW," Call State ",HIGH,"{SIG_STAT2}",CUP,45,08,LOW," connected to ",HIGH,"{DNB1}")
  @DRAW(CUP,03,09,INV,"CH STATE",HIGH,"  {CW}")
@LABEL CONT_DISP_CONN2
  @INKEY(CHOIC_R,"Enter R to see the DISP-CONN Report, any other key continues")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R1692)
  @WINDEND
  @RETURN
!---------------------------!
@LABEL DISP_CONN2
  @SET LC = ""
  @SET ILC = ""
  @SET V_ON = ""
  @SET ITF = ""
  @SET POW = ""
  @SET LS = ""
  @SET BER_H = ""
  @SET BER_L = ""
  @SET FCS = ""
  @SET LINE = SCAN("UNSUCCESSFUL")
  @IF LINE = 0 THEN SET TEST_RES = "SUCCESSFUL"
  @IF TEST_RES = "UNSUCCESSFUL" THEN GOTO TEST_FAIL
  @SET LINE = SCAN("LOSS C")
  @SET LC = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("ILC")
  @SET ILC = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("V ON L")
  @SET V_ON = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("ITF")
  @SET ITF = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("POWF")
  @SET POW = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("ACT F")
  @SET ACT = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("LOSS S")
  @SET LS = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("BER H")
  @SET BER_H = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("BER L")
  @SET BER_L = TRIM(COPY(REPLY(LINE),4,23))
  @SET LINE = SCAN("FCS A")
  @SET FCS = TRIM(COPY(REPLY(LINE),4,23))
  @DRAW(BOX,29,17,79,24)
  @DRAW(CUP,43,18,INV,"ERROR STATES")
  @DRAW(CUP,30,19,HIGH,LC,CUP,55,19,ILC)
  @DRAW(CUP,30,20,HIGH,V_ON,CUP,55,20,ITF)
  @DRAW(CUP,30,21,HIGH,POW,CUP,55,21,ACT)
  @DRAW(CUP,30,22,HIGH,LS,CUP,55,22,BER_H)
  @DRAW(CUP,30,23,HIGH,BER_L,CUP,55,23,FCS)
  @DELAYSEC(4)
  @DELAYSEC(4)
  @RETURN
!---------------------------!
@label discon
  @include(concat(DIR0,"disconnt.cmd"))
  @COMMENT("Your connection attempt has failed!")
@goto exit
!---------------------------!
@LABEL DONEXT
  @NEXT X
  @GOTO CK_PABX_ISDN
!---------------------------!
@LABEL DL
  @GOSUB S12_1ST_CK
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @SET JOB = 5
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @IF TEST_RES = "SUCCESSFUL" THEN INC(BLO_LI,1)
  @goto end 
  !$$$$!
!---------------------------!
@LABEL EXIT
  @GOSUB CLR_VAR
  !$$$$!
!---------------------------!
@LABEL END
  @SET PATCH = ""
  @SET JOB = ""
  !$$$$!
!---------------------------!
@LABEL GET_L1_ALM_TYPE
  @SET ALM_VAL = ""
  @draw(box,01,01,80,24)
  @DRAW(CUP,25,02,INV,"S12 ALARM EXCH L1 MONITORING")
  @DRAW(CUP,02,04,HIGH,"Layer One Alarms")
  @DRAW(CUP,02,05,HIGH,"0.",CUP,05,05,LOW,"Layer 1 loss clock ")
  @DRAW(CUP,02,06,HIGH,"1.",CUP,05,06,LOW,"Layer 1 V* interface low ")
  @DRAW(CUP,02,07,HIGH,"2.",CUP,05,07,LOW,"Layer 1 interface link controller defect  ")
  @DRAW(CUP,02,08,HIGH,"3.",CUP,05,08,LOW,"Layer 1 interface circuit defect ")
  @DRAW(CUP,02,09,HIGH,"4.",CUP,05,09,LOW,"Layer 1 powerfeed overcurrent ")
  @DRAW(CUP,02,10,HIGH,"5.",CUP,05,10,LOW,"Layer 1 activation ")
  @DRAW(CUP,02,11,HIGH,"6.",CUP,05,11,LOW,"Line failure layer 1 loss synchronisation ")
  @DRAW(CUP,02,12,HIGH,"7.",CUP,05,12,LOW,"Layer 1 bit error rate alarm high ")
  @DRAW(CUP,02,13,HIGH,"8.",CUP,05,13,LOW,"Layer 1 bit error rate alarm low  ")
  @draw(box,29,19,58,21)
  @DRAW(CUP,30,20,HIGH,"Enter alarm type value!")
  @FORM(55,20,2,ALM_VAL)
  @GOSUB GET_ALM_LIST
  @SET ALM_VAL = ""
  @DELAYSEC(4)
!$$$$!
!---------------------------!
@LABEL GET_L2_ALM_TYPE
  @SET ALM_VAL = ""
  @draw(box,01,01,80,24)
  @DRAW(CUP,25,02,INV,"S12 EXCH L2 ALARM MONITORING")
  @DRAW(CUP,30,14,HIGH,"Layer Two Alarms")
  @DRAW(CUP,02,05,HIGH,"10.",CUP,05,05,LOW,"Layer 2 received unsolicited supervisory  ")
  @DRAW(CUP,02,06,HIGH,"11.",CUP,05,06,LOW,"Layer 2 received unsolicited disconnect mode 1 ")
  @DRAW(CUP,02,07,HIGH,"12.",CUP,05,07,LOW,"Layer 2 received unsolicited unnumbered ack 1.  ")
  @DRAW(CUP,02,08,HIGH,"13.",CUP,05,08,LOW,"Layer 2 received unsolicited unnumbered ack 0 ")
  @DRAW(CUP,02,09,HIGH,"14.",CUP,05,09,LOW,"Layer 2 received unsolicited disconnect mode 0")
  @DRAW(CUP,02,10,HIGH,"15.",CUP,05,10,LOW,"Layer 2 peer initiated reset ")
  @DRAW(CUP,02,11,HIGH,"16.",CUP,05,11,LOW,"Layer 2 timeout set asynchronous balance mode extended")
  @DRAW(CUP,02,12,HIGH,"17.",CUP,05,12,LOW,"Layer 2 timeout disconnect ")
  @DRAW(CUP,02,13,HIGH,"18.",CUP,05,13,LOW,"Layer 2 timeout receive ready ")
  @DRAW(CUP,02,14,HIGH,"19.",CUP,05,14,LOW,"Layer 2 receive sequence variable (N/R) error   ")
  @DRAW(CUP,02,15,HIGH,"20.",CUP,05,15,LOW,"Layer 2 receive frame reject (FRMR) error  ")
  @DRAW(CUP,02,16,HIGH,"21.",CUP,05,16,LOW,"Layer 2 receive frame with undefined control field  ")
  @DRAW(CUP,02,17,HIGH,"22.",CUP,05,17,LOW,"Layer 2 received unsolicited disconnect mode ")
  @DRAW(CUP,02,18,HIGH,"23.",CUP,05,18,LOW,"Layer 2 receive frame with wrong size ")
  @DRAW(CUP,02,19,HIGH,"24.",CUP,05,19,LOW,"Layer 2 maximum number of octets in information frame")
  @draw(box,29,20,58,22)
  @DRAW(CUP,30,21,HIGH,"Enter alarm type value!")
  @FORM(55,21,2,ALM_VAL)
  @GOSUB GET_ALM_LIST
  @SET ALM_VAL = ""
  @DELAYSEC(4)
!$$$$!
!---------------------------!
@LABEL GET_ALM_LIST
  @GOSUB WARNING2
  @IF ABORT = "YES" THEN GOTO END
  @IF LNCD = "" THEN RETURN
  @SET LNCD1 = LNCD
  @REPORT (ON)
  @SET JOB = 39
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @SET GET_ALMS = 1
  @RETURN
!---------------------------!
  @LABEL GET_ALM_CANC
  @IF GET_ALMS = "" THEN RETURN
  @IF LNCD <> LNCD1 THEN GOTO WNG_EXCH_CHNGD
  @REPORT (ON)
  @SET JOB = 37
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @REPORT (OFF)
  @SET GET_ALMS = ""
!$$$$!
!---------------------------!
@LABEL GET_TERM
   @SET TERM_A1 = ""
   @SET TERM_A2 = ""
   @SET TERM_AD = ""
   @SET LINE = SCAN("0005")
   @SET TERM_A1 = TRIM(COPY(REPLY(LINE),11,4))
   @SET TERM_A2 = TRIM(COPY(REPLY(LINE),18,2))
   @IF TERM_A1 = "000C" THEN SET TERM_AD = "60{TERM_A2}"
   @IF TERM_A1 = "000D" THEN SET TERM_AD = "61{TERM_A2}"
   @ELSE IF TERM_AD = "" THEN GOTO GET_TERM_2
  @RETURN
!---------------------------!
@LABEL GET_TERM_2
   @SET LINE = SCAN("0005")
   @SET TERM_A1 = TRIM(COPY(REPLY(LINE),14,1))
   @SET TERM_A2 = TRIM(COPY(REPLY(LINE),18,2))
   @IF TERM_A1 = "0" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "1" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "2" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "3" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "4" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "5" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "6" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "7" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "8" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "9" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "A" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "B" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "C" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "D" THEN SET TERM_AD = "69{TERM_A2}"
   @IF TERM_A1 = "E" THEN SET TERM_AD = "68{TERM_A2}"
   @IF TERM_A1 = "F" THEN SET TERM_AD = "69{TERM_A2}"
  @RETURN
!---------------------------!
@LABEL DISP_LINE_STAT
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @window
  @DRAW(CUP,03,05,HIGH,"Nb:",LOW,"An Line may show")
  @DRAW(CUP,03,06,LOW,"AVFREE but have a fault - use")
  @DRAW(CUP,03,07,LOW,"DFS to check if not sure")
  @DRAW(BOX,33,02,63,09)
  @DRAW(CUP,38,03,INV,"STATE of the LINE & CHs")
  @DRAW(CUP,34,04,HIGH,"AVREE",LOW," - Available & Free")
  @DRAW(CUP,34,05,HIGH,"UNAV",LOW," - Not Available")
  @DRAW(CUP,34,06,HIGH,"DT",LOW," - Diagnostic Test")
  @DRAW(CUP,34,07,HIGH,"ODRT",LOW," - On Demand Routine Test")
  @DRAW(CUP,35,08,LOW,"See Report help for others!")
  @DRAW(CUP,65,05,HIGH,"DH State is")
  @DRAW(CUP,65,06,HIGH,"Data Handler")
  @DRAW(CUP,65,07,LOW,"Top is for B1")
  @DRAW(CUP,65,08,LOW,"Next is for B2")
  @SET JOB = 35
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the DISP-LINE-STATUS Report or any key continues")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4035)
  @windend
  @goto end
!$$$$!
!---------------------------!
@LABEL DISP_LINE_STAT_ALL
  @IF ERR_FLAG > 0 THEN RETURN
  @window
  @DRAW(CUP,03,05,HIGH,"Nb:",LOW,"An Line may show")
  @DRAW(CUP,03,06,LOW,"AVFREE but have a fault - use")
  @DRAW(CUP,03,07,LOW,"DFS to check if not sure")
  @DRAW(BOX,33,02,63,09)
  @DRAW(CUP,38,03,INV,"STATE of the LINE & CHs")
  @DRAW(CUP,34,04,HIGH,"AVREE",LOW," - Available & Free")
  @DRAW(CUP,34,05,HIGH,"UNAV",LOW," - Not Available")
  @DRAW(CUP,34,06,HIGH,"DT",LOW," - Diagnostic Test")
  @DRAW(CUP,34,07,HIGH,"ODRT",LOW," - On Demand Routine Test")
  @DRAW(CUP,35,08,LOW,"See Report help for others!")
  @DRAW(CUP,65,05,HIGH,"DH State is")
  @DRAW(CUP,65,06,HIGH,"Data Handler")
  @DRAW(CUP,65,07,LOW,"Top is for B1")
  @DRAW(CUP,65,08,LOW,"Next is for B2")
  @SET JOB = 38
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @SET PATCH = "YES"
  @IF (RRN = "NOT SUCCESSFUL") AND (PATCH = "YES") THEN GOSUB ALT_TEST_PBX_STAT
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the DISP-LINE-STATUS Report or any key continues")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4035)
  @windend
  @goto end
!$$$$!
!---------------------------!
@LABEL GET_TRAF_STAT
  @set line = ""
  @SET LINE = SCAN("STATE  D",STATEPOS)
  @SET C_STAT = (COPY(REPLY(LINE+1),STATEPOS,6))
  @set line = ""
  @SET LINE = SCAN("DEVTYPE",DEVPOS)
  @SET D_STAT = (COPY(REPLY(LINE+1),DEVPOS,6))
  @window
  @DRAW(CUP,03,04,HIGH,"Nb:",LOW,"An SBL may be IT but ..")
  @DRAW(CUP,03,05,LOW,"have a fault - use Verify then")
  @DRAW(CUP,03,06,LOW,"re-check if not sure")
  @DRAW(BOX,30,02,60,10)
  @DRAW(CUP,35,03,INV,"STATE of the SERVICE")
  @DRAW(CUP,35,04,HIGH,"{D_STAT}",LOW," SBL is ",HIGH,"{C_STAT}")
  @DRAW(CUP,32,05,LOW,"IT - In Traffic")
  @DRAW(CUP,32,06,LOW,"FIT - Faulty in traffic")
  @DRAW(CUP,32,07,LOW,"BUSY - In Test")
  @DRAW(CUP,32,08,LOW,"OPR - Manually Disabled")
  @DRAW(CUP,32,09,LOW,"See Report help for others!")
  @INKEY(CHOIC_R,"Press any key to continue!")
  @windend
  @RETURN
!---------------------------!
@LABEL GET_MCALL_STAT
  @GOSUB S12_1ST_CK
  @IF ERR_FLAG > 0 THEN RETURN
   @SET JOB = 38
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @set patch = "YES"
  @IF (RRN = "NOT SUCCESSFUL") AND (patch = "YES") THEN GOSUB ALT_TEST_DCS
  @INKEY(CHOIC_R,"Enter R to test another line or any key returns to menu")
  @IF CHOIC_R = 'R' THEN GOSUB CONT_ALT_TEST_DCS
  @IF CHOIC_R <> 'R' THEN GOTO CONT_GET_MCALL_STAT
!
@LABEL CONT_GET_MCALL_STAT
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
  @INKEY(CHOIC_R,"Enter Y to see the DISP-LINE-STATUS Report  or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4035)
  @GOTO END
  !$$$$!
@@@ below to be removed or modifed
  @SET BC_VAL = 0
  @SET LINE_C = SCAN("CH B")
  @SET C_STAT_1 = (COPY(REPLY(LINE_C),30,40))
  @INC (BC_VAL)
  @IF C_STAT_1 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_2 = (COPY(REPLY(LINE_C +1),30,40))
  @INC (BC_VAL)
  @IF C_STAT_2 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_3 = (COPY(REPLY(LINE_C +2),30,40))
  @INC (BC_VAL)
  @IF C_STAT_3 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_4 = (COPY(REPLY(LINE_C +3),30,40))
  @INC (BC_VAL)
  @IF C_STAT_4 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_5 = (COPY(REPLY(LINE_C +4),30,40))
  @INC (BC_VAL)
  @IF C_STAT_5 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_6 = (COPY(REPLY(LINE_C +5),30,40))
  @INC (BC_VAL)
  @IF C_STAT_6 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_7 = (COPY(REPLY(LINE_C +6),30,40))
  @INC (BC_VAL)
  @IF C_STAT_7 = "" THEN GOTO DISP_MCALL_STAT
  @SET C_STAT_8 = (COPY(REPLY(LINE_C +7),30,40))
  @INC (BC_VAL)
  @IF C_STAT_8 = "" THEN GOTO DISP_MCALL_STAT
  @GOTO DISP_MCALL_STAT
!---------------------------!
@LABEL GET_EN_NA
  @GOSUB S12_1ST_CK
  @WINDOW
  @SET CUST_TYPE = ""
  @@DRAW(BOX,1,1,80,16)
  @DRAW(CUP,14,5,HIGH,"One moment please ... reading service information ...")
  @set job = "29"
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set patch = "no"
  @SET LINE = ""
  @SET LINE = scan("DNET IS NOT KNOWN")
  @IF LINE <> "0" THEN GOSUB NOT_KNOWN
  @IF LINE <> "0" THEN SET CUST_TYPE = "Not Known"
  @IF LINE <> "0" THEN SET NUMBER = "(Number isnt Known)"
  @IF LINE <> "0" THEN RETURN
  @IF RRN = "NOT SUCCESSFUL" THEN GOSUB NO_CLR_TEST_RES
  @SET LINE = ""
  @SET LINE = scan("COL  ")
  @IF LINE <> "0" THEN SET CUST_TYPE = trim(copy(reply(line),18,10))
  @IF LINE = "0" THEN GOTO GET_PBX_EN_NA
  @SET LINE = ""
  @SET LINE = scan("DFLT")
  @IF LINE = "0" THEN SET NUMBER = "(Auxillery Number)" 
  @IF LINE <> "0" THEN SET NUMBER = "(Prime Number)" 
  @IF CUST_TYPE <> "ISDNSUB" THEN GOSUB NOT_ISDN_SUB
  @IF CUST_TYPE <> "ISDNSUB" THEN SET NUMBER = "(Number isnt ISDN)"
  @IF CUST_TYPE <> "ISDNSUB" THEN RETURN
  @IF (CUST_TYPE = "ISDNSUB") AND (SERVICE <> "DATADIAL") THEN SET SERVICE = "ONRAMP"
  @SET LINE = ""
  @SET LINE = scan("GDN")
  @set GDN = trim(copy(reply(LINE+2),59,12))
  @if gdn <>"" then SET NUMBER = "(MNLHG Member Nbr)"
  @IF GDN <> "" THEN set PNB = "GDN"
  @SET line3 = SCAN("H'")
  @IFERROR THEN SET err_flag = 3
  @SET NA = TRIM(COPY(REPLY(line3),+6,4))
  @SET Nbr = TRIM(COPY(REPLY(line3),+22,4))
  @IF LINE3 <> 0 THEN SET NUMB_DEV = "1"
  @SET LINE4 = SCAN("MSN CONFIG")
  @SET MSN_1 = TRIM(COPY(REPLY(line4 +1),15,30))
  @IF MSN_1 = "" THEN  SET CNT_MSN = ""
  @IF MSN_1 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_2 = TRIM(COPY(REPLY(line4 +2),15,30))
  @IF MSN_2 = "" THEN  SET CNT_MSN = "1"
  @IF MSN_2 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_3 = TRIM(COPY(REPLY(line4 +3),15,30))
  @IF MSN_3 = "" THEN  SET CNT_MSN = "2"
  @IF MSN_3 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_4 = TRIM(COPY(REPLY(line4 +4),15,30))
  @IF MSN_4 = "" THEN  SET CNT_MSN = "3"
  @IF MSN_4 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_5 = TRIM(COPY(REPLY(line4 +5),15,30))
  @IF MSN_5 = "" THEN  SET CNT_MSN = "4"
  @IF MSN_5 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_6 = TRIM(COPY(REPLY(line4 +6),15,30))
  @IF MSN_6 = "" THEN  SET CNT_MSN = "5"
  @IF MSN_6 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_7 = TRIM(COPY(REPLY(line4 +7),15,30))
  @IF MSN_7 = "" THEN  SET CNT_MSN = "6"
  @IF MSN_7 = "" THEN  GOTO CK_SERV_DATA
  @SET MSN_8 = TRIM(COPY(REPLY(line4 +8),15,30))
  @IF MSN_8 = "" THEN  SET CNT_MSN = "7"
  @IF MSN_8 = "" THEN  GOTO CK_SERV_DATA
  @IF MSN_8 <> "" THEN  SET CNT_MSN = "8"
  @GOTO CK_SERV_DATA
  @WINDEND
@RETURN
!---------------------------!
@LABEL GET_PBX_EN_NA
  @SET LINE = ""
  @SET LINE = scan("GDN")
  @IF LINE <> "0" THEN SET GDN = trim(copy(reply(line+2),59,10))
  @IF GDN = "" THEN  set line = ""
  @set line = scan("SEARCH DN OF A PABX")
  @if line <> "" then set GDN = DN
  @IF GDN = "" THEN RETURN
  @SET PNB = "GDN"
  @SET NUMBER = "(Prime Number)"
  @SET JOB = 8   
@LABEL GET_PBX_EN_NA_2
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @IF RRN = "UNSUCCESSFUL" THEN RETURN
  @SET LINE = ""
  @SET LINE = scan("LINETYPE")
  @IF LINE <> "0" THEN SET CUST_TYPE = trim(copy(reply(line+2),33,08))
  @IF CUST_TYPE <> "ISDN" THEN GOSUB NOT_ISDN_SUB
  @IF CUST_TYPE <> "ISDN" THEN RETURN
  @IF CUST_TYPE = "ISDN" THEN SET SERVICE = "ONRAMP"
  @SET LINE = ""
  @SET LINE = scan("TAXDN")
  @IF LINE <> 0 THEN SET GDN = 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(" IDN ")
  @SET PMSN_1 = TRIM(COPY(REPLY(line+2),32,10))
  @IF PMSN_1 = "" THEN  SET CNT_MSN = ""
  @IF PMSN_1 = "" THEN GOTO GET_PBX_EN_NA_3
  @SET PMSN_2 = TRIM(COPY(REPLY(line+3),32,10))
  @IF PMSN_2 = "" THEN  SET CNT_MSN = "1"
  @IF PMSN_2 = "" THEN GOTO GET_PBX_EN_NA_3
  @SET PMSN_3 = TRIM(COPY(REPLY(line+4),32,10))
  @IF PMSN_3 = "" THEN  SET CNT_MSN = "2"
  @IF PMSN_3 = "" THEN GOTO GET_PBX_EN_NA_3 
  @SET PMSN_4 = TRIM(COPY(REPLY(line+5),32,10))
  @IF PMSN_4 = "" THEN  SET CNT_MSN = "3"
  @IF PMSN_4 = "" THEN GOTO GET_PBX_EN_NA_3 
  @SET PMSN_5 = TRIM(COPY(REPLY(line+6),32,10))
  @IF PMSN_5 = "" THEN  SET CNT_MSN = "4"
  @IF PMSN_5 = "" THEN GOTO GET_PBX_EN_NA_3 
  @SET PMSN_6 = TRIM(COPY(REPLY(line+7),32,10))
  @IF PMSN_6 = "" THEN  SET CNT_MSN = "5"
  @IF PMSN_6 = "" THEN GOTO GET_PBX_EN_NA_3 
  @SET PMSN_7 = TRIM(COPY(REPLY(line+8),32,10))
  @IF PMSN_7 = "" THEN  SET CNT_MSN = "6"
  @IF PMSN_7 = "" THEN GOTO GET_PBX_EN_NA_3
  @SET PMSN_8 = TRIM(COPY(REPLY(line+9),32,10))
  @IF PMSN_8 = "" THEN  SET CNT_MSN = "7"
  @IF PMSN_8 <> "" THEN  SET CNT_MSN = "8"
@LABEL GET_PBX_EN_NA_3
  @SET LINE = ""
  @SET LINE = SCAN("NBRLNS")
  @IF LINE <> 0 THEN INC(LINE,2)
  @SET numb_dev = trim(copy(reply(line),13,2))
  @IF NUMB_DEV = "1" THEN GOTO CONT_GET_PBX_EN_NA
  @@IF JOB = 40 THEN RETURN     
  @SET LINE = ""
  @SET LINE = SCAN("IEN PHYS")
  @IF LINE <> 0 THEN INC(LINE,2)
  @SET Y = REPLYLEN()			@@nar
  @CHECK(OFF)
  @SET PJZ = 0
  @FOR X = LINE TO REPLYLEN()			@@nar
  @SET TEXT = TRIM(COPY(REPLY(X),1,5))
  @IF POS("H'", TEXT) = 0 THEN GOTO DONEXT
  @INC(PJZ)
  @SET NA{PJZ} = TRIM(COPY(REPLY(X),6,4))
  @SET NBR{PJZ} = TRIM(COPY(REPLY(X),13,4))
  @IF X = REPLYLEN() THEN GOTO CK_PABX_ISDN		@@nar
  @GOTO DONEXT
  @RETURN
@LABEL CONT_GET_PBX_EN_NA  @@@ FOR SINGLE LINE DDI
  @SET LINE = ""
  @SET LINE = SCAN("IEN PHYS")
  @IF LINE <> 0 THEN INC(LINE,2)
  @SET NA = TRIM(COPY(REPLY(line),6,4))
  @SET Nbr = TRIM(COPY(REPLY(line),13,4))
  @SET NA_DISP = NA
  @SET NBR_DISP = NBR
  @SET MSNDDI = "DID"
  @SET PBX = "not"
  @RETURN
!---------------------------!
@LABEL HELP
  @VIEWFILE(help)
  @return
!---------------------------!
@LABEL IL
  @GOSUB S12_1ST_CK
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @SET JOB = 6
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @IF TEST_RES = "SUCCESSFUL" THEN DEC(BLO_LI,1)
  @goto end
!$$$$!
!---------------------------!
@LABEL IL_ALL
  @GOSUB S12_1ST_CK
  @IF NUMB_DEV < 2 THEN RETURN
  @SET JOB = 6
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @IF TEST_RES = "SUCCESSFUL" THEN DEC(BLO_LI,1)
  @NEXT Z
  @goto end
!$$$$!
!---------------------------!
@label LINE_CHK
  @GOSUB S12_1ST_CK
  @IF ERR_FLAG > 0 THEN RETURN
  @SET JOB = 35
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @SET LINE1 = SCAN("DH-STATE",STATUS)
  @SET STATE = (COPY(REPLY(LINE1 +2),STATUS ,6))
  @IF STATE = "AVFREE" THEN RETURN
  @DRAW(BOX,09,11,73,16)
  @DRAW(INV,CUP,17,12,"LINE IN THE WRONG STATE for the REQUESTED TEST")
  @DRAW(INV,CUP,39,13,"OR")
  @DRAW(INV,CUP,22,14,"DN INCONSISTANCY FAULT on Service -")
  @DRAW(INV,CUP,10,15,"Check Report and send to TMG if req'd! - Press [ENTER] to clear")
  @FORM(02,02,1,ERROR)
  @SET ERR_FLAG = "2"
@RETURN
!
@LABEL BC_CLR
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO BC_CLR_2 
  @set job = 70
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 71
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_CLR_2
  @GOTO BC_UNAVAIL
  @set job = 72
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 73
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_STD
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO BC_STD_2 
  @set job = 74
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 75
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_STD_2
  @GOTO BC_UNAVAIL
  @set job = 76
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 77
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_DATA
  @IF DN = GDN THEN GOTO BC_DATA_2 
  @set job = 70
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 78
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_DATA_2
  @GOTO BC_UNAVAIL
  @set job = 72
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 79
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_VOICE
  @IF DN = GDN THEN GOTO BC_VOICE_2 
  @set job = 71
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 80
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_VOICE_2
  @GOTO BC_UNAVAIL
  @set job = 73
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 81
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL BC_UNAVAIL
  @WINDOW
  @DRAW(BOX,15,07,65,09)
  @DRAW(CUP,16,08,INV,"THIS FUNCTION TEMPORARILY UNAVAILABLE FOR PBX GDN")
  @DELAYSEC(4)
  @WINDEND
!$$$$!
!   
@LABEL MOD_AOC_ON
!$$$$!
!
@LABEL MOD_AOC_OFF
!$$$$!
!
@LABEL MOD_CB_ON
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CB_ON2 
  @set job = 61
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CB_ON2
  @set job = 51
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
  !$$$$!
!
@LABEL MOD_CB_OFF
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CB_OFF2 
  @set job = 60
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CB_OFF2
  @set job = 50
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
  !$$$$!
!
@LABEL MOD_CLIR_ON
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CLIR_ON2 
  @set job = 44
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIR_ON2
  @set job = 45
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIR_OFF
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CLIR_OFF2 
  @set job = 42
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 52
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIR_OFF2
  @set job = 43
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @set job = 53
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIP_ON
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CLIP_ON2 
  @set job = 46
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIP_ON2
  @set job = 47
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIP_OFF
  @IF DN = "" THEN GOTO STOP
  @IF DN = GDN THEN GOTO MOD_CLIP_OFF2 
  @set job = 48
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_CLIP_OFF2
  @set job = 49
  @INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @gosub getting_data
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @windend
!$$$$!
!
@LABEL MOD_SUBADD_ON
!$$$$!
!
@LABEL MOD_SUBADD_OFF
!$$$$!
!
@LABEL GETTING_DATA
  @WINDOW
  @DRAW(CUP,12,5,HIGH,"One moment please .. gathering service data information ...")
@RETURN
!
!---------------------------!
@LABEL MOD_CUST_PP
  @IF DN = GDN THEN GOTO MOD_CUST_PP_PBX
  @IF (NUMB_DEV = 1) AND (HI_NUM <> "") THEN GOTO MOD_CUST_PP_PBX
  @SET JOB = 13
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or ank key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL MOD_CUST_PP_PBX
  @GOSUB S12_1ST_CK
  @SET JOB = 20
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or any key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL MOD_CUST_PMP
  @IF DN = GDN THEN GOTO MOD_CUST_PMP_PBX
  @IF (NUMB_DEV = 1) AND (HI_NUM <> "") THEN GOTO MOD_CUST_PMP_PBX
  @SET JOB = 14
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or any key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL MOD_CUST_PMP_PBX
  @SET JOB = 21
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or any key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL MOD_CUST_PMP_PERM
  @IF DN = GDN THEN GOTO MOD_CUST_PMP_PERM_PBX
  @IF (NUMB_DEV = 1) AND (HI_NUM <> "") THEN GOTO MOD_CUST_PMP_PERM_PBX
  @SET JOB = 88
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or any key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL MOD_CUST_PMP_PERM_PBX
  @SET JOB = 89
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to view MOD-SUBSCR/PBX-FACIL Report or any key continues")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!------------------------------------------!
@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
  @return
!------------------------------------------!
@LABEL NUMBWNG
  @WINDOW
  @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Diectory Number yet ...")
  @DRAW(HIGH,CUP,24,8,"Hit Any Key to Continue ....")
  @INKEY ()
  @windend
  @return
!-------------------------------------------!
@LABEL NO_CLR_TEST_RES
  @SET LINE = ""
  @SET LINE = SCAN("SEARCH DN")
  @IF LINE <> "" THEN RETURN
  @GOTO STOP
!---------------------------!
@LABEL NOT_ISDN_SUB
 @WINDOW
 @CLRSCR
 @draw(CUP,15,5,HIGH,">> The DN you have entered is not an OnRamp2 service <<")
 @draw(CUP,18,6,"The DN is known but the service COS is ",high,"{cust_type}")
 @draw(cup,33,7,high,"[RE-ENTER ... OR]")
  @set dummy = ""
  @inkey(dummy,"Enter D to test for Datadial service - any other key continues")
  @if DUMMY = "D" then gosub TEST_DATADIAL
 @WINDEND
 @RETURN
!---------------------------!
@LABEL NOT_KNOWN
 @WINDOW
 @CLRSCR
 @draw(CUP,14,5,HIGH,">> The DN you have entered is not valid for {lncd} <<")
  @inkey(dummy,"Any key continues")
 @WINDEND
 @RETURN
!---------------------------!
@LABEL TEST_DATADIAL
  @SET LINE = 0
  @SET LINE = SCAN("DATALINK")
  @IF LINE <> 0 THEN SET CUST_TYPE = "ISDNSUB"
  @IF LINE <> 0 THEN SET SERVICE = "DATADIAL"
  @RETURN
!
!---------------------------!
@LABEL RETURN
!$$$$!
!---------------------------!
@LABEL S12SELNCODE
   @set LNCD = ""
   @SET AUTOFILE = "NO"
   @set finished = "HIDE"
   @include(concat(DIR0,"DISConnt.cmd"))
   @SET OLD_FIN = "FINISH"
   @@CLRSCR
   @SET FINISH = "HIDE"
   @include(concat(DIR0,"connect.cmd"))
   @SET FINISH = OLD_FIN
   @if con_flag <> "CONNOK" then goto discon
   !............................ good conn = CONNOK  , failed conn has multiple cases!
   @IF CON_FLAG = "FAILED" THEN SET LNCD = ""
   @IF CON_FLAG = "FAILED" THEN GOTO EXIT
   @if inset(mtype,"SYS12","S12FD","SYS") then goto tests12
@LABEL AXE_NOK
   @WINDOW
   @DRAW(BOX,26,2,54,4)
   @DRAW(cup,27,3,INV,'{LNCD} IS NOT A S12 FMO EXCH')
   @DRAW(cup,29,6,HIGH,'Select another Exchange')
   @INKEY(DUMMY,"Press any key to continue!")
   @WINDEND
   @SET LNCD = ""
   @SET EXCH = ""
   @SET CON_FLAG = ""
   @SET EX_CK = ""
   @SET FINISHED = "HIDE"
   @include(concat(DIR0,"DISConnt.cmd"))
   @SET AUTOFILE = "no"
   @set finish = "HIDE"
   @set OLD_FIN = "FINISH"
   @include(concat(DIR0,"connect.cmd"))
   @IF CON_FLAG = "FAILED" THEN SET LNCD = ""
   @IF CON_FLAG = "FAILED" THEN GOTO EXIT
   @set Mtype = trim(getmode())
   @if inset(mtype,"AOM") then goto AXE_NOK
   @if inset(mtype,"SYS12","S12FD") then goto TESTS12
   @set continue = "NO"
   @goto EXIT
!$$$$!
!
!---------------------------!
@LABEL S12_REDO
  @HIDE
  @@CLRSCR
  @SET PROMPT = ""
  @SET NA = ""
  @SET nbr = ""
  @DRAW(INV,CUP,20,12,"Number not found at this site - Press [ENTER] ")
  @FORM(66,12,1,error)
@RETURN
!---------------------------!
@LABEL S12SELSNB
  @IF LNCD = "" THEN GOSUB S12SELNCODE
  @input(dn,"Input the Full National Number with the leading 0")
  @if LENGTH(DN) < 9 THEN GOTO FORMAT_ERROR
  @if DN = "" THEN GOTO END
  @SET GDN = ""
  @SET PBX = ""
  @SET NA = ""
  @SET NBR = ""
  @SET NUMB_DEV = ""
  @SET HI_NUM = ""
  @SET LO_NUM = ""
  @SET CUST_TYPE = ""
  @SET MSNDDI = ""
  @GOSUB GET_EN_NA
  @IF err_flag = 3 THEN GOTO S12_REDO
!$$$$!
!---------------------------!
@LABEL LINE_STATE_ERR
  @HIDE
 @INKEY(ERR,"If you wish to Overide the DLS result and continue, press O - Any key continues")
     @IF ERR = "O" THEN GOTO CONT_S12_MAINT_TEST
     @IF ERR <> "O" THEN RETURN
!$$$$!
!---------------------------!
@LABEL S12_NOTIMP
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,20,4,60,6,INV,CUP,21,5,' This S12 Function not yet Implemented ')
  @delaysec (4)
  @WINDEND
  @@CLRSCR
  !$$$$!
!---------------------------!
@LABEL S12_NOTLHG
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,20,4,69,6,INV,CUP,21,5,' This Function not yet implemented for Line Hunt')
  @delaysec (4)
  @WINDEND
  @@CLRSCR
  @RETURN
!---------------------------!
@LABEL S12_SAS42
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,10,4,69,6,INV,CUP,11,5,' Development of this function pending release of SAS 4.2! ')
  @delaysec (4)
  @WINDEND
  @@CLRSCR
!$$$$!
!---------------------------!
@LABEL S12_1ST_CK
  @IF LNCD ="" THEN GOSUB NCODEWNG
  @@IF LNCD ="" THEN GOSUB S12SELNCODE
  @IF DN ="" THEN GOSUB NUMBWNG
  @@IF DN ="" THEN GOSUB S12SELSNB
@RETURN
!------------------------------------------!
@LABEL SEL_NEW_DN
  @set choic_m = ""
  @IF MSNDDI = "DDI" THEN GOTO NOT_MSN
  @IF NUMB_MSN < "2" THEN GOTO NOT_MSN_2
  @DRAW(BOX,25,1,54,17)
  @DRAW(CUP,26,02,INV,"BASIC ACCESS LINE - MSN DATA")
  @DRAW(CUP,26,04,LOW,"MN Numbers for -  ",HIGH,GDN)
  @DRAW(CUP,26,05,LOW,"Total Mn's = ",CUP,39,05,HIGH,CNT_MSN)
  @DRAW(CUP,26,07,LOW,"1.",CUP,32,07,HIGH,MSN_1)
  @DRAW(CUP,26,08,LOW,"2.",CUP,32,08,HIGH,MSN_2)
  @DRAW(CUP,26,09,LOW,"3.",CUP,32,09,HIGH,MSN_3)
  @DRAW(CUP,26,10,LOW,"4.",CUP,32,10,HIGH,MSN_4)
  @DRAW(CUP,26,11,LOW,"5.",CUP,32,11,HIGH,MSN_5)
  @DRAW(CUP,26,12,LOW,"6.",CUP,32,12,HIGH,MSN_6)
  @DRAW(CUP,26,13,LOW,"7.",CUP,32,13,HIGH,MSN_7)
  @DRAW(CUP,26,14,LOW,"8.",CUP,32,14,HIGH,MSN_8)
  @DRAW(CUP,28,15,LOW,"Current DN selected is ",CUP,34,16,HIGH,DN)
  @DRAW(BOX,25,18,53,22)
  @DRAW(CUP,27,19,LOW,"Enter ",HIGH,"Value eg 1 to 8",LOW," to")
  @DRAW(CUP,27,20,LOW,"change the ",HIGH,"DN ")
  @DRAW(CUP,27,21,LOW,"or ",HIGH,"C",LOW," to continue")
  @SET CHOIC_M = "C"
  @FORM(45,21,1,CHOIC_M)
  @IF CHOIC_M = '1' THEN SET DN = MSN_1
  @IF CHOIC_M = '2' THEN SET DN = MSN_2
  @IF CHOIC_M = '3' THEN SET DN = MSN_3
  @IF CHOIC_M = '4' THEN SET DN = MSN_4
  @IF CHOIC_M = '5' THEN SET DN = MSN_5
  @IF CHOIC_M = '6' THEN SET DN = MSN_6
  @IF CHOIC_M = '7' THEN SET DN = MSN_7
  @IF CHOIC_M = '8' THEN SET DN = MSN_8
  @IF CHOIC_M = '' THEN GOTO SEL_NEW_DN
!$$$$!
!------------------------------------------!
@LABEL SEL_NEW_DN_CONT
  @DRAW(BOX,1,1,80,24)
  @DRAW(CUP,23,02,INV,"BASIC ACCESS LH GROUP -MSN DATA")
  @DRAW(CUP,26,04,LOW,"MN Numbers for GDN-",CUP,46,04,HIGH,GDN)
  @DRAW(CUP,26,05,LOW,"Total BA's = ",CUP,39,05,HIGH,CNT_MSN)
  @DRAW(CUP,2,06,LOW,"1  ",HIGH,PMSN_1)
  @DRAW(CUP,2,07,LOW,"2  ",HIGH,PMSN_2)
  @DRAW(CUP,2,08,LOW,"3  ",HIGH,PMSN_3)
  @DRAW(CUP,2,09,LOW,"4  ",HIGH,PMSN_4)
  @DRAW(CUP,2,10,LOW,"5  ",HIGH,PMSN_5)
  @DRAW(CUP,2,11,LOW,"6  ",HIGH,PMSN_6)
  @DRAW(CUP,2,12,LOW,"7  ",HIGH,PMSN_7)
  @DRAW(CUP,2,13,LOW,"8  ",HIGH,PMSN_8)
  @DRAW(CUP,2,15,LOW,"G. ",HIGH,GDN)
  @DRAW(CUP,45,17,LOW,"Current DN selected is ",HIGH,DN)
  @DRAW(BOX,31,10,79,14)
  @DRAW(CUP,50,11,high,"S12 -ORJ- Limitation")
  @DRAW(CUP,32,12,LOW,"Due to swtich tasks used to compile this table")
  @DRAW(CUP,32,13,LOW,"Only the first MN for each BA can be displayed!")
  @DRAW(BOX,45,19,78,23)
  @DRAW(CUP,46,20,LOW,"Enter Value eg. ",HIGH,"1-8",LOW," to check")
  @DRAW(CUP,46,21,LOW,"a particular MSN, ",HIGH,"G",LOW," for the GDN,")
  @DRAW(CUP,46,22,LOW,"or ",HIGH,"C",LOW," to continue")
  @SET CHOIC_M = "C"
  @FORM(74,22,2,CHOIC_M)
  @IF CHOIC_M = '1' THEN SET DN = PMSN_1
  @IF CHOIC_M = '2' THEN SET DN = PMSN_2
  @IF CHOIC_M = '3' THEN SET DN = PMSN_3
  @IF CHOIC_M = '4' THEN SET DN = PMSN_4
  @IF CHOIC_M = '5' THEN SET DN = PMSN_5
  @IF CHOIC_M = '6' THEN SET DN = PMSN_6
  @IF CHOIC_M = '7' THEN SET DN = PMSN_7
  @IF CHOIC_M = '8' THEN SET DN = PMSN_8
  @IF CHOIC_M = 'G' THEN SET DN = GDN
  @IF CHOIC_M = '' THEN GOTO SEL_NEW_DN_CONT
  @IF (CHOIC_M = 'Q') AND (DN <> "") THEN GOTO STOP
  @IF (CHOIC_M <> "") AND (DN = '') THEN GOTO SEL_NEW_DN
!$$$$!
!------------------------------------------!
@@LABEL SEL_NEW_NA_DN
  @@IF DN = GDN THEN SET NA_DISP = ""
  @@IF DN = GDN THEN SET NBR_DISP = ""
  @@IF DN = GDN THEN SET NUMBER = "Prime"
  @@IF DN = GDN THEN GOTO STOP
  @@SET JOB = 29
  @@INCLUDE(FILE_CB,"S12_MAINT_TEST")
  @@SET line3 = SCAN("H'")
  @@SET NA_DISP = TRIM(COPY(REPLY(line3),+6,4))
  @@SET Nbr_DISP = TRIM(COPY(REPLY(line3),+22,4))
  @@IF DN <> GDN THEN SET NUMBER = "MNLHG Member Nbr"
!$$$$!
!------------------------------------------!
  @LABEL NOT_MSN
  @WINDOW
  @DRAW(CUP,17,5,INV,"This DN has been identified as a DDI service!")
  @DRAW(CUP,20,6,HIGH,"Changes are made on the GDN only!")
  @INKEY(DUMMY,"Press any key to continue!")
  @WINDEND
!$$$$!
!------------------------------------------!
  @LABEL NOT_MSN_2
  @WINDOW
  @DRAW(CUP,14,5,INV,"This DN has one MSN - It should be an OnRamp EXPRESS")
  @DRAW(CUP,13,6,HIGH,"Express services have only one number for billing purposes")
  @INKEY(DUMMY,"Press any key to continue!")
  @WINDEND
!$$$$!
!---------------------------!
@LABEL WARN_MCT
  @WINDOW
  @DRAW(CUP,29,5,INV,"MCT ON MN LHG WARNING!")
  @DRAW(CUP,17,6,HIGH,"If the DN is the GDN of a MN LHG service, then")
  @DRAW(CUP,17,7,HIGH,"this command only puts MCT on for the GDN! ")
  @DRAW(CUP,05,8,HIGH,"Relog on ea MN Prime and repeat action for those numbers requiring MCT")
  @DRAW(CUP,09,9,HIGH,"This process has been referred to platforms for clarification! ")
  @INKEY(DUMMY,"Press any key to continue!")
  @WINDEND
  @RETURN
!$$$$!
!---------------------------!
@LABEL SET_MCT_ON
  @IF PBX = "is" THEN GOTO SET_MCT_PBX_ON
  @GOSUB S12_1ST_CK
  @SET JOB = 15
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_SET_MCT_ON 
@LABEL CONT_SET_MCT_ON  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL SET_MCT_OFF
  @IF PBX = "is" THEN GOTO SET_MCT_PBX_OFF
  @GOSUB S12_1ST_CK
  @SET JOB = 11
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_SET_MCT_OFF 
@LABEL CONT_SET_MCT_OFF  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL CW_CH_ON
  @IF PBX = "is" THEN GOTO STOP
  @IF HI_NUM <> "" THEN GOTO STOP
  @GOSUB S12_1ST_CK
  @SET JOB = 30
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_CW_CH_ON 
@LABEL CONT_CW_CH_ON  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL CW_CH_OFF
  @IF PBX = "is" THEN GOTO STOP
  @IF HI_NUM <> "" THEN GOTO STOP
  @GOSUB S12_1ST_CK
  @SET JOB = 31
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_CW_CH_OFF 
@LABEL CONT_CW_CH_OFF  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL UU1
  @IF PBX = "is" THEN GOTO STOP
  @IF HI_NUM <> "" THEN GOTO STOP
  @GOSUB S12_1ST_CK
  @SET JOB = 32
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_UU1 
@LABEL CONT_UU1
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL UU_CLR
  @IF PBX = "is" THEN GOTO STOP
  @IF HI_NUM <> "" THEN GOTO STOP
  @GOSUB S12_1ST_CK
  @SET JOB = 33
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_UU_CLR 
@LABEL CONT_UU_CLR  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
!$$$$!
!---------------------------!
@LABEL SET_MCT_PBX_ON
  @GOSUB S12_1ST_CK
  @@GOSUB WARN_MCT
  @SET JOB = 22
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R4263)
@LABEL CONT_SET_MCT_PBX_ON  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
  !$$$$!
!---------------------------!
@LABEL SET_MCT_PBX_OFF
  @GOSUB S12_1ST_CK
  @@GOSUB WARN_MCT
  @SET JOB = 23
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter R to see the MOD-SUBSCR/PBX-FACIL Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R4263)
  @IF CHOIC_R <> 'R' THEN GOTO CONT_SET_MCT_PBX_OFF 
@LABEL CONT_SET_MCT_PBX_OFF  
  @SET JOB = ""
  @SET COMMAND = ""
  @SET COMMAND1 = ""
  !$$$$!
!---------------------------!
@LABEL TAKESTIME
  @WINDOW
  @draw(CUP,24,5,INV,"THESE ACTIONS CAN TAKE SOME TIME")
  @draw(CUP,6,6,HIGH,"NB- Any test can take a LONG time if the switch is busy & priority is low")
  @draw(CUP,4,7,HIGH,"If a LHG test has been called for then it may require from 2 to 8 minutes!!")
  @INKEY(dunny,"Press any key to continue......")
  @@DELAYSEC(4)
  @WINDEND
  @return
!---------------------------!
@LABEL TEST_FB
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 16
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R0527)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL TEST_IR
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 17
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R0527)
  @goto end
!$$$$!
!---------------------------!
@LABEL TEST_DEF
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 18
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R0527)
  @IF CHOIC_R <> 'R' THEN GOTO END
  @goto end
!$$$$!
!---------------------------!
@LABEL TEST_ISDN
  @IF PBX = "is" THEN GOSUB WARNING3
  @IF ABORT = "YES" THEN GOTO END
  @IF (PBX <> "is") AND (NUMB_DEV = "1") THEN GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @SET JOB = 19
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R0527)
  @goto end
!$$$$!
!---------------------------!
@LABEL TEST_ISDN_ALL
  @GOSUB WARNING3
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 19
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @NEXT Z
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter R to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'R' THEN VIEWFILE(R0527)
  @goto end
!$$$$!
!---------------------------!
@LABEL TEST_WARNING
  @DRAW(LOW,CUP,16,18,INV,"SE - WARNING")
  @DRAW(LOW,CUP,04,19,LOW,"Some tests may fail on LHG lines")
  @DRAW(LOW,CUP,04,20,LOW,"EN/DN translate, this is a S12 fault")
  @DRAW(LOW,CUP,04,21,LOW,"Use tests 1,6,8&9 in lieu till advised")
  @INKEY(dummy,"Any key continues")
!---------------------------!
@LABEL TEST_PKG
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 7
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the EXE-REQ-MT Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0527)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL TEST_FAIL
  @DRAW(BOX,02,14,58,20)
  @DRAW(CUP,03,15,HIGH,"Test Result",CUP,20,15,INV,"Un - Successful")
  @DRAW(CUP,03,16,HIGH,"Main Result",CUP,20,16,INV,"{MAIN_CODE}")
  @DRAW(CUP,03,17,HIGH,"Action Result",CUP,20,17,INV,"{ACTION_CODE}")
  @DRAW(CUP,03,18,HIGH,"Fault Info:",CUP,20,18,INV,"{FAULT_LOC}")
  @DRAW(CUP,03,19,low,"Halt OCFE & check the LAST PRINTOUT for more detail")
  @DELAYSEC(5)
!$$$$!
!---------------------------!
@LABEL TEST_PBX_FB
  @IF NUMB_DEV = 1 THEN GOTO END
  @GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 26
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the VERIFY - SBL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL TEST_PBX_IR
  @IF NUMB_DEV = 1 THEN GOTO END
  @GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 27
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the VERIFY - SBL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL TEST_PBX_LINE
  @IF NUMB_DEV = 1 THEN GOTO END
  @GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB =25
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the VERIFY - SBL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL TEST_PORT
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB =24
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the Verify - SBL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @GOTO END
!$$$$!
!--------------------------!
@LABEL TEST_NA_NBR
  @SET Q = 1
  @FOR Q = 1 TO PJZ
  @IF (NA = NA{Q}) AND (NBR = NBR{Q}) THEN GOTO TEST_NA_NBR_2
  @NEXT Q
  @DRAW(BOX,02,14,36,19)
  @DRAW(CUP,03,15,HIGH,"WARNING!!")
  @DRAW(CUP,03,16,LOW,"Your Network Address & Equipment")
  @DRAW(CUP,03,17,LOW,"Number values ",HIGH,"ARE NOT",LOW," a member of")
  @DRAW(CUP,03,18,LOW,"this Group!  ",HIGH," - Re Enter - ")
  @DELAYSEC(5)
  @@CLRSCR
  @RETURN
!--------------------------!
@LABEL TEST_NA_NBR_2
  @ENDFOR
  @RETURN
!---------------------------!
@label tests12
  @LOGOF
  @LOGON
  @set s12head = trim(getheader())
  @set l_t = copy(s12head,6,1)
  @if L_T = "T" then set LAS_TNS = "[TNS]"
  @if L_T = "L" then set LAS_TNS = "[LAS]"
  @set sas = copy(s12head,7,3)
  @GOSUB GET_TERM
  @SET EXCH = SAS
  @SET LNCD = TRIM(GETDEST())
  @if sas > 321 then GOTO RETURN
  @COMMENT("Your S12 EXCH is not at a SAS level for OnRamp!")
  @COMMENT("OCFE will now terminate!")
  @COMMENT("Check LNCD and use the appropriate Funkey to continue!")
  @SET CONTINUE = "NO"
  @goto exit
!---------------------------!
@LABEL VAR_CHK
  @IF dn <> "" THEN RETURN
  @DRAW(INV,CUP,20,12,"LRD and DN required first  - Press [ENTER]")
  @FORM(45,12,1,error)
  @SET err_flag = "1"
@RETURN
!---------------------------!
@LABEL VL
  @IF NUMB_DEV > 1 THEN GOSUB WHICH_EN_NA
  @IF NA = "" THEN GOTO STOP
  @GOSUB WARNING1
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 4
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @INKEY(CHOIC_R,"Enter Y to see the VERIFY - SBL Report or any other key to continue!")
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @GOTO END
!$$$$!
!---------------------------!
@LABEL VL_ALL
  @GOSUB WARNING3
  @IF ABORT = "YES" THEN GOTO END
  @GOSUB TAKESTIME
  @SET JOB = 4
  @SET NA = ""
  @SET NBR = ""
  @FOR Z = 1 to PJZ
  @SET NA = NA{Z}
  @SET NBR = NBR{Z}
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @NEXT Z
  @if TEST_RES = "UNSUCCESSFUL" then goto end
  @INKEY(CHOIC_R,"Enter Y to see the VERIFY - SBL Report or any other key to continue!")
  @IF CHOIC_R = 'Y' THEN VIEWFILE(R0052)
  @goto end
!$$$$!
!--------------------------!
@LABEL WARNING1
  @SET ABORT = ""
  @HIDE
  @SET CHOIC_W = ""
  @WINDOW
  @@DRAW(BOX,15,5,65,19)
  @DRAW(INV,CUP,35,2,' WARNING ')
  @DRAW(cup,21,4,'This function will cause an outage to')
  @DRAW(cup,30,5,'the following service')
  @DRAW(INV,CUP,21,7,'DN')
  @DRAW(INV,CUP,39,7,'NA',CUP, 48,7,'NBR')
  @DRAW(CUP,24,7,HIGH,"{DN}")
  @DRAW(CUP,42,7,HIGH,"{NA}")
  @DRAW(CUP,52,7,HIGH,"{NBR}")
  @DRAW(CUP,26,9,LOW,'Do you want to continue Y/N')
  @INKEY(CHOIC_W,"Enter Y to continue or N to abort test")
  @WINDEND
  @@CLRSCR
  @IF CHOIC_W = 'N' THEN SET ABORT = "YES"
  @IF CHOIC_W = 'N' THEN RETURN
  @IF CHOIC_W = 'Y' THEN SET ABORT = "NO"
  @IF CHOIC_W = 'Y' THEN RETURN
  @GOTO WARNING1
!
!--------------------------!
@LABEL WARNING2
  @SET ABORT = ""
  @HIDE
  @SET CHOIC_W = ""
  @WINDOW
  @@DRAW(BOX,15,5,65,19)
  @DRAW(INV,CUP,28,2,' DISPLAY BA ALARM WARNING')
  @DRAW(cup,09,4,'This function will block the DISPLAY BA alarm functions ')
  @DRAW(cup,31,5,'for other users!!!')
  @DRAW(cup,12,6,'If a report is not received in 10 minutes then...',CUP,60,6,HIGH,'Cancel the report!')
  @DRAW(CUP,21,8,HIGH,'LNCD')
  @DRAW(CUP,39,8,HIGH,'Alarm Type')
  @DRAW(CUP,28,8,INV,LNCD)
  @DRAW(CUP,52,8,INV,ALM_VAL)
  @DRAW(CUP,26,10,LOW,'Do you want to continue Y/N')
  @INKEY(CHOIC_W,"Enter Y to continue or N to abort request!")
  @WINDEND
  @@CLRSCR
  @IF CHOIC_W = 'N' THEN SET ABORT = "YES"
  @IF CHOIC_W = 'N' THEN RETURN
  @IF CHOIC_W = 'Y' THEN SET ABORT = "NO"
  @IF CHOIC_W = 'Y' THEN RETURN
  @GOTO WARNING2
!--------------------------!
@LABEL WARNING3
  @SET ABORT = ""
  @HIDE
  @SET CHOIC_W = ""
  @WINDOW
  @@DRAW(BOX,15,5,65,19)
  @DRAW(INV,CUP,35,2,' WARNING ')
  @DRAW(cup,21,4,'This function will cause an outage to')
  @DRAW(cup,21,5,'ALL or PART of the following PABX service')
  @DRAW(INV,CUP,21,7,'GDN')
  @DRAW(CUP,30,7,HIGH,"{GDN}")
  @DRAW(CUP,26,9,LOW,'Do you want to continue Y/N')
  @INKEY(CHOIC_W,"Enter Y to continue or N to abort test")
  @WINDEND
  @@CLRSCR
  @IF CHOIC_W = 'N' THEN SET ABORT = "YES"
  @IF CHOIC_W = 'N' THEN RETURN
  @IF CHOIC_W = 'Y' THEN SET ABORT = "NO"
  @IF CHOIC_W = 'Y' THEN RETURN
  @GOTO WARNING3
!--------------------------!
@LABEL WHICH_EN_NA
  @IF LNCD = "" THEN GOSUB S12SELNCODE
  @IF DN = "" THEN GOSUB S12SELSNB
  @IF NUMB_DEV = "1" THEN RETURN
  @IF PJZ = "" THEN SET PJZ = NUMB_DEV
  @SET NO = ""
  @DRAW(BOX,02,02,24,(07+PJZ))
  @DRAW(CUP,06,03,HIGH,"N_Ad  & E_Nbr")
  @FOR Z = 1 TO PJZ
  @DRAW(CUP,3,(3+Z),INV,"{Z}",CUP,06,(03+Z),HIGH,"H' ",LOW,NA{Z},CUP,14,(03+Z),HIGH,"& ",LOW,NBR{Z})
  @NEXT Z
  @DRAW(CUP,03,(PJZ+4),"ENTER",HIGH," Line Number")
  @DRAW(CUP,03,(PJZ+5),"Current Line for DN",CUP,06,(PJZ+6),INV,"H'",CUP,08,(PJZ+6),HIGH,"{NA_DISP}-{NBR_DISP}")
  @FORM(21,(PJZ+4),2,NO)
  @IF NO = "" THEN SET NA = ""
  @IF NO = "" THEN SET NBR = ""
  @IF NO = "" THEN RETURN
  @IF (NO < 1) or (NO > PJZ) then gosub test_no
  @IF NO = "" THEN GOTO WHICH_EN_NA
  @SET Z = NO
  @set NA = NA{Z}
  @set NBR = NBR{Z}
  @GOSUB TEST_NA_NBR
  @@CLRSCR
  @RETURN
!------------------------------------------!
@LABEL TEST_NO
  @inkey(dummy,"WARNING!! - Selected number {NO} is NOT in this Group - Any key continues!")
  @SET NO = ""
  @@CLRSCR
  @RETURN
  @@GOSUB DISP_EN_NA
  @@DRAW(BOX,37,14,59,17,HIGH,cup,39,15,"ENTER N_Ad  & E_Nbr")
  @@DRAW(CUP,39,16,HIGH,"H' ",CUP,48,16,HIGH,"&")
  @@FORM(42,16,4,NA,50,16,4,NBR)
  @@IF NA = "" THEN GOTO WHICH_EN_NA
  @@IF NBR = "" THEN GOTO WHICH_EN_NA
!---------------------------!
@@LABEL DISP_EN_NA
  @@DRAW(BOX,60,14,80,(16+PJZ))
  @@DRAW(CUP,62,15,HIGH,"N_Ad  & E_Nbr")
  @@FOR Z = 1 TO PJZ
  @@DRAW(CUP,62,(15+Z),HIGH,"H' ",LOW,NA{Z},CUP,70,(15+Z),HIGH,"& ",LOW,NBR{Z})
  @@NEXT Z
  @@RETURN
!--------------------------!
@LABEL WNG_GDN
  @IF DN = GDN THEN GOTO WNG_DN2
  @WINDOW
  @DRAW(CUP,14,5,HIGH,">>>> Your DN is part of a MSN-DDI or PBX group <<<<")
  @DRAW(CUP,12,6,HIGH,">>>> Enter the new GDN via the D key for more detail <<<<")
  @DELAYSEC(5)
  @SET NUMB_DEV = ""
  @SET PBX = ""
  @WINDEND
  @RETURN
!--------------------------!
@LABEL WNG_EXCH_CHNGD
  @WINDOW
  @DRAW(CUP,14,5,HIGH,">>>> Your LNCD has changed since the last 5019 <<<<")
  @DRAW(CUP,16,6,HIGH,">>>> Pause OCFE check history and re-enter! <<<<")
  @DELAYSEC(5)
  @WINDEND
  @GOTO S12SPECMENU
!--------------------------!
@LABEL WNG_ALM
  @WINDOW
  @DRAW(CUP,6,5,HIGH,">> Displaying a Global alarm list in S12 is a low priority task <<")
  @DRAW(CUP,7,6,HIGH,">> The task may take 10 min or more!  You can continue <<")
  @DRAW(CUP,8,7,HIGH,">> other work, but watch for the report print to arrive  <<")
  @DRAW(CUP,7,8,HIGH,">> If closing session with this EXCH, cancel this task <<")
  @delaysec(5)
  @WINDEND
  @RETURN
!--------------------------!
@LABEL WNG_ALM_2
  @WINDOW
  @DRAW(CUP,25,5,INV,">> DISPLAY ALARMS RUNNING <<")
  @DRAW(CUP,7,6,HIGH,">> OCFE has detected that a global Display Alarms has been initiated <<")
  @DRAW(CUP,8,7,HIGH,">> This request will be ended to ensure the function is not tied up!  <<")
  @DRAW(CUP,7,8,HIGH,">> Wait for command to acknowledged before closing OZTERM <<")
  @IF LNCD <> LNCD1 THEN GOTO WNG_EXCH_CHNGD
  @REPORT (ON)
  @SET JOB = 37
  @INCLUDE(FILE_CB," S12_MAINT_TEST")
  @REPORT (OFF)
  @SET GET_ALMS = ""
  @delaysec(5)
  @WINDEND
  !$$$$!
!--------------------------!
@LABEL WNG_NOT_ISDN
  @WINDOW
  @DRAW(CUP,20,5,HIGH,">>>> Your DN IS NOT part of an ISDN service <<<<")
  @DRAW(CUP,17,6,HIGH,">>>> Further testing on this service is not allowed! <<<<")
  @DELAYSEC(5)
  @WINDEND
  @RETURN
!--------------------------!
@LABEL WNG_GDN2
  @WINDOW
  @DRAW(CUP,14,5,HIGH,">>>> Your DN is the GDN of a Line Hunt Group <<<<")
  @DELAYSEC(5)
  @WINDEND
  @RETURN
!---------------------------!
@LABEL WHATS_MY_PORT
  @SEND(#10,#24)
  @DELAYSEC(1)
  @LOGON
  @SET LINE1 = SCAN("PASSWORD",LOGIN)
  @SET PORT = (COPY(REPLY(LINE1 +2),LOGIN +13,6))
  @IF PORT ="" THEN GOSUB VAR_CHK
  @SET L = "CHA"
  @IF COPY(PORT,1,1) = "D" THEN SET L = "CHB"
  @SET DEV = (COPY(PORT,5,2))
@RETURN
!
@LABEL FORMAT_ERROR
   @HIDE
   @WINDOW
   @DRAW(CUP,21,5,HIGH,"<<< Format Error. Please re-enter >>>")
   @INKEY(dummy, "Press any key to continue........")
   @WINDEND
   @goto STOP
!
@LABEL STOP
!$$$$! 
!  END OF FILE
