|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2054 (0x806)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »DINVFL«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »DINVFL«
/**PRINT INVOICING DEMONSTRATION FILE PROGRAM */
MHEAD:PROCEDURE;
PUT SKIP LIST(' ACCOUNT # NAME AND ADDRESS ');
PUT LIST(' BALANCE ');PUT SKIP(2); RETURN; END;
THEAD: PROC;
PUT SKIP LIST(' STOCK # DESCRIPTION ');
PUT LIST('UNIT PRICE1 PRICE2 PRICE3 PRICE4 QTY ON_HAND');
PUT SKIP(2); RETURN; END;
DCL CLENTMA FILE;
DCL STOCKFL FILE;
DCL 1 CLENTMAS_REC, 2 CACCT_NO CHAR(6), 2 M_NAME(4) CHAR(30),
2 M_BALANCE FLOAT(8);
DCL 1 STOCKMAS_REC, 2 M_STOCKNO CHAR(6), 2 M_DESCRIPTION CHAR(30),
2 M_UNIT CHAR(6), 2 M_UNITPRICE(4) FLOAT (5), 2 ON_HAND FLOAT(5);
DCL TRANFL2 FILE;
OPEN CLENTMA; OPEN STOCKFL; CALL MHEAD;
READM: ON ENDFILE GO TO TH;READ FILE(CLENTMA) INTO(CLENTMAS_REC);
PUT SKIP EDIT(' ')(A(10))(CACCT_NO)(A(17))(M_NAME(1))(A(31));
DO I=2 TO 4; PUT SKIP EDIT(' ')(A(27))(M_NAME(I))(A(31)); END;
PUT EDIT(' ')(A(10))(M_BALANCE)(P'ZZZZZZV.99'); GO TO READM;
TH: CALL THEAD;
READT: ON ENDFILE GO TO ZZZ; READ FILE(STOCKFL) INTO (STOCKMAS_REC);
PUT SKIP EDIT(' ')(A(10))(M_STOCKNO)(A(17))(M_DESCRIPTION)(A(31))
(M_UNIT)(A(17));DO I=1 TO 4; PUT EDIT(M_UNITPRICE(I))(P'ZZZV.99')(' ')(A(2));
END; PUT EDIT (' ')(A(10))(ON_HAND)(P'ZZZZZ'); GO TO READT;
ZZZ: END;