This may be easy but I don't know. Below is a small section of the program that limits me from changing it. I can't compile it or change anything because it will not compile. Does anyone have any idea how to convert this somehow so I can read it.

SEL=POP.UP(COL,ROW,,VALUES,FORMAT,'R', - - ] 0………….5.6..4.qqq??R????rr°ppppppp°?±°q????°°q…………………………………………………… - - ] …………………………………………………………….3.qqq??rpp?p±R°ppppppp°qq°±q???°°?……… - - ] ………………………………………………………………………………………………….. - - ] ………40°°???p?p?rS°ppppppp°±qq?r°?°°°0…………………………………………………………….. - - ] …………………………………………………..5.0°°??°prp°rRppppppp°°?rruS??°°°0……………….. - - ] ………………………………………………………………………………………………….1 - - ] q°°?????rSQppppppp°q±tt°BP?°°°0………………………………………………………………………. - - ] ……………………………………………°qq????°supppppppp°?sQqpR²?°°°0…………………………. I really appreciate any help Rob </QUOTE> —- === At 19 OCT 2001 04:08PM Victor Engel wrote: === <QUOTE>I can't really tell from your post what is wrong. Perhaps something was lost in the translation to the web. Or maybe your source program has become corrupted. It would help if you could post the code somewhere where we can actually read it. </QUOTE> —- === At 19 OCT 2001 04:11PM Victor Engel wrote: === <QUOTE>I should have mentioned that if the source code got corrupted, you should still be able to find the strings used in the POP.UP arguments by inspecting the object code. You say you can't compile the program, but you didn't explain why. Do you get an error? If so, what does it say? </QUOTE> —- === At 19 OCT 2001 04:46PM The Sprezzatura Group wrote: === <QUOTE>Sounds like something got corrupted. It looks like the old pre 2.12 PDISK bug. You'll have to find a way to strip out the garbage. Cut&paste into a new record is our initial guess. The Sprezzatura Group World Leaders in all things RevSoft </QUOTE> —- === At 19 OCT 2001 08:04PM Robert Myslik wrote: === <QUOTE>The version must have been old but the system was upgraded since then. There are two programs one is the original, about 980 lines and compiles, the other is custom and stops at line 112 with the error "pop.up not defined". The funny thing is the program works fine the way it is. But there is no way for me to see what was customized and duplicate it to fix it and when I go to compile and then run the program as is it will not work and I have to restore the file from backup. I can paste the entire code here or to a link if it is easier just tell me which. I will do it Monday and thank you </QUOTE> —- === At 22 OCT 2001 07:15AM Robert Myslik wrote: === <QUOTE>OK so here is the whole thing. I really hope it helps! 0001 DECLARE SUBROUTINE MSG, CATALYST, LOCK.FILE 0002 DECLARE FUNCTION POP.UP, UNASSIGNED 0003 0004 COMMON RTID, RTE.INFO, RTE.EMP, RTITM, VRTITM, VALUES, ALL.TERMS, ALL.CMS 0005 COMMON ALL.DAYS, ALL.INVS, ALL.CASH, ALL.PROD, ALL.TIMES, ALL.TAXES, CASH.REC 0006 COMMON COA, OTS, CUST.FILE, SVC.FILE, CUST_SVC, INV.BATCH.FILE, COA.FILE 0007 CLEAR COMMON 0008 0009 MSG.MAP=A' 0010 MSG.MAP=1 0011 OPEN ,'ROUTE' TO ROUTE.FILE ELSE MSG('NO ROUTE FILE',A,,) ; STOP

0012 OPEN ,'SVC' TO SVC.FILE ELSE MSG('NO SVC FILE',A,,) ; STOP 0013 OPEN ,'TAX' TO TAX.FILE ELSE MSG('NO TAX FILE',A,,) ; STOP

0014 OPEN ,'CUST' TO CUST.FILE ELSE MSG('NO CUST FILE',A,,) ; STOP 0015 OPEN ,'CUST_SVC' TO CUST_SVC ELSE MSG('NO CUST_SVC FILE',A,,) ; STOP

0016 OPEN ,'COA_HOLD' TO COA.FILE ELSE MSG('NO COA.HOLD FILE',A,,) ; STOP 0017 OPEN ,'SERVICE_INFO' TO SERVICE_INFO ELSE MSG('NO SERVICE_INFO FILE',A,,) ; STOP

0018 OPEN ,'VERIFY_BATCH' TO BATCH.FILE ELSE MSG('NO VERIFY.BATCH FILE',A,,) ; STOP 0019 OPEN ,'INV_BATCH' TO INV.BATCH.FILE ELSE MSG('NO INV.BATCH FILE',A,,) ; STOP

0020 OPEN ,'RCPT_BATCH' TO RCPT.BATCH.FILE ELSE MSG('NO RCPT.BATCH FILE',A,,) ; STOP 0021 OPEN 'DICT','INV_BATCH' TO DICT.INV.BATCH.FILE ELSE MSG('NO DICT.INV.BATCH FILE',A,,) ; STOP 0022 OPEN 'DICT','RCPT_BATCH' TO DICT.RCPT.BATCH.FILE ELSE MSG('NO DICT.RCPT.BATCH FILE',A,,) ; STOP 0023 OPEN 'DICT','SERVICE_INFO' TO DSERVICE_INFO ELSE MSG('NO DICT_SERVICE_INFO FILE',A,,) ; STOP 0024 10 * 0025 RVAL=' 0026 @PSEUDO=' 0027 CATALYST('W','@TEMPLATES_MAP@ ROUTE.VER') 0028 IF @PSEUDO=' THEN STOP 0029 ROUTE=@PSEUDO 0030 DATE=@PSEUDO 0031 RTID=ROUTE:'*':DATE 0032 12 * 0033 STATUS=1 0034 LOCK.FILE(ROUTE.FILE,RTID,STATUS) 0035 IF STATUS=0 THEN GO 10 0036 READ RTITM FROM ROUTE.FILE,RTID THEN ROUTE.READ=1 ELSE 0037 | ROUTE.READ=0 0038 | RTITM=' 0039 END 0040 STATUS=1 0041 LOCK.FILE(BATCH.FILE,RTID,STATUS) 0042 IF STATUS=0 THEN 0043 | UNLOCK ROUTE.FILE,RTID 0044 | GO 10 0045 END 0046 READ VRTITM FROM BATCH.FILE,RTID THEN VRREAD=1 ELSE 0047 | VRREAD=0 0048 | VRTITM=' 0049 END 0050 IF ROUTE.READ OR VRREAD THEN NULL ELSE 0051 | MSG.MAP=RC' 0052 | DORESP=N' 0053 | MSG.TEXT=Route or verified information can be found|' 0054 | MSG.TEXT:=for this date and route.|Do you wish to continue Y/N' 0055 | MSG(MSG.TEXT,MSG.MAP,DORESP,)

0056 | IF DORESP=Y' OR DORESP=YES' THEN NULL ELSE

0057 | | UNLOCK ROUTE.FILE,RTID

0058 | | UNLOCK BATCH.FILE,RTID

0059 | | GO 10

0060 | END

Source Code Listing For: CUSTOM_BP,ROUTE.VER 07:1822 OCT 2001

0061 END

0062 RTE.INFO=XLATE("RTE",ROUTE,"","X")

0063 RTE.DESC=RTE.INFO

0064 RTE.EMP=RTE.INFO

0065 IMAGE='

0066 *

0067 * BUILDING THE POPUP AND THE GLOBAL ALL VARIABLES IN THE SUBROUTINE.

0068 MSG.MAP=UB'

0069 MSG('Preparing Verification Info, Please Wait.',MSG.MAP,IMAGE,) 0070 * 0071 CALL ROUTE.VER.SUB('TOP') 0072 * 0073 * 0074 MSG.MAP=DB' 0075 MSG(,MSG.MAP,IMAGE,) 0076 IMAGE=' 0077 EMP.NAME=XLATE("EMP",RTE.EMP,"1","X") 0078 TOP.ROW=1 0079 RCHEM.CNT=COUNT(RTE.INFO,@VM)+(RTE.INFO#)

0080 RCMS='

0081 CH.DESCS=XLATE("CHEM",RTE.INFO,1,"X")

0082 FOR I=1 TO RCHEM.CNT

0083 | RLINE=(RTE.INFO:' ':CH.DESCS)'L#18':' '

0084 | RLINE:=RTE.INFO'L#3':' ':OCONV(RTE.INFO,'MD2')'R#6':' '

0085 | RLINE:=OCONV(RTE.INFO,'MD4')'R#7':' ':RTE.INFO'C#3':' '

0086 | RCMS=RLINE 0087 NEXT I 0088 LINE.INFO=*N*':@VM:'*NEW CUST*':@VM:'***':@VM:@VM:@VM:@VM:@VM:@VM:@VM 0089 VALUES=INSERT(VALUES,-1,0,0,LINE.INFO) 0090 FIRST.POPUP: 0091 TOT.CASH=SUM(CASH.REC) 0092 TOT.TIME=SUM(ALL.TIMES) 0093 TOT.TIME=INT(TOT.TIME/36) 0094 TOT.TIME=TOT.TIME/100 0095 TOT.PROD=SUM(ALL.PROD) 0096 :ROUTE:' ':RTE.DESC:' Date: ':OCONV(DATE,'D2-'):@VM 0097 TITLE:=Technician: ':RTE.EMP:' ':EMP.NAME:@VM 0098 TITLE:=Default Chemical UOM Amount Percent Loc: Post Date: ':OCONV(DATE(),'D2-')'R#17':@VM 0099 TITLE:=—————— — —— ——- — Total Production: ':OCONV(TOT.PROD,'MD2$')'R#10':@VM 0100 TITLE:=RCMS'L#48':'Total Cash: ':OCONV(TOT.CASH,'MD2$')'R#16':@VM 0101 TITLE:=RCMS'L#48':'Time Worked: ':(TOT.TIME:'hrs')'R#15':@VM 0102 TITLE:=RCMS'L#48':SPACE(28):@VM 0103 FOR RR=4 TO RCHEM.CNT 0104 | TITLE:=RCMS'L#48':SPACE(28):@VM 0105 NEXT RR 0106 FORMAT=1:8:L::Code\2:11:L::Name\3:7:L::Service\12:3:L::DT\4:3:L::Don\5:8:L::Invoice #' 0107 FORMAT:=\6:3:L::Inv\7:8:R:MD2$:Cash Rec\8:5:L::Ref #\9:4:L::Chem\10:4:L::Prt' 0108 TITLE:=Highlight Customer to change and hit , when done.' 0109 COL.ROW=1: @FM :TOP.ROW 0110 TYPE=P':@SVM:1:@SVM::@SVM:1 0111 COL=0 ; ROW=1 0112 SEL=POP.UP(COL,ROW,,VALUES,FORMAT,'R', - - ] 0………….5.6..4.qqq??R????rr°ppppppp°?±°q????°°q…………………………………………………… - - ] …………………………………………………………….3.qqq??rpp?p±R°ppppppp°qq°±q???°°?……… - - ] ………………………………………………………………………………………………….. - - ] ………40°°???p?p?rS°ppppppp°±qq?r°?°°°0…………………………………………………………….. - - ] …………………………………………………..5.0°°??°prp°rRppppppp°°?rruS??°°°0……………….. - - ] ………………………………………………………………………………………………….1 - - ] q°°?????rSQppppppp°q±tt°BP?°°°0………………………………………………………………………. Source Code Listing For: CUSTOM_BP,ROUTE.VER 07:1822 OCT 2001 - - ] ……………………………………………°qq????°supppppppp°?sQqpR²?°°°0…………………………. - - ] …………………………………………………………………………………………q°°°????Rtp - - ] ?pppppp°r?q°?3R?°°°…………………………………………………………………………………. - - ] ………………………………….?°°°°°??rr???pppp°°r°q?°uQ?°°°……………………………………. - - ] …………………………………………………………………………………1°°°°??????pppp°?rq° - - ] ?±t°?°°q…………………………………………………………………………………………… - - ] ………………………….42°°°°?????ppp°°?rq°qsS??°qq……………………………………………… - - ] …………………………………………………………………………30°°°??????????.q°?vs??°°q… - - ] ………………………………………………………………………………………………….. - - ] ………………57765.1°°°°?????????r?sU°?°°°?……………………………………………………….. - - ] ……………………………………………………………46…..2?°°°???????°RSUr??°°°0………….. - - ] ………………………………………………………………………………………………….. - - ] …………..1??°°°??????qQsr??°°°°0…………………………………………………………………. - - ] …………………………………………………………..?°°°??????qQ??°°°°°0……………………. - - ] ………………………………………………………………………………………………….. - - ] …….?q°°°????????°°°°0r…………………………………………………………………………… - - ] …………………………………………………..4.°°°?????°°°°°°1………………………………. - - ] ………………………………………………………………………………………………….. - - ] ?°°°°°°°°°°°1………………………………………………………………………………………. - - ] …………………………………………5..2°°°°°°°°°q…………………………………………… - - ] ………………………………………………………………………………………56…..???.0?0 - - ] ?…………………………………………………………………………………………………. - - ] ………………………………………..0……………………ú…¤……………………………… - - ] …………………………………………………………………………………..7…………….. - - ] ………………………………………………………………………………………………….. - - ] …………………………..6…………………………………………………………………….. - - ] ………………………………………………………………………….67…………………….. - - ] ………………………………………………………………………………………………….. - - ] ………………….889……………………………………………………………………………. - - ] ………………………..SSSssssSSQrRs….BaC.7.333..2.0???…:7..1..°°°°°°°°?pp?°S³².ts?ppppppppq?0°.°p???°° - - ] °°……………..697……………….0°?°…°°°°°°.°6………°.034…E9;.;: Thanks again and contact me directly if you can rmyslik968@aol.com - 516-593-7770 x-125. </QUOTE> —- === At 22 OCT 2001 07:56AM The Sprezzatura Group wrote: === <QUOTE>We'll still stick with our PDISK theory. Regretfully what you have is a corrupted program. You'll need to restore from backup if you have one. We COULD help you fix the popup line but we don't know what is meant to follow it - again we could take guesses. Do you have the compiled version? BTW the error message seems to be wrong - shouldn't it warn that NO routing information can be found? The Sprezzatura Group World Leaders in all things RevSoft </QUOTE> —- === At 22 OCT 2001 12:50PM Victor Engel wrote: === <QUOTE>I agree that it appears to be a corrupted source file, particularly given the context of the previous lines. The syntax of pop.up includes the parameters col, row, file, display, format, mode, select, title, attributes, help, coordinates, type. These could be coded in-line, and at first I thought maybe that was done. However, by the context, you can see that variables have been set up for these most of these parameters. So one would expect them to be listed in the call. And indeed they are, up until the corruption. You can verify this by inspecting the object code, as any literals would be present there. I hope you are able to recover from backup. Otherwise, it appears to me this will have to be rewritten. Given that there is corruption here, there is a potential that there is corruption elsewhere. It would be a good idea to scan for it if you have not done so already. </QUOTE> —- === At 24 OCT 2001 09:20AM Robert Myslik wrote: === <QUOTE>Thank you all I resolved the problem, with your help of course! </QUOTE> —- === At 24 OCT 2001 09:20AM Robert Myslik wrote: === <QUOTE>Thank you all I resolved the problem, with your help of course! </QUOTE> —- === At 24 OCT 2001 12:34PM Don Miller - C3 Inc. wrote: === <QUOTE>Responses in stereo Don </QUOTE> View this thread on the forum...