I have had som problems with hungup extensions in MD110 So I made a scriptfile in WinFIOL to correct tha data for a specific extension. I haven´t got the new data addresses for BC11 but the script should work for BC8,9, and BC10.
The text is in Swedish since I work here but basically the sript asks you for the Extension of the MD110 first and then ist asks for the version BC8, BC9 or BC10, just enter 8, 9 or 10 in the dialog box.
The script always copy the printout to a logfile in C:\ where you can see what happend.
Good Luck
NANSI
@A+
@CLEAR
@PRESERVE
@W "Detta script kommer att skriva r„tt, l†sta anknytningar"
@W "Loggfilen extension.log kommer att skapas i c:\ och kan anv„ndas till sp†rning om n†t g†r snett!"
@L +C:\EXTENSION.LOG
/* FRGA EFTER BC_VERSION OCH ANKNYTNINGSNUMMER */
@ASK {ANKN} Vilken anknytning har l†st sig?
@LABEL ASK_BC
@ASK {BC_VERSION} Vilken BC-version „r det p† v„xeln, 8, 9, eller 10?
@IF {BC_VERSION} = 8 THEN GOTO BC8
@IF {BC_VERSION} = 9 THEN GOTO BC9
@IF {BC_VERSION} = 10 THEN GOTO BC10
@W "Du har inte fyllt i BC-version korrekt. Skriv 8 eller 9 eller 10!"
@GOTO ASK_BC
/* FIX F™R ANKNYTNINGAR I BC8 */
@LABEL BC8
SUSIP

IR={ANKN};
@COPY {_LINE3} {BC8_TRAFFIC_STATE} 27 4
@COPY {_LINE3} {BC8_LINE_STATE} 45 4
@COPY {_LINE3} {BC8_ANKN_TYP} 7 3
@IF {BC8_ANKN_TYP} = DTS THEN GOSUB DTS_BC8
@IF {BC8_ANKN_TYP} = ATS THEN GOSUB ATS_BC8
@IF {BC8_ANKN_TYP} = CAS THEN GOSUB CAS_BC8
@IF {BC8_ANKN_TYP} = DTS THEN SET {BC8_UNIT_USER} = KLP1T1
@IF {BC8_ANKN_TYP} = DTS THEN SET {BC8_UNIT_SERVICE} = KLP1O
@IF {BC8_ANKN_TYP} = ATS THEN SET {BC8_UNIT_USER} = ELP6
@IF {BC8_ANKN_TYP} = ATS THEN SET {BC8_UNIT_SERVICE} = ELP6
@IF {BC8_ANKN_TYP} = CAS THEN SET {BC8_UNIT_USER} = ELP7S1
@IF {BC8_ANKN_TYP} = CAS THEN SET {BC8_UNIT_SERVICE} = ELP7S1
@COMMENT PEKAREN I FILNO=1 ŽR {BC8_LINE_STATE}
/* HŽMTA PEKARE TILL FILNO 2 GENOM ATT PRINTA FILNO 1 */
SACOP:LIM={LIM_BC8},UNIT=DERS1,FILNO=1,POINT={BC8_LINE_STATE},RELOFF=8&9;
@COPY {_LINE6} {DATA_DSOFF2_BC8_1} 34 1
@COPY {_LINE6} {DATA_DSOFF2_BC8_2} 35 1
@COPY {_LINE7} {DATA_DSOFF2_BC8_3} 34 1
@COPY {_LINE7} {DATA_DSOFF2_BC8_4} 35 1
@COMMENT PEKAREN I FILNO=2 ŽR {DATA_DSOFF2_BC8_1}{DATA_DSOFF2_BC8_2}{DATA_DSOFF2_BC8_3}{DATA_DSOFF2_BC8_4}
/* PRINTA DATAT I RELOFF 2 */
SACOP:LIM={LIM_BC8},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC8_1}{DATA_DSOFF2_BC8_2}{DATA_DSOFF2_BC8_3}{DATA_DSOFF2_BC8_4},DSOFF=0;
/* SKRIV RŽTT DATAT I RELOFF2 TILL 40 */
SACOS:LIM={LIM_BC8},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC8_1}{DATA_DSOFF2_BC8_2}{DATA_DSOFF2_BC8_3}{DATA_DSOFF2_BC8_4},DSOFF=0,DATA=40;
/* KOLLA OM DET FINNS K™POSTER TILL ANKNYTNINGEN */
SACOP:LIM={LIM_BC8},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC8_1}{DATA_DSOFF2_BC8_2}{DATA_DSOFF2_BC8_3}{DATA_DSOFF2_BC8_4},DSOFF=1;
/* TA BORT EVENTUELLA K™POSTER */
SACOS:LIM={LIM_BC8},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC8_1}{DATA_DSOFF2_BC8_2}{DATA_DSOFF2_BC8_3}{DATA_DSOFF2_BC8_4},DSOFF=1,DATA=FF;
/* KOLLA OM ANKNYTNINGEN ŽR DIGITAL ELLER ANALOG EL6 ELER EL7 */
@IF {BC8_ANKN_TYP} = DTS THEN GOTO BC8_DIGITAL
@IF {BC8_ANKN_TYP} = ATS THEN GOTO BC8_ANALOG
@IF {BC8_ANKN_TYP} = CAS THEN GOTO BC8_ANALOG
@LABEL BC8_DIGITAL
/* KONTROLLERA USERSTATE MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC8},UNIT={BC8_UNIT_USER},FILNO=2,POINT={BC8_TRAFFIC_STATE},DSOFF=45;
/* SKRIV RŽTT USERSTATE */
SACOP:LIM={LIM_BC8},UNIT={BC8_UNIT_USER},FILNO=2,POINT={BC8_TRAFFIC_STATE},DSOFF=45,DATA=00;
/* KONTROLLERA SERVICESTATE MED MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC8},UNIT={BC8_UNIT_SERVICE},FILNO=1,POINT={BC8_TRAFFIC_STATE},DSOFF=17&&1A;
/* SKRIV ALLA ODN:ER RŽTT */
SACOS:LIM={LIM_BC8},UNIT={BC8_UNIT_SERVICE},FILNO=1,POINT={BC8_TRAFFIC_STATE},DSOFF=19,DATA=00;
SACOS:LIM={LIM_BC8},UNIT={BC8_UNIT_SERVICE},FILNO=1,POINT={BC8_TRAFFIC_STATE},DSOFF=18,DATA=00;
SACOS:LIM={LIM_BC8},UNIT={BC8_UNIT_SERVICE},FILNO=1,POINT={BC8_TRAFFIC_STATE},DSOFF=17,DATA=00;
@LABEL BC8_ANALOG
@GOTO END
/* TA REDA P VILKEN LIM ANKNYTNINGEN LIGGER I */
@LABEL DTS_BC8
KSDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC8} 18 3
@RETURN
@LABEL ATS_BC8
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC8} 17 3
@RETURN
@LABEL CAS_BC8
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC8} 17 3
@RETURN
@GOTO END
/* FIX F™R ANKNYTNINGAR I BC9 */
@LABEL BC9
SUSIP

IR={ANKN};
@COPY {_LINE3} {BC9_TRAFFIC_STATE} 27 4
@COPY {_LINE3} {BC9_LINE_STATE} 45 4
@COPY {_LINE3} {BC9_ANKN_TYP} 7 3
@IF {BC9_ANKN_TYP} = DTS THEN GOSUB DTS_BC9
@IF {BC9_ANKN_TYP} = ATS THEN GOSUB ATS_BC9
@IF {BC9_ANKN_TYP} = CAS THEN GOSUB CAS_BC9
@IF {BC9_ANKN_TYP} = DTS THEN SET {BC9_UNIT_USER} = KLP1T1
@IF {BC9_ANKN_TYP} = DTS THEN SET {BC9_UNIT_SERVICE} = KLP1O
@IF {BC9_ANKN_TYP} = ATS THEN SET {BC9_UNIT_USER} = ELP6
@IF {BC9_ANKN_TYP} = ATS THEN SET {BC9_UNIT_SERVICE} = ELP6
@IF {BC9_ANKN_TYP} = CAS THEN SET {BC9_UNIT_USER} = ELP7
@IF {BC9_ANKN_TYP} = CAS THEN SET {BC9_UNIT_SERVICE} = ELP7
@COMMENT PEKAREN I FILNO=1 ŽR {BC9_LINE_STATE}
/* HŽMTA PEKARE TILL FILNO 2 GENOM ATT PRINTA FILNO 1 */
SACOP:LIM={LIM_BC9},UNIT=DERS1,FILNO=1,POINT={BC9_LINE_STATE},RELOFF=A&B;
@COPY {_LINE6} {DATA_DSOFF2_BC9_1} 34 1
@COPY {_LINE6} {DATA_DSOFF2_BC9_2} 35 1
@COPY {_LINE7} {DATA_DSOFF2_BC9_3} 34 1
@COPY {_LINE7} {DATA_DSOFF2_BC9_4} 35 1
@COMMENT PEKAREN I FILNO=2 ŽR {DATA_DSOFF2_BC9_1}{DATA_DSOFF2_BC9_2}{DATA_DSOFF2_BC9_3}{DATA_DSOFF2_BC9_4}
/* PRINTA DATAT I RELOFF 2 */
SACOP:LIM={LIM_BC9},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC9_1}{DATA_DSOFF2_BC9_2}{DATA_DSOFF2_BC9_3}{DATA_DSOFF2_BC9_4},DSOFF=0;
/* SKRIV RŽTT DATAT I RELOFF2 TILL 40 */
SACOS:LIM={LIM_BC9},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC9_1}{DATA_DSOFF2_BC9_2}{DATA_DSOFF2_BC9_3}{DATA_DSOFF2_BC9_4},DSOFF=0,DATA=40;
/* KOLLA OM DET FINNS K™POSTER TILL ANKNYTNINGEN */
SACOP:LIM={LIM_BC9},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC9_1}{DATA_DSOFF2_BC9_2}{DATA_DSOFF2_BC9_3}{DATA_DSOFF2_BC9_4},DSOFF=1;
/* TA BORT EVENTUELLA K™POSTER */
SACOS:LIM={LIM_BC9},UNIT=DERS1,FILNO=2,POINT={DATA_DSOFF2_BC9_1}{DATA_DSOFF2_BC9_2}{DATA_DSOFF2_BC9_3}{DATA_DSOFF2_BC9_4},DSOFF=1,DATA=FF;
/* KOLLA OM ANKNYTNINGEN ŽR DIGITAL ELLER ANALOG */
@IF {BC9_ANKN_TYP} = DTS THEN GOTO BC9_DIGITAL
@IF {BC9_ANKN_TYP} = ATS THEN GOTO BC9_ANALOG
@IF {BC9_ANKN_TYP} = CAS THEN GOTO BC9_ANALOG
@LABEL BC9_DIGITAL
/* KONTROLLERA USERSTATE MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC9},UNIT={BC9_UNIT_USER},FILNO=2,POINT={BC9_TRAFFIC_STATE},DSOFF=48;
/* SKRIV RŽTT USERSTATE */
SACOP:LIM={LIM_BC9},UNIT={BC9_UNIT_USER},FILNO=2,POINT={BC9_TRAFFIC_STATE},DSOFF=48,DATA=00;
/* KONTROLLERA SERVICESTATE MED MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC9},UNIT={BC9_UNIT_SERVICE},FILNO=1,POINT={BC9_TRAFFIC_STATE},DSOFF=17&&1A;
/* SKRIV ALLA ODN:ER RŽTT */
SACOS:LIM={LIM_BC9},UNIT={BC9_UNIT_SERVICE},FILNO=1,POINT={BC9_TRAFFIC_STATE},DSOFF=19,DATA=00;
SACOS:LIM={LIM_BC9},UNIT={BC9_UNIT_SERVICE},FILNO=1,POINT={BC9_TRAFFIC_STATE},DSOFF=18,DATA=00;
SACOS:LIM={LIM_BC9},UNIT={BC9_UNIT_SERVICE},FILNO=1,POINT={BC9_TRAFFIC_STATE},DSOFF=17,DATA=00;
@LABEL BC9_ANALOG
@GOTO END
/* TA REDA P VILKEN LIM ANKNYTNINGEN LIGGER I */
@LABEL DTS_BC9
KSDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC9} 18 3
@RETURN
@LABEL ATS_BC9
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC9} 17 3
@RETURN
@LABEL CAS_BC9
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC9} 17 3
@RETURN
@GOTO END
/* FIX F™R ANKNYTNINGAR I BC10 */
@LABEL BC10
SUSIP

IR={ANKN};
@COPY {_LINE3} {BC10_TRAFFIC_STATE} 27 4
@COPY {_LINE3} {BC10_LINE_STATE} 45 4
@COPY {_LINE3} {BC10_ANKN_TYP} 7 3
@IF {BC10_ANKN_TYP} = DTS THEN GOSUB DTS_BC10
@IF {BC10_ANKN_TYP} = ATS THEN GOSUB ATS_BC10
@IF {BC10_ANKN_TYP} = CAS THEN GOSUB CAS_BC10
@IF {BC10_ANKN_TYP} = DTS THEN SET {BC10_UNIT_USER} = KLP1T1
@IF {BC10_ANKN_TYP} = DTS THEN SET {BC10_UNIT_SERVICE} = KLP1O
@IF {BC10_ANKN_TYP} = ATS THEN SET {BC10_UNIT_USER} = ELP6
@IF {BC10_ANKN_TYP} = ATS THEN SET {BC10_UNIT_SERVICE} = ELP6
@IF {BC10_ANKN_TYP} = CAS THEN SET {BC10_UNIT_USER} = ELP7
@IF {BC10_ANKN_TYP} = CAS THEN SET {BC10_UNIT_SERVICE} = ELP7
@COMMENT PEKAREN I FILNO=1 ŽR {BC10_LINE_STATE}
/* HŽMTA PEKARE TILL FILNO 2 GENOM ATT PRINTA FILNO 1 */
SACOP:LIM={LIM_BC10},UNIT=DER,FILNO=1,POINT={BC10_LINE_STATE},RELOFF=C&D;
@COPY {_LINE6} {DATA_DSOFF2_BC10_1} 34 1
@COPY {_LINE6} {DATA_DSOFF2_BC10_2} 35 1
@COPY {_LINE7} {DATA_DSOFF2_BC10_3} 34 1
@COPY {_LINE7} {DATA_DSOFF2_BC10_4} 35 1
@COMMENT PEKAREN I FILNO=2 ŽR {DATA_DSOFF2_BC10_1}{DATA_DSOFF2_BC10_2}{DATA_DSOFF2_BC10_3}{DATA_DSOFF2_BC10_4}
/* PRINTA DATAT I RELOFF 2 */
SACOP:LIM={LIM_BC10},UNIT=DER,FILNO=2,POINT={DATA_DSOFF2_BC10_1}{DATA_DSOFF2_BC10_2}{DATA_DSOFF2_BC10_3}{DATA_DSOFF2_BC10_4},DSOFF=0;
/* SKRIV RŽTT DATAT I RELOFF2 TILL 40 */
SACOS:LIM={LIM_BC10},UNIT=DER,FILNO=2,POINT={DATA_DSOFF2_BC10_1}{DATA_DSOFF2_BC10_2}{DATA_DSOFF2_BC10_3}{DATA_DSOFF2_BC10_4},DSOFF=0,DATA=40;
/* KOLLA OM DET FINNS K™POSTER TILL ANKNYTNINGEN */
SACOP:LIM={LIM_BC10},UNIT=DER,FILNO=2,POINT={DATA_DSOFF2_BC10_1}{DATA_DSOFF2_BC10_2}{DATA_DSOFF2_BC10_3}{DATA_DSOFF2_BC10_4},DSOFF=1;
/* TA BORT EVENTUELLA K™POSTER */
SACOS:LIM={LIM_BC10},UNIT=DER,FILNO=2,POINT={DATA_DSOFF2_BC10_1}{DATA_DSOFF2_BC10_2}{DATA_DSOFF2_BC10_3}{DATA_DSOFF2_BC10_4},DSOFF=1,DATA=FF;
/* KOLLA OM ANKNYTNINGEN ŽR DIGITAL ELLER ANALOG */
@IF {BC10_ANKN_TYP} = DTS THEN GOTO BC10_DIGITAL
@IF {BC10_ANKN_TYP} = ATS THEN GOTO BC10_ANALOG
@IF {BC10_ANKN_TYP} = CAS THEN GOTO BC10_ANALOG
@LABEL BC10_DIGITAL
/* KONTROLLERA USERSTATE MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC10},UNIT={BC10_UNIT_USER},FILNO=2,POINT={BC10_TRAFFIC_STATE},DSOFF=93;
/* SKRIV RŽTT USERSTATE */
SACOS:LIM={LIM_BC10},UNIT={BC10_UNIT_USER},FILNO=2,POINT={BC10_TRAFFIC_STATE},DSOFF=93,DATA=00;;
/* KONTROLLERA SERVICESTATE MED MED HJŽLP AV TRAFFICSTATE */
SACOP:LIM={LIM_BC10},UNIT={BC10_UNIT_SERVICE},FILNO=1,POINT={BC10_TRAFFIC_STATE},DSOFF=19&&1C;
/* SKRIV ALLA ODN:ER RŽTT */
SACOS:LIM={LIM_BC10},UNIT={BC10_UNIT_SERVICE},FILNO=1,POINT={BC10_TRAFFIC_STATE},DSOFF=1B,DATA=00;
SACOS:LIM={LIM_BC10},UNIT={BC10_UNIT_SERVICE},FILNO=1,POINT={BC10_TRAFFIC_STATE},DSOFF=1A,DATA=00;
SACOS:LIM={LIM_BC10},UNIT={BC10_UNIT_SERVICE},FILNO=1,POINT={BC10_TRAFFIC_STATE},DSOFF=19,DATA=00;
@LABEL BC10_ANALOG
@GOTO END
/* TA REDA P VILKEN LIM ANKNYTNINGEN LIGGER I */
@LABEL DTS_BC10
KSDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC10} 18 3
@RETURN
@LABEL ATS_BC10
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC10} 17 3
@RETURN
@LABEL CAS_BC10
EXDDP

IR={ANKN};
@COPY {_LINE3} {LIM_BC10} 17 3
@RETURN
@GOTO END
@LABEL END
@L-
@W "Nu kan du prova att skriva bort anknytningen!"