Google
 
Trailing-Edge - PDP-10 Archives - red405a2 - 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\	-\	"(
\	\	(