Google
 
Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/demo/payables_rec.cdd-record
There are no other files named payables_rec.cdd-record in the archive.
@8@A2A@AiB5B`CPAYABLE

CT@)@*ORDERNUM9(7)
@Q@RATYPE

A288@_@{@aAMANUFACTURERBUILDERX(10),;@}VENDOR

A2AAA/MODELX(10):, ;A,ITEM_TYPE

CTX8ALANBWHSLE_PRICE9(5)$$$,$$$

CT8AuBAwITEMS_RECEIVED	NN/DD/YY&"NO GOODS",0Ay 0Az010101

CT@A|BFBAINVOICE_DUE	NN/DD/YY&"NO INVCE",,?BC 0BD010101

CTHBmBsBnBILL_PAID	NN/DD/YY&"NOT PAID",MBp 0Bq010101

CTCC9C!CAGEZ9,U FN$FLOOR(("TODAY" - INVOICE_DUE)/30)
DEFINE RECORD PAYABLES_REC USING
	     01 PAYABLE.
         05 ORDER_NUM PIC 9(7).
	         05 TYPE.
             10 MANUFACTURER    PIC IS X(10)
                QUERY_NAME IS BUILDER
                QUERY_HEADER IS "VENDOR".
             10 MODEL           PIC IS X(10)
                QUERY_HEADER IS "ITEM_TYPE".
         05 WHSLE_PRICE   PIC 9(5)
                 EDIT_STRING IS $$$,$$$.
         05 ITEMS_RECEIVED      USAGE IS DATE
                MISSING VALUE IS "010101"
                EDIT_STRING IS NN/DD/YY&"NO GOODS".
         05 INVOICE_DUE         USAGE IS DATE
                MISSING VALUE IS "010101"
                EDIT_STRING IS NN/DD/YY&"NO INVCE".
         05 BILL_PAID           USAGE IS DATE
                MISSING VALUE IS "010101"
                EDIT_STRING IS NN/DD/YY&"NOT PAID".
!         05 AGE COMPUTED BY FN$FLOOR(("TODAY" - INVOICE_DUE)/30)
                EDIT_STRING IS Z9.
;