0010 REM JBRAPID - SET ITEM TO SHIPPED STATUS FROM RAPID BY DATE
0020 REM scan existing items for new ones
0025 BEGIN 
0040 LET C=UNT; LET JBITEM=C; LET F$="JBITEM"; OPEN (C)F$+".tpl"; READ (C)TPL$; CLOSE (C); OPEN (C)F$; DIM JBITEM$:TPL$
0050 LET C=UNT; LET JBPLAN=C; LET F$="JBPLAN"; OPEN (C)F$+".tpl"; READ (C)TPL$; CLOSE (C); OPEN (C)F$; DIM JBPLAN$:TPL$
0060 LET Q$=""",""",QQ$=""""
0070 REM 
0090 INPUT "Date cutoff: ",D1$; IF D1$(1,2)<"10" THEN ESCAPE; REM must be in 1yymmdd format
0092 PRINT "date: ",D1$,'LF',; INPUT "Enter Item to update: ",RIC$
0100 LET RIC$=PAD(RIC$,20)
0101 LET BATCHUPDATE=0; GOTO 0110
0102 LET BATCHUPDATE=1
0103 READ (JBITEM,KEY=RICMASK$,DOM=0104)
0105 READ RECORD(JBITEM)JBITEM$
0106 IF RICMASK$="" OR JBITEM$(1,LEN(RICMASK$))<>RICMASK$ THEN ESCAPE; ESCAPE
0107 LET RIC$=JBITEM.RIC$
0108 REM IF POS(RIC$=EMAIL1$)=0 THEN GOTO 0105
0110 READ RECORD(JBITEM,KEY=RIC$)JBITEM$
0200 PRINT JBITEM$
0290 INPUT "Hit <cr> to set 'Shipped From Rapid' Status: ",*
0295 READ (JBPLAN,KEY=RIC$,KNUM=6,DOM=0296)
0300 READ RECORD(JBPLAN,END=9000)JBPLAN$
0310 IF JBPLAN.RIC$<>RIC$ THEN GOTO 9000
0320 IF JBPLAN.DEALER$(1,2)="ZZ" THEN GOTO 0300
0325 IF JBPLAN.DEALER$(1,2)="19" THEN GOTO 0300; REM ESCAPE; REM SKIP?
0330 IF JBPLAN.REQUESTED_DATE$(2)<>"111111" AND JBPLAN.REQUESTED_DATE$>D1$ THEN GOTO 0300
0333 IF UNSHIP THEN IF CVS(JBPLAN.DROP_CARR$,3)<>"RAPD" THEN GOTO 0300
0335 IF UNSHIP THEN IF POS(JBPLAN.STATUS$="S")=0 THEN GOTO 0300 ELSE GOTO 0400
0340 IF POS(JBPLAN.STATUS$="IS") THEN GOTO 0300
0400 PRINT JBPLAN$
0500 LET JBPLAN.STATUS$="S"
0510 LET JBPLAN.QTYSHIPPED$=STR(NUM(JBPLAN.QTY$)),JBPLAN.SHIPDATE$="20"+D1$(2)
0520 LET JBPLAN.DROP_CARR$="RAPD",JBPLAN.DROP_PRO$="n/a"
0525 IF UNSHIP THEN LET JBPLAN.STATUS$="A",JBPLAN.QTYSHIPPED$="",JBPLAN.SHIPDATE$="",JBPLAN.DROP_CARR$="",JBPLAN.DROP_PRO$=""
0530 WRITE RECORD(JBPLAN)JBPLAN$
0535 IF UNSHIP THEN CALL "JBLOGW",JBPLAN.ORDERID$,"C","UNSET SHIPPED FROM RAPID STATUS",PGM(-2),NUM(JBPLAN.QTYSHIPPED$); GOTO 0550
0540 CALL "JBLOGW",JBPLAN.ORDERID$,"C","SET TO SHIPPED FROM RAPID STATUS",PGM(-2),NUM(JBPLAN.QTYSHIPPED$)
0690 GOTO 0300
1000 REM emaildump
1010 INPUT EMAIL0$
1020 LET EMAIL1$=EMAIL1$+EMAIL0$+$0A$
1030 GOTO 1010
8000 REM ^8000
8010 LET ERRMESSAGE$="ERROR "+STR(ERR)+" AT "+STR(TCB(5))+" IN "+PGM(-2)
8020 EXIT 
8030 REM PROBLEM
8040 LET RESULT$=RESULT$+"FAILED: "+ERRMSG$+"<BR>"
9000 REM ^9000    OUTTA HERE
9002 IF BATCHUPDATE THEN GOTO 0105
9005 GOTO 0092
9010 CLOSE (JBPLAN); CLOSE (JBITEM)
9015 PRINT "COMPLETE!!!!!!!!!!!!!!!!!!"
9020 EXIT 
9030 ESCAPE
10000 REM ^10000
10040 OPEN (OUT,MODE="O_CREATE,O_TRUNC")"/u/tmp/"+OUT$
10050 RETURN