Scribd
Upload
120 views

Current Location 19

The document contains code that 1) connects to various MSS systems to retrieve mobile subscriber data using their phone number, IMSI, IMEI, and other identifiers, 2) writes the retrieved data to a text file, and 3) determines the subscriber's current location using the MTV number or location hex code. It appears to be looping through a list of phone numbers to gather this information from multiple MSS systems and store it in a centralized file.

Uploaded by

watandost
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
120 views

Current Location 19

The document contains code that 1) connects to various MSS systems to retrieve mobile subscriber data using their phone number, IMSI, IMEI, and other identifiers, 2) writes the retrieved data to a text file, and 3) determines the subscriber's current location using the MTV number or location hex code. It appears to be looping through a list of phone numbers to gather this information from multiple MSS systems and store it in a centralized file.

Uploaded by

watandost
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 10

@SET S=0

@SET IMSI=0
@SET EME=0
@SET MN=0
@SET MSC=0
@SET MTV=0
@SET VARN=0
@ERASE("TIGER.TXT")
@SET FILEN="TIGER.TXT"
@OPENREAD("MTN")
@SET i=(GETFILELENGTH("MTN")-1)
@FOR g=1 to i
@READ(CONT[i])
@CONNECT("KBMSS1")

MGBIP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")

@SET IMSIS=TRIM(COPY(REPLY(I+1),1,15))
@IF (IMSIS>0) THEN
@SET BID=TRIM(COPY(REPLY(I+1),18,10))

aploc;
mml -cp BC{BID}

MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@IF (S>0) THEN
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : KBMSS1")
@WRITE(FILEN,"MSS NAME : KBMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@ENDIF
@GOSUB CELL_DETAILS

@ELSE

@CONNECT("KBMSS2")

MGBIP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")

@SET IMSIS=TRIM(COPY(REPLY(I+1),1,15))
@IF (IMSIS>0) THEN
@SET BID=TRIM(COPY(REPLY(I+1),18,10))

aploc;
mml -cp BC{BID}

MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@IF (S>0) THEN
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : KBMSS2")
@WRITE(FILEN,"MSS NAME : KBMSS2")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@ENDIF
@GOSUB CELL_DETAILS
@ELSE

@CONNECT("JAMSS1")
MGTRP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")
@SET IMSIS=TRIM(COPY(REPLY(I+4),19,15))
@IF (IMSIS>0) THEN
MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@WRITE(FILEN, " ")
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : JAMSS1")
@WRITE(FILEN,"MSS NAME : JAMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@GOSUB CELL_DETAILS
@@ENDIF

@ELSE

@CONNECT("KDMSS1")
MGTRP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")
@SET IMSIS=TRIM(COPY(REPLY(I+4),19,15))
@IF (IMSIS>0) THEN
MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@WRITE(FILEN, " ")
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : KDMSS1")
@WRITE(FILEN,"MSS NAME : KDMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@GOSUB CELL_DETAILS
@@ENDIF

@ELSE
@CONNECT("KUMSS1")
MGTRP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")
@SET IMSIS=TRIM(COPY(REPLY(I+4),19,15))
@IF (IMSIS>0) THEN
MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@WRITE(FILEN, " ")
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : KUMSS1")
@WRITE(FILEN,"MSS NAME : KUMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@GOSUB CELL_DETAILS
@@ENDIF

@ELSE

@CONNECT("HEMSS1")
MGTRP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")
@SET IMSIS=TRIM(COPY(REPLY(I+4),19,15))
@IF (IMSIS>0) THEN
MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@WRITE(FILEN, " ")
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : HEMSS1")
@WRITE(FILEN,"MSS NAME : HEMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF

@GOSUB CELL_DETAILS
@@ENDIF

@ELSE
@CONNECT("MAMSS1")
MGTRP:MSISDN={CONT[i]};
@SET I=SCAN("IMSI")
@SET IMSIS=TRIM(COPY(REPLY(I+4),19,15))
@IF (IMSIS>0) THEN
MGSSP:IMSI={IMSIS};
@SET S=SCAN("IMEI")
@SET EME=TRIM(COPY(REPLY(S+1),1,17))
@SET STATUS=SCAN("IMSI")
@SET STATUSC=TRIM(COPY(REPLY(STATUS+1),32,11))
@WRITE(FILEN, " ")
@COMMENT("MOBILE PHONE NO : {CONT[i]}")
@WRITE(FILEN,"MOBILE PHONE NO : {CONT[i]}")
@COMMENT("IMSI NUMBER : {IMSIS}")
@WRITE(FILEN,"IMSI NUMBER : {IMSIS}")
@COMMENT("IMEI NUMBER : {EME}")
@WRITE(FILEN,"IMEI NUMBER : {EME}")
@COMMENT("PRESENT STATUS : {STATUSC}")
@WRITE(FILEN,"PRESENT STATUS : {STATUSC}")
@COMMENT("MSS NAME : MAMSS1")
@WRITE(FILEN,"MSS NAME : MAMSS1")
CTRAI:MSISDN={CONT[i]};
@SET S=SCAN("MTV-")
@SET MTV=TRIM(COPY(REPLY(S),9,15))
@IF MTV="" THEN
@COMMENT("MTV NOT AVAILABLE")
@ELSE
@COMMENT("MTV NUMBER : MTV-{MTV}")
@IF STATUSC="BUSY" THEN
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@MARK(MISCDATA)
@SET MISCDATA=SCAN("TAG IDX MISCDATA")
@SET LINE1=TRIM(COPY(REPLY(MISCDATA+1),9,50))
@SET LINE2=TRIM(COPY(REPLY(MISCDATA+2),9,50))
@SET LINE3=TRIM(COPY(REPLY(MISCDATA+3),9,50))
@SET LINE4=TRIM(COPY(REPLY(MISCDATA+4),9,50))
@SET LINE5=TRIM(COPY(REPLY(MISCDATA+5),9,50))
@SET LINE6=TRIM(COPY(REPLY(MISCDATA+6),9,50))
@SET LINE7=TRIM(COPY(REPLY(MISCDATA+7),9,50))
@SET LINE8=TRIM(COPY(REPLY(MISCDATA+8),9,50))
@SET LINE9=TRIM(COPY(REPLY(MISCDATA+9),9,50))
@SET LINE10=TRIM(COPY(REPLY(MISCDATA+10),9,50))
@SET LINE11=TRIM(COPY(REPLY(MISCDATA+11),9,50))
@SET LINE12=TRIM(COPY(REPLY(MISCDATA+12),9,50))
@ENDIF
TEST SYSTEM;
PRINT VAR MTV {MTV}:468;
@SET LINE_NO = SCAN("H'1D4=")
@SET LOC_HEX = COPY( REPLY(LINE_NO) , POS( "H'1D4=" , REPLY(LINE_NO) )+8 , 10 )
@IFERROR THEN
TERM;
CLEAR;
END TEST;
@ENDIF
@SET S=SCAN("VAR H")
@SET VARN=TRIM(COPY(REPLY(S),14,80))
@COMMENT("LOCATION : {VARN}")
@@WRITE(FILEN,"LOCATION : {VARN}")
TERM;
CLEAR;
END TEST;
@ENDIF
@GOSUB CELL_DETAILS

@ELSE
@COMMENT("MOBILE NO: {CONT[i]} is currently not connected in Network")
@WRITE(FILEN, "MOBILE NO : {CONT[i]} is currently not connected in Network")
@WRITE(FILEN, " ")
@ENDIF
@ENDIF
@ENDIF
@ENDIF
@ENDIF
@ENDIF
@ENDIF

@NEXT g
@GOSUB ENDSCRIPT
@LABEL CELL_DETAILS
@SET LOC_DEC = DECIMAL(LOC_HEX)
@SET SITE = COPY( LOC_DEC , 1 , 4)
@SET SECTOR = COPY( LOC_DEC , 5 , 1)
@SET SITEF = COPY( LOC_DEC , 1 , 5)
@COMMENT("SITE ID : {SITE}")
@WRITE(FILEN,"SITE ID : {SITE}")
@COMMENT("SECTOR : {SECTOR}")
@WRITE(FILEN,"SECTOR : {SECTOR}")

MGCEP:CELL=ALL;
@SET S=SCAN({SITEF})
@IF (S>0) THEN
@SET K=TRIM(COPY(REPLY(S),1,8))
@SET CGI=TRIM(COPY(REPLY(S),10,17))
@SET BSC=TRIM(COPY(REPLY(S),26,11))
@COMMENT("Cell ID : {K}")
@WRITE(FILEN,"Cell ID : {K}")
@COMMENT("CGI : {CGI}")
@WRITE(FILEN,"CGI : {CGI}")
@COMMENT("BSC : {BSC}")
@WRITE(FILEN,"BSC : {BSC}")
@WRITE(FILEN, " ")
@@WRITE(FILEN, " ")
@@ENDIF
@RETURN
@ENDIF
MGAAP:AREA=ALL;
@SET S=SCAN({SITEF})
@SET K=TRIM(COPY(REPLY(S),1,8))
@SET CGI=TRIM(COPY(REPLY(S),16,22))
@SET LAI=TRIM(COPY(REPLY(S),16,10))
MGMAP:LAI={LAI};
@SET R=SCAN(412)
@SET RNCID=TRIM(COPY(REPLY(R),11,11))
@COMMENT("Cell ID : {K}")
@WRITE(FILEN,"Cell ID : {K}")
@COMMENT("CGI : {CGI}")
@WRITE(FILEN,"CGI : {CGI}")
@COMMENT("RNC : {RNCID}")
@WRITE(FILEN,"RNC : {RNCID}")
@WRITE(FILEN, " ")
@@WRITE(FILEN, " ")
@@ENDIF
@RETURN

@Label ENDSCRIPT
@VIEWFILE("TIGER.TXT")

EXIT;

You might also like