|
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;