This page (revision-5) was last changed on 26-Nov-2021 10:22 by ihowie

This page was created on 26-Nov-2021 10:22 by JMyers

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
5 26-Nov-2021 10:22 1 KB ihowie to previous
4 26-Nov-2021 10:22 1 KB JMyers to previous | to last
3 26-Nov-2021 10:22 1 KB JMyers to previous | to last
2 26-Nov-2021 10:22 1 KB JMyers to previous | to last
1 26-Nov-2021 10:22 1 KB JMyers to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 1 changed one line
YBT - Years Between
!!YBT - Years Between
At line 3 removed 8 lines
The number of months will be expressed as a fractional number.
Statement: If an employee has worked for the company for more than 20 years as of January 1, and their anniversary is this pay, give a $1000 bonus and store the bonus in PC 980.
Line CMD OT Operand 1 OPER OT Operand2 OT Operand3 If Goto Else GoTo
00010 LET V JAN 1 OF THIS YEAR BY $S PERIOD-END-DATE 00020
00020 LET V YRS SERVICE AS OF JAN 1 YBT DB EEM.HIRE_DATE V JAN 1 OF THIS YEAR 00030
00030 ANN BD DB EEM.HIRE_DATE 00100 9999
00100 LET PC 980 EQ N 1000 99999
99999 EXIT 99999
At line 12 changed 3 lines
Line 00010 The beginning of the year is calculated to prevent having to maintain the UserCalc when the year changes.
Line 00020 The years of service are calculated based on January 1.
Line 00030 Determined if the current pay period includes the anniversary of the employee’s hire date.
The number of years returned will be expressed as a whole number.
;Statement:If an employee has worked for the company for more than 20 years as of January 1, and their anniversary is this pay, give a $1000 bonus and store the bonus in PC 980.
||Line||CMD||OT||Operand 1||OPER||OT||Operand2||OT||Operand3||If Goto|| Else GoTo
|00010| LET|V|JAN 1 OF THIS YEAR|BY|$S|PERIOD-END-DATE | | |00020|
|00020| LET|V|YRS SERVICE AS OF JAN 1|YBT|DB|EEM.HIRE_DATE|V|JAN 1 OF THIS YEAR|00030|
|00030| ANN| | |BD|DB|EEM.HIRE_DATE| | |00100|9999
|00100| LET|PC|980|EQ|N|1000| | |99999|
|99999|EXIT| | | | | | | |99999|
\\
|Line 00010| The beginning of the year is calculated to prevent having to maintain the UserCalc when the year changes.
|Line 00020 |The years of service are calculated based on January 1.
|Line 00030| Determined if the current pay period includes the anniversary of the employee’s hire date.
At line 21 added 5 lines
----
![Notes|Edit:Internal.YBT_OPERATOR]
[{InsertPage page='Internal.YBT_OPERATOR' default='Click to create a new notes page'}]