! OnRamp MACRO.
!            Version 0.2 27/02/97   Development version
!            Modified 29/01/97 to set variable FAULT. P.Wadham
!            Modified 27/02/97 Add features. P.Wadham
!            Modified 03/04/97 Convert features to MACRO. R.Durkin
!            Modified 06/04/97 Add 1st specific MACRO features to MACRO. R.Durkin
!      Modified 18/4/97 for uniform provisioning processes
!                        special menus added eg MDR, PROT ect
!                        NPMG screen allowed for.
!      Modified 1/8/97 V1.2 - RD - check on DIP de-block to not de-block devices
!      Modified 2/8/97 V1.2 - PW - MONTI on all Bch added
!             1.  Set continue added to abort to prod menu for wrong platform type (RD - 05/10/97)
!      Modified 12/11/97 V2.0 - RD
!             1.  Commands removed to include file 29_PRT2.CMD now id as FILE_C5
!             2.  Routines seperate fron CRTN (exempt PROV'n) to 29_prtn 
!             3.  Maint screen re-designed to give better functionality & align with BRA
!             4.  Commands separated out to job file (29_PRT2.CMD)
!
!      Modified 31/12/97 V2.1 - RD
!             1.  Provisioning and ICOM activation support added
!             2.  All Routines now seperate fronm CRTN (no longer used by PRA) 
!
!      Modified 04/1/98 V2.2 - RD
!             1.  Full Provisioning completed
!             2.  LIPRAE detection and Customer "IS" indicator added
!
!     Version 2.3 11/02/98 - RD
!             1.  Detects PKG5 & XSS compliant
!
@TITLE("OnRamp MACRO [PRA] Customer Front End -CFE-")
@LABEL START
   @set VERSS = "2.3Beta"
   @HIDE
   @CHECK(OFF)
   @if varexist(menuflag) = 0 then set menuflag = "NO"
   @if MENUFLAG = "YES" then set FINISH = "HIDE"
   @INCLUDE("LOCAL.DAT")
   @iferror then gosub mklocaldat
   @if varexist(OZPATH) = 0 then set OZPATH = CONCAT(_hdrv,_ozbase,"\OZTERM")
   @if varexist(DIR0) = 0 THEN SET DIR0 = CONCAT(OZPATH,"\CMDS\")
   @SET DIR = CONCAT(dir0,'29\')
   @@COMMAND FILES
   @SET FILE_C = CONCAT(DIRORMP,"29\29_CRTN.CMD")
   @SET FILE_C2 = CONCAT(DIRORMP,"29\29_QRTN.CMD")
   @SET FILE_C3 = CONCAT(DIRORMP,"29\29_DRTN.CMD")
   @SET FILE_C4 = CONCAT(DIRORMP,"29\29_ABRTN.CMD")
   @SET FILE_C5 = CONCAT(DIRORMP,"29\29_PRTN.CMD")
   @SET FILE_C6 = CONCAT(DIRORMP,"29\29_PRT2.CMD")
   @SET FILE_C7 = CONCAT(DIRORMP,"29\29_UTIL.CMD")
   @@HELP FILES
   @SET FILE_H1 = CONCAT(DIRORMP,"29\29_HELP.TXT")
   @SET FILE_H2 = CONCAT(DIRORMP,"29\29P_HELP.TXT")
   @SET FILE_H3 = CONCAT(DIRORMP,"29\29M_HELP.TXT")
   @SET FILE_H4 = CONCAT(DIRORMP,"29\29S_HELP.TXT")
   @SET FILE_H5 = CONCAT(DIRORMP,"29\29L_HELP.TXT")
   @SET FILE_H6 = CONCAT(DIRORMP,"29\29PT_HLP.TXT")
   @SET FILE_H7 = CONCAT(DIRORMP,"29\29MD_HLP.TXT")
   @SET FILE_H8 = CONCAT(DIRORMP,"29\29SU_HLP.TXT")
   @SET FILE_H9 = CONCAT(DIRORMP,"29\29SV_HLP.TXT")
   @SET FILE_H10 = CONCAT(DIRORMP,"29\29Q_HELP.TXT")
   @SET CONTINUE = ""
   @SET CNT_LP = 0
   @INCLUDE (FILE_C5,"CLR_VAR")
   @set product_flag = "OnRampPRA"
   @INCLUDE (FILE_C5,"TEST_EXCH")
!
!-------------------------------------------------------MAIN-----------------------------------------------------!
@LABEL PRAMENU
  @HIDE
  @check(OFF)
  @window
  @CLRSCR
  @DRAW (BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'   -AXE- OnRamp30 Customer Operations - V: ',VERSS,"   ")
  @DRAW(CUP,03,03,HIGH,'M',LOW,'aintenance Menu             ')
  @DRAW(CUP,03,04,HIGH,'S',LOW,'pecial Maintenance Menu     ')
  @DRAW(CUP,03,05,HIGH,'P',LOW,'rovisioning Menu            ')
  @DRAW(CUP,03,06,HIGH,'U',LOW,'tilities Menu            ')
  @DRAW(CUP,03,07,HIGH,'L',LOW,'ist the customers DIPs  ')
  @DRAW(CUP,03,08,HIGH,'Q',LOW,'uit TO CFE Select Menu        ')
  @DRAW(CUP,43,03,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,04,HIGH,'D',LOW,'irectory Nbr - Connect via the PNB')
  @DRAW(CUP,43,05,HIGH,'C',HIGH,LOW,'onnect via the DIP Name')
  @@DRAW(CUP,43,06,HIGH,'L',LOW,'ogoff Current EXCH ')
  @DRAW(CUP,43,06,HIGH,'H',LOW,'elp Information ')
  @DRAW(BOX,03,09,40,15)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(INV,CUP,04,14,'Customer is',high," {CUST_TYPE}")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @MENU(CHOIC_E,6,4,'M','S','P','U','L','Q','E','D','C','H')
  @CLRSCR
  @SET FILE = ''
  @IF CHOIC_E = 1 THEN GOTO MAINTMENU
  @IF CHOIC_E = 2 THEN GOTO SPECMENU
  @IF CHOIC_E = 3 THEN GOTO PROVMENU
  @IF CHOIC_E = 4 THEN GOTO UTILMENU
  @IF CHOIC_E = 5 THEN include(file_c5,"show_dips")
  @IF CHOIC_E = 6 THEN GOTO EXIT
  @IF CHOIC_E = 7 THEN GOSUB SELNCODE
  @IF CHOIC_E = 8 THEN GOSUB SELSNB
  @IF CHOIC_E = 9 THEN GOSUB SELDIP
  @IF CHOIC_E = 10 THEN GOSUB PRA_HELP
  @IF FILE = '' THEN GOTO PRAMENU
  @GOTO PRAMENU
!
!-----------------------------!
@LABEL PRA_HELP
  @VIEWFILE(FILE_H1)
@return
!
!-------------------------!
@LABEL UTILMENU
  @INCLUDE(FILE_C7,"START")
  @GOTO PRAMENU

!-------------------------------------------------PROVISIONING---------------------------------------------------!
@LABEL PROVMENU
  @IF CUST_TYPE = "ISDN PKG 5 ISDN-E" THEN GOSUB NOTIMP
  @IF CUST_TYPE = "ISDN PKG 5 ISDN-E" THEN GOTO PRAMENU
  @HIDE
  @check(OFF)
  @window
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'   -AXE- OnRamp30 Provisioning Menu   ')
  @DRAW(CUP,03,03,HIGH,'M',LOW,'aintenance Menu          - AXE  ')
  @DRAW(CUP,03,04,HIGH,'S',LOW,'pecial  Maintenance Menu - AXE  ')
  @DRAW(CUP,03,05,HIGH,'Q',LOW,'uit to AXE Main Menu             ')
  @DRAW(CUP,03,06,HIGH,'L',LOW,'ist the customers DIPs  ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Display Service Attributes [Data]')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Modify Service Attributes')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Display & Mod Hunting & Charging')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Check Customer Data')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Channel - Sub Route Functions')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Blocking Supervision Functions ')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Edit Ext Numb Valadation Data')
  @DRAW(CUP,43,10,HIGH,'',LOW,' ')
  @DRAW(CUP,43,11,HIGH,'C',HIGH,LOW,'onnect via the DIP Name')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study Printouts')
  @DRAW(inv,cup,03,07,'These functions are for temporary tests')
  @DRAW(inv,cup,03,08,'Permanent changes are via ICOM only!   ')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - SNB           ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu     ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@MENU(CHOIC_E,4,13,'M','S','Q','L','1','2','3','4','5','6','7','','C','G','E','D','H')
  @MENU(CHOIC_E,4,13,'M','S','Q','L','1','2','3','4','5','6','7','|','C','G','E','D','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO MAINTMENU
  @IF CHOIC_E = 2 THEN GOTO SPECMENU
  @IF CHOIC_E = 3 THEN GOTO PRAMENU
  @IF CHOIC_E = 4 THEN include(file_c5,"show_dips")
  @IF CHOIC_E = 5 THEN goto DC
  @IF CHOIC_E = 6 THEN goto MOD_SERV_ATT
  @IF CHOIC_E = 7 THEN goto DISP_LHG
  @IF CHOIC_E = 8 THEN goto CHECK_CUS
  @IF CHOIC_E = 9 THEN goto CHECK_SUBRT
  @IF CHOIC_E = 10 THEN goto CHECK_BLOCK
  @IF CHOIC_E = 11 THEN gosub CHECK_ENV_DATA
  @IF CHOIC_E = 12 THEN gosub notimp
  @IF CHOIC_E = 13 THEN GOSUB SELDIP
  @IF CHOIC_E = 14 THEN GOSUB PAUSE
  @IF CHOIC_E = 15 THEN GOSUB SELNCODE
  @IF CHOIC_E = 16 THEN GOSUB SELSNB
  @IF CHOIC_E = 17 THEN GOSUB prov_help
  @IF FILE = ''  THEN GOTO PROVMENU
  @GOTO PROVMENU
!
!-----------------------------!
@LABEL PROV_HELP
  @VIEWFILE(FILE_H2)
@return
!
!-----------------------------!
@LABEL DC
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @SET LITYPE = DEVICE_L
  @IF LITYPE = "" THEN GOTO PROVMENU
  @INCLUDE(FILE_C5,"DC")
@goto provmenu
!
!------------------------------------------!
@LABEL DISP_LHG
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @SET LITYPE = DEVICE_L
  @IF LITYPE = "" THEN GOTO PROVMENU
  @INCLUDE(FILE_C5,"GET_PXR_CHAR")
  @INCLUDE(FILE_C3,"DISP_LHG_CHAR")
@goto provmenu
!
!-------------------------!
@LABEL MOD_SERV_ATT
  @hide
  @set sel_att = ""
  @window
   @DRAW(CUP,23,3,INV,"MODIFY SELECTED SERVICE ATTRIBUTES")
   @DRAW(CUP,34,4,HIGH,"[Customer Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"B",LOW," - for adding or removing Bearer Cases")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"E",LOW," - for adding or removing Easycall Facilities")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"M",LOW," - for adding or removing Malicious Call Tracing")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"O",LOW," - for other attributes [not covered]")
   @DRAW(CUP,10,9,LOW,"Press ",HIGH,"U",LOW," - for adding or removing User to User Messaging")
@inkey(sel_att,"Press any other key to return to the Provisioning Menu......")
   @windend
   @If sel_att = "B" then goto MOD_BC
   @ELSE IF sel_att = "E" then gosub UNAV
   @ELSE IF sel_att = "M" then goto MOD_MCT
   @ELSE IF sel_att = "O" then goto MOD_OTH
   @ELSE IF sel_att = "U" then goto MOD_UU
   @windend
   @GOTO PROVMENU

!-------------------------!
@LABEL MOD_BC
  @window
  @set sel_bc = ""
   @DRAW(CUP,26,3,INV,"MODIFY SERVICE BEARER CASES")
   @DRAW(CUP,28,4,HIGH,"[AXE Teleservice Cases]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"C",LOW," - To clear all Bearer Case Setttings")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"1",LOW," - To set the service to standard [TSC1, 2 & 3]")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"2",LOW," - To set the service to Data only [TSC2]")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"3",LOW," - To set the service to analogue & speech only [TSC1 & 3]")
   @DRAW(CUP,03,9,HIGH,"TSC1 - Speech, TSC2 - 64K Data, TSC3 - 3.1Khz Audio, others are not defined")
   @inkey(sel_bc,"Any other key to return to the Modify Attributes Menu......")
   @windend
   @If sel_bc = "C" then goto BC_CLR
   @ELSE IF sel_bc = "1" then goto BC_STD
   @ELSE IF sel_bc = "2" then gosub UNAV
   @ELSE IF sel_bc = "3" then goto UNAV
   @windend
   @goto mod_serv_att
!
@LABEL BC_CLR
  @IF CMD <> "A" THEN GOTO MOD_BC
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto mod_bc
  @INCLUDE(FILE_C5,"BC_CLR")
@goto mod_bc
!
@LABEL BC_STD
  @IF CMD <> "A" THEN GOTO MOD_BC
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto mod_bc
  @INCLUDE(FILE_C5,"BC_STD")
@goto mod_bc
!
@LABEL BC_VOICE
  @IF CMD <> "A" THEN GOTO MOD_BC
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto mod_bc
  @INCLUDE(FILE_C5,"BC_VOICE")
@goto mod_bc

!-------------------------!
@LABEL MOD_MCT
  @set sel_mct = ""
  @window
   @DRAW(CUP,22,3,INV,"MODIFY MALICIOUS CALL TRACE ATTRIBUTE")
   @DRAW(CUP,32,4,HIGH,"[MCT Customer Data]")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"D",LOW," - for dis-abling Malicious Call Trace")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"E",LOW," - for enabling Malicious Call Trace")
   @DRAW(CUP,03,9,HIGH,"MCT in OnRAMP is by subscription, check Service Order before changing!")
   @inkey(sel_mct,"Press any other key to return to the Selected Attributes Menu......")
   @windend
   @If sel_mct = "D" then goto MCT_OFF
   @ELSE IF sel_mct = "E" then goto MCT_ON
   @windend
   @goto mod_serv_att
!
@LABEL MCT_ON
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @IF CMD <> "A" THEN GOTO MOD_MCT
  @INCLUDE(FILE_C5,"MCT_ON")
@goto mod_mct
!
@LABEL MCT_OFF
  @IF CMD <> "A" THEN GOTO MOD_MCT
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @INCLUDE(FILE_C5,"MCT_OFF")
@goto mod_mct
!
!-------------------------!
@LABEL MOD_UU
  @window
  @set sel_uu = ""
   @DRAW(CUP,25,3,INV,"MODIFY USER TO USER MESSAGING")
   @DRAW(CUP,25,4,HIGH,"[Info Transfer in the D Channel]")
   @DRAW(CUP,05,5,LOW,"Press ",HIGH,"C",LOW," - To clear all User to User Setttings")
   @DRAW(CUP,05,6,LOW,"Press ",HIGH,"1",LOW," - To enable only UU1 msgs [in Setup & Release msg only]")
   @DRAW(CUP,05,7,LOW,"Press ",HIGH,"2",LOW," - To enable only UU2 msgs [in connected state -10]")
   @DRAW(CUP,05,8,LOW,"Press ",HIGH,"3",LOW," - To enable UU1 & UU3 msgs [Setup & Release msg & Connected State]")
   @DRAW(CUP,10,9,HIGH,"UU3 - Not working to the PMO, UU2 not offered [15/4/97]")
   @inkey(sel_uu,"Press any other key to return to the Provisioning Menu......")
   @windend
   @If sel_uu = "C" then goto UU_CLR
   @ELSE IF sel_uu = "1" then goto UU1
   @ELSE IF sel_uu = "2" then gosub UNAV
   @ELSE IF sel_uu = "3" then goto UU1_3
   @windend
   @goto MOD_SERV_ATT
!
@LABEL UU_CLR
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto MOD_SERV_ATT
  @IF CMD <> "A" THEN GOTO MOD_UU
  @INCLUDE(FILE_C5,"UU_CLR")
@goto mod_uu
!
@LABEL UU1
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto MOD_SERV_ATT
  @IF CMD <> "A" THEN GOTO MOD_UU
  @INCLUDE(FILE_C5,"UU1")
@goto mod_uu
!
@LABEL UU1_3
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @gosub warn_opt
  @if abort = "A" then goto MOD_SERV_ATT
  @IF CMD <> "A" THEN GOTO MOD_UU
  @INCLUDE(FILE_C5,"UU1_3")
@goto mod_uu

!-------------------------!
@LABEL MOD_OTH
  @set sel_oth = ""
  @window
   @DRAW(CUP,24,3,INV,"DISPLAY & MODIFY OTHER ATRIBUTES")
   @DRAW(CUP,31,4,HIGH,"[Other Customer Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"A",LOW," - To modify Advice of Charge")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"B",LOW," - To modify Call Barring")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"C",LOW," - To modify CLI parameters")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"S",LOW," - To modify Sub Address parameters")
   @DRAW(CUP,10,9,LOW,"Press ",HIGH,"T",LOW," - To set Line Test parameters")
   @inkey(sel_OTH,"Press any other key to return to the Selected Attributes Menu......")
   @windend
   @If sel_oth = "A" then goto MOD_AOC
   @ELSE IF sel_oth = "B" then goto MOD_CB
   @ELSE IF sel_oth = "C" then goto MOD_CLI
   @ELSE IF sel_oth = "S" then goto MOD_SUBAD
   @ELSE IF sel_oth = "T" then gosub UNAV
   @windend
   @GOTO MOD_SERV_ATT
!
@LABEL MOD_AOC
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
  @IF CMD <> "A" THEN GOTO MOD_OTH
   @set sel_oth = ""
   @window
   @DRAW(CUP,23,3,INV,"DISPLAY & MODIFY ADVICE OF CHARGE")
   @DRAW(CUP,31,4,HIGH,"[Other Customer Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"A",LOW," - To remove AOC subscription -default")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"B",LOW," - To add AOC subscription -option")
   @inkey(sel_oth,"Press any other key to return to the Other Attributes Menu......")
   @windend
   @If sel_oth = "A" then INCLUDE(FILE_C5,"MOD_AOC_ON")
   @ELSE IF sel_oth = "B" then INCLUDE(FILE_C5,"MOD_AOC_OFF")
   @windend
   @goto mod_oth
!
@LABEL MOD_CB
   @IF CMD <> "A" THEN GOTO MOD_OTH
   @gosub warn_icom
   @if abort = "A" then goto MOD_OTH
   @set sel_oth = ""
   @DRAW(BOX,1,1,80,23)
   @DRAW(CUP,23,2,INV,"DISPLAY & MODIFY CALL BARRING")
   @DRAW(CUP,31,3,HIGH,"[Other Customer Data]")
   @DRAW(CUP,03,4,LOW,"Press ",HIGH,"D",LOW," - To disable Call Barring CBA-0 - default")
   @DRAW(CUP,03,5,LOW,"Press ",HIGH,"E",LOW," - To enable fixed Call Barring")
   @DRAW(CUP,47,5,"Select D or E and press Enter!")
   @FORM(78,5,1,sel_oth)
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @If sel_oth = "D" then INCLUDE(FILE_C5,"MOD_CB_OFF")
   @If sel_oth = "D" then GOTO MOD_OTH
   @DRAW(CUP,04,6,HIGH,"CBA",CUP,17,6,"PCMS")
   @DRAW(CUP,04,7,LOW,"Enter ",HIGH,"0",LOW," - for ",HIGH,"NA0",LOW," - Default - Full network access.")
   @DRAW(CUP,04,8,LOW,"Enter ",HIGH,"1",LOW," - for ... - Opr service - Access LOCAL, STD, STO, 005, OPR CODE, 190")
   @DRAW(CUP,04,9,LOW,"Enter ",HIGH,"2",LOW," - for ",HIGH,"NA4/NB4",LOW," - Access LOCAL, STO, STD, 005, 190")
   @DRAW(CUP,04,10,LOW,"Enter ",HIGH,"3",LOW," - for ",HIGH,"NA9/NB9",LOW," - Access LOCAL, STO, STD, IDD")
   @DRAW(CUP,04,11,LOW,"Enter ",HIGH,"4",LOW," - for ... - Test line - Full network access")
   @DRAW(CUP,04,12,LOW,"Enter ",HIGH,"5",LOW," - for ",HIGH,"NA3/NB3",LOW," - Access LOCAL, STO, STD, 190")
   @DRAW(CUP,04,13,LOW,"Enter ",HIGH,"6",LOW," - for ",HIGH,"NA7/NB7",LOW,"- Access LOCAL, STD, 005, 190")
   @DRAW(CUP,04,14,LOW,"Enter ",HIGH,"7",LOW," - for ",HIGH,"NA2/NB2",LOW," - Access LOCAL, STO")
   @DRAW(CUP,04,15,LOW,"Enter ",HIGH,"8",LOW," - for ",HIGH,"NA6/NB6",LOW,"- Access LOCAL, STD, IDD, 005, 190")
   @DRAW(CUP,04,16,LOW,"Enter ",HIGH,"9",LOW," - for ",HIGH,"NA8/NB8",LOW,"- Access LOCAL, STO, STD")
   @DRAW(CUP,04,17,LOW,"Enter ",HIGH,"10",LOW," - for ",HIGH,"NA000/NB000",LOW," - Access to special codes + Homelink 1800 ")
   @DRAW(CUP,04,18,LOW,"Enter ",HIGH,"11",LOW," - for ",HIGH,"NA1/NB1",LOW," - Access LOCAL only")
   @DRAW(CUP,04,19,LOW,"Enter ",HIGH,"12",LOW," - for ",HIGH,"NA5/NB5",LOW," - Access LOCAL, STO, STD, IDD, 190")
   @DRAW(CUP,04,20,LOW,"Enter ",HIGH,"13",LOW," - for ... - Cancelled intact service implemented in XDCN 221 ISS 4")
   @DRAW(CUP,04,21,LOW,"Enter ",HIGH,"14",LOW," - for ",HIGH,"NA1800/NB10",LOW," - Allows NB000 plus free codes")
   @DRAW(CUP,04,22,LOW,"Enter ",HIGH,"15",LOW," - for ... - ReserveD for AXE internal use")
!
@LABEL CONT_MOD_CB
   @SET CBA = ""
   @DRAW(CUP,25,6,"Insert value 1 to 15 or A to abort")
   @FORM(60,6,2,CBA)
   @if CBA = "A" THEN GOTO  MOD_OTH
   @IF CBA > 15 THEN DRAW(CUP,25,6,HIGH,"Value out of range - re-enter!                 ")
   @IF CBA > 15 THEN DELAYSEC(3)
   @IF CBA > 15 THEN GOTO CONT_MOD_CB
   @IF CBA = 0 THEN DRAW(CUP,25,6,HIGH,"Value out of range - re-enter!                 ")
   @IF CBA = 0 THEN DELAYSEC(3)
   @IF CBA = 0 THEN GOTO CONT_MOD_CB
   @IF CBA <> "" THEN INCLUDE(FILE_C5,"MOD_CB_ON")
   @GOTO MOD_OTH
!
!----------------------------------!
@LABEL MOD_CLI
  @IF CMD <> "A" THEN GOTO MOD_OTH
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @set sel_oth = ""
   @window
   @DRAW(CUP,18,3,INV,"DISPLAY & MODIFY CALLING LINE IDENTIFICATION")
   @DRAW(CUP,31,4,HIGH,"[Other Customer Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"1",LOW," - To add CLIR - sets LBWO -Line Blocking With Overide -option")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"2",LOW," - To remove CLIR sets PWO - Present With Overide -default")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"3",LOW," - To add CLIP - sets CLI Presentation - option")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"4",LOW," - To remove CLIP - removes CLI Presentation -default")
   @inkey(sel_oth,"Press any other key to return to the Other Attributes Menu......")
   @windend
   @If sel_oth = "1" then INCLUDE(FILE_C5,"MOD_CLIR_ON")
   @ELSE IF sel_oth = "2" then INCLUDE(FILE_C5,"MOD_CLIR_OFF")
   @ELSE IF sel_oth = "3" then INCLUDE(FILE_C5,"MOD_CLIP_ON")
   @ELSE IF sel_oth = "4" then INCLUDE(FILE_C5,"MOD_CLIP_OFF")
   @windend
   @goto mod_oth
!
@LABEL MOD_SUBAD
   @IF CMD <> "A" THEN GOTO MOD_OTH
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @GOSUB WARN_OPT
   @IF ABORT = "A" THEN GOTO MOD_OTH
   @set sel_oth = ""
   @window
   @DRAW(CUP,24,3,INV,"ADD & REMOVE SUB ADDRESS FACILTY")
   @DRAW(CUP,31,4,HIGH,"[Other Customer Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"D",LOW," - To disable SUBBADR subscription - Not an Option")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"E",LOW," - To enable SUBADDR subscription -default")
   @inkey(sel_oth,"Press any other key to return to the Other Attributes Menu......")
   @windend
   @If sel_oth = "D" then INCLUDE(FILE_C5,"SUBADD_OFF")
   @ELSE IF sel_oth = "E" then INCLUDE(FILE_C5,"SUBADD_ON")
   @windend
   @goto mod_oth
!

!------------------------------------------!
@LABEL CHECK_CUS
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
  @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CHECK_CUS
  @SET LITYPE = DEVICE_L
  @IF LITYPE = "" THEN GOTO PROVMENU
  @INCLUDE(FILE_C3,"CHECK_CUS")
@goto provmenu

!------------------------------------------!
@LABEL CHECK_BLOCK
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @hide
   @set sel_att = ""
   @window
   @CLRSCR
   @DRAW(CUP,17,3,INV,"CHECK & MODIFY BLOCKING SUPERVSION ATTRIBUTES")
   @DRAW(CUP,22,4,HIGH,"[Customer Blocking Supervision Data]")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"D",LOW," - to disable Supervision")
   @DRAW(CUP,10,9,LOW,"Press ",HIGH,"E",LOW," - to enable Supervision")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"1",LOW," - to check current Supervion")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"2",LOW," - to change Supervision Levels")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"3",LOW," - to passivate Supervion")
@inkey(sel_att,"Press any other key to return to the Provisioning Menu......")
   @windend
   @If sel_att = "D" then goto END_BLO_SUPV
   @ELSE IF sel_att = "E" then goto ACT_BLO_SUPV
   @ELSE IF sel_att = "1" then goto CK_BLO_SUPV
   @ELSE IF sel_att = "2" then goto CHA_BLO_SUPV
   @ELSE IF sel_att = "3" then goto PAS_BLO_SUPV
   @windend
   @GOTO PROVMENU
!
@LABEL CK_BLO_SUPV
  @IF CMD <> "A" THEN GOTO CHECK_BLOCK
  @INCLUDE(FILE_C3,"CK_BLO_SUPV")
@goto CHECK_BLOCK
!
@LABEL CHA_BLO_SUPV
  @IF CMD <> "A" THEN GOTO CHECK_BLOCK
  @INCLUDE(FILE_C3,"CHA_BLO_SUPV")
@goto CHECK_BLOCK
!
@LABEL PAS_BLO_SUPV
  @IF CMD <> "A" THEN GOTO CHECK_BLOCK
  @INCLUDE(FILE_C3,"PAS_BLO_SUPV")
@goto CHECK_BLOCK
!
@LABEL END_BLO_SUPV
  @IF CMD <> "A" THEN GOTO CHECK_BLOCK
  @INCLUDE(FILE_C3,"END_BLO_SUPV")
@goto CHECK_BLOCK
!
@LABEL ACT_BLO_SUPV
  @IF CMD <> "A" THEN GOTO CHECK_BLOCK
  @INCLUDE(FILE_C3,"ACT_BLO_SUPV")
@goto CHECK_BLOCK

!------------------------------------------!
@LABEL CHECK_SUBRT
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @hide
   @set sel_att = ""
   @window
   @CLRSCR
   @DRAW(CUP,18,2,INV,"CHECK & MODIFY CHANEL - SUB ROUTE ATTRIBUTES")
   @DRAW(CUP,29,3,HIGH,"[Customer Sub-Route Data]")
   @DRAW(CUP,10,4,LOW,"Press ",HIGH,"1",LOW," - to Block Involved Devices")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"2",LOW," - to Create a Sub Route")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"3",LOW," - to End a Sub Route")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"4",LOW," - to Disconnect Devices")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"5",LOW," - to Connect Devices ")
   @DRAW(CUP,10,9,LOW,"Press ",HIGH,"6",LOW," - to Add / Change Access Parameters")
@inkey(sel_att,"Press any other key to return to the Provisioning Menu......")
   @windend
   @If sel_att = "1" then goto DIS_DEV_SR
   @ELSE IF sel_att = "2" then goto CRE_SUB_RT
   @ELSE IF sel_att = "3" then goto END_SUB_RT
   @ELSE IF sel_att = "4" then goto DISC_SUB_RT_DEV
   @ELSE IF sel_att = "5" then goto CONN_SUB_RT_DEV
   @ELSE IF sel_att = "6" then goto CHA_SUB_RT_ACC
   @windend
   @GOTO PROVMENU
!
@LABEL DIS_DEV_SR
   @@CLRSCR
   @HIDE
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @INCLUDE(FILE_C5,"DIS_DEV")
   @GOTO CHECK_SUBRT
!
@LABEL CRE_SUB_RT
  @IF CMD <> "A" THEN GOTO CHECK_SUBRT
  @INCLUDE(FILE_C3,"CRE_SUB_RTP")
@goto CHECK_SUBRT
!
@LABEL END_SUB_RT
  @IF CMD <> "A" THEN GOTO CHECK_SUBRT
  @INCLUDE(FILE_C3,"END_SUB_RTP")
@goto CHECK_SUBRT
!
@LABEL DISC_SUB_RT_DEV
  @IF CMD <> "A" THEN GOTO CHECK_SUBRT
  @INCLUDE(FILE_C3,"DISC_SUB_RT_DEVP")
@goto CHECK_SUBRT
!
@LABEL CONN_SUB_RT_DEV
  @IF CMD <> "A" THEN GOTO CHECK_SUBRT
  @INCLUDE(FILE_C3,"CONN_SUB_RT_DEVP")
@goto CHECK_SUBRT
!
@LABEL CHA_SUB_RT_ACC
  @IF CMD <> "A" THEN GOTO CHECK_SUBRT
  @INCLUDE(FILE_C3,"CHA_SUB_RT_ACCP")
@goto CHECK_SUBRT
!
!------------------------------------------!
@LABEL VAR_NOT_SEL_P
   @WINDOW
   @CLRSCR
   @draw(CUP,10,5,HIGH,"Wait a minute! You haven't entered a SNB or DIP name yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto provmenu
!
!------------------------------------------!
@LABEL CHECK_ENV_DATA
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @hide
   @set sel_att = ""
   @window
   @CLRSCR
   @DRAW(CUP,17,3,INV,"CHECK & MODIFY EXT NUMBER ATTRIBUTES")
   @DRAW(CUP,22,4,HIGH,"[Customer SUEDI/E Data]")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"1",LOW," - to check the Current Range ")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"2",LOW," - to add a New Range")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"3",LOW," - to delete a Range")
@inkey(sel_att,"Press any other key to return to the Provisioning Menu......")
   @windend
   @If sel_att = "1" then goto CHECK_SUEV
   @ELSE IF sel_att = "2" then goto ADD_ENV_DATA
   @ELSE IF sel_att = "3" then goto DEL_ENV_DATA
   @windend
   @GOTO PROVMENU
!
@LABEL CHECK_SUEV
   @if CMD <> "A" THEN GOTO CHECK_ENV_DATA
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_P
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C3,"SUEV_FUNC")
@goto CHECK_ENV_DATA
!
@LABEL ADD_ENV_DATA
  @IF CMD <> "A" THEN GOTO CHECK_ENV_DATA
  @INCLUDE(FILE_C3,"ADD_ENV_DATA")
@goto CHECK_ENV_DATA
!
@LABEL DEL_ENV_DATA
  @IF CMD <> "A" THEN GOTO CHECK_ENV_DATA
  @INCLUDE(FILE_C3,"DEL_ENV_DATA")
@goto CHECK_ENV_DATA
!
!-------------------------------------------------MAINTENANCE---------------------------------------------------!
@LABEL MAINTMENU
  @check(OFF)
  @set DIP_FLAG = "NO"
  @IF LOOPDIP = "" THEN SET LOOPDIP = "No DIP has been looped!"
  @HIDE
  @window
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'   -AXE- OnRamp30 Maintenance Menu   ')
  @DRAW(CUP,03,03,HIGH,'S',LOW,'pecial Maintenance Menu      ')
  @DRAW(CUP,03,04,HIGH,'P',LOW,'rovisioning Menu             ')
  @DRAW(CUP,03,05,HIGH,'Q',LOW,'uit to OnRamp MACRO Main Menu ')
  @DRAW(CUP,03,06,HIGH,'L',LOW,'ist the customers DIPs  ')
  @DRAW(CUP,03,07,HIGH,'Count of DIP Loop Orders ',inv,"{CNT_LP}")
  @DRAW(CUP,03,08,HIGH,'DIP under Loop ',INV,"{loopdip}")
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Display Call [& Bch] Status')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Display Fault Status ')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Display Status of Devices /DIP /SNT')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Disable/ Initialise/ Test Services')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Loop Test Customer Services')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Display DIP Quality')
  @DRAW(CUP,43,11,HIGH,'C',HIGH,LOW,'onnect via the DIP name')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study printouts')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - SNB        ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu     ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@MENU(CHOIC_E,4,13,'S','P','Q','L','1','2','3','4','5','6','','','C','G','E','D','H')
  @MENU(CHOIC_E,4,13,'S','P','Q','L','1','2','3','4','5','6','|','|','C','G','E','D','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO SPECMENU
  @IF CHOIC_E = 2 THEN GOTO PROVMENU
  @IF CHOIC_E = 3 THEN GOTO PRAMENU
  @IF CHOIC_E = 4 THEN include(file_c5,"show_dips")
  @IF CHOIC_E = 5 THEN GOTO DCS_PRA
  @IF CHOIC_E = 6 THEN GOTO DFS_PRA
  @IF CHOIC_E = 7 THEN GOTO DDS_PRA
  @IF CHOIC_E = 8 THEN GOTO DIS_INIT_PRA
  @IF CHOIC_E = 9 THEN GOTO LP_PRA
  @IF CHOIC_E = 10 THEN GOTO DDIPQ_PRA
  @IF CHOIC_E = 11 THEN GOTO MAINTMENU
  @IF CHOIC_E = 12 THEN GOTO MAINTMENU
  @IF CHOIC_E = 13 THEN GOSUB SELDIP
  @IF CHOIC_E = 14 THEN GOSUB PAUSE
  @IF CHOIC_E = 15 THEN GOSUB SELNCODE
  @IF CHOIC_E = 16 THEN GOSUB SELSNB
  @IF CHOIC_E = 17 THEN GOSUB maint_help
  @IF FILE = ''  THEN GOTO MAINTMENU
  @GOTO MAINTMENU
!
!-----------------------------!
@LABEL MAINT_HELP
  @VIEWFILE(FILE_H3)
@return

!-----------------------------!
@LABEL DCS_PRA
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @include(file_c5,"check_DIP")
   @IF CHECK_DIP_FLAG = "fail" then goto DCS_PRA
   @INCLUDE(FILE_C5,"D_MDR_CH")
   @GOTO MAINTMENU
!
!-----------------------------!
@LABEL DFS_PRA
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DFS_PRA
   @INCLUDE(FILE_C5,"DFS_PRA")
   @GOTO MAINTMENU
!
!-----------------------------!
@LABEL DDS_PRA
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
  @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @IF SLdipCount = 1 then set fstdevtest = firstdev{SLdipCount}
   @IF SLdipCount = 1 then set lstdevtest = lastdev{SLdipCount}
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto MAINTMENU
   @set sel_oth = ""
@LABEL CONT_DDS_PRA
   @window
   @DRAW(CUP,22,3,INV,"DISPLAY STATUS OF SERVICE COMPONENTS")
   @DRAW(CUP,13,4,LOW,"For Customer DIP: ",HIGH,"{DIPTEST}",LOW," associated with GDN: ",HIGH,"{SNB}")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"1",LOW," - To display LIPRA device states")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"2",LOW," - To display DIP state")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"3",LOW," - To display SNT device state")
   @DRAW(CUP,10,9,LOW,"Press ",HIGH,"S",LOW," - To select a new DIP from the customers range!")
   @inkey(sel_oth,"Press any other key to return to the Maintenence Menu......")
   @windend
   @If sel_oth = "1" then goto DISP_DEV
   @ELSE IF sel_oth = "2" then goto DISP_DIP
   @ELSE IF sel_oth = "3" then goto DISP_SNT
   @ELSE IF sel_oth = "S" then gosub DIP_SEL_WIN
   @IF sel_oth = "S" then include(file_c5,"check_DIP")
   @IF sel_oth = "S" then goto CONT_DDS_PRA
   @GOTO MAINTMENU
!
@LABEL DISP_DEV
   @INCLUDE(FILE_C5,"DDEVS")
   @GOTO CONT_DDS_PRA
!
@LABEL DISP_DIP
   @INCLUDE(FILE_C5,"DDIPS")
   @GOTO CONT_DDS_PRA
!
@LABEL DISP_SNT
   @INCLUDE(FILE_C5,"DSNTS")
   @GOTO CONT_DDS_PRA
!
!-----------------------------!
@LABEL DIS_INIT_PRA
   @IF CMD <> "A" THEN GOTO MAINTMENU
   @IF LNCD = "" then goto NCODEWNG
  @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @IF SLdipCount = 1 then set fstdevtest = firstdev{SLdipCount}
   @IF SLdipCount = 1 then set lstdevtest = lastdev{SLdipCount}
  @set sel_oth = ""
@LABEL CONT_DIS_INIT_PRA
   @WINDOW
   @DRAW(CUP,4,2,INV,"DISABLE & TEST SERVICE COMPONENTS")
   @DRAW(CUP,38,2,LOW,"For Customer DIP: ",HIGH,"{DIPTEST}",LOW," - GDN: ",HIGH,"{SNB}")
   @DRAW(CUP,03,3,LOW,"Press ",HIGH,"1",LOW," - Disable a range of LIPRA for this DIP  ",HIGH,"Nb:",LOW,"LIPRA Range ",INV,firstdev{z},LOW," to ",INV,lastdev{z})
   @DRAW(CUP,03,4,LOW,"Press ",HIGH,"2",LOW," - Disable selected DIP")
   @DRAW(CUP,03,5,LOW,"Press ",HIGH,"3",LOW," - Test SNT of selected DIP")
   @DRAW(CUP,4,6,INV,"INITIALISE SERVICE COMPONENTS")
   @DRAW(CUP,03,7,LOW,"Press ",HIGH,"4",LOW," - Initialise selected DIP")
   @DRAW(CUP,03,8,LOW,"Press ",HIGH,"5",LOW," - Initialise a range of LIPRA devices for this DIP")
   @DRAW(CUP,03,9,LOW,"Press ",HIGH,"S",LOW," - To select a new DIP from the customers range!")
   @inkey(sel_oth,"Press any other key to return to the Maintenence Menu......")
   @windend
   @If sel_oth = "1" then goto DIS_DEV
   @ELSE IF sel_oth = "2" then goto DIS_DIP
   @ELSE IF sel_oth = "3" then goto TEST_SNT
   @ELSE IF sel_oth = "4" then goto INIT_DIP
   @ELSE IF sel_oth = "5" then goto INIT_DEV
   @ELSE IF sel_oth = "S" then gosub DIP_SEL_WIN
   @IF sel_oth = "S" then include(file_c5,"check_DIP")
  @IF sel_oth = "S" then goto CONT_DIS_INIT_PRA
  @GOTO MAINTMENU
!
@LABEL DIS_DEV
   @@CLRSCR
   @HIDE
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DIS_PRA
   @INCLUDE(FILE_C5,"DIS_DEV")
   @GOTO CONT_DIS_INIT_PRA
!
@LABEL INIT_DEV
   @@CLRSCR
   @HIDE
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto INIT_PRA
   @INCLUDE(FILE_C5,"INIT_DEV")
   @GOTO CONT_DIS_INIT_PRA
!
@LABEL DIS_DIP
   @@CLRSCR
   @hide
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DFS_PRA
   @INCLUDE(FILE_C5,"DIS_DIP")
   @GOTO CONT_DIS_INIT_PRA
!
@LABEL INIT_DIP
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DFS_PRA
   @INCLUDE(FILE_C5,"INIT_DIP")
   @GOTO CONT_DIS_INIT_PRA
!
@LABEL TEST_SNT
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DFS_PRA
   @INCLUDE(FILE_C5,"TEST_SNT")
   @GOTO CONT_DIS_INIT_PRA
!
!-----------------------------!
@LABEL LP_PRA
   @IF CMD <> "A" THEN GOTO MAINTMENU
   @IF LNCD = "" then goto NCODEWNG
  @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @IF SLdipCount = 1 then set fstdevtest = firstdev{SLdipCount}
   @IF SLdipCount = 1 then set lstdevtest = lastdev{SLdipCount}
  @set sel_oth = ""
@LABEL CONT_LP_PRA
  @window
  @DRAW(CUP,04,3,INV,"LOOP TEST SERVICE COMPONENTS",HIGH,'   DIP under Loop ',INV,"{loopdip}")
  @DRAW(CUP,04,4,LOW,"For Customer DIP: ",HIGH,"{DIPTEST}",LOW," associated with GDN: ",HIGH,"{SNB}")
  @DRAW(CUP,10,05,HIGH,'1',LOW,' Loop DIP at NT all slots')
  @DRAW(CUP,10,06,HIGH,'2',LOW,' Loop DIP at LT all slots')
  @DRAW(CUP,10,07,HIGH,'3',LOW,' Loop DIP at ET all or one Tslot')
  @DRAW(CUP,10,08,HIGH,'4',LOW,' Remove Loop set on this DIP')
  @DRAW(CUP,10,09,LOW,"Press ",HIGH,"S",LOW," - To select a new DIP from the customers range!")
   @inkey(sel_oth,"Press any other key to return to the Maintenence Menu......")
   @windend
   @If sel_oth = "1" then goto LP_NT
   @ELSE IF sel_oth = "2" then goto LP_LT
   @ELSE IF sel_oth = "3" then goto LP_ET
   @ELSE IF sel_oth = "4" then goto LP_REM
   @ELSE IF sel_oth = "S" then gosub DIP_SEL_WIN
   @IF sel_oth = "S" then include(file_c5,"check_DIP")
   @IF sel_oth = "S" then goto CONT_LP_PRA
   @GOTO MAINTMENU
!
@LABEL LP_NT
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_LP_PRA
   @INCLUDE(FILE_C5,"LP_NT")
@goto CONT_LP_PRA
!
@LABEL LP_LT
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_LP_PRA
@INCLUDE(FILE_C5,"LP_LT")
@goto CONT_LP_PRA
!
@LABEL LP_ET
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_LP_PRA
   @INCLUDE(FILE_C5,"LP_ET")
@goto CONT_LP_PRA
!
@LABEL LP_REM
   @@CLRSCR
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_LP_PRA
   @INCLUDE(FILE_C5,"LP_REM")
@goto CONT_LP_PRA
!
!-----------------------------!
@LABEL DDIPQ_PRA
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_M
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPQ_PRA
   @INCLUDE(FILE_C5,"DDIPQ_PRA")
   @GOTO MAINTMENU
!
!-------------------------!
@LABEL VAR_NOT_SEL_M
   @WINDOW
   @CLRSCR
   @draw(CUP,10,5,HIGH,"Wait a minute! You haven't entered a SNB or DIP name yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto maintmenu
!----------------------------------------------------SPECIAL-----------------------------------------------------!
@LABEL SPECMENU
  @check(OFF)
  @HIDE
  @window
  @CLRSCR
  @@SET LOOPDIP = ""
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'  -AXE- OnRamp30 Special Maintenance Menu   ')
  @DRAW(CUP,03,03,HIGH,'M',LOW,'aintenance Menu                   ')
  @DRAW(CUP,03,04,HIGH,'P',LOW,'rovisioning Menu                  ')
  @DRAW(CUP,03,05,HIGH,'Q',LOW,'uit to AXE Main Menu              ')
  @DRAW(CUP,03,06,HIGH,'L',LOW,'ist the customers DIPs  ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' QM-Quality Measurements          ')

  @DRAW(CUP,43,04,HIGH,'2',LOW,' B-number analysis')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' PM-Protocol & B Channel Monitor')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' MDR-Maintenance Data Register ')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Customer Supv & Number Functions')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Test RAU Test Service Components')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Identify customers in Magazine ')
  @DRAW(CUP,43,11,HIGH,'C',HIGH,LOW,'onnect via the DIP name')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study printouts')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - SNB             ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu     ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@MENU(CHOIC_E,4,13,'M','P','Q','L','1','2','3','4','5','6','7','','C','G','E','D','H')
  @MENU(CHOIC_E,4,13,'M','P','Q','L','1','2','3','4','5','6','7','|','C','G','E','D','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO MAINTMENU
  @IF CHOIC_E = 2 THEN GOSUB PROVMENU
  @IF CHOIC_E = 3 THEN GOTO PRAMENU
  @IF CHOIC_E = 4 THEN include(file_c5,"show_dips")
  @IF CHOIC_E = 5 THEN GOTO DDIPQ_PRA_SP
  @IF CHOIC_E = 6 THEN GOTO BNUM
  @IF CHOIC_E = 7 THEN GOTO PROTMENU
  @IF CHOIC_E = 8 THEN GOTO MDRMENU
  @IF CHOIC_E = 9 THEN GOTO SUPVMENU
  @IF CHOIC_E = 10 THEN GOTO CHECK_RSS
  @IF CHOIC_E = 11 THEN GOTO CK_EMG
  @IF CHOIC_E = 12 THEN GOTO SPECMENU
  @IF CHOIC_E = 13 THEN GOSUB SELDIP
  @IF CHOIC_E = 14 THEN GOSUB PAUSE
  @IF CHOIC_E = 15 THEN GOSUB SELNCODE
  @IF CHOIC_E = 16 THEN GOSUB SELSNB
  @IF CHOIC_E = 17 THEN GOSUB spec_help
  @IF FILE = ''  THEN GOTO SPECMENU
  @include(FILE)
  @GOTO SPECMENU
!
@LABEL SPEC_HELP
  @VIEWFILE(FILE_H4)
  @return
!
@LABEL DDIPQ_PRA_SP
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPQ_PRA_SP
   @INCLUDE(FILE_C5,"DDIPQ_PRA")
   @GOTO SPECMENU
!
@LABEL CK_EMG
   @IF CMD <> "A" THEN GOTO SPECMENU
   @IF LNCD = "" then goto NCODEWNG
   @set lipratest = ""
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount = 1 then set fstdevtest = firstdev{SLdipCount}
   @IF SLdipCount = 1 then set lstdevtest = lastdev{SLdipCount}
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @INCLUDE(FILE_C5,"CK_EMG")
  @GOTO SPECMENU
!
@LABEL CHECK_RSS
   @IF CMD <> "A" THEN GOTO SPECMENU
   @IF LNCD = "" then goto NCODEWNG
   @set lipratest = ""
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount = 1 then set fstdevtest = firstdev{SLdipCount}
   @IF SLdipCount = 1 then set lstdevtest = lastdev{SLdipCount}
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @set sel_oth = ""
@LABEL CONT_CHECK_RSS
  @window
  @CLRSCR
  @DRAW(CUP,25,2,INV,"TEST (RAU) SERVICE COMPONENTS")
  @DRAW(CUP,04,4,LOW,"For Customer DIP: ",HIGH,"{DIPTEST}",LOW," associated with GDN: ",HIGH,"{SNB}")
  @DRAW(CUP,10,05,HIGH,'1',LOW,' Identifiy Dch Connection for ',high,'{DIPTEST}')
  @DRAW(CUP,10,06,HIGH,'2',LOW,' Identify Access Group for ',high,'{DIPTEST}')
  @DRAW(CUP,10,07,HIGH,'3',LOW,' Check Connection State for ',high,'{DIPTEST}')
  @DRAW(CUP,10,08,HIGH,'4',LOW,' Identify all Dch Connections in ',high,'{LNCD}')
  @DRAW(CUP,10,09,LOW,"Press ",HIGH,"S",LOW," - To select a new DIP from the customers range!")
   @inkey(sel_oth,"Press any other key to return to the Special Maintenence Menu......")
   @windend
   @If sel_oth = "1" then goto CK_DIP_CONN
   @ELSE IF sel_oth = "2" then goto CK_ACC_GP
   @ELSE IF sel_oth = "3" then goto CK_DIP_CONN_STATE
   @ELSE IF sel_oth = "4" then gosub CK_ALL_DIP_CONNS
   @ELSE IF sel_oth = "S" then gosub DIP_SEL_WIN
   @IF sel_oth = "S" then include(file_c5,"check_DIP")
   @IF sel_oth = "S" then goto CONT_CHECK_RSS
   @GOTO SPECMENU
!
@LABEL CK_DIP_CONN
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_CHECK_RSS2
   @Include(file_c5,"CK_DIP_CONN")
   @GOTO CONT_CHECK_RSS
!
@LABEL CK_ACC_GP
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_CHECK_RSS2
   @Include(file_c5,"CK_ACC_GP")
   @GOTO CONT_CHECK_RSS
!
@LABEL CK_DIP_CONN_STATE
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_S
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto CONT_CHECK_RSS2
   @Include(file_c5,"CK_DIP_CONN_STATE")
   @GOTO CONT_CHECK_RSS
!
@LABEL CK_ALL_DIP_CONNS
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @Include(file_c5,"CK_ALL_DIP_CONNS")
   @GOTO CONT_CHECK_RSS
!
@LABEL CONT_CHECK_RSS2
   @WINDEND
   @GOTO CONT_CHECK_RSS
!-------------------------!
@LABEL VAR_NOT_SEL_S
   @WINDOW
   @CLRSCR
   @draw(CUP,10,5,HIGH,"Wait a minute! You haven't entered a SNB or DIP name yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto specmenu

!-----------------------------!
@LABEL PROTMENU
  @check(OFF)
  @HIDE
  @window
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'  -AXE- OnRamp30 Protocol & Bch Monitor Sub Menu   ')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Special Maintenance Menu   ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Set L2 Abnormality Tracing - ON')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' L2-Check for Layer 2 Abnormalities')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Reset L2 Abnormality Buffer')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Remove L2 Abnormality Tracing')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Set L3 Abnormality Tracing - ON')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' L3-Check for Layer 3 Abnormalities')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Reset L3 Abnormality Buffer')
  @DRAW(CUP,43,10,HIGH,'8',LOW,' Remove L3 Abnormality Tracing')
  @DRAW(CUP,43,11,HIGH,'9',LOW,' Listen to a Speech Call')
  @DRAW(CUP,43,12,HIGH,'C',HIGH,LOW,'onnect via the DIP Name')
  @DRAW(CUP,43,13,HIGH,'G',LOW,'o to full screen to study Printout')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - SNB             ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu        ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF SLdipcount >0 then include(file_c5,"show_dips")
  @DRAW(INV,CUP,03,1,'   OCFE -AXE- PRA Protocol Abnormality Sub Menu   ')
  @@MENU(CHOIC_E,1,14,'R','1','2','3','4','5','6','7','8','9','','C','G','D','H')
  @MENU(CHOIC_E,1,14,'R','1','2','3','4','5','6','7','8','9','|','C','G','D','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO SPECMENU
  @IF CHOIC_E = 2 THEN GOTO L2_ON
  @IF CHOIC_E = 3 THEN GOTO L2
  @IF CHOIC_E = 4 THEN GOTO L2_RESET
  @IF CHOIC_E = 5 THEN GOTO L2_OFF
  @IF CHOIC_E = 6 THEN GOTO L3_ON
  @IF CHOIC_E = 7 THEN GOTO L3
  @IF CHOIC_E = 8 THEN GOTO L3_RESET
  @IF CHOIC_E = 9 THEN GOTO L3_OFF
  @IF CHOIC_E = 10 THEN GOTO CMON
  @IF CHOIC_E = 11 THEN GOTO PROTMENU
  @IF CHOIC_E = 12 THEN GOSUB SELDIP
  @IF CHOIC_E = 13 THEN GOSUB PAUSE
  @IF CHOIC_E = 14 THEN GOSUB SELSNB
  @IF CHOIC_E = 15 THEN GOSUB PROT_HELP
  @IF FILE = ''  THEN GOTO PROTMENU
  @GOTO PROTMENU
!
!-------------------------!
@LABEL L2_ON
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then  include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C5,"L2_PRA_ON")
@goto protmenu

!-------------------------!
@LABEL L2_OFF
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C5,"L2_PRA_OFF")
@goto protmenu

!-------------------------!
@LABEL L2
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C5,"L2_PRA")
@goto protmenu

!-------------------------!
@LABEL L2_RESET
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"L2_RESET_PRA")
@goto protmenu

!-------------------------!
@LABEL L3_ON
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C5,"L3_PRA_ON")
@goto protmenu

!-------------------------!
@LABEL L3_OFF
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
   @INCLUDE(FILE_C5,"L3_PRA_OFF")
@goto protmenu

!-------------------------!
@LABEL L3
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"L3_PRA")
@goto protmenu

!-------------------------!
@LABEL L3_RESET
   @@CLRSCR
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_PR
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
   @Include(file_c5,"check_dip")
   @IF CHECK_DIP_FLAG = "fail" then goto DDIPS
   @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"L3_RESET_PRA")
@goto protmenu

!-----------------------------!
@LABEL PROT_HELP
  @VIEWFILE(FILE_H6)
@return
!
!-----------------------------!
@LABEL CMON
   @INCLUDE(FILE_C5,"CMON")
@GOTO PROTMENU

!-------------------------!
@LABEL VAR_NOT_SEL_PR
   @WINDOW
   @CLRSCR
   @draw(CUP,10,5,HIGH,"Wait a minute! You haven't entered a SNB or DIP name yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto protmenu

!-----------------------------!
@LABEL MDRMENU
  @check(OFF)
  @HIDE
  @window
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'  -AXE- OnRamp30 Maintenance Data Register Sub Menu  ')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Special Maintenance Menu ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Check for DIPs with L1 Faults')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Check for DIPs with L2 Faults')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Check for DIPs with L3 Faults')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Check for DIPs with L3 Abnormal Msg')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Check for DIPs with L3 Restarts')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Check for RAI from CPE')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Check for AIS at ET RX stream')
  @DRAW(CUP,43,10,HIGH,'8',LOW,' Check for LOFA at ET RX stream')
  @DRAW(CUP,43,11,HIGH,'9',LOW,' Hardware Fault for DIPs')
  @@DRAW(CUP,43,12,low,'1',HIGH,'0',LOW,' Get SNB for identified DIP')
  @DRAW(CUP,43,13,HIGH,'G',LOW,'o to full screen to study Printout')
  @DRAW(CUP,43,14,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu        ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF SLdipcount >0 then include(file_c5,"show_dips")
  @DRAW(INV,CUP,03,1,'   OCFE -AXE- PRA Maintenance Data Register Sub Menu   ')
  @MENU(CHOIC_E,1,13,'R','1','2','3','4','5','6','7','8','9','0','G','E','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO SPECMENU
  @IF CHOIC_E = 2 THEN GOTO DIP_L1_FLT
  @IF CHOIC_E = 3 THEN GOTO DIP_L2_FLT
  @IF CHOIC_E = 4 THEN GOTO DIP_L3_FLT
  @IF CHOIC_E = 5 THEN GOTO DIP_L3_ABN
  @IF CHOIC_E = 6 THEN GOTO DIP_L3_RES
  @IF CHOIC_E = 7 THEN GOTO DIP_RAI
  @IF CHOIC_E = 8 THEN GOTO DIP_AIS
  @IF CHOIC_E = 9 THEN GOTO DIP_LOFA
  @IF CHOIC_E = 10 THEN GOTO DIP_HW
  @IF CHOIC_E = 11 THEN goto MDRMENU
  @IF CHOIC_E = 12 THEN GOSUB PAUSE
  @IF CHOIC_E = 13 THEN GOSUB SELNCODE
  @IF CHOIC_E = 14 THEN GOSUB MDR_HELP
  @IF FILE = ''  THEN GOTO MDRMENU
  @GOTO MDRMENU
!
!-------------------------!
@LABEL DIP_L1_FLT
  @INCLUDE(FILE_C5,"DIP_L1_FLT")
@goto mdrmenu

!-------------------------!
@LABEL DIP_L2_FLT
  @INCLUDE(FILE_C5,"DIP_L2_FLT")
@goto mdrmenu

!-------------------------!
@LABEL DIP_L3_FLT
  @INCLUDE(FILE_C5,"DIP_L3_FLT")
@goto mdrmenu

!-------------------------!
@LABEL DIP_L3_ABN
  @INCLUDE(FILE_C5,"DIP_L3_ABN")
@goto mdrmenu

!-------------------------!
@LABEL DIP_L3_RES
  @INCLUDE(FILE_C5,"DIP_L3_RES")
@goto mdrmenu

!-------------------------!
@LABEL DIP_AIS
  @INCLUDE(FILE_C5,"DIP_AIS")
@goto mdrmenu

!-------------------------!
@LABEL DIP_RAI
  @INCLUDE(FILE_C5,"DIP_RAI")
@goto mdrmenu

!-------------------------!
@LABEL DIP_HW
  @INCLUDE(FILE_C5,"DIP_HW")
@goto mdrmenu

!-------------------------!
@LABEL DIP_LOFA
  @INCLUDE(FILE_C5,"DIP_LOFA")
@goto mdrmenu

!-------------------------!
@LABEL GET_DIP
  @INCLUDE(FILE_C5,"GET_DIP")
@goto mdrmenu

-----------------------------!
@LABEL MDR_HELP
  @VIEWFILE(FILE_H7)
@return
!
!-----------------------------!
@LABEL SUPVMENU
  @check(OFF)
  @HIDE
  @window
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,'  -AXE- OnRamp30 Supervision Sub Menu   ')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Special Maintenance Menu      ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Check Current Supervision Settings')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Set Layer 1 Supervision On')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Set Layer 2 Supervision On')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Set Layer 3 Supervision On')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Remove all Supervision on Service')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' System Clock Information')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Check Data for DDI CLI Sending')
  @DRAW(CUP,43,10,HIGH,'',LOW,' ')
  @DRAW(CUP,43,11,HIGH,'C',LOW,'onnect via the DIP Name')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study printout')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - SNB             ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for this Menu        ')
  @DRAW(BOX,03,09,40,14)
  @DRAW(INV,CUP,04,10,'LNCD   ',high,"  {lncd}")
  @DRAW(INV,CUP,04,11,'{PNB}    ',high,"  {snbvar}  ")
  @DRAW(INV,CUP,04,12,'GDN    ',high,"  {snb}  ")
  @DRAW(INV,CUP,04,13,'Nr DIPs',high,"  {SLdipCount}  ")
  @DRAW(HIGH,CUP,04,16,'TAB or Shift+TAB',LOW,' to move ',#196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF SLdipcount >0 then include(file_c5,"show_dips")
  @DRAW(INV,CUP,03,1,'   OCFE -AXE- PRA Supervision Sub Menu   ')
  @@MENU(CHOIC_E,1,13,'R','1','2','3','4','5','6','7','','C','G','E','D','H')
  @MENU(CHOIC_E,1,13,'R','1','2','3','4','5','6','7','|','C','G','E','D','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO SPECMENU
  @IF CHOIC_E = 2 THEN GOSUB MAINT_FUNC
  @IF CHOIC_E = 3 THEN GOSUB NOTIMP
  @IF CHOIC_E = 4 THEN GOSUB SET_L2_ON
  @IF CHOIC_E = 5 THEN GOSUB SET_L3_ON
  @IF CHOIC_E = 6 THEN GOSUB REM_SUPVN
  @IF CHOIC_E = 7 THEN GOSUB CLOCK_FUNC
  @IF CHOIC_E = 8 THEN GOTO SUEV_FUNC
  @IF CHOIC_E = 9 THEN GOTO SUPVMENU
  @IF CHOIC_E = 10 THEN GOSUB SELDIP
  @IF CHOIC_E = 11 THEN GOSUB PAUSE
  @IF CHOIC_E = 12 THEN GOSUB SELNCODE
  @IF CHOIC_E = 13 THEN GOSUB SELSNB
  @IF CHOIC_E = 14 THEN GOSUB SUPV_HELP
  @IF FILE = ''  THEN GOTO SUPVMENU
  @GOTO SUPVMENU
!
!-------------------------!
@LABEL MAINT_FUNC
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"MAINT_FUNC_PRA")
@return

!-------------------------!
@LABEL CLOCK_FUNC
  @INCLUDE(FILE_C5,"CLOCK_FUNC")
@return

!-------------------------!
@LABEL SET_L1_ON
  @if CMD <> "A" THEN RETURN
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"SET_L1_ON_PRA")
@return

!-------------------------!
@LABEL SET_L2_ON
  @if CMD <> "A" THEN RETURN
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"SET_L2_ON_PRA")
@return

!------------!
@LABEL SET_L3_ON
  @if CMD <> "A" THEN RETURN
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"SET_L3_ON_PRA")
@return

!------------!
@LABEL REM_SUPVN
  @if CMD <> "A" THEN RETURN
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
   @IF SLdipCount = 1 then set Z = 1
   @IF SLdipCount > 1 then include(file_c5,"dip_sel_win")
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C5,"REM_SUPVN_PRA")
@return

!------------!
@LABEL SUEV_FUNC
  @if CMD <> "A" THEN RETURN
   @IF LNCD = "" then goto NCODEWNG
   @if sldipcount = 0 then goto VAR_NOT_SEL_SV
   @IF SLdipCount = 1 then set Diptest = Dipname{SLdipCount}
  @IF DIPTEST = "" THEN RETURN
  @INCLUDE(FILE_C3,"SUEV_FUNC")
@goto supvmenu


!-----------------------------!
@LABEL SUPV_HELP
  @VIEWFILE(FILE_H9)
@return
!
!-------------------------!
@LABEL VAR_NOT_SEL_SV
   @WINDOW
   @CLRSCR
   @draw(CUP,10,5,HIGH,"Wait a minute! You haven't entered a SNB or DIP name yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto supvmenu
!---------------------------------------COMMON ROUTINES------------------------------------!
@LABEL BNUM
  @set old_lncd = lncd
  @SET menuflag = "YES"
  @set AUTOFILE = "NO"
  @include("Ozbnum.utl")
  @SET LNCD = TRIM(GETDEST())
  @IF LNCD <> OLD_LNCD THEN CLOSE
  @IF LNCD <> OLD_LNCD THEN LOG(LOG_FILE)
  @inkey(dummy,"Press any key to continue...")
@GOTO SPECMENU
!
!-----------------------------!
@label discon
   @include(concat(DIR0,"disconnt.cmd"))
   @INKEY(DISCON,"Your connection failed!  Press any key to return to main menu.")
   @gosub CLR_var
   @goto PRAmenu

!-----------------------------!
@LABEL DIP_SEL_WIN
   @IF SLdipCount = 1 then return
   @include(file_c5,"DIP_SEL_WIN")
   @RETURN
   !$$$$!
!
!-----------------------------!
@LABEL EXIT
  @set product_flag = ""
   @include(file_c5,"clr_var")
   @set cnt_lp = ""
  @@CLRSCR
   !$$$$!
!
!-----------------------------!
@LABEL LOG_OUT
   @include(file_c5,"clr_var")
   @include(concat(DIR0,"disconnt.cmd"))
   @delaysec (3)
   @SET LNCD = TRIM(GETDEST())
   @@CLRSCR
   @return
!
!-----------------------------!
@LABEL NCODEWNG
   @WINDOW
   @draw(CUP,14,5,HIGH,"Wait a minute! You haven't entered a Node Code yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @GOTO ORAMENU
!
!-----------------------------!
@LABEL NOTIMP
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,21,1,52,6,INV,CUP,22,5,' This Function not Implemented ')
  @DRAW(HIGH,CUP,24,8,"Hit Any Key to Continue ....")
  @INKEY(DUMMY,"Hit any key to continue!")
  @WINDEND
  @@CLRSCR
  @RETURN
!
!-----------------------------!
@LABEL WARN_OPT
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,13,4,67,6,INV,CUP,15,5,'This Function is not a current option for OnRAMP30')
  @DRAW(HIGH,CUP,22,8,"Continue at own risk - or abort ....")
  @set abort = ""
  @INKEY(abort,"Enter A to abort or any other to continue task")
  @WINDEND
  @@CLRSCR
  @RETURN
!
!-----------------------------!
@LABEL WARN_ICOM
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,18,4,59,6,INV,CUP,20,5,'This Function is normally set via ICOM')
  @DRAW(HIGH,CUP,22,8,"Continue at own risk - A aborts ....")
  @set abort = ""
  @INKEY(abort,"Enter A to abort or any other to continue task")
  @WINDEND
  @@CLRSCR
  @RETURN
!
!-----------------------------!
@LABEL PAUSE
  @SET DUMMY = ""
  @@CLRSCR
  @INKEY(DUMMY,"Use R to return to CFE - Scroll Up or Down!")
  @IF DUMMY = "R" THEN RETURN
  @IF DUMMY <> "R" THEN GOTO PAUSE
!$$$$!
!
!-----------------------------!
@LABEL SELDIP
  @INCLUDE(FILE_C5,"SELDIP")
  @RETURN
!
!-----------------------------!
@LABEL SELNCODE
  @INCLUDE(FILE_C5,"SELNCODE")
  @RETURN
!
!-----------------------------!
@LABEL SELSNB
  @INCLUDE(FILE_C5,"SELSNB")
  @RETURN
!
!-----------------------------!
@LABEL UNAV
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,23,2,57,4,INV,CUP,24,3,'The Task requested is Unavailable')
  @DRAW(HIGH,CUP,19,5,"Either task not supported on this platform")
  @DRAW(HIGH,CUP,38,6,"-or-")
  @DRAW(HIGH,CUP,21,7,"not allowed under the Process Plan")
  @DRAW(low,CUP,8,8,"For OnRamp2 activation information refer to AXE-T 006 718 A03")
  @DRAW(low,CUP,8,9,"For OnRamp30 activation information refer to AXE-T 006 718 A01")
  @INKEY(DUMMY,"Press any key to continue!")
  @WINDEND
  @@CLRSCR
  @RETURN
!

@label mklocaldat
  @set cmd_dir = getname()
  @set cmd_dir = copy(cmd_dir,1,pos("\",cmd_dir,LAST)-1)
  @set cmd_dir = copy(cmd_dir,1,pos("\",cmd_dir,LAST))
  @include(concat(cmd_dir,"mklocdat.inc"))
@return

!=======================================================================!
