PDP-10 Archive: datatrieve/demo/sales_rec.cdd-record from BB-AI48A-BM

Trailing-Edge - PDP-10 Archives - BB-AI48A-BM - datatrieve/demo/sales_rec.cdd-record

There are no other files named sales_rec.cdd-record in the archive.

B BBDBTCSALESREC

CZ
B(B*SALES_NAMEX(20)

CZ BQSTART_DATE

CZHB`B{BtBbMONTHS_EMPZZ9. ("TODAY" - START_DATE)/30

CZHpPC"C$C>AMOUNT9(5)V99$$$,$$$.99DEFINE RECORD SALES_REC USING
01 SALESREC.
      05 SALES_NAME   PIC IS X(20).
      05 START_DATE   USAGE DATE.
      05 MONTHS_EMP   COMPUTED BY ("TODAY" - START_DATE)/30
                      EDIT_STRING IS ZZ9.
      05 AMOUNT       PIC IS 9(5)V99
                      EDIT_STRING IS $$$,$$$.99.
;