IBM 1130 User Manual page 318

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section
PAY04 PROGRAM
2
3
4
5
NCHCK. NADWH. NSTCK. NINS. NMISC. NUA. NSTKD. ISUPP. INIT.
IPD. IFILL. GROSS. IVRAT. IOTRT. RGHRS. OTHRS. BNHRS. RGERN.
OTERN. BNERN. OTHER. KO. HOLDY. VACA. SICK. CNET, IFICA. TAX.
LOCAL. ICU. IUA. IUD. 1 INS. ISTCI(. IMISC
C-----
C----- GO BACK FOR ANOTHER WEEKLY EMPLOYEE CHECK.
C ... ----
GO TO 90
C----- - - - - - - -
~
- - -
~
-
~
- - -
~
-
~
- - - - - - - - - - - -
C-----
C-----
WRITEi~E
PAYROLL REGISTER.
C-----
500 ICNT=ICHCK
DO 510 I-1.LAST
READtNOPLT'II NUM. NAME. NSSAN. NSTAS. NDUES. NWKMP. NWKPD. MAR.
1 NXMPF. NXMPS. NSEX. NRATE. YTD. QRTD. LYRHR. NCU. NCUDD.
2 NCHCK. NADWH. NSTCK. NINS. NMISC. NUA. NSTKD. ISUPP. INIT.
3 IPD. IFILL. GROSS, IVRAT. IOTRT, RGHRS. OTHRS. BNHRS, RGERN.
4 OTERN, BNERN. OTHER, KO. HCLDY. VACA. SICK. CNET. IFICA. TAX.
5
LOCAL. ICU. IUA. IUD. IINS. ISTCK. IMISC
C-----
C----- CHECK PAID INDICATOR TO SEE IF COMPUTATIONS WERE PERFORMED.
C-----
19
10
IFtIPD - 11 510.515,510
515 RGHRS=WHCLE(RGHRS
+
tRGHRS
1
ABSCRGHRSII
*
0.51 / 100.
OTHRS=WHOLEIOTHRS
+
tOTHRS
I
ABSIOTHRSII
*
0.51
1 100.
BNHRS=WHOLEIBNHRS
+
CBNHRS
1
ABSIBNHRSII
*
0.51 / 100.
RGERN=WHCLEIRGERN
+
CRGERN
1
ABSCRGERN1)
*
0.5)
1
100.
OTERN=WHCLEIOTERN
+
10TERN
1
ABSIOTERN) I
*
0.51
1 100.
BNERN=WHCLE(ANERN
+
(BNERN / ABS(BNERN»
*
0.5)
1
100.
OTHER=WHOLE(OTHER
+
COTHER
1
ABSCOTHER)I
*
0.51
1
100.
HCLDY=WHOLECHOLOY
+
CHOLDY
1
ABSCHCLDY»
*
0.51
I
100.
VACA=WHOLECVACA
+
CVACA 1 ABSIVACA»
*
0.5) 1 100.
SICK=WHOLEISICK
+
(SICK
1
ABSCSICK)1
*
0.5)
1
100.
GROSS=WHOLEtGRnsS
+
tGROSS
1
ABSCGROSS) I
*
0.5)
I
100.
CNET=WHOLEtCNET
+
(CNET 1 ABSICNETI)
*
0.5) 1 100.
IF(LINE - 50) 385.380.380
380 IPAGE=IPAGE
+
1
WRITE(3.19) COMP, NDWK, IPAGE
FORMAT('1'20x.'FACTORY PAYROLL'.5X,16A2.5X.'W/E ',A2,2C'-',A21.
1 10X.'PAGE NO ',12/1
WRlTE13,101
FORMATI' NUMBR'5X,'NAME'17X,'REG HRS OT HRS BNS HRS REG ERN OT
lERN BNS ERN SPECIAL HOLDAY VACATION SICK GROSS'I
FWT LOCAL C.U.
U/D
U/A INS STCK MISC NET'I
WRlTE(3.20)
20 FORMAT(' FICA
LINE=O
385 WRITE(3,111 NUM, NAME. ICNT. RGHRS. OTHRS. BNHRS. RGERN. OTERN.
1 BNERN. KOt OTHER. HOLDY. VACA. SICK. GROSS. IFICA.
35
~
89
Subsections Page
20
I
10 93