Google
 

Trailing-Edge - PDP-10 Archives - KS10_APT_INSTALL_TAPE - uetp/lib/ordent.sch
There is 1 other file named ordent.sch in the archive. Click here to see a list.
cSYSTEM|(
x@AREA1 DSK:CUSFIL.DBS.0CUSFIL.TMP}p27x@AREA2 DSK:ORDFIL.DBS.0ORDFIL.TMP8dix@AREA3 DSK:PRDFIL.DBS.0PRDFIL.TMPX}x@AREA4 DSK:SYSFIL.DBS.0SYSFIL.TMPJRN:ORDENT.JRN	

27IDAREA0)  CUST-NAMEX(30)	00CUST-KEYS9(10)	0-CUST-ADDRESS


PURORD	

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

P9 $ORDER-NET9(7)V99
(ITEM
27-LINE9(9)x! $ITEM-PROD-NOX(8)x	 
ITEM-QTY99
x	9 <ITEM-NET9(7)V99x
xPRODdi 
!  PROD-NOX(8) ) 0PROD-DESCPRDESCX(48) 9 0PROD-PRICE9(6)V994\4V0PMHD0>,9420,*H!400,	H}0w0q0k(
fdaHXXj 
 PROD-LEAD-TIME999 
! <PROD-ON-HAND9(6) ! 
PROD-INSTALLEDPINS9(5)@ORDSUMORDSUM-KEY27h0ORDSUM-ORDERSOSORDS9(10)h! ORDSUM-NO9(6)``SLSENG
)  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-}

P!UNIT-PROD-NOX(8)@CUSORD-SET	
x@x`P`SLSCUS-SET3  ALLORD-SETP@@SYSUNI-SETP@FS1(
eb4\Y4SP4JGE4> : 6
524,)4#44H
84}4v4p0jgH^0X8Q4KHH?09820(
+H"84444@PORDERSUBS1	 -	04  STREET	PIC X(36).
	04  CITY	PIC X(34).
	04  STATE	PIC X(14).
	04  ZIP		PIC X(6).
 /	04  SLSENG-AREA-NO	PIC XXX.
	04  SLSENG-PHONE-NO	PIC X(8).
	04  SLSENG-EXTENSION	PIC XXXX.
ORDERSUBS2 -	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.
\	D\	9\	-\	"(
\	\	(