/*REXX*/
       'ISREDIT MACRO(PARMS)'
/*  TRACE  I */
/*----------------------------------------------------------------------------
  This program is used to create a document displayed via IE on your PC
  Why do this? Well, quite frankly to save development time of a PC based
  application.  IE takes care of displaying and printing the data.
  This code is not clean but it shows the basics of generating a document in HTML.
  Wraps HTML code around text
  26 October 2006
  Mark McDonald
----------------------------------------------------------------------------*/
/*--- If source has not been saved, save it ---*/
       'ISREDIT (MODIFIED) = DATA_CHANGED'
       IF (MODIFIED=YES) THEN
         'ISREDIT SAVE'
/*--- Retrieve Path/File Name of Source File ---*/
       'ISREDIT (FILENAME) = DATASET'
/*--- Get Case Info ---*/
  SEARCHSTR = TRANSLATE(PARMS)                /*Info passed on SPF command line to macro */
  DO WHILE LINES(FILENAME) > 0                /*Search flat file data base for matching case number */
    T = LINEIN(FILENAME)
    IF SUBSTR(T,10,10) = SEARCHSTR THEN LEAVE
  END
/*--- Set up various variables for document data */
  HB = "<B>"
  HBEND = "</B>"
  ORD = SUBSTR(T,28,10)
  AGENCY = "PD"
  COURT = "Municipal Court"
  JUDGE = "ME"
  DOCKET = SUBSTR(T,10,10," ")
  CITATION = SUBSTR(T,21,6" ")
  DEFENDANT = SUBSTR(T,53,24," ")
  DVIOLATION = SUBSTR(T,1,8," ")
  FDATE = SUBSTR(T,77,8)
  DESCRIPTION = SUBSTR(T,38,15)
  IF WORD(DESCRIPTION,1) = "SPEED" THEN DESCRIPTION = "SPEEDING "WORD(TRANSLATE(DESCRIPTION," ","/"),2)" MPH IN POSTED "WORD(TRANSLATE(DESCRIPTION," ","/"),3)" MPH ZONE"
  IF WORD(DESCRIPTION,1) = "DISORDERLY" THEN DESCRIPTION = "DISORDERLY CONDUCT"
  IF WORD(DESCRIPTION,1) = "FAIL" THEN DESCRIPTION = "FAILED TO YIELD RIGHT OF WAY"
  IF (WORD(DESCRIPTION,1) = "EXP" & WORD(DESCRIPTION,2) = "REG") THEN DESCRIPTION = "EXPIRED REGISTRATION"
  IF (WORD(DESCRIPTION,1) = "NO" & WORD(DESCRIPTION,2) = "DL") THEN DESCRIPTION = "NO DRIVERS LICENSE"
  IF WORD(DESCRIPTION,1) = "CURFEW" THEN DESCRIPTION = "CURFEW VIOLATION"
  IF WORD(DESCRIPTION,1) = "DRUG" THEN DESCRIPTION = "POSSESSION OF DRUG PARAPHERNALIA"
  IF (WORD(DESCRIPTION,1) = "PASS" & WORD(DESCRIPTION,2) = "BUS") THEN DESCRIPTION = "PASSING SCHOOL BUS WHEN READ LIGHT IS ON"
  IF WORD(DESCRIPTION,1) = "CLINGING" THEN DESCRIPTION = "CLINGING TO MOVING VEHICLE"
  IF WORD(DESCRIPTION,1) = "UNLAWFUL" THEN DESCRIPTION = "UNLAWFUL RIDER"
  IF WORD(DESCRIPTION,1) = "EXH" THEN DESCRIPTION = "EXHIBITION OF ACCELERATION"
  IF WORD(DESCRIPTION,1) = "FOLLOW" THEN DESCRIPTION = "FOLLOWING TOO CLOSE"
  IF WORD(DESCRIPTION,1) = "TURN" THEN DESCRIPTION = "ILLEGAL TURN"
  IF WORD(DESCRIPTION,1) = "UNATTENDED" THEN DESCRIPTION = "UNATTENDED VEHICLE - MOTOR RUNNING"
  IF WORD(DESCRIPTION,1) = "ANIMAL" THEN DESCRIPTION = "NO DOG LICENSE"
  IF (WORD(DESCRIPTION,1) = "ALCOHOL" & WORD(DESCRIPTION,2) = "MINOR")THEN DESCRIPTION = "NO DOG LICENSE"
  IF (WORD(DESCRIPTION,1) = "MINOR" & WORD(DESCRIPTION,2) = "ALCOHOL")THEN DESCRIPTION = "MINOR IN POSSESION OF ALCOHOL"
  IF WORD(DESCRIPTION,1) = "PARKING" THEN DESCRIPTION = "PROHIBITED PARKING"
  IF WORD(DESCRIPTION,1) = "EQUIPMENT" THEN DESCRIPTION = "DEFECTIVE EQUIPMENT"
  IF WORD(DESCRIPTION,1) = "PASSING" THEN DESCRIPTION = "ILLEGAL PASSING"
  IF (WORD(DESCRIPTION,1) = "EXP" & WORD(DESCRIPTION,2) = "DL")THEN DESCRIPTION = "EXPIRED DRIVERS LICENSE"
  IF WORD(DESCRIPTION,1) = "VICIOUS" THEN DESCRIPTION = "HARBORING A VICIOUS ANIMAL"
  IF WORD(DESCRIPTION,1) = "BACKING" THEN DESCRIPTION = "UNSAFE BACKING"
  IF (WORD(DESCRIPTION,1) = "FAIL" & WORD(DESCRIPTION,2) = "MAINTAIN")THEN DESCRIPTION = "FAILURE TO MAINTAIN PROPERTY"
  IF (WORD(DESCRIPTION,1) = "DRV" & WORD(DESCRIPTION,2) = "SIDEWALK") THEN DESCRIPTION = "DRIVING ON SIDEWALK"
  IF (WORD(DESCRIPTION,1) = "FAULTY" & WORD(DESCRIPTION,2) = "WIPER") THEN DESCRIPTION = "FAULTY WINDSHIELD WIPER"
  IF (WORD(DESCRIPTION,1) = "NO" & WORD(DESCRIPTION,2) = "LIGHTS") THEN DESCRIPTION = "FAULTY TAIL LIGHTS"
  IF (WORD(DESCRIPTION,1) = "STOP" & WORD(DESCRIPTION,2) = "SIGNAL") THEN DESCRIPTION = "FAILED TO STOP AT RED LIGHT"
  IF (WORD(DESCRIPTION,1) = "STOP" & WORD(DESCRIPTION,2) = "SIGN") THEN DESCRIPTION = "FAILED TO STOP AT STOP SIGN"
  IF (WORD(DESCRIPTION,1) = "NO" & WORD(DESCRIPTION,2) = "VEH" & WORD(DESCRIPTION,3) = "REG") THEN DESCRIPTION = "NO VEHICLE REGISTRATION"
  IF WORD(DESCRIPTION,1) = "OBSCENITY" THEN DESCRIPTION = "DISORDERLY CONDUCT"
  IF WORD(DESCRIPTION,2) = "BARKING" THEN DESCRIPTION = "KEEPING ANIMAL IN ANNOYING MANNER"
  IF DESCRIPTION = "FAILED TO RPT" THEN DESCRIPTION = "FAILED TO REPORT ACCIDENT"
  IF WORD(DESCRIPTION,1) = "RECKLESS" THEN DESCRIPTION = "RECKLESS DRIVING"
  DOB = " "
  DL = " "
  ADDRS = "             "
  CITYSTZIP = "         "
  CITY = "   "
  DSTATE = "   "
  SEX = " "
  RACE = " "
  HT = " "
  WT = " "
  HAIR = " "
  EYES = " "
  SSN = " "
  VLIC = "NA"
  VSTATE = "NA"
  NRVC = " "
  SEATBELT = " "
  VMAKE = "NA"
  VTYPE = "  "
  VYEAR = " "
  VCOLOR = " "
  DTFILE = " "
  GDATE = " "
  OFFICER = " "
  FDATE = " "
  PPAMT = 0
  FORFAMT = 0
  FINEAMT = 0
  SUSPAMT = 0
  TOT = 0
  CC = 0
  CCAMT = " "
  TR = " "
  WRDS = 0
  CNT = 0
  TT = " "
  TTX = " "
  XT = " "
  SP = 0
  TOTAMT = " "
  TD = " "
/*--- Get Variables ---*/
  TR = SUBSTR(T,88,300," ")
  WRDS = WORDS(TR)
  DO CNT = 1 TO WRDS
    TT = WORD(TR,CNT)
    /*--- Date of Birth ---*/
    IF LEFT(TT,4) = "DOB-" THEN DOB = XGETSTR(TT,5)
    /*--- Drivers License ---*/
    IF LEFT(TT,3) = "DL-" THEN
      DO
        DL = XGETSTR(TT,4)
        DL = "<B>"WORD(DL,1)"</B>  STATE: <B>"WORD(DL,2)"</B>"
     END
    /*--- Street Address ---*/
    IF LEFT(TT,6) = "ADDRS-" THEN ADDRS = LEFT(XGETSTR(TT,7),40," ")
    /*--- City/State/Zip ---*/
    IF LEFT(TT,5) = "CITY-" THEN CITY = XGETSTR(TT,6)
    IF LEFT(TT,6) = "STATE-" THEN
      DO
        DSTATE = XGETSTR(TT,7)
        CITYSTZIP = CITY', 'DSTATE
      END
    /*--- Defendant Description ---*/
    IF LEFT(TT,5) = "DESC-"  THEN
      DO
        TTX = TRANSLATE(TT," ","-")
        SEX = WORD(TTX,2)
        RACE = WORD(TTX,3)
        HT = WORD(TTX,4)
        WT = WORD(TTX,5)
        HAIR = WORD(TTX,6)
        EYES = WORD(TTX,7)
      END
    /*--- Social Security Number ---*/
    IF LEFT(TT,4) = "SSN-" THEN SSN = XGETSTR(TT,5)
    /*--- Vehicle Info ---*/
    IF LEFT(TT,4) = "VEH-" THEN
      DO
        TTX = TRANSLATE(XGETSTR(TT,5)," ","-")
        VLIC = WORD(TTX,1)
        VSTATE = WORD(TTX,2)
        VMAKE = WORD(TTX,3)
        VTYPE = WORD(TTX,4)
        VYEAR = WORD(TTX,5)
        VCOLOR = WORD(TTX,6)
      END
    /*--- Date Filed ---*/
    IF LEFT(TT,7) = "DTFILE-" THEN DTFILE = XGETSTR(TT,8)
    /*--- Seat Belt ---*/
    IF LEFT(TT,9) = "SEATBELT-" THEN SEATBELT = XGETSTR(TT,10)
    /*--- Money/Date Fields ---*/
    /*--- Suspended Amount ---*/
    IF LEFT(TT,5) = "SUSP-" THEN SUSPAMT = XGETSTR(TT,6)
    /*--- Court Cost ---*/
    IF LEFT(TT,3) = "CC-" THEN CC = SUBSTR(TT,4,2)
    /*--- Partial Payments ---*/
    IF LEFT(TT,3) = "PP-" THEN
      DO
        PPAMT = XGETSTR(TT,12)
        FINEAMT = FINEAMT + PPAMT
        FDATE = " "
        GDATE = SUBSTR(T,77,8)
      END
    /*--- Forfiture Info ---*/
    IF LEFT(TT,4) = "DUE-" THEN
      DO
        FORFAMT = XGETSTR(TT,5)
        FDATE = SUBSTR(T,77,8)
      END
    /*--- Dismissed ---*/
    IF LEFT(TT,9) = "DISMISSED" THEN
      DO
        GDATE= "DISMISSED - "SUBSTR(T,77,8)
        CCAMT = 0
        CC = 0
        SUSPAMT = 0
        FORFAMT = 0
        FDATE = " "
        TOTLAMT = " "
        FINEAMT = 0
      END
    TOT = FINEAMT+CC+FORFAMT-SUSPAMT
    /*--- Officer Info ---*/
    IF LEFT(TT,4) = "OFF-" THEN
      DO
        TD = XGETSTR(TT,5)
        OFFICER = "BADGE: <B>"WORD(TD,2)"</b>  NAME: <B>"WORD(TD,1)"</B>"
      END
  END
/*--- Set Outfile Name with txt ---*/
       INFILE = FILENAME
       OUTFILE = 'C:\TEMP\'SUBSTR(DATE('J'),3,3," ")''TIME('S')'.HTM'
/*--- HTML HEADER INFO ---*/
  PHP.1 = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">'
  PHP.2 = "<html>"
  PHP.3 = "<head></head>"
  PHP.4 = '<body>'
  PHP.5 = "<pre>"
  PHP.6 = "</pre>"
  PHP.7 = "</body>"
  PHP.8 = "</html>"
  HL.1  = "<FONT SIZE=4><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<u>ABSTRACT OF COURT RECORD</u></b></FONT>"
  HL.2  = "<BR>"
  HL.3  = "****************************************************************************************<BR>"
  HL.4  = "    Case No. : <b>"DOCKET"</b>     Docket No.: <b>"DOCKET"</b>    Citation: <b>"CITATION"</b>"
  HL.5  = "    Court : <b>"COURT"</b>     Judge: <b>"JUDGE"</b><BR>"
  HL.6  = "*****************************<B>Defendant Information</B>**************************************<BR>"
  HL.7  = "    TOWN                  <b>"LEFT(DEFENDANT,40," ")"</b>DOB: <b>"DOB"</b>"
  HL.8  = "    OF            VS.     <b>"LEFT(ADDRS,40," ")"</b>SEX: <b>"LEFT(SEX,1," ")"</b> Race: <b>"RACE"</b>"
  HL.9  = "    WHEATLAND             <b>"LEFT(CITYSTZIP,40," ")"</b> Ht: <b>"LEFT(HT,3," ")" </b>Wt: <b>"WT"</b>"
  HL.10 = "                                                             Hair: <b>"LEFT(HAIR,3," ")"</b> EYES: <b>"EYES"</b>"
  HL.11 = "                          DL: "DL
  HL.12 = "                          SS: <b>"SSN"</b><BR>"
  HL.13 = "*****************************<B>Offense Information</B>****************************************<BR>"
  HL.14 = "    Ordinance: <b>"ORD"</b>  Wheatland Town Code"
  HL.15 = "    Description: <b>"DESCRIPTION"</b>"
  HL.16 = "    Date Filed: <b>"DTFILE"</b>"
  HL.17 = "    Date of Violation: <b>"DVIOLATION"</b>"
  HL.18 = "    Agency: <b>"AGENCY"</b>  "OFFICER"<BR>"
  HL.19 = "*****************************<B>Miscellaneous Information</B>**********************************"
  HL.20 = "<BR>"
  HL.21 = "    Vehicle License: <b>"VLIC"</b>  State: <b>"VSTATE"</b>  NRVC: <b>"NRVC"</b>  Seatbelt: <b>"SEATBELT"</b>"
  HL.22 = "    Vehicle Make: <b>"VMAKE"</b>  TYPE: <b>"VTYPE"</b>  Year: <b>"VYEAR"</b>  COLOR: <b>"VCOLOR"</b><BR>"
  HL.23 = "******************************<B>Case Disposition Data</B>*************************************<BR>"
  HL.24 = "    Guilty Finding Entered On: <B>"GDATE"</B>"
  HL.25 = "    Forfeiture Entered On: <B>"FDATE"</B>"
  HL.26 = "    Forfeiture      $<B>"FORMAT(FORFAMT,4,2)"</B>"
  HL.27 = "    Fine            $<B>"FORMAT(FINEAMT,4,2)"</B>"
  HL.28 = "    Costs           $<B>"FORMAT(CC,4,2)"</B>"
  HL.29 = "    Suspended       $<B>"FORMAT(SUSPAMT,4,2)"</B>"
  HL.30 = "    Total Paid      $<B>"FORMAT(TOT,4,2)"</B><BR>"
  HL.31 = "****************************************************************************************<BR>"
  HL.32 = "    I HEREBY CERTIFY THAT THIS INFORMATION IS A TRUE ABSTRACT OF THE RECORD"
  HL.33 = "    OF THIS COURT IN THIS CASE."
  HL.34 = "<BR>"
  HL.35 = "                                 JUDGE: <U>                                        </U>"
/*--- Write HTML Header ---*/
  DO CNT = 1 TO 4 BY 1
    T = LINEOUT(OUTFILE,PHP.CNT)
  END
/*--- Write Body ---*/
  T = LINEOUT(OUTFILE,"<PRE>")
  DO CNT = 1 TO 35 BY 1
    T = LINEOUT(OUTFILE,HL.CNT)
  END
  T = LINEOUT(OUTFILE,"</PRE>")
/*--- Write HTML Footer ---*/
  DO CNT = 7 TO 8 BY 1
    T = LINEOUT(OUTFILE,PHP.CNT)
  END
/*--- Close Output File ---*/
  TR = LINEOUT(OUTFILE)
/*--- Bring New HTML Document into a new edit session ---*/
  ZCMD = "SUB"
  'ISREDIT EDIT 'OUTFILE
  EXIT
/*---------------------------------------------------------*/
  XGETSTR: PROCEDURE
   PARSE ARG TT,SP
   XT = TRANSLATE(TT,"   ", "_-")
   XT = SUBSTR(XT,SP)
  RETURN (XT)
/*---------------------------------------------------------*/