|
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: 20066 (0x4e62)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »E_INIT_S«
└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
└─⟦this⟧ »E_INIT_S«
/* *** This Program Initializes Employee File April 11th 1978 *** */
/* "EMPLOYEE INITIALIZATION PROGRAM - Version : 2" Version Message */
/* *** File Record Length 330 Bytes, w/ two Such Records/Employee *** */
PUT FILE(D) SKIP EDIT('EMPLOYEE INITIALIZATION ')(A)
('PROGRAM - Version : 2.0')(A);
DCL DEDUCTNS FILE;
DCL EMPLOYEE FILE;
DCL 1 DATE,
2 MONTH FIXED(2) INIT(0),
2 DAY FIXED(2) INIT(0),
2 YEAR FIXED(2) INIT(0);
DCL 1 DEDCTION(8),
2 DEF CHAR(10),
2 AF FIXED(7,2),
2 FF BINARY, /* 0-No Participation */
2 PFP FIXED(4,2), /* 7-Maximum Attained */
2 MXF FIXED(7,2), /* 1-Monthly Deduction */
2 TF FIXED(9,2); /* 2-SemiMonthly Dedn */
DCL 1 BUFF, /* 3-BiWeekly Deductn */
2 DE CHAR(10), /* 4-Weekly Deduction */
2 ADM FIXED(7,2),
2 F BINARY,
2 PF_P FIXED(4,2),
2 MX FIXED(7,2),
2 T FIXED(9,2);
DCL 1 IBUFF,
2 BV FIXED(4,1) INIT(0),
2 BS FIXED(4,1) INIT(0),
2 BR1 FIXED(8,2) INIT(0),
2 BR2 FIXED(8,2) INIT(0),
2 BR3 FIXED(8,2) INIT(0),
2 BR4 FIXED(8,2) INIT(0),
2 BR7 FIXED(8,2) INIT(0), /* This was added later & must */
2 BR5 FIXED(8,2) INIT(0), /* Nonce stay in this sequence */
2 BR6 FIXED(8,2) INIT(0),
2 BST1 FIXED(8,2) INIT(0),
2 BST2 FIXED(8,2) INIT(0),
2 BST3 FIXED(8,2) INIT(0),
2 BST4 FIXED(8,2) INIT(0);
DCL 1 DBUFF,
2 DF BINARY INIT(0),
2 CN BINARY INIT(0),
2 XD BINARY INIT(0),
2 AN FIXED(7,2) INIT(0),
2 PP FIXED(4,2) INIT(0),
2 MA FIXED(7,2) INIT(0),
2 CU FIXED(7,2) INIT(0);
/* *** This Record Length 660 Bytes, 2 Recs @ 330 Bytes Each *** */
DCL 1 EMPLOYE,
2 SORT_DEPT FIXED(3),
2 G_INFO,
3 LASTNAME CHAR(14),
3 OTH_R,
4 FIRST CHAR(10),
4 MI CHAR(1),
3 RECNO FIXED(1),
3 E# FIXED(4),
3 SOC_SEC#,
4 S_3 FIXED(3),
4 S_2 FIXED(2),
4 S_4 FIXED(4),
3 BIRTHDATE,
4 B_MONTH FIXED(2),
4 B_DAY FIXED(2),
4 B_YEAR FIXED(2),
3 SEX CHAR(1),
3 ADDRESS CHAR(18),
3 CITY CHAR(16),
3 STATE CHAR(2),
3 ZIPCODE FIXED(5),
3 TEL#,
4 AC FIXED(3),
4 T_3 FIXED(3),
4 T_4 FIXED(4),
2 JOB_INFO,
3 GL_CODE,
4 DEPT FIXED(3),
4 ACOUNT# FIXED(5),
3 STARTDATE,
4 S_MONTH FIXED(2),
4 S_DAY FIXED(2),
4 S_YEAR FIXED(2),
3 PAYCODE BINARY, /* 1-Salaried ¬1-Hourly */
3 RATE FIXED(7,2), /* Maximum Weekly of $99,999.99 */
3 P_FREQ BINARY, /* 1-Monthly 2-SemiMonthly 3-BiWkly 4-Wkly */
3 #RG_HRSWK FIXED(4,2),
3 OT_RATE FIXED(3,2),
2 TAX_INFO,
3 MARITAL BINARY,
3 FED_EXEM BINARY,
3 STATE_EX BINARY,
3 CITY_EXEM BINARY,
3 S_TXBL BINARY, /* Sickpay 1-SUI Taxable */
2 LAST_CHECK, /* 2-FICA Taxable */
3 #REG_HRS FIXED(5,2), /* 3-BOTH Taxable */
3 SICK FIXED(5,2),
3 VAC FIXED(5,2),
3 OT_HRS FIXED(5,2), /* 0-NEITHER Txbl */
3 SICKPAY FIXED(7,2),
3 REG_EARN FIXED(7,2),
3 OT_EARN FIXED(7,2),
3 OTHER_ERN FIXED(7,2), /* Other Earnings-Taxable */
3 OTHER_NTX FIXED(7,2), /* Other Earnings-NonTxbl */
3 CHECK,
4 CHECK# FIXED(5),
4 P_DATE,
5 P_MONTH FIXED(2),
5 P_DAY FIXED(2),
5 P_YEAR FIXED(2),
4 NET FIXED(7,2),
3 TXBL_GR FIXED(7,2),
3 TOT_EARN FIXED(7,2),
3 DEDNS(8) FIXED(7,2),
3 FED_TX FIXED(7,2),
3 FICA FIXED(5,2),
3 ST_TAX FIXED(6,2),
3 CITY_TX FIXED(6,2),
3 UNEMPL_TX FIXED(6,2),
3 DDQ(8) FIXED(7,2),
3 DDY(8) FIXED(7,2),
2 I_CODE BINARY,
2 I_DATE,
3 I_MONTH FIXED(2),
3 I_DAY FIXED(2),
3 I_YEAR FIXED(2),
2 OLD_CHECK_FLAG CHAR(1) INIT(' '),
2 SPECIAL_TAX_INFO,
3 FED_PLUG FIXED(7,2) INIT(0),
3 FTABLE_FLAG CHAR(1) INIT('Y'),
3 STATE_PLUG FIXED(7,2) INIT(0),
3 STABLE_FLAG CHAR(1) INIT('Y'),
3 CITY_PLUG FIXED(7,2) INIT(0),
3 CTABLE_FLAG CHAR(1) INIT('Y'),
2 CHECK_FLAG CHAR(1),
2 FILLER CHAR(22);
DCL 1 EMPLOYEB,
2 SORT_D_B FIXED(3),
2 SORT_LN CHAR(14),
2 SORT_FN CHAR(10),
2 SORT_MI CHAR(1),
2 RECNO_B FIXED(1),
2 B# FIXED(4),
2 DEDUCTIONS(8),
3 D_FREQ BINARY,
3 COUNTER BINARY,
3 XDAYS BINARY,
3 AMOUNT FIXED(7,2),
3 PF_PCT FIXED(4,2),
3 MAX_AMT FIXED(7,2),
3 CURRENT FIXED(7,2),
2 INFO(2), /* 1-YTD, 2-QTD */
3 VAC_HRS FIXED(4,1),
3 SICK_HRS FIXED(4,1),
3 REG$ FIXED(8,2),
3 OT$ FIXED(8,2),
3 SICK$ FIXED(8,2),
3 OTHER$ FIXED(8,2),
3 OTHERNTX$ FIXED(8,2),
3 GROSS$ FIXED(8,2),
3 FEDTAX FIXED(8,2),
3 FICATX FIXED(8,2),
3 STATETX FIXED(8,2),
3 CITYTAX FIXED(8,2),
3 UNEMPLYMT FIXED(8,2),
2 FILL CHAR(8);
OPEN EMPLOYEE;
OPEN DEDUCTNS;
READ FILE(DEDUCTNS) INTO(DEDCTION);
SORT_DEPT = 0;
SORT_D_B = 0;
LASTNAME = 'MTYFILE RECORD';
SORT_LN = LASTNAME;
FIRST = 'INITIALIZD';
SORT_FN = FIRST;
MI = ' ';
SORT_MI = MI;
RECNO = 1;
RECNO_B = 2;
E# = 0;
B# = 0;
S_3 = 0;
S_2 = 0;
S_4 = 0;
BIRTHDATE = DATE;
SEX = 'X';
ADDRESS = ' ';
CITY = ' ';
STATE = ' ';
ZIPCODE = 0;
AC = 0;
T_3 = 0;
T_4 = 0;
DEPT = 0;
ACOUNT = 0;
STARTDATE = DATE;
PAYCODE = 0;
RATE = 0;
P_FREQ = 0;
#RG_HRSWK = 0;
OT_RATE = 0;
MARITAL = 0;
FED_EXEM = 0;
STATE_EX = 0;
CITY_EXEM = 0;
S_TXBL = 0;
#REG_HRS = 0;
SICK = 0;
VAC = 0;
OT_HRS = 0;
SICKPAY = 0;
REG_EARN = 0;
OT_EARN = 0;
OTHER_ERN = 0;
OTHER_NTX = 0;
CHECK# = 0;
P_DATE = DATE;
NET = 0;
TXBL_GR = 0;
TOT_EARN = 0;
FED_TX = 0;
FICA = 0;
ST_TAX = 0;
CITY_TX = 0;
UNEMPL_TX = 0;
I_CODE = 0;
I_DATE = DATE;
CHECK_FLAG = '1';
DO I = 1 TO 8;
DEDNS(I) = 0;
DDQ(I) = 0;
DDY(I) = 0;
DEDUCTIONS(I) = DBUFF;
END;
INFO(1) = IBUFF;
INFO(2) = IBUFF;
FILLER = ' ';
FILL = ' ';
WRITE FILE(EMPLOYEE) FROM(EMPLOYE);
WRITE FILE(EMPLOYEE) FROM(EMPLOYEB);
CLOSE EMPLOYEE;
END;