Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - uetp/lib/ordtin.sch
There is 1 other file named ordtin.sch in the archive. Click here to see a list.
fSYSTEM|(
x@AREA1 DSK:CUSFIL.DBS.0CUSFIL.TMP
}p27x@AREA2 DSK:ORDFIL.DBS.0ORDFIL.TMP8dix@AREA3 DSK:PRDFIL.DBS.0PRDFIL.TMP	X}x@AREA4 DSK:SYSFIL.DBS.0SYSFIL.TMPJRN:ORDTIN.JRN	0CUSTOMLEAVE-0
0) CUST-NAMEX(30)00CUST-KEYCUSKEYS9(10)	0
CUSDBK	0-CUST-ADDRESS


PURORD	

X
!  ORDNUM9(6)X! ORDER-DATEX(6)
X ORDER-LINES999	

X9 $ORDER-NET9(7)V99
(ITEM
27-LINE9(9)	! $ITEM-PROD-NOX(8)	 
ITEM-QTY99

9 <ITEM-NET9(7)V99
xPRODdi(!  PROD-NOX(8)() 0PROD-DESCPRDESCX(48)(
9 0PROD-PRICE9(6)V994`4Y0SQHH0B,<4600-H$400,

H0{,u4o0if(
aHX	DXj(
 PROD-LEAD-TIME999(! PROD-ON-ORDER9(5)(! 
PROD-INSTALLEDPINS9(5)@ORDSUMORDSUM-KEY27p0ORDSUM-ORDERSOSORDS9(10)p! ORDSUM-NO9(6)` SLSENGSLSENG-DBK
) SLSENG-NAMEX(30)) 
SLSENG-OFFICESLSOFFX(24)SLSENG-PHONE
		 hSYSINS
}
		(!  SYSINS-NO9(6)


() 
SYSINS-LOCATIONX(24)

() SYSINS-MANAGERX(31)(9 <SYSINS-NET9(7)V99("! SYSINS-LAST-ORDER9(6)

@UNIT-
}UNIT-PROD-NOX(8)
! 0UNIT-QUANTITY9(5) CUSORD-SET	X `	   ORDITM-SET
@`
X`SLSCUS-SET3  ALLORD-SETX@@SYSUNI-SETX@g4a^4XU4OLJ4C ? ;
:741.4(4!4H844{4u0olHc0]8V4PM(
HH?09820(
+H"8444409ORDERSUBS1ORDERSUBS2	 -	04  STREET	PIC X(36).
	04  CITY	PIC X(34).
	04  STATE	PIC X(14).
	04  ZIP		PIC X(6).
 2	04  SLSENG-AREA-NO	PIC XXX.
	04  SLSENG-PHONE-NO	PIC X(8).
	04  SLSENG-EXTENSION	PIC XXXX.
	04	S 2LSENG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
	04	SLSENG XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
	04	SLSENG  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.
\	-\	"\	\	(
(