|
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: 9954 (0x26e2)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »R_INIT_S«
└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
└─⟦this⟧ »R_INIT_S«
/* Initialization Program for Payroll Report File - April 5th 1978 */
DCL RPTFILE FILE;
DCL 1 M_F_REC, /* # of MALES & FEMALES */
2 R_MF_RECNO CHAR(1) INIT('S'),
2 STATE_M(20) BINARY, /* NUMBER of MALES by STATE */
2 STATE_F(20) BINARY, /* NUMBER of FEMALES by STATE */
2 DEPT_M(29) BINARY, /* NUMBER of MALES by DEPT */
2 DEPT_F(29) BINARY, /* NUMBER of FEMALES by DEPT */
2 TOTAL_MALES FIXED(7) INIT(0),
2 TOTAL_FEMALES FIXED(7) INIT(0),
2 CUSTOMER_NAME CHAR(15) INIT('CUSTOM ALLOY CO'),
2 T_CITY_3(20) CHAR(3), /* Balance of CITY Tax Name */
2 M_F_FILLER CHAR(20) INIT(' ');
DCL 1 R_REC1(3),
2 R_1_RECNO FIXED(1),
2 T_SUI_OR_FICA(20) FIXED(13,2), /* TOTAL S/F by FD/STATE/CITY */
2 T_DEDUCTIONS(8) FIXED(13,2), /* TOTAL per DEDUCTION */
2 T_WHICH_DDNS(8) CHAR(10), /* ARRAY of DEDUCTION NAMES */
2 T_ALL_DDNS FIXED(13,2), /* TOTAL of All DEDUCTIONS */
2 T_FUTA FIXED(13,2),
2 T_1_FILLER CHAR(9);
DCL 1 R_REC4(3),
2 R_4_RECNO FIXED(1),
2 T_INCOME_TAX(20) FIXED(13,2), /* TAX TOTALS by FD/STATE/CITY */
2 T_TAXNAME(20) CHAR(2), /* T_TAXNAME(1) = 'NI' Means */
2 T_TAX_TYPE(20) CHAR(1), /* This Array Not Yet Initlzed */
2 T_CITY_2(20) CHAR(2), /* 1st 3 Char Of City Tax Name */
2 T_TRANS_COMMUTER(20) CHAR(1), /* A '*' HERE Indicates that */
/* Income Tax in Same Index */
/* In array Above Represents */
/* A Trans/Commuter Tax Amount */
2 T_NET_PAY FIXED(13,2), /* 'CASH' Amt on D-Journal Rpt */
2 T_GRAND_TOTAL FIXED(13,2),
2 T_SUMKEY FIXED(1), /* 0 - Indicates QTD/YTD Not */
/* Yet Updated */
/* 5 - QTD/YTD Updated */
2 T_DATE CHAR(8), /* Holds LAST-PAY Date */
2 T_ALL_DPTS FIXED(13,2), /* Total of All Departments */
2 T_4_FILLER CHAR(9);
DCL 1 R_REC7(3),
2 R_7_RECNO FIXED(1),
2 T_DEPARTMENT(29) FIXED(13,2), /* TOTALS by DEPARTMENT */
2 T_DEPT_NO(29) FIXED(3), /* DEPT #s Corresponding To */
/* Above Array */
2 T_7_FILLER CHAR(9);
DCL 1 REC1,
2 R11 FIXED(1),
2 R12(20) FIXED(13,2),
2 R13(8) FIXED(13,2),
2 R14(8) CHAR(10),
2 R15 FIXED(13,2) INIT(0),
2 R16 FIXED(13,2) INIT(0),
2 R17 CHAR(9) INIT('RECORDS 1');
DCL 1 REC2,
2 R21 FIXED(1),
2 R22(20) FIXED(13,2),
2 R23(20) CHAR(2),
2 R24(20) CHAR(1),
2 R25(20) CHAR(2),
2 R26(20) CHAR(1),
2 R27 FIXED(13,2) INIT(0),
2 R28 FIXED(13,2) INIT(0),
2 R29 FIXED(1) INIT(5),
2 R2A CHAR(8) INIT('00/00/00'),
2 R2B FIXED(13,2) INIT(0),
2 R2C CHAR(9) INIT('RECORDS 4');
DCL 1 REC3,
2 R31 FIXED(1),
2 R32(29) FIXED(13,2),
2 R33(29) FIXED(3),
2 R34 CHAR(9) INIT('RECORDS 7');
/* Main Part Of Program Comes HERE */
DO I = 1 TO 8;
R13 (I) = 0;
R14(I) = ' ';
END;
DO I = 1 TO 20;
STATE_M(I) = 0;
STATE_F(I) = 0;
T_CITY_3(I) = (' ');
R12(I) = 0;
R22(I) = 0;
R23(I) = ('**');
R24(I) = (' ');
R25(I) = (' ');
R26(I) = (' ');
END;
DO I = 1 TO 29;
DEPT_M(I) = 0;
DEPT_F(I) = 0;
R32(I) = 0;
R33(I) = 0;
END;
DO I = 1 TO 3;
R11 = I;
R21 = (I + 3);
R31 = (I + 6);
R23(1) = ('NI');
R_REC1(I) = REC1;
R_REC4(I) = REC2;
R_REC7(I) = REC3;
END;
OPEN RPTFILE;
WRITE FILE(RPTFILE) FROM(M_F_REC);
WRITE FILE(RPTFILE) FROM(R_REC1);
WRITE FILE(RPTFILE) FROM(R_REC4);
WRITE FILE(RPTFILE) FROM(R_REC7);
CLOSE RPTFILE;
PUT FILE(D) SKIP LIST('OK');
GET SKIP LIST('');
END;