|
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: 4819 (0x12d3)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »D_INIT_S«
└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
└─⟦this⟧ »D_INIT_S«
/* *** This Program Initializes the DEPARTMT File *** */
DCL DEPARTMT FILE;
DCL 1 DEPARTMENT,
2 ID# FIXED(3), /* Department Number */
2 INM CHAR(16), /* Department Name-Optional */
2 ISEX(2) BINARY, /* 1- # of Males, 2- # of F */
2 ITOTALS(2), /* 1 - YTD , 2 - QTD */
3 IVAC FIXED(8,2), /* Number of Vacation Hours */
3 ISICK FIXED(8,2), /* Number of Sick Hours */
3 IREG FIXED(8,2), /* Number of Regular Hours */
3 IOVER FIXED(8,2), /* Number of Overtime Hours */
3 IOTHRA FIXED(9,2), /* "Other-Taxable" Amount */
3 IOTHRB FIXED(9,2), /* "Other-NonTaxble" Amount */
3 IVAC$ FIXED(9,2), /* Total Vacation Amount */
3 ISICK$ FIXED(9,2), /* Total Sick Amount */
3 IREG$ FIXED(9,2), /* Total Regular Pay Amount */
3 IOT$ FIXED(9,2), /* Total Overtime Pay Amt */
3 IGROSS FIXED(9,2), /* Total Gross for Departmt */
3 IFEDTX FIXED(9,2), /* Total Federal Tax Amount */
3 IFICA FIXED(7,2), /* Total FICA Tax Amount */
3 ISUI FIXED(7,2), /* Total SUI & DIS Amount */
3 ISTATE FIXED(9,2), /* Total State Taxes Amount */
3 ICITY FIXED(9,2), /* Total City Taxes Amount */
2 DCOUNTER CHAR(2), /* '00'-Ready for current Pay-Freq #M,F */
2 IFILLER(4) CHAR(10) INIT(' ',' ',' ',' Y');
DCL 1 TINIT,
2 SVAC FIXED(8,2) INIT(0),
2 SSICK FIXED(8,2) INIT(0),
2 SREG FIXED(8,2) INIT(0),
2 SOVER FIXED(8,2) INIT(0),
2 SOTHRA FIXED(9,2) INIT(0),
2 SOTHRB FIXED(9,2) INIT(0),
2 SVAC$ FIXED(9,2) INIT(0),
2 SSICK$ FIXED(9,2) INIT(0),
2 SREG$ FIXED(9,2) INIT(0),
2 SOT$ FIXED(9,2) INIT(0),
2 SGROSS FIXED(9,2) INIT(0),
2 SFEDTX FIXED(9,2) INIT(0),
2 SFICA FIXED(7,2) INIT(0),
2 SSUI FIXED(7,2) INIT(0),
2 SSTATE FIXED(9,2) INIT(0),
2 SCITY FIXED(9,2) INIT(0);
ID# = 999;
INM = ('END OF FILE REC');
COUNTER = '00'; /* '11'-Yet have old P_FREQ Value for #M,F */
DO I = 1 TO 2;
ITOTALS(I) = TINIT;
ISEX(I) = 0;
END;
OPEN DEPARTMT;
WRITE FILE(DEPARTMT) FROM(DEPARTMENT);
CLOSE DEPARTMT;
PUT FILE(D) SKIP LIST('OK');
GET SKIP LIST('');
IFILLER(4) = (' N'); OPEN DEPARTMT;
READ FILE(DEPARTMT) INTO(DEPARTMENT); PUT FILE(D) LIST(IFILLER(4));
GET SKIP LIST('');
END;