求助以下代码段是什么脚本语言？

hongtog 2011-06-23 10:40:51

/--------------------------------START CHANNAL 8--------------------------------------------------
/--------------------------------REGUIDING CALL DETAIL
<BSTARTGUIDEDEVENTPROD
[BSTARTORIGACC
[BSTARTGUIDEDEVENTCPS
[BSTARTGUIDEDEVENTITEM_?
[BSTARTGUIDEDEVENTLIST_?
[BSTARTGUIDERULE_?
%SET &GUIDEEVENTCALL = 0
%IF ^GUIDERULERATINGTARIFF_1 == GUIDERULERATINGTARIFF_1
%SET &GUIDEEVENTCALL = 1
%ENDIF
%IF ^GUIDERULERATINGTARIFF_2 == GUIDERULERATINGTARIFF_2
%SET &GUIDEEVENTCALL = 2
%ENDIF
%IF ^GUIDERULERATINGTARIFF_3 == GUIDERULERATINGTARIFF_3
%SET &GUIDEEVENTCALL = 3
%ENDIF
%IF ^GUIDERULERATINGTARIFF_4 == GUIDERULERATINGTARIFF_4
%SET &GUIDEEVENTCALL = 4
%ENDIF
%IF ^GUIDERULERATINGTARIFF_5 == GUIDERULERATINGTARIFF_5
%SET &GUIDEEVENTCALL = 5
%ENDIF
%IF ^GUIDERULERATINGTARIFF_6 == GUIDERULERATINGTARIFF_6
%SET &GUIDEEVENTCALL = 6
%ENDIF
%IF ^GUIDERULERATINGTARIFF_60 == GUIDERULERATINGTARIFF_60
%SET &GUIDEEVENTCALL = 60
%ENDIF
%IF ^GUIDERULERATINGTARIFF_63 == GUIDERULERATINGTARIFF_63
%SET &GUIDEEVENTCALL = 63
%ENDIF
%IF ^GUIDERULERATINGTARIFF_64 == GUIDERULERATINGTARIFF_64
%SET &GUIDEEVENTCALL = 64
%ENDIF
%IF ^GUIDERULERATINGTARIFF_65 == GUIDERULERATINGTARIFF_65
%SET &GUIDEEVENTCALL = 65
%ENDIF
%IF ^GUIDERULERATINGTARIFF_66 == GUIDERULERATINGTARIFF_66
%SET &GUIDEEVENTCALL = 66
%ENDIF
%IF ^GUIDERULERATINGTARIFF_67 == GUIDERULERATINGTARIFF_67
%SET &GUIDEEVENTCALL = 67
%ENDIF
%IF ^GUIDERULERATINGTARIFF_68 == GUIDERULERATINGTARIFF_68
%SET &GUIDEEVENTCALL = 68
%ENDIF
@8|A1|>:#GUIDEDEVENTSTEXT_?|>:#GUIDEDEVSOURCE_?|&GUIDEEVENTCALL|#GUIDEEVTOTALPRDMNY|
[BSTARTITEMGROUP_1_?
@8|A2|#ITEMGROUPNAME_1_?|#ITEMGROUPSUBTOTAL_1_?|
[TSTARTEVENT_?
*8|A3|#EVENT_?|
]
]
]
]
]
]
]
>

/--------------------------------START CHANNAL 4--------------------------------------------------
[MOBILEINFOSTART_?
%SET &MOBILENUMBER = #MMOBILENUMBER
%SET &CURMOBILENUMBER = #MMOBILENUMBERINFO
%SET &MINFOBLOCK = #INFOBLOCK
@4|A1|MOBILE LEVEL|#MMOBILENUMBER|
[MYOURPACKAGESTART
*4|B1|#MYOURPACKAGE_?|
]

@4|BN|#MUNITDISPLAY|
<MMVPNMNYSTART
%SET &MVPN_STYLE = #MMVPN_BILL_TYPE_FLAG
>

...全文