>*****************Extract Usage Charges From PS File****************** >cExit='N' >lnRowposition=10000 > >FOR I= 1 TO nU1 && nU1 is the Length of Array >IF 'Usage Charges' $ laArray(I)=.T. >lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >EXIT >ENDIF >ENDFOR > >FOR nFor=-1 TO 1 >lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >FOR I= 1 TO nU1 >IF lcRowposition $ laArray(I)=.T. >lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >IF lnRightColumnposition>lnLeftColumnposition >IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >nUsagecharges=VAL(STREXTRACT(laArray(I),'(',')')) >cEXit='Y' >EXIT >ENDIF >ENDIF >ENDIF >IF cExit='Y' >EXIT >ENDIF >ENDFOR >ENDFOR >************************************************************************ >*****************Extract Balance Minimum Guarantee PS File****************** >cExit='N' >lnRowposition=10000 > >FOR I= 1 TO nU1 >IF 'Minimum Guarantee' $ laArray(I)=.T. >lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >EXIT >ENDIF >ENDFOR > >FOR nFor=-1 TO 1 >lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >FOR I= 1 TO nU1 >IF lcRowposition $ laArray(I)=.T. >lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >IF lnRightColumnposition>lnLeftColumnposition >IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >nBalMinimumGuarantee=VAL(STREXTRACT(laArray(I),'(',')')) >cEXit='Y' >EXIT >ENDIF >ENDIF >ENDIF >IF cExit='Y' >EXIT >ENDIF >ENDFOR >ENDFOR >************************************************************************ > >