IBM 1130 User Manual page 353

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 128
C-----
5
83 REAOIINOX'ILSTI LAST
WRITEI3.51 COMP. NOWK
FORMATI'1'.50X.'CHECK REGISTER'//ZOX.'FACTORY PAYROLL '.16AZ.5X.
1 'W/E '.ZIA2.'-'I.A2/13(' CHECK NO'7X'NAME'14X'AMOUNT'1/1
T-O.
1.-1
1-0
655 REAO(NOPI.T'LI NUM. NAME. NSSAN. NSTAS. NOUES. NWKMP. NWKPO. MAR.
1 NXMPF. NXMPS. NSEX, NRATE. YTO. QRTO. LYRHR, NCU. NCUOO.
2 NCHCK. NAOWH. NSTCK. NINS. NMISC. NUA. NSTKO. ISUPP. INIT.
3 IPD. IFILL. GROSS. IVRAT. IOTRT, RGHRS. OTHRS. BNHRS. RGERN.
4 OTERN. BNERN. OTHER. KO. HOLOY. VACA. SICK. CNET. IFICA. TAX.
5 LOCAl.. I CU. I UA. IUD. I INS. IS TCK. I M I SC
C----
C----- CHECK PAID INDICATOR TO SEE IF CHECK WRITTEN.
C-----
IFIIPO - 21 650,651.650
PAGE 03
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
C----- - - - - - - - - - -
- - - - - - - - - -PAY06
C-----
C-----
PUT TOGETHER CHECK REGISTER INFORMATION.
C-----
651 T-T
+
CNET
1-1+
1
GO TO (601.602.6031.1
601 I01-NCHCK
ID2-NUM
CALL MOVECNAME.l.9.ID3.1)
RNET1-WHOLE(CNET
+
(CNET I ABSCCNETI
I
*
0.51 I 100.
GO TO 650
602 104-NCHCK
I05-NUM
CALL MOvECNAME.l.9.I06.11
RNET2.WHOLECCNET
+
ICNET / ABSCCNETl)
*
0.5) /
100.
GO TO 650
603 ID7-NCHCK
IDS-NUM
CALI. MOVE(NAME.l.9.ID9.1)
RNET3-WHOI.E(CNET
+
ICNET / ABSCCNETl)
*
0.5) I 100.
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY06
PAY.06
PAY06
PAY06
C----- - - - - - - - -
C-----
- - - - - - - - - - - - - - - - - - - -PAY06
PAY06
C----- WRITE A LINE OF CHECK REGISTER FOR THREE EMPLOYEES.
PAY06
PAY06
C"'---·
WRITEC3.1101 101. 102. 103. RNET1, 104.
1
109.
RNET3
110 FORMATC3C3X.I5.1X.I5,lX.9A2.1X,F6.21)
1-0
C--"'-- ... - - - - - - - - - - ... - - - ... - ... -
C-----
124
105. 106. RNETZ. 107. I08.PAY06
PAY06
PAY06
PAY06
- - - - - - - - - - - - - -PAY06
PAY06