-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy pathFIZZBUZZTEST.rpgle
32 lines (32 loc) · 1.65 KB
/
FIZZBUZZTEST.rpgle
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
D x S 5
D result S 8
*************************************************************************
C EVAL result=''
C EVAL x='1'
MU* VAL1('1') VAL2(result) COMP(EQ)
C call 'FIZZBUZZ'
C parm x
C parm result
*************************************************************************
C EVAL result=''
C EVAL x='3'
MU* VAL1('FIZZ') VAL2(result) COMP(EQ)
C call 'FIZZBUZZ'
C parm x
C parm result
*************************************************************************
C EVAL result=''
C EVAL x='5'
MU* VAL1('BUZZ') VAL2(result) COMP(EQ)
C call 'FIZZBUZZ'
C parm x
C parm result
*************************************************************************
C EVAL result=''
C EVAL x='15'
MU* VAL1('FIZZBUZZ') VAL2(result) COMP(EQ)
C call 'FIZZBUZZ'
C parm x
C parm result
*************************************************************************
C seton lr