|
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: 3081 (0xc09)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »VE«
└─⟦b4c020431⟧ Bits:30008687 DDMQ1-0127_VERFIL
└─⟦this⟧ »VE«
DCL 1 VER,
2 VENR CHAR(6),
2 DATUM CHAR(6),
2 KOST CHAR(4) INIT(' '),
2 DEBET CHAR(4) INIT(' '),
2 KREDIT CHAR(4) INIT(' '),
2 BELOPP FIXED(11,2),
2 VTEXT CHAR(20),
2 KOD CHAR(2) INIT(' ');
DCL 1 VEO,
2 BKOST CHAR(4) INIT(' '),
2 BVEN CHAR(6),
2 BDATU CHAR(6),
2 BDEBE CHAR(4) INIT(' '),
2 BKRED CHAR(4) INIT(' '),
2 BBELOP CHAR(11) INIT(' '),
2 BVTEX CHAR(20),
2 BKOD CHAR(2) INIT(' ');
DCL VERIFILE FILE;
DCL VEFILE FILE;
OPEN VERIFILE;
OPEN VEFILE;
SPRING: ON ENDFILE GO TO SLUT;
READ FILE(VERIFILE) INTO(VER);
BVEN=VENR;
BDATU=DATUM;
BKOST=KOST;
BDEBE=DEBET;
BKRED=KREDIT;
BBELOP=BELOPP;
BVTEX=VTEXT;
BKOD=KOD;
WRITE FILE(VEFILE) FROM(VEO);
GO TO SPRING;
SLUT: CLOSE VEFILE;
END;