REPOSTED IN MULTIPLE PARTS FOR USER - PART I
From: "Brutzman, Bill" <[EMAIL PROTECTED]>
To: "'[EMAIL PROTECTED]'" <[EMAIL PROTECTED]>
Subject: UniBasic DeBug - Text After END
Date: Thu, 7 Oct 2004 12:09:07 -0400
In trying to smash two separate [working] programs together into a single
program [attached], I obtain the pesky UniBasic complier error...Text found
after END.
Suggestions, hints, or fixes would be appreciated.
--Bill
* P.NAME = 'PACK.PARTS'
* P.REV = '1.0'
* P.DESC = 'Packing parts program '
* P.DATE = ''
* P.TL = ''
$INSERT HOP.COMMON.R2
equate true to 1, false to 0
dim BALANCE.QTY(10)
dim CARTONS(10)
dim CUST.PART(10)
dim CUST.PO.NBR(10)
dim DRUMS(10)
dim EXACT(10)
dim HK.PART(10)
dim LBS.BOX(10)
dim LOC.NAME(10)
dim LOC.QTY(10)
dim LOC.NBR(10)
dim NET.WGT(10)
dim NOTES(10)
dim PCS.BOX(10)
dim PCS.LB(10)
dim QTY.RESTOCKED(10)
dim QTY.TAKEN(10)
dim R.PACK(10)
dim UNIT.MEAS(10)
*--------------------------------------
ASSIGN.STD.VARIABLES:
prompt ''
LON = @(-5)
LOF = @(-6)
AM = CHAR(254) ;* Attribute mark
VM = CHAR(253) ;* Value Mark
SVM = CHAR(252) ;* Subvalue mark
IP = 'IP' ;* Iconv exit for input
EP = 'EP' ;* Iconv exit for error messages
DM1 = '' ;* Dummary Variable
DM2 = '' ;* Dummary Variable
DM3 = '' ;* Dummary Variable
DM4 = '' ;* Dummary Variable
DM5 = '' ;* Dummary Variable
DM6 = '' ;* Dummary Variable
WHO = '' ;* Initialize to Null
TERM.DATA = '' ;* Initialize to Null
L = '' ;* Initialize to Null
C = '' ;* Initialize to Null
CURSOR.TABLE = '' ;* Initialize to Null
LL = '' ;* Initialize to Null
PRT.DATA = '' ;* Initialize to Null
WHO<1> = @LOGNAME ;* Account Name
WHO<3> = @userno ;* Port Number
PORT.NBR = WHO<3> ;* Port number
LOGON.ACCOUNT = WHO<1> ;* Account name
TODAY = DATE() ;* Todays internal date
C188 = CHAR(188) ;* Special separator
EXTRA.IP = '?NO?' ;* Set extra input
* call *IO.OPEN(TERM.DATA,L,C,LL,PRT.DATA,DM1,DM2,DM3)
T = TERM.DATA ;* Duplicate terminal
CLR = TERM.DATA<1> ;* Clear Entire Screen
EOS = TERM.DATA<2> ;* Clear to end of screen
EOL = TERM.DATA<3> ;* Clear to end of line
BELL = TERM.DATA<4> ;* Ring bell
TAB = TERM.DATA<5> ;* Tab
L24 = TERM.DATA<11,1> ;* 24th Line
L23 = TERM.DATA<11,2> ;* 23rd Line
AUX.ON = TERM.DATA<6> ;* Aux Prt On
AUX.PRT = TERM.DATA<7> ;* Aux Print
AUX.OFF = TERM.DATA<8> ;* Aux Prt Off
FAT = PRT.DATA<1> ;* Fat print Code
SMS.PRINTER.ON.FLAG = 0 ;* ?
ERROR = 0
*--------------------------------------
OPEN.FILES:
Total.Boxes = 1
Net.Weight = 0
Lbs.Total = 0
Lbs.Total.F = ''
Pcs.Per.Box = 0
Pcs.Per.Box.F = ''
Pcs.Total = 0
Supplier.ID = '001329226'
open 'ACTION.1' to F.ACTION.1 else null
open 'CM' to F.CM else null
open 'CM.XREF' to F.CM.XREF else null
open 'DAILY-SOD' to F.DAILY.SOD else null
open 'EXTRA.CHARGE.CODES' to F.ECC else null
open 'EXTRA.CHARGE.CODES.XREF' to F.ECC.XREF else null
open 'GL-COA' to F.GL.COA else null
open 'GL-COMPANY' to F.GL.COMPANY else null
open 'IM' to F.IM else null
open 'IM.AUX' to F.IM.AUX else null
open 'IM.XREF' to F.IM.XREF else null
open 'INVOICE' to F.INVOICE else null
open 'IPL' to F.IPL else null
open 'IT' to F.IT else null
open 'OP' to F.OP else null
open 'OP.XREF' to F.OP.XREF else null
open 'PACK.SLIPS' to F.PACKSLIPS else null
open 'POH' to F.POH else null
open 'POD' to F.POD else null
open 'PRESS' to F.PRESS else null
open 'PRESS.XREF' to F.PRESS.XREF else null
open 'PRICE.CODE' to F.PRICE.CODE else null
open 'PRICE.CODE.XREF' to F.PRICE.CODE.XREF else null
open 'QUOTATION' to F.QUOTE.FILE else null
open 'RM' to F.RM else null
open 'RM.IPL' to F.RM.IPL else null
open 'RM.AUX' to F.RM.AUX else null
open 'RM.XREF' to F.RM.XREF else null
open 'RM.BASE' to F.RMB else null
open 'RM.BASE.XREF' to F.RMB.XREF else null
open 'SALESPERSON' to F.SALESPERSON else null
open 'SALES.REP' to F.SALES.REP else null
open 'SALES.REP.XREF' to F.SALES.REP.XREF else null
open 'SHIP.TO' to F.SHIP.TO else null
open 'SO.BOOKINGS' to F.SO.BOOKINGS else null
open 'SOD' to F.SOD else null
open 'SOH' to F.SOH else null
open 'SO.XREF' to F.SO.XREF else null
open 'SHIP.TO' to F.SHIP.TO else null
open 'SYS.CTL' to F.SYS.CTL else null
open 'VEN' to F.VEN else null
open 'VOC' to F.VOC else null
open 'WOH' to F.WOH else null
open 'XREF.CTL' to F.XREF.CTL else null
*--------------------------------------
Clear.Variables:
MAT R.PACK = ''
MAT CARTONS = ''
MAT DRUMS = ''
MAT QTY.TAKEN = ''
MAT QTY.RESTOCKED = ''
MAT PCS.LB = ''
MAT UNIT.MEAS = ''
REL.DATE = ''
MAT LBS.BOX = ''
MAT PCS.BOX = ''
MAT NET.WGT = ''
MAT NOTES = ''
MAT EXACT = ''
MAT HK.PART = ''
Status = ''
DATE.SHIPPED = ''
GROSS.WGT = ''
SHIP.TO.CODE = ''
MAT CUST.PO.NBR = ''
ORIG.QTY.TO.SHIP = ''
QTY.TO.SHIP = ''
ORIG.ITM.TO.SHIP = ''
ITM.TO.SHIP = ''
LOC.Scr.FLAG = 1 ;* 1 -if first 5 locations are
currently on the screen, or 6 otherwith
JOB.NBR = ''
SHIP.CNT = ''
CREDIT.INSTR = ''
*------------------------------------
CREATE.ENTRY.ScrEEN:
Scr = @(-1) : @(0,0) : ' \__ PKP __/ PacK Parts ' : @(63,0) :
oconv(TODAY,'D2/') : LOF
Scr.PS = Scr
Scr := @( 4, 2) : LON : "Job Number" : LOF : SPACE(31):
LON : "Order Information" : LOF
Scr := @( 4, 3) : LON : "Ship-To Information" : LOF
Scr := @(45, 3) : LON : FMT("9 Date Shipped",'17L') : LOF
Scr := @(45, 4) : LON : FMT("HK PN ",'17L') : LOF
Scr := @(45, 5) : LON : FMT("Cust PO ",'17L') : LOF
Scr := @(45, 6) : LON : FMT("Cust PN ",'17L') : LOF
Scr := @(45, 7) : LON : FMT("Qty",'17L') : LOF
Scr := @( 0,13) :" 1 ": LON:"How Packed " : LOF
Scr := @(21,13) : LON :"Cartons" : LOF
Scr := @(33,13) : LON :"Drums" : LOF
Scr := @(50) : LON :'Taken' : LOF
Scr := @( 0,14) :" ": LON:"Location ": LOF
Scr := @( 0,15) :" ": LON:"Qty ": LOF
Scr := @( 0,16) :" 2 ": LON:"Qty Taken ": LOF
Scr := @( 0,17) :" ": LON:"Qty Re-Stock ": LOF
Scr := @( 0,18) :" 3 ": LON:"Pcs/Lb ": LOF
Scr := @(30) : LON :'Lbs/Box' : LOF
Scr := @(50) : LON :'Pcs/Box' : LOF
Scr := @( 0,19) :" 4 ": LON:"Gross Wgt ": LOF
Scr := @(30) : LON :'Total Net' : LOF
Scr :=@(0,20):" 5 ": LON:"Ship Via " : LOF
Scr :=@(0,21):" 6 ": LON:"Status " : LOF
*----------------------------------------------------------------------------
--
[demime 1.01d removed an attachment of type text/x-vcard which had a name of u2ug.vcf]
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
