! S12ONRMP.CMD       Start date: 23/08/96
!                    This print 6/1/97
! Front end S12 ISDN customer operations functions  Ron Durkin SE Brisbane (0738872561)
!      Version 1.0
!       1. Menu & Label Design
!      Version 1.1
!      1. Initial Commands
!           2. Removed connection feature, corrected various menu errors NAR
!            - S12 TMG Melb. ( Sandro Ammmann  (03) 92041755)
!      Version 1.2   As per list below (SE Brisbane - RD)
!             1. Restructure labels for future file split
!             2. Align Screen Paint & command function to match /29 OCFE
!             3. Create labels for actions & then relate to job statement
!             4. Activate and expand Special Menu
!             5. Test succesful / unsuccessful result for VL
!             6. Test successful / unsucessful result for SULT test
!             7. Identify and display customer class of line - lock tests if COL is ORDINARY
!      Version 1.3   11 NOV 96 As per list below (SE Brisbane - RD)
!             1.     Device checking (analogue / digitial)
!             2.     PABX data checking
!             3.     Auto identification of DDI or MN LHG
!             4.     Devices in LHG identification and selection.
!             5.     Pass / fail testing of all commands not just a few.
!             6.     Channel state display / device group display when appropriate.
!             7.     Selected RRN decode from the CFE - display line,fault and call status.
!             8.     PABX data modification  MCT & PP/PMP.
!             9.     Line test sub menu
!             10.    Service "blocked" counter.
!             11.    Global L1 & L2 alarm print with LNCD check and cancel facility
!      Version 1.4   14 NOV 96 As per list below (SE Brisbane - RD)
!             1.     Hazard Warning for Get Global L1&2 alarms
!             2.     Auto in service check for DCS
!             3.     Manual in service test for LHG via individual NA
!             4.     Seperate test result check for line tests.
!             5.     Clear direction to look at result printout in window
!      Version 2.0   18 NOV > 31 DEC 96 As per list below (SE Brisbane - RD)
!             1.     Program split into menu and common routine files.
!             2.     Activation menu added
!             3.     SLO Menu and function added
!             4.     BA Alarms and Conn tests re-defined.
!             5.     Halt change to "Pause" OCFE
!             6.     Individual screen help files added.
!             7.     Printout Description added for VERIFY and EXE-REQ-MT
!             8.     Files added to process SLO data (STRRM.EXE)
!      Corrections / Additions Ver 2 on 6-1-97
!             1.     Command (CRN / DP / RRN Help Module added via Main Menu
!             2.     RRN 4263 access given to Disp Cust Data command.
!             3.     Corrections to screen paint function of Disp Cust Data
!             4.     Various RRN files updated.
!      Corrections / Additions Ver 2.1 on 2-3-97
!             1.     Pause fault rectified (RW-BNE)
!             2.     Command security level added
!             3.     Provisioning screen aligned with AXE
!
!      Version 2.2 Beta on 5-8-97
!             1.     Logon check S12 , AXE improved.
!             2.     Test fail modified
!             3.     Prime / Aux identifed.
!             4.     Cust details box modidfed to suit (all menus)
!             5.     New term address procedures for A&P module
!             6.     Inconsistancy fault patch with retest on Prime
!
!      Version 2.2 Correction on 16-9-97
!             1.     Maint menu correction to ensure selection all workd correctly.
!
!      Version 2.3 New Release on  05-10.-97!
!             1.      Connect process modified to abort to product menu if wrong platform selected
!
!      Version 2.4 New Release on  28-11.-97!
!             1.      Error check on DN length added
!             2.      Easycall moved to MOD SURV ATT
!             3.      Call WTG & CAll HOLD added
!      Version 2.5 New Release on  12-1-98!
!             1.      Menu screens & keystroke tasks aligned with AXE
!             2.      Datadial test added
!      Version 2.6 New Release on  17-2-98!
!             1.      SAS4.2 Compliant
!             2.      Decode Ftypes from numeric to Mnemonic  for CRN 0518 (FAULT)
!
!      Version 2.7 New Release on  4-3-98!
!             1.      Patch for DDI single EN cust type = ISDN
!             2.      Amended procedures for Bearer case (PBX unavailable)
!             3       AORJ file references removed
!             4.      OnRamp / Datadial test result modified
!             5.     Correct use of msn number (LHG v MN) when changing PP>PMP in                      !                      LHG
@@---------------------------------------------------------------------------------------------------------------------
@@                  LIST OF COMMON LABELS (sub routines) used
@@     CHANGE_AXE    - Used to indicate that you are now connected to AXe /29
@@     CLR_VAR       - Clears subs data ready for use in file
@@     COMD_FAILS    - Indicates that a ORJ was not succesful
@@     EXIT          - End of file
@@     GET_EN_NA     - Calculate NA and Nbr variables from DN
@@     GET_TEST_RES1 - Checks diagnostic test result.
@@     GET_TEST_RES2 - Checks test result (fail) for SULT test.
@@     LINE_CHK      - Check that line is free.
@@     NO_CLR_TEST_RES - Takes user to halt so as examine the LAST REPORT for more data.
@@     NOT_ISDN_SUB - Alerts user that sub is an anlaogue (ord) service.
@@     PAUSE    - Temporary halt and restart to allow RRN results to be viewed.
@@     S12_REDO      - Indicates incustomer exists on exch.
@@     S12_SAS42     - Indicates that not available until SAS42
@@     S12_SELNCODE  - Change LNCD also checks for AXE and acts accordingly.
@@     S12SELNCODE   - Used to login to HOST and record LNCD variable
@@     S12MAINTMENU  - Maintenance menu
@@     S12MENU       - Main openning menu from which others are reached
@@     S12PROVMENU   - Provision menu
@@     S12SELSND     - Get directory number
@@     S12SPECMENU   - Special maintenance menu
@@     S12_BA_ALM    - S12 ISDN Alarm types menu
@@     S12_MAINT_TEST- Determines which command to use (ORJ list)
@@     S12_NOTIMP    - Future developments
@@     S12_REDO      - When number isn't found at the selected HOST
@@     S12_1ST_CHECK - Tests for, LNCD, DN, NA etc before executing a ORJ.
@@     TEST_FAIL     - Indicates test failure with action and main fault codes.
@@     TEST_PASS     - Checks that ORJ successfully completed.
@@     TEST_S12      - Checks that SAS is at 322 or above else quit.
@@     WARNING1      - Alerts user to outage with Y/N test.
@@     WHATS_MY_PORT        - Gets the user's port details
@@     VAR_CHK       - Checks if a Dn and LNCD have been determined yet
@@------------------------------------------------------------------------------------------------------------------
@@                   LIST OF MENUS AND FUNCTIONS
@@
@@     MAIN MENU     -Provides access to other menus.
@@                   -Enables entry of LNCD and DN
@@                   -EXIT from file
@@                   -Clear LNCD, NA, Nbr, DN variables
@@
@@     MAINTENANCE MENU - Basic customer operations functions
@@                   -Display categories, display call status
@@                   -Verify disable and initialise line
@@                   -Enable entry of LNCD and DN
@@
@@     SPECIAL MAINT. MENU - Long term measurements ability to come
@@                   -Sultan line test
@@                   -ISDN alarms (Access to basic ISDN alarm menu)
@@                   -Routing of SLO reports
@@                   -Add/remove observation of D channel
@@                   -Enable entry of LNCD and DN
@@
@@     PROVISIONING MENU - Change categories P-P / P-MP
@@                   -Turn MCT on / off
@@
@@     SIUPPLEMENTRY PROVISIONING MENU - Change CLIP, CLIR, OCB, and others
@@
@@     PROTOCOL MENU - Allows tester to check for L1,2&3 faults
@@                   - Allows speech monitioring (when available)
@@
@@     LINE TEST MENU- Allows segmented testing of Lines
@@                   - Temp Correction for LHG SE fault DN/EN Translate
@@
@@     HELP Provides basic help and support information to the user
@@--------------------------------------------------------------------------------------------------------------------
@@                   LIST OF VARIABLES
@@
@@     ACTION_CODE          - Indication of specific test failure
@@     CHOIC_E              - Used to identify the result of a menu selection
@@     CHOIC_W              - Used to identify whether to continue an operation
@@     COMMAND              - The first system 12 command to be entered.
@@     COMMAND1             - The second S12 command
@@     CONFLAG              - Set by connect.cmd to indicate terminal (& hence) exch type.
@@     CUST_TYPE     - Indicates whether sub is ISDN / ANALOG (isdnsub / ordinary)
@@     DEV           - This is the user's port number
@@     DISCON        - Clears session and exits menu were Austpac conn fails.
@@     DN            - The directory number being used
@@     DUMMY         - An entry used to pause the file before continuing.
@@     ERR_FLAG      - This is used to indicate a fault with a result.
@@     ERROR         - An entry used to pause the file before continuing.
@@     EX_CK                - Checks for AXE exch type.
@@     FAULT_LOC     - Indicator set if location information avaialable
@@     GDN           - The MN or prime number of the service
@@     HELP          - Points to an external Help file.
@@     HI_NUM        - Highest SNB value in DDI range
@@     JOB           - Points to a course of action ie a command.
@@     L             - The user's port Channel.
@@     LINE1         - Used in scanning for a word in a printout.
@@     LNCD          - The 4 letter code of a HOST
@@     LO_NUM        - Lowest SNB value in DDI range
@@     MAIN_CODE     - indication of ORJ failure
@@     NA            - Network address.
@@     Nbr           - En number value.
@@     Numb_Dev      - The number of BA serives an a group.
@@     PORT          - The unmodified port as presented at Logon.
@@     STATE         - The customer's state of line.
@@     TEST_RES      - Screeen report of a test result.
@@     VERSS         - The version of this file.
@@
@@     TEST_S12      - Checks that SAS is at 322 or above else quit.
@@---------------------------------------------------------------------------------------------------------------------
@TITLE("S12 OnRamp Customer Front End -OCFE-")
@label start
   @HIDE
   @CHECK(OFF)
   @if varexist(menuflag) = 0 then set menuflag = "NO"
   @if MENUFLAG = "YES" then set FINISH = "HIDE"
   @INCLUDE("LOCAL.DAT")
   @if varexist(OZPATH) = 0 then set OZPATH = CONCAT(_hdrv,_ozbase,"\OZTERM")
   @SET FILE_C = CONCAT(DIRORMP,"12\S12_CRTN.CMD")
   @SET FILE_CB = CONCAT(DIRORMP,"12\S12_CRT2.CMD")
   @SET FILE_D = CONCAT(DIRORMP,"12\S12_DRTN.CMD")
   @SET FILE_S = CONCAT(DIRORMP,"12\S12_SLO.CMD")
   @SET FILE_U = CONCAT(DIRORMP,"12\S12_UTIL.CMD")
   @SET FILE_X = "H:\OZTERM\LOG\SLO_HIST.LOG"
   @SET FILE_L = "H:\OZTERM\LOG\SLO.LOG"
   @SET FILE_T = "H:\OZTERM\LOG\SLOT.TXT"
   @SET FILE_H = CONCAT(DIRORMP,"12\SLO_HELP.TXT")
   @SET R1692 = CONCAT(DIRORMP,"12\RRN01692.TXT")
   @SET R4035 = CONCAT(DIRORMP,"12\RRN04035.TXT")
   @SET R4263 = CONCAT(DIRORMP,"12\RRN04263.TXT")
   @SET R4917 = CONCAT(DIRORMP,"12\RRN04917.TXT")
   @SET R0527 = CONCAT(DIRORMP,"12\RRN00527.TXT")
   @SET R0052 = CONCAT(DIRORMP,"12\RRN00052.TXT")
   @SET R0065 = CONCAT(DIRORMP,"12\RRN00065.TXT")
   @SET FILE_B = CONCAT(DIRORMP,"12\S12_BNUM.CMD")
   @SET FILE_H2 = CONCAT(DIRORMP,"12\S12help.TXT")
   @SET FILE_P = CONCAT(DIRORMP,"12\S12Phelp.TXT")
   @SET FILE_P2 = CONCAT(DIRORMP,"12\S12P2hel.TXT")
   @SET FILE_M = CONCAT(DIRORMP,"12\S12Mhelp.TXT")
   @SET FILE_SP = CONCAT(DIRORMP,"12\S12Shelp.TXT")
   @SET FILE_LI = CONCAT(DIRORMP,"12\S12Lhelp.TXT")
   @SET FILE_C1 = CONCAT(DIRORMP,"12\CRN006&7.TXT")
   @SET FILE_C2 = CONCAT(DIRORMP,"12\CRN0014.TXT")
   @SET FILE_C3 = CONCAT(DIRORMP,"12\CRN0045.TXT")
   @SET FILE_C4 = CONCAT(DIRORMP,"12\CRN0157.TXT")
   @SET FILE_C5 = CONCAT(DIRORMP,"12\CRN0518.TXT")
   @SET FILE_C6 = CONCAT(DIRORMP,"12\CRN0795.TXT")
   @SET FILE_C7 = CONCAT(DIRORMP,"12\CRN4294.TXT")
   @SET FILE_C8 = CONCAT(DIRORMP,"12\CRN4296.TXT")
   @SET FILE_C9 = CONCAT(DIRORMP,"12\CRN4316.TXT")
   @SET FILE_C10 = CONCAT(DIRORMP,"12\CRN4317.TXT")
   @SET FILE_C11 = CONCAT(DIRORMP,"12\CRN5019.TXT")
   @SET FILE_C12 = CONCAT(DIRORMP,"12\CRN7420.TXT")
   @SET FILE_C13 = CONCAT(DIRORMP,"12\CRN7473.TXT")
   @SET SC = "H:\OZTERM\LOG\DSTAT6B2.EXE"
   @SET CONTINUE = ""
   @SET LAST_DN = ""
   @set LV = "Off"
   @INCLUDE(FILE_C,"CLR_VAR")
   @set product_flag = "OnRampBRA"
   @GOSUB TEST_EXCH
   @if mtype = "FD" then INCLUDE (FILE_C,"S12SELNCODE")
   @if inset(mtype,"AOM","IOG11","TW") then INCLUDE (FILE_C,"S12SELNCODE")
!--------------------------------------------------------------------------------------------------------------------------
@LABEL S12MENU
  @SET VERSS = "2.6"
  @HIDE
  @check(OFF)
  @WINDEND
  @CLRSCR
  @SET CHOIC_E = ""
  @DRAW (BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 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,'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 Number - DN            ')
  @DRAW(CUP,43,05,HIGH,'H',LOW,'elp Information ')
  @DRAW(CUP,43,06,HIGH,'R',LOW,'eport Information [B Module]')
  @IF SERVICE = "DATADIAL" THEN DRAW(INV,CUP,03,08,"Customer is A-NT1 or Datadial!")
  @ELSE IF SERVICE = "ONRAMP" THEN DRAW(INV,CUP,03,08,"Customer is OnRamp2!")
  @DRAW(BOX,03,09,41,15)
  @DRAW(INV,CUP,04,10,'LNCD',HIGH," {lncd}")
  @DRAW(LOW,CUP,14,10,"{LAS_TNS}")
  @DRAW(INV,CUP,04,11,'DN ',high,"  {dn}",CUP,22,11,LOW,"{number}")
  @DRAW(INV,CUP,25,12,'{NUMB_MSN} ',high," {cnt_msn}",INV,"*")
  @DRAW(INV,CUP,04,12,'{PNB} ',high,"  {gdn}")
  @DRAW(INV,CUP,04,13,'Class / Linetype ',high," {CUST_TYPE}")
  @DRAW(LOW,CUP,04,14,"*LHG- Only 1st MN per BA counted!")
  @DRAW(INV,CUP,30,13,'Lines ',high," {numb_dev}")
  @DRAW(BOX,43,10,70,15)
  @DRAW(LOW,CUP,44,11,INV,"{MSNDDI}",LOW," ",HIGH,"(PABX) DATA")
  @DRAW(LOW,CUP,44,12,LOW,"Low Number  = ",CUP,58,12,INV,"{LO_NUM}")
  @DRAW(LOW,CUP,44,13,LOW,"High Number = ",CUP,58,13,INV,"{HI_NUM}")
  @DRAW(LOW,CUP,44,14,LOW,"The service ",CUP,56,14,INV,"{PBX}",CUP,60,14,LOW,"in a LHG")
  @DRAW(CUP,03,16,HIGH,'TAB or Shift+TAB to move ',LOW,
        #196,' ',#17,#196,#217,LOW,' Select ')
  @DRAW (BOX,1,22,57,24)
  @DRAW(LOW,CUP,02,23,"There have been ",CUP,18,23,INV,{BLO_LI},CUP,20,23,LOW," services left disabled this session")
  @MENU(CHOIC_E,5,4,'M','S','P','U','Q','E','D','H','R')
  @CLRSCR
  @SET FILE = ''
  @IF CHOIC_E = 1 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 2 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 3 THEN GOTO S12PROVMENU
  @IF CHOIC_E = 4 THEN GOTO S12UTILMENU
  @IF CHOIC_E = 5 THEN GOTO EXIT
  @IF CHOIC_E = 6 THEN GOSUB S12SELNCODE
  @IF CHOIC_E = 7 THEN GOSUB S12SELSNB
  @IF CHOIC_E = 8 THEN GOSUB HELP
  @IF CHOIC_E = 9 THEN GOSUB S12REPTMENU
@GOTO S12MENU
@@ -------------------------------- LABELS UNIQUE TO THIS SCREEN--------------------------!
@LABEL HELP
  @VIEWFILE(FILE_H2)
  @return
!
@LABEL S12UTILMENU
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO S12MENU
  @INCLUDE(FILE_U,"START")
  @GOTO S12MENU
!
@LABEL EXIT
  @IF GET_ALMS <> "" THEN INCLUDE(FILE_C,"WNG_ALM_2")
   @set product_flag = ""
   @clrscr
!$$$$!
!-----------------------------------------------------------------------------------------------------------------!
@LABEL S12PROVMENU
  @CHECK(OFF)
  @SET JOB = 0
  @WINDEND
  @CLRSCR
  @SET CHOIC_E = ""
  @SET ERR_FLAG = 0
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 Provisioning Menu ')
  @DRAW(CUP,03,03,HIGH,'S',LOW,'pecial Maintenance Menu     ')
  @DRAW(CUP,03,04,HIGH,'M',LOW,'aintenance Menu             ')
  @DRAW(CUP,03,05,HIGH,'Q',LOW,'uit to S12 Main menu  ')
  @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,' Display & Mod Serv Subscription')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Additional DATA Operations')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Display MSN Information')
  @DRAW(CUP,43,09,HIGH,'',LOW,' ')
  @DRAW(CUP,43,10,HIGH,'',LOW,' ')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o full screen to study reports ')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - DN           ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp for Activation Main Menu   ')
  @DRAW(HIGH,CUP,03,06,'These functions are temporary changes')
  @DRAW(HIGH,CUP,03,07,'Permanent changes are via CAM & SDU')
  @DRAW(BOX,03,09,41,15)
  @DRAW(INV,CUP,04,10,'LNCD',HIGH," {lncd}")
  @DRAW(LOW,CUP,14,10,"{LAS_TNS}")
  @DRAW(INV,CUP,04,11,'DN ',high,"  {dn}",CUP,22,11,LOW,"{number}")
  @DRAW(INV,CUP,25,12,'{NUMB_MSN} ',high," {cnt_msn}")
  @DRAW(INV,CUP,04,12,'{PNB} ',high,"  {gdn}")
  @DRAW(INV,CUP,04,13,'Class / Linetype ',high," {CUST_TYPE}")
  @DRAW(INV,CUP,30,13,'Lines ',high," {numb_dev}")
  @DRAW(INV,CUP,04,14,'Current Net Add ',high," {NA_DISP} ")
  @DRAW(INV,CUP,27,14,'Eq Nbr ',high," {NBR_DISP}")
  @DRAW(CUP,03,16,HIGH,'TAB or Shift+TAB to move ',LOW,
        #196,' ',#17,#196,#217,LOW,' Select ')
  @@IF NUMB_DEV > 1 THEN GOSUB DISP_EN_NA
  @MENU(CHOIC_E,3,13,'S','M','Q','1','2','3','4','5','6','','','','G','E','D','H')
  @CLRSCR
  @IF CHOIC_E = 1 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 2 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 3 THEN GOTO S12MENU
  @IF CHOIC_E = 4 THEN GOTO DISP_CUST_DATA
  @IF CHOIC_E = 5 THEN GOTO MOD_SERV_ATT
  @IF CHOIC_E = 6 THEN GOSUB UNAV
  @IF CHOIC_E = 7 THEN GOTO MOD_SERV_SUB
  @IF CHOIC_E = 8 THEN GOTO ADD_DATA
  @IF CHOIC_E = 9 THEN GOTO DISP_MSN
  @IF CHOIC_E = 10 THEN GOSUB S12PROVMENU
  @IF CHOIC_E = 11 THEN GOSUB S12PROVMENU
  @IF CHOIC_E = 12 THEN GOTO S12PROVMENU
  @IF CHOIC_E = 13 THEN GOSUB PAUSE
  @IF CHOIC_E = 14 THEN GOSUB S12SELNCODE
  @IF CHOIC_E = 15 THEN GOSUB S12SELSNB
  @IF CHOIC_E = 16 THEN GOSUB S12_P_HELP
@GOTO S12PROVMENU
! -------------------------------- LABELS UNIQUE TO THIS SCREEN--------------------------!
!
@LABEL DISP_CUST_DATA
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12PROVMENU
  @set subsc = "CK"
  @if (DN = "") AND (GDN = "") then goto VAR_NOT_SEL_P
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @GOTO S12PROVMENU
!
@LABEL DISP_MSN
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12PROVMENU
  @SET SUBSC = "CK"
  @INCLUDE(FILE_D,"DMSN")
  @SET SUBSC = ""
  @GOTO S12PROVMENU
!
@@LABEL SEL_NEW_SNB
  @@IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @@IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12PROVMENU
  @@INCLUDE(FILE_C,"SEL_NEW_DN")
  @@INCLUDE(FILE_C,"SEL_NEW_NA_DN")
  @@GOSUB S12SELSNB2
@@GOTO S12PROVMENU
!
@LABEL MOD_SERV_ATT
  @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 changing 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 the ENTER key to return to the Provisioning Menu......")
   @windend
   @If sel_att = "B" then goto MOD_BC
   @ELSE IF sel_att = "E" then goto EASYCALL
   @ELSE IF sel_att = "M" then goto MOD_MCT
   @ELSE IF sel_att = "O" then gosub MOD_OTH
   @ELSE IF sel_att = "U" then goto MOD_UU
   @windend
   @GOTO S12PROVMENU
!
@LABEL MOD_BC
  @window
  @set sel_bc = ""
   @DRAW(CUP,26,3,INV,"MODIFY SERVICE BEARER CASES")
   @DRAW(CUP,30,4,HIGH,"[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,"Press 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 goto BC_DATA
   @ELSE IF sel_bc = "3" then goto BC_VOICE
   @ELSE IF sel_bc = "" then goto MOD_BC
   @windend
   @goto mod_serv_att
!
@LABEL BC_CLR
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_BC
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"BC_CLR")
  @GOTO MOD_BC
!
@LABEL BC_VOICE
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_BC
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"BC_VOICE")
  @GOTO MOD_BC
!
@LABEL BC_STD
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_BC
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"BC_STD")
  @GOTO MOD_BC
!
@LABEL BC_DATA
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_BC
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"BC_DATA")
  @GOTO MOD_BC
!
@LABEL EASYCALL
  @set sel_att = ""
  @window
   @DRAW(CUP,27,3,INV,"MODIFY EASYCALL FACILITIES")
   @DRAW(CUP,34,4,HIGH,"[Customer Data]")
   @DRAW(CUP,15,5,LOW,"Press ",HIGH,"1",LOW," Adds both Call Waiting and Call Hold",high,'*')
   @DRAW(CUP,15,6,LOW,"Press ",HIGH,"2",LOW," Remove Call Waiting & Call Hold",high,'*')
   @DRAW(CUP,15,7,LOW,"Press ",HIGH,"3",LOW," Call Forwarding ")
   @DRAW(CUP,15,8,LOW,"Press ",HIGH,"4",LOW," Call Deflection ")
   @DRAW(CUP,10,9,HIGH,"*",LOW," These categories can only be added to the individual MNs of lines!")
   @inkey(sel_att,"Any other key returns to the Modify Attributes Menu......")
   @windend
   @If sel_att = "1" then goto CW_CH_ON
   @ELSE IF sel_att = "2" then goto CW_CH_OFF
   @ELSE IF sel_att = "3" then GOSUB UNAV
   @ELSE IF sel_att = "4" then gosub UNAV
   @windend
   @GOTO MOD_SERV_ATT
!
@LABEL CW_CH_ON
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO EASYCALL
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"CW_CH_ON")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
@goto EASYCALL
!
@LABEL CW_CH_OFF
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO EASYCALL
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"CW_CH_OFF")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
@goto EASYCALL
!
@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 Modify Attributes Menu......")
   @windend
   @If sel_mct = "D" then goto SET_MCT_OFF
   @ELSE IF sel_mct = "E" then goto SET_MCT_ON
   @ELSE IF sel_mct = "" then goto MOD_MCT
   @windend
   @goto mod_serv_att
!
@LABEL SET_MCT_OFF
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_MCT
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"SET_MCT_OFF")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @GOTO MOD_MCT
!
@LABEL SET_MCT_ON
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO EASYCALL
  @if CMD <> "A" THEN GOTO MOD_MCT
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"SET_MCT_ON")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
  @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,"[Data 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 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 Modify Attributes Menu......")
   @windend
   @If sel_uu = "C" then goto UU_CLR
   @ELSE IF sel_uu = "1" then goto UU1
   @ELSE IF sel_uu = "2" then goto UU2
   @ELSE IF sel_uu = "3" then goto UU1_3
   @windend
   @goto mod_serv_att
!
@LABEL UU_CLR
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_UU
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"UU_CLR")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
@goto mod_uu
!
@LABEL UU1
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_UU
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"UU1")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
@goto mod_uu
!
@LABEL UU1_3
  @if CMD <> "A" THEN GOSUB NOT_AUTH
  @if CMD <> "A" THEN GOTO MOD_UU
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_C,"UU1_3")
  @INCLUDE(FILE_D,"DISP_CUST_DATA")
@goto mod_uu
!
@LABEL MOD_SERV_SUB
  @window
  @set sel_sub = ""
   @DRAW(CUP,22,2,INV,"DISPLAY & MODIFY SERVICE SUBSCRIPTION")
   @DRAW(CUP,10,3,LOW,"Press ",HIGH,"D",LOW," - To Display the Current Setttings")
   @DRAW(CUP,10,4,LOW,"Press ",HIGH,"T",LOW," - Set Point to Point [ISBPP] with permanent activation",HIGH,"*")
   @DRAW(CUP,10,5,LOW,"Press ",HIGH,"M",LOW," - Set Point to Multi-Point [ISBPMP] with demand activation",HIGH,"*")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"F",LOW," - Set Point to Multi-Point [ISBPMP] with permanent activation")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"N",LOW," - To set default Called / Calling Number types")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"H",LOW,"- For Parameter Help")
   @DRAW(CUP,43,9,HIGH,"*  Indicates defaults")
   @inkey(sel_sub,"Press any other key to return to the Modify Attributes Menu......")
   @windend
   @If sel_sub = "D" then goto DA
   @ELSE IF sel_sub = "T" then goto MOD_CUST_PP
   @ELSE IF sel_sub = "M" then goto MOD_CUST_PMP
   @ELSE IF sel_sub = "F" then goto MOD_CUST_PMP_PERM
   @ELSE IF sel_sub = "N" then gosub UNAV
   @ELSE IF sel_sub = "H" then goto PARAM_HELP
   @windend
   @GOTO S12PROVMENU
!
@LABEL DA
  @set subsc = "CK"
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @INCLUDE(FILE_D,"DA")
  @GOTO MOD_SERV_SUB
!
@LABEL MOD_CUST_PP
  @if (CMD <> "A") AND (CMD <> "S") THEN GOTO MOD_SERV_SUB
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @SET SUBSC = "CK"
  @INCLUDE(FILE_C,"MOD_CUST_PP")
  @SET SUBSC = ""
  @INCLUDE(FILE_D,"DA")
  @GOTO MOD_SERV_SUB
!
@LABEL MOD_CUST_PMP
  @if (CMD <> "A") AND (CMD <> "S") THEN GOTO MOD_SERV_SUB
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @SET SUBSC = "CK"
  @INCLUDE(FILE_C,"MOD_CUST_PMP")
  @SET SUBSC = ""
  @INCLUDE(FILE_D,"DA")
  @GOTO MOD_SERV_SUB
!
@LABEL MOD_CUST_PMP_PERM
  @if (CMD <> "A") AND (CMD <> "S") THEN GOTO MOD_SERV_SUB
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @SET SUBSC = "CK"
  @INCLUDE(FILE_C,"MOD_CUST_PMP_PERM")
  @SET SUBSC = ""
  @INCLUDE(FILE_D,"DA")
  @GOTO MOD_SERV_SUB
!
@LABEL MOD_OTH
  @CLRSCR
  @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 CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO MOD_OTH
  @if (DN = "") AND (GDN = "") then goto VAR_NOT_SEL_P
   @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,"D",LOW," - To disable AOC subscription -default")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"E",LOW," - To enable AOC subscription -option")
   @inkey(sel_oth,"Press any other key to return to the Other Attributes Menu......")
   @windend
   @GOSUB UNAV      @@@@If sel_oth = "D" then INCLUDE(FILE_C,"MOD_AOC_OFF")
   @GOSUB UNAV      @@@@ELSE IF sel_oth = "E" then INCLUDE(FILE_C,"MOD_AOC_ON")
   @windend
   @goto mod_oth
!
@LABEL MOD_CB
   @set abort = ""
   @IF CMD <> "A" THEN GOSUB NOT_AUTH
   @IF CMD <> "A" THEN GOTO MOD_OTH
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
   @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO MOD_OTH
   @gosub warn_CAM
   @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 -NA0-
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 DN = "" then goto VAR_NOT_SEL_P
   @If sel_oth = "D" then INCLUDE(FILE_C,"MOD_CB_OFF")
   @If sel_oth = "D" then GOTO MOD_OTH
   @If sel_oth = "" then GOTO MOD_OTH
   @If sel_oth <> "E" then GOTO MOD_OTH
   @DRAW(CUP,04,6,HIGH,"CBA",CUP,17,6"PCMS")
   @DRAW(CUP,04,07,LOW,"Enter ",HIGH,"0",LOW," - for ",HIGH,"NA0",LOW," - Default - Full network access.")
   @DRAW(CUP,04,08,LOW,"Enter ",HIGH,"1",LOW," - for ",HIGH,"NA000",LOW," - Emergency access.")
   @DRAW(CUP,04,09,LOW,"Enter ",HIGH,"2",LOW," - for ",HIGH,"NA1",LOW," -
Access LOCAL only")
   @DRAW(CUP,04,10,LOW,"Enter ",HIGH,"3",LOW," - for ",HIGH,"NA2",LOW," -
Access LOCAL, STO")
   @DRAW(CUP,04,11,LOW,"Enter ",HIGH,"4",LOW," - for ",HIGH,"NA3",LOW," -
Access LOCAL, STO, STD, 190")
   @DRAW(CUP,04,12,LOW,"Enter ",HIGH,"5",LOW," - for ",HIGH,"NA4",LOW," - Access LOCAL, STO, STD, 005, 190")
   @DRAW(CUP,04,13,LOW,"Enter ",HIGH,"6",LOW," - for ",HIGH,"NA5",LOW," - Access LOCAL, STO, STD, IDD, 190")
   @DRAW(CUP,04,14,LOW,"Enter ",HIGH,"7",LOW," - for ",HIGH,"NA6",LOW,"- Access LOCAL, STD, IDD, 005, 190")
   @DRAW(CUP,04,15,LOW,"Enter ",HIGH,"8",LOW," - for ",HIGH,"NA7",LOW,"- Access LOCAL, STD, 005, 190")
   @DRAW(CUP,04,16,LOW,"Enter ",HIGH,"9",LOW," - for ",HIGH,"NA8",LOW,"- Access LOCAL, STO, STD")
   @DRAW(CUP,04,17,LOW,"Enter ",HIGH,"10",LOW," - for ",HIGH,"NA9",LOW," - Access  LOCAL, STO, STD, IDD")
!
!
@LABEL CONT_MOD_CB
   @SET CBA = ""
   @DRAW(CUP,25,6,"Insert value 1 to 10 or A to abort")
   @FORM(60,6,2,CBA)
   @if CBA = "A" THEN GOTO  MOD_OTH
   @IF CBA > 10 THEN DRAW(CUP,25,6,HIGH,"Value out of range - re-enter!                 ")
   @IF CBA > 10 THEN DELAYSEC(3)
   @IF CBA > 10 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 GOSUB SET_CBA
   @IF CBA <> "" THEN INCLUDE(FILE_C,"MOD_CB_ON")
   @GOTO MOD_OTH
!
@label SET_CBA
   @IF CBA = "1" THEN SET CB_PARAM = "ADD&PERM&EMERG"
   @IF CBA = "2" THEN SET CB_PARAM = "ADD&PERM&LOCAL"
   @IF CBA = "3" THEN SET CB_PARAM = "ADD&PERM&TO"
   @IF CBA = "4" THEN SET CB_PARAM = "ADD&PERM&STDTOPRS"
   @IF CBA = "5" THEN SET CB_PARAM = "ADD&PERM&STDVASTO"
   @IF CBA = "6" THEN SET CB_PARAM = "ADD&PERM&IDDTOPRS"
   @IF CBA = "7" THEN SET CB_PARAM = "ADD&PERM&IDDVAS"
   @IF CBA = "8" THEN SET CB_PARAM = "ADD&PERM&STDVAS"
   @IF CBA = "9" THEN SET CB_PARAM = "ADD&PERM&STDTO"
   @IF CBA = "10" THEN SET CB_PARAM = "ADD&PERM&IDDTO"
   @RETURN
!
@LABEL MOD_CLI
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO MOD_OTH
  @IF (DN = "") THEN GOTO VAR_NOT_SEL_P
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO MOD_OTH
  @set sel_oth = ""
   @window
   @DRAW(CUP,18,3,INV,"DISPLAY & MODIFY CALLING LINE IDENTIFICATION")
   @DRAW(CUP,31,4,HIGH,"[Other Customer Data]")
   @DRAW(CUP,05,5,"Press ",HIGH,"1",LOW," - Remove CLIR -ALWAYS PRESENTS- Restrict on call by call [default]")
   @DRAW(CUP,05,6,"Press ",HIGH,"2",LOW," - Set CLIR -ALWAYS RESTRICTS- Present on call by call [option]")
   @DRAW(CUP,05,7,"Press ",HIGH,"3",LOW," - Remove CLIP - removes CLI Presentation -default")
   @DRAW(CUP,05,8,"Press ",HIGH,"4",LOW," - Set CLIP - sets CLI Presentation -
option")
   @DRAW(CUP,05,9,"For CLIR & CLIP, CFE will first default the service then undertake changes!")
  
   @inkey(sel_oth,"Press any other key to return to the Other Attributes Menu......")
   @windend
   @If sel_oth = "1" then INCLUDE(FILE_C,"MOD_CLIR_OFF")
   @ELSE IF sel_oth = "2" then INCLUDE(FILE_C,"MOD_CLIR_ON")
   @ELSE IF sel_oth = "3" then INCLUDE(FILE_C,"MOD_CLIP_OFF")
   @ELSE IF sel_oth = "4" then INCLUDE(FILE_C,"MOD_CLIP_ON")
   @windend
   @goto mod_oth
!
@LABEL MOD_SUBAD
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO MOD_OTH
  @IF (DN = "") 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 gosub UNAV
   @ELSE IF sel_oth = "E" then gosub UNAV
   @windend
   @goto mod_oth
!
!
@LABEL ADD_DATA
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO MOD_OTH
  @set sel_att = ""
  @window
   @DRAW(CUP,28,3,INV,"ADDITIONAL DATA FUNCTIONS")
   @DRAW(CUP,30,4,HIGH,"[More Customer Data]")
   @DRAW(CUP,10,6,LOW,"Press ",HIGH,"B",LOW," - Blocking Supervision Functions ")
   @DRAW(CUP,10,7,LOW,"Press ",HIGH,"C",LOW," - Channel - Sub Route Functions")
   @DRAW(CUP,10,8,LOW,"Press ",HIGH,"E",LOW," - Edit Ext Numb Valadation Data")
   @inkey(sel_att,"Any other key returns to the Provisioning Menu......")
   @windend
   @If sel_att = "B" then goto CHECK_BLOCK
   @ELSE IF sel_att = "C" then goto CHECK_SUBRT
   @ELSE IF sel_att = "E" then goto CHECK_ENV_DATA
   @windend
   @GOTO S12PROVMENU
!
@LABEL CHECK_BLOCK
  @GOSUB UNAV 
  @GOTO ADD_DATA
!
@LABEL CHECK_SUBRT
  @GOSUB UNAV
   @GOTO ADD_DATA
!
@LABEL CHECK_ENV_DATA
  @GOSUB UNAV
   @GOTO ADD_DATA
!
@LABEL S12_P_HELP
  @VIEWFILE(FILE_P)
  @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 OnRamp2")
  @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_CAM
  @HIDE
  @WINDOW
  @CLRSCR
  @DRAW(BOX,18,4,59,6,INV,CUP,20,5,'This Function is normally set via CAM')
  @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 VAR_NOT_SEL_P
   @CLRSCR
   @WINDOW
   @draw(CUP,15,5,HIGH,"Wait a minute! You haven't entered a DN yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto S12PROVMENU
!
!-------------------------------------------------------------------------------------------------------------------------
@LABEL S12MAINTMENU
  @CHECK(OFF)
  @WINDEND
  @CLRSCR
  @SET CHOIC_E = ""
  @SET ERR_FLAG = 0
  @SET JOB = 0
  @DRAW(BOX,1,1,80,17)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 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 S12 Main menu  ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Display Line Status ')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Display Fault Status  ')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Display Call Status ')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Verify Line (quick)')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Verify Line (full)')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Disable Line        ')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Initialise Line       ')
  @DRAW(CUP,43,13,HIGH,'G',LOW,'o to full screen to study reports   ')
  @DRAW(CUP,43,14,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,15,HIGH,'D',LOW,'irectory Number - DN        ')
  @DRAW(CUP,43,16,HIGH,'H',LOW,'elp for Maintenance Menu   ')
  @DRAW(BOX,03,09,41,15)
  @DRAW(INV,CUP,04,10,'LNCD',HIGH," {lncd}")
  @DRAW(LOW,CUP,14,10,"{LAS_TNS}")
  @DRAW(INV,CUP,04,11,'DN ',high,"  {dn}",CUP,22,11,LOW,"{number}")
  @DRAW(INV,CUP,25,12,'{NUMB_MSN} ',high," {cnt_msn}")
  @DRAW(INV,CUP,04,12,'{PNB} ',high,"  {gdn}")
  @DRAW(INV,CUP,04,13,'Class / Linetype ',high," {CUST_TYPE}")
  @DRAW(INV,CUP,30,13,'Lines ',high," {numb_dev}")
  @DRAW(INV,CUP,04,14,'Current Nett Add ',high," {NA_DISP} ")
  @DRAW(INV,CUP,27,14,'Eq Nbr ',high," {NBR_DISP}")
  @DRAW(HIGH,CUP,03,17,' TAB or Shift+TAB',LOW,' to move ',
       #196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF NUMB_DEV > 1 THEN GOSUB DISP_EN_NA
  @MENU(CHOIC_E,3,14,'S','P','Q','1','2','3','4','5','6','7','','','','G','E','D','H')
  @CLRSCR
  @IF CHOIC_E = 1 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 2 THEN GOTO S12PROVMENU
  @IF CHOIC_E = 3 THEN GOTO S12MENU
  @IF CHOIC_E = 4 THEN GOTO DISP_LINE_STAT
  @IF CHOIC_E = 5 THEN GOTO DISP_FAULT_STAT
  @IF CHOIC_E = 6 THEN GOTO GET_CALL_STAT
  @IF CHOIC_E = 7 THEN GOTO TEST_ISDN
  @IF CHOIC_E = 8 THEN GOTO TEST_ISDN_LONG
  @IF CHOIC_E = 9 THEN GOTO DL
  @IF CHOIC_E = 10 THEN GOTO IL
  @IF CHOIC_E = 11 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 12 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 13 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 14 THEN GOSUB PAUSE
  @IF CHOIC_E = 15 THEN GOSUB S12SELNCODE
  @IF CHOIC_E = 16 THEN GOSUB S12SELSNB
  @IF CHOIC_E = 17 THEN GOTO S12_M_HELP
@GOTO S12MAINTMENU
@@ -------------------------------- LABELS UNIQUE TO THIS SCREEN--------------------------!
@LABEL DISP_LINE_STAT
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto DISP_LINE_STAT_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "I" THEN INCLUDE(FILE_C,"DISP_LINE_STAT")
  @ELSE IF DUMMY <> "I" THEN INCLUDE(FILE_C,"DISP_LINE_STAT_ALL")
  @GOTO S12MAINTMENU
@LABEL DISP_LINE_STAT_2
  @INCLUDE(FILE_C,"DISP_LINE_STAT")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL DISP_FAULT_STAT
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto DISP_FAULT_STAT_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "I" THEN INCLUDE(FILE_C,"DISP_FAULT_STAT")
  @ELSE IF DUMMY <> "I" THEN INCLUDE(FILE_C,"DISP_FAULT_STAT_ALL")
  @GOTO S12MAINTMENU
@LABEL DISP_FAULT_STAT_2
  @INCLUDE(FILE_C,"DISP_FAULT_STAT")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL GET_CALL_STAT
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto CONT_GET_CALL_STAT
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "I" THEN INCLUDE(FILE_C,"GET_CALL_STAT_IND")
  @ELSE IF DUMMY <> "I" THEN INCLUDE(FILE_C,"GET_CALL_STAT_ALL")
  @GOTO S12MAINTMENU
@LABEL CONT_GET_CALL_STAT
  @INCLUDE(FILE_C,"GET_CALL_STAT")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL DL
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MAINTMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if CMD <> "A" THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto DL_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "" THEN GOTO S12MAINTMENU
  @IF DUMMY = "I" THEN INCLUDE(FILE_C,"DL")
  @ELSE IF DUMMY <> "I" THEN INCLUDE(FILE_C,"DL_ALL")
  @GOTO S12MAINTMENU
@LABEL DL_2
  @INCLUDE(FILE_C,"DL")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL IL
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MAINTMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto IL_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "" THEN GOTO S12MAINTMENU
  @IF DUMMY = "I" THEN INCLUDE(FILE_C,"IL")
  @ELSE IF DUMMY <> "I" THEN INCLUDE(FILE_C,"IL_ALL")
  @GOTO S12MAINTMENU
@LABEL IL_2
  @INCLUDE(FILE_C,"IL")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL TEST_ISDN_LONG
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MAINTMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto TEST_ISDN_LONG_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "" THEN GOTO S12MAINTMENU
  @IF DUMMY <> "I" THEN INCLUDE(FILE_C,"VL_ALL")
  @ELSE IF DUMMY = "I" THEN GOTO TEST_ISDN_LONG_2
  @GOTO S12MAINTMENU
@LABEL TEST_ISDN_LONG_2
  @INCLUDE(FILE_C,"VL")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL TEST_ISDN
  @IF DN = "" THEN GOTO VAR_NOT_SEL_M
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MAINTMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MAINTMENU
  @if numb_dev = "1" then goto TEST_ISDN_2
  @set dummy = ""
  @DRAW(BOX,02,02,20,8,CUP,05,03,INV,"WHICH LINE",cup,03,04,LOW,"Press ",HIGH,"ENTER",CUP,03,5,LOW,"to test all lines",CUP,03,06,"Press ",HIGH,"I",LOW," to test",CUP,03,07,"Individuals" )
  @FORM(16,7,1,dummy)
  @clrscr
  @IF DUMMY = "" THEN GOTO S12MAINTMENU
  @IF DUMMY <> "I" THEN INCLUDE(FILE_C,"TEST_ISDN_ALL")
  @ELSE IF DUMMY = "I" THEN GOTO TEST_ISDN_2
  @GOTO S12MAINTMENU
@LABEL TEST_ISDN_2
  @INCLUDE(FILE_C,"TEST_ISDN")
  @GOTO S12MAINTMENU
!---------------------------!
@LABEL S12_M_HELP
  @VIEWFILE(FILE_M)
  @GOTO S12MAINTMENU
!
@LABEL VAR_NOT_SEL_M
   @CLRSCR
   @WINDOW
   @draw(CUP,15,5,HIGH,"Wait a minute! You haven't entered a DN yet ...")
   @DRAW(HIGH,CUP,24,8,"Press Any Key to Continue ....")
   @INKEY ()
   @windend
   @goto S12MAINTMENU
!
!-------------------------------------------------------------------------------------------------------------------------
@LABEL S12SPECMENU
  @HIDE
  @CHECK(OFF)
  @WINDEND
  @CLRSCR
  @SET JOB = 0
  @SET CHOIC_E = " "
  @SET ERR_FLAG = 0
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 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 S12 Main Menu              ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' QM-Quality Measurements')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' PM-Protocol & Bchannel Monitor',HIGH,'*')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' MDR-Maintenance Data (alarms)')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Customer Supv & Numb functions')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Test External Line [Batt,IR,CAP]')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' B number analysis')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Identify customers in a module')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study reports   ')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'D',LOW,'irectory Number - DN              ')
  @DRAW(CUP,43,15,HIGH,'H',LOW,'elp this menu ',HIGH,'* Bmon unavailable')
  @DRAW(BOX,03,09,41,15)
  @DRAW(INV,CUP,04,10,'LNCD',HIGH," {lncd}")
  @DRAW(LOW,CUP,14,10,"{LAS_TNS}")
  @DRAW(INV,CUP,25,12,'{NUMB_MSN} ',high," {cnt_msn}")
  @DRAW(INV,CUP,04,11,'DN ',high,"  {dn}",CUP,22,11,LOW,"{number}")
  @DRAW(INV,CUP,04,12,'{PNB} ',high,"  {gdn}")
  @DRAW(INV,CUP,04,13,'Class / Linetype ',high," {CUST_TYPE}")
  @DRAW(INV,CUP,30,13,'Lines ',high," {numb_dev}")
  @DRAW(INV,CUP,04,14,'Current Nett Add ',high," {NA_DISP} ")
  @DRAW(INV,CUP,27,14,'Eq Nbr ',high," {NBR_DISP}")
  @DRAW(HIGH,CUP,03,16,' TAB or Shift+TAB',LOW,' to move ',
       #196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF NUMB_DEV > 1 THEN GOSUB DISP_EN_NA
  @MENU(CHOIC_E,3,12,'M','P','Q','1','2','3','4','5','6','7','','G','E','D','H')
  @CLRSCR
  @IF CHOIC_E = 1 THEN GOTO S12MAINTMENU
  @IF CHOIC_E = 2 THEN GOTO S12PROVMENU
  @IF CHOIC_E = 3 THEN GOTO S12MENU
  @IF CHOIC_E = 4 THEN GOTO S12_SAS42
  @IF CHOIC_E = 5 THEN GOTO S12_SLO
  @IF CHOIC_E = 6 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 7 THEN GOSUB UNAV
  @IF CHOIC_E = 8 THEN GOTO S12LINEMENU
  @IF CHOIC_E = 9 THEN GOTO BNUM
  @IF CHOIC_E = 10 THEN GOTO CHECK_MODULE
  @IF CHOIC_E = 11 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 12 THEN GOSUB PAUSE
  @IF CHOIC_E = 13 THEN GOSUB S12SELNCODE
  @IF CHOIC_E = 14 THEN GOSUB S12SELSNB
  @IF CHOIC_E = 15 THEN GOTO S12_S_HELP
@GOTO S12SPECMENU
@@ -------------------------------- LABELS UNIQUE TO THIS SCREEN--------------------------!
@LABEL BNUM
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO S12SPECMENU
  @set old_lncd = lncd
  @INCLUDE(FILE_B,"BNUM")
  @SET LNCD = TRIM(GETDEST())
  @IF LNCD <> OLD_LNCD THEN CLOSE
  @IF LNCD <> OLD_LNCD THEN LOG(LNCD)
  @GOTO S12SPECMENU
!---------------------------!
@LABEL CHECK_MODULE  
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12SPECMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12SPECMENU
  @INCLUDE(FILE_C,"CHECK_MODULE")
  @GOTO S12SPECMENU
!---------------------------!
@LABEL S12_SAS42
  @INCLUDE(FILE_C,"S12_SAS42")
  @GOTO S12SPECMENU
!---------------------------!
@LABEL S12_SLO
  @IF CMD <> "A" THEN GOSUB NOT_AUTH
  @IF CMD <> "A" THEN GOTO S12SPECMENU
  @INCLUDE(FILE_S,"S12SLOMENU")
  @GOTO S12SPECMENU
!---------------------------!
@LABEL S12_NOTIMP
  @INCLUDE(FILE_C,"S12_NOTIMP")
  @RETURN
!---------------------------!
@LABEL S12_S_HELP
  @VIEWFILE(FILE_SP)
  @GOTO S12SPECMENU
!-----------------------------------------------------------!
!
@LABEL S12MDRMENU
  @check(OFF)
  @HIDE
  @CLRSCR
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 Maintenance Data Sub Menu ')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Special Maintenance Menu ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Check for L1 alarms in exch')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Check for L2 alarms in exch')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Check for L3 alarms in exch')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Cancel [1,2 or 3] Check Alarms')
  @DRAW(CUP,43,12,HIGH,'G',LOW,'o to full screen to study reports')
  @DRAW(CUP,43,13,HIGH,'E',LOW,'xchange - Change to or Log Off!')
  @DRAW(CUP,43,14,HIGH,'H',LOW,'elp for this Menu        ')
  @DRAW(BOX,03,10,40,15)
  @DRAW(INV,CUP,04,11,'LNCD',high," {lncd}")
  @DRAW(INV,CUP,04,12,'DN ',high,"  ALL  ")
  @DRAW(INV,CUP,20,11,'Dev Type',high,"    ISTB")
  @DRAW(HIGH,CUP,03,16,' TAB or Shift+TAB',LOW,' to move ',
       #196,' ',HIGH,#17,#196,#217,LOW,' Select ')
!  @GOSUB SHOW_DEV
  @MENU(CHOIC_E,1,12,'R','1','2','3','4','','','','','','G','E','H')
  @CLRSCR
  @set file = ''
  @IF CHOIC_E = 1 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 2 THEN GOTO GET_L1_ALM_TYPE
  @IF CHOIC_E = 3 THEN GOTO GET_L2_ALM_TYPE
  @IF CHOIC_E = 4 THEN GOSUB UNAV
  @IF CHOIC_E = 4 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 5 THEN GOTO GET_ALM_CANC
  @IF CHOIC_E = 6 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 7 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 8 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 9 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 10 THEN GOTO S12MDRMENU
  @IF CHOIC_E = 11 THEN GOSUB PAUSE
  @IF CHOIC_E = 12 THEN GOSUB SELNCODE
  @IF CHOIC_E = 13 THEN GOSUB MDR_HELP
  @IF FILE = ''  THEN GOTO S12MDRMENU
  @GOTO S12MDRMENU
@@------ LABELS UNIQUE TO THIS SCREEN----------------------!
!---------------------------!
@LABEL GET_L1_ALM_TYPE
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MDRMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MDRMENU
  @INCLUDE(FILE_C,"GET_L1_ALM_TYPE")
  @GOTO S12MDRMENU
!---------------------------!
@LABEL GET_L2_ALM_TYPE
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MDRMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MDRMENU
  @INCLUDE(FILE_C,"GET_L2_ALM_TYPE")
  @GOTO S12MDRMENU
!---------------------------!
@LABEL GET_ALM_CANC
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12MDRMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12MDRMENU
  @INCLUDE(FILE_C,"GET_ALM_CANC")
  @GOTO S12SMDRMENU
!---------------------------!
@LABEL MDR_HELP
  @VIEWFILE(FILE_SP)
  @GOTO S12MDRMENU
!-------------------------------------------------------------------------------------------------------------------------
@LABEL S12LINEMENU
  @HIDE
  @CHECK(OFF)
  @WINDEND
  @CLRSCR
  @SET JOB = 0
  @SET CHOIC_E = " "
  @SET ERR_FLAG = 0
  @DRAW(BOX,1,1,80,16)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 Line Test Menu      ')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Special Menu     ')
  @DRAW(CUP,43,03,HIGH,'1',LOW,' Check Exchange Port for Fault')
  @DRAW(CUP,43,04,HIGH,'2',LOW,' Check for Foreign Battery (FB)')
  @DRAW(CUP,43,05,HIGH,'3',LOW,' Check for Insulation Res (IR)')
  @DRAW(CUP,43,06,HIGH,'4',LOW,' Default (Check FB&IR&CAP)')
  @DRAW(CUP,43,07,HIGH,'5',LOW,' Full Verify [2 min] Test')
  @DRAW(CUP,43,08,HIGH,'6',LOW,' Package (Default) Tests')
  @DRAW(CUP,43,09,HIGH,'7',LOW,' Basic Access (PBX) Test')
  @DRAW(CUP,43,10,HIGH,'8',LOW,' Check FB (PBX) Test')
  @DRAW(CUP,43,11,HIGH,'9',LOW,' Check IR (PBX) Test')
  @DRAW(CUP,43,13,HIGH,'G',LOW,'o to full screen to study reports   ')
  @DRAW(CUP,43,14,HIGH,'H',LOW,'elp for Line Test Menu  ')
  @DRAW(BOX,03,09,41,15)
  @DRAW(INV,CUP,04,10,'LNCD',HIGH," {lncd}")
  @DRAW(LOW,CUP,14,10,"{LAS_TNS}")
  @DRAW(INV,CUP,04,11,'DN ',high,"  {dn}",CUP,22,11,LOW,"{number}")
  @DRAW(INV,CUP,25,12,'{NUMB_MSN} ',high," {cnt_msn}")
  @DRAW(INV,CUP,04,12,'{PNB} ',high,"  {gdn}")
  @DRAW(INV,CUP,04,13,'Class / Linetype ',high," {CUST_TYPE}")
  @DRAW(INV,CUP,30,13,'Lines ',high," {numb_dev}")
  @DRAW(INV,CUP,04,14,'Current Nett Add ',high," {NA_DISP} ")
  @DRAW(INV,CUP,27,14,'Eq Nbr ',high," {NBR_DISP}")
  @DRAW(BOX,03,17,43,22)
  @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")
  @DRAW(HIGH,CUP,03,16,' TAB or Shift+TAB',LOW,' to move ',
       #196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF NUMB_DEV > 1 THEN GOSUB DISP_EN_NA
  @MENU(CHOIC_E,1,12,'R','1','2','3','4','5','6','7','8','9','','G','H')
  @CLRSCR
  @IF CHOIC_E = 1 THEN GOTO S12SPECMENU
  @IF CHOIC_E = 2 THEN GOTO TEST_PORT
  @IF CHOIC_E = 3 THEN GOTO TEST_FB
  @IF CHOIC_E = 4 THEN GOTO TEST_IR
  @IF CHOIC_E = 5 THEN GOTO TEST_DEF
  @IF CHOIC_E = 6 THEN GOTO VL
  @IF CHOIC_E = 7 THEN GOTO TEST_PKG
  @IF CHOIC_E = 8 THEN GOTO TEST_PBX_LINE
  @IF CHOIC_E = 9 THEN GOTO TEST_PBX_FB
  @IF CHOIC_E = 10 THEN GOTO TEST_PBX_IR
  @IF CHOIC_E = 11 THEN GOTO S12LINEMENU
  @IF CHOIC_E = 12 THEN GOSUB PAUSE
  @IF CHOIC_E = 13 THEN GOTO S12_L_HELP
@GOTO S12LINEMENU
@@ -------------------------------- LABELS UNIQUE TO THIS SCREEN--------------------------!
@LABEL TEST_PBX_FB
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_PBX_FB")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_PBX_IR
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_PBX_IR")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_PBX_LINE
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_PBX_LINE")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_PORT
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_PORT")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_FB
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_FB")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_IR
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_IR")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_DEF
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_DEF")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL TEST_PKG
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"TEST_PKG")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL VL
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOSUB NOT_AUTH
  @IF (CMD <> "A") AND (CMD <> "S") THEN GOTO S12LINEMENU
  @IF (CUST_TYPE <> "ISDN") AND (CUST_TYPE <> "ISDNSUB") THEN GOTO S12LINEMENU
  @INCLUDE(FILE_C,"VL")
  @GOTO S12LINEMENU
!---------------------------!
@LABEL S12_L_HELP
  @VIEWFILE(FILE_LI)
  @GOTO S12LINEMENU
!!!---------------COMMON TO ALL LABELS-------------------------!
!---------------------------!
@LABEL ACTWNG
  @WINDOW
  @DRAW(CUP,20,03,INV,"SERVICE IS GDN OF A MSN LINE HUNT GROUP")
  @DRAW(CUP,10,05,HIGH,"{GDN}",LOW," Cannot be used to change activation!" )
  @INKEY(DUMMY,"Press any key to return to Provisioning Menu")
  @WINDEND
  @GOTO S12PROVMENU
!---------------------------!
@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 S12SELNCODE
  @INCLUDE(FILE_C,"CLR_VAR")
  @INCLUDE(FILE_C,"S12SELNCODE")
  @SET LNCD = TRIM(GETDEST())
  @IF CONTINUE = "NO" THEN GOTO EXIT
  @RETURN

!---------------------------!
@LABEL S12SELSNB
  @SET LAST_DN = DN
  @INCLUDE(FILE_C,"CLR_VAR")
  @SET DN = LAST_DN
  @INCLUDE(FILE_C,"S12SELSNB")
  @if numb_dev = "1" then set na_disp = NA
  @if (gdn <> "") and (dn = gdn) and (numb_dev <> 1) then set na_disp = "NC"
  @if (gdn <> "") and (dn <> gdn) then set na_disp = NA
  @if numb_dev = "1" then set nbr_disp = NBR
  @if (gdn <> "") and (dn = gdn) and (numb_dev <> 1) then set nbr_disp = "NC"
  @if (gdn <> "") and (dn <> gdn) then set nbr_disp = NBR
  @RETURN
!
!---------------------------!
@LABEL WHICH_EN_NA
  @INCLUDE(FILE_C,"WHICH_EN_NA")
  @RETURN
!---------------------------!
@LABEL PAUSE
  @SET DUMMY = ""
  @CLRSCR
  @INKEY(DUMMY,"Use R to return to CFE - Page Up or Down to scroll!")
  @IF DUMMY = "R" THEN RETURN 
  @IF DUMMY <> "R" THEN GOTO PAUSE
!$$$$!
!---------------------------!
@LABEL NOTIMP
  @INCLUDE(FILE_C,"s12_NOTIMP")
  @RETURN
!-------------------------------------------------------------------------------------------------------------------------
@LABEL S12REPTMENU
  @HIDE
  @CHECK(OFF)
  @DRAW(BOX,1,1,80,25)
  @CLRSCR
  @SET JOB = 0
  @SET CHOIC_E = " "
  @SET ERR_FLAG = 0
  @DRAW(BOX,1,1,80,23)
  @DRAW(INV,CUP,03,1,' -S12- OnRamp2 Operator Requested Job & Report Menu      ')
  @DRAW(CUP,03,02,HIGH,'Operator Requested Job',CUP,43,02,HIGH,'Associated Report')
  @DRAW(CUP,03,03,HIGH,'R',LOW,'eturn to Main Menu     ')
  @DRAW(CUP,03,04,HIGH,'1',LOW,'  DP 6&7  -DISABLE & INITIALISE')
  @DRAW(CUP,03,05,HIGH,'2',LOW,'  DP 14   -VERIFY ')
  @DRAW(CUP,03,06,HIGH,'3',LOW,'  DP 45   -DISPLAY SBL DATA')
  @DRAW(CUP,03,07,HIGH,'4',LOW,'  DP 157  -DISPLAY LINE STATUS ')
  @DRAW(CUP,03,08,HIGH,'5',LOW,'  DP 518  -EXECUTE MANUAL LINE TEST')
  @DRAW(CUP,03,09,HIGH,'6',LOW,'  DP 795  -DISPLAY DESTINATION')
  @DRAW(CUP,03,10,HIGH,'7',LOW,'  DP 4294 -MODIFY SUBSCRIBER')
  @DRAW(CUP,03,11,HIGH,'8',LOW,'  DP 4296 -DISPLAY SUBSCRIBER')
  @DRAW(CUP,03,12,HIGH,'9',LOW,'  DP 4316 -MODIFY PABX FACILITY')
  @DRAW(CUP,03,13,HIGH,'A',LOW,'  DP 4317 -DISPLAY PABX FACILITY')
  @DRAW(CUP,03,14,HIGH,'B',LOW,'  DP 5019 -DISPLAY BA ALARMS')
  @DRAW(CUP,03,15,HIGH,'C',LOW,'  DP 7420 -DISPLAY CONNECTION')
  @DRAW(CUP,03,16,HIGH,'D',LOW,'  DP 7473 -DISPLAY ROUTE TASK')
  @DRAW(CUP,43,04,HIGH,'E',LOW,' RRN 0052 SBL MANAGEMENT')
  @DRAW(CUP,43,05,HIGH,'F',LOW,' RRN 0065 SBL DISPLAY SBL REPT')
  @DRAW(CUP,43,06,HIGH,'G',LOW,' RRN 0527 MANUAL LINE TEST RESULT')
  @DRAW(CUP,43,07,HIGH,'H',LOW,' RRN 4035 DISPLAY LINE STATUS REPT')
  @DRAW(CUP,43,08,HIGH,'I',LOW,' RRN 4263 SUBSCRIBER ADMINISTRATION')
  @DRAW(CUP,43,09,HIGH,'J',LOW,' RRN 4917 DISPLAY BA ALARMS REPT')
  @DRAW(HIGH,CUP,03,24,' TAB or Shift+TAB',LOW,' to move ',
       #196,' ',HIGH,#17,#196,#217,LOW,' Select ')
  @@IF NUMB_DEV > 1 THEN GOSUB DISP_EN_NA
  @MENU(CHOIC_E,14,6,'R','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J')
  @CLRSCR
  @IF CHOIC_E = 1 THEN GOTO S12MENU
  @IF CHOIC_E = 2 THEN VIEWFILE(FILE_C1)
  @IF CHOIC_E = 3 THEN VIEWFILE(FILE_C2)
  @IF CHOIC_E = 4 THEN VIEWFILE(FILE_C3)
  @IF CHOIC_E = 5 THEN VIEWFILE(FILE_C4)
  @IF CHOIC_E = 6 THEN VIEWFILE(FILE_C5)
  @IF CHOIC_E = 7 THEN VIEWFILE(FILE_C6)
  @IF CHOIC_E = 8 THEN VIEWFILE(FILE_C7)
  @IF CHOIC_E = 9 THEN VIEWFILE(FILE_C8)
  @IF CHOIC_E = 10 THEN VIEWFILE(FILE_C9)
  @IF CHOIC_E = 11 THEN VIEWFILE(FILE_C10)
  @IF CHOIC_E = 12 THEN VIEWFILE(FILE_C11)
  @IF CHOIC_E = 13 THEN VIEWFILE(FILE_C12)
  @IF CHOIC_E = 14 THEN VIEWFILE(FILE_C13)
  @IF CHOIC_E = 15 THEN VIEWFILE(R0052)
  @IF CHOIC_E = 16 THEN VIEWFILE(R0065)
  @IF CHOIC_E = 17 THEN VIEWFILE(R0527)
  @IF CHOIC_E = 18 THEN VIEWFILE(R4035)
  @IF CHOIC_E = 19 THEN VIEWFILE(R4263)
  @IF CHOIC_E = 20 THEN VIEWFILE(R4917)
  @GOTO S12REPTMENU
!-------------------------!
@LABEL TEST_EXCH
  @SET MTYPE = TRIM(GETMODE())
  @if inset(mtype,"SYS12","S12FD","SYS") then INCLUDE (FILE_C,"TESTS12")
  @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 S12-T 004 534 Iss ")
  @INKEY(DUMMY,"Press any key to continue!")
  @WINDEND
  @CLRSCR
  @RETURN
!
@LABEL NOT_AUTH
  @DRAW(BOX,18,19,61,21)
  @DRAW(CUP,19,20,INV,"TASK NOT AUTHORISED FOR THIS ACCESS LEVEL!")
  @DELAYSEC(3)
  @CLRSCR
  @RETURN
!
!!END OF FILE
!$$$$!
