BASIC

RPG/400
PROGRAMMING

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

AGENDA
Introduction
Specification Sequence
Fields in RPG/400
File Specifications Summary
Hands-on
Calculation Specifications Summary
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

AGENDA
(Continued)

Indicators
Arithmetic Operations
Move Operations
Compare Operations
RPG Coding Exercise 3 :
Compare Operations
GOTO and TAG Operations
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

INTRODUCTION
most common HLL used on the AS/400
Report Program Generator
has more powerful database and device
handling facilities than CL
source code is positional
made up of seven specification types

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

SPECIFICATION SEQUENCE - DIAGRAM
H Control Specification
F File Specification
E Extension Specification
L Line Counter Specification
I Input Specification
C Calculation Specification
O Output Specification

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

SPECIFICATION SEQUENCE
H - Control Specification
controls the generation and execution of the
program
company standards dictate that a control (or header)
specification must be included in every
RPG program with a '1' in position 15
controls the production of a symbols table when the
program is compiled
allow DEBUG to perform and to show the contents of
F - File
Description
Specification
fields
when a DUMP
is produced.
describes the files to be included and how they will
be used
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

SPECIFICATION SEQUENCE
(Continued)

E - Extension Specification
describes tables and arrays used
L - Line Counter Specification
describes the form or page used in printed output
I - Input Specification
describes the file formats and fields of an input file
used in the program

C - Calculation Specification
describes how data is manipulated within the program
controls input and output functions

O - Output Specification
describes the records, fields and conditioning of
data output from
the program
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

FIELDS IN RPG/400
ALPHANUMERIC
type 'A'
one character is held in one byte
maximum length is 256 bytes
ZONED DECIMAL
type 'S'
one numeric character is held in one byte
maximum length is 15 bytes
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

FIELDS IN RPG/400
(Continued)

PACKED DECIMAL
type 'P'
up to two characters on one byte
maximum length is 16 bytes giving a maximum
field size of 30

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

DEFINING FIELDS
Fields can be defined in any one of the following ways:
from an externally described file
from a data structure
from the input specification in the case of internally
described files
within the calculation specification
within the extension specification
Note: RPG/400 assigns an area of storage to each
field.
The maximum length of a field name in
RPG/400 is six characters
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

FILE
SPECIFICATIONS

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

F - SPECS SUMMARY cont.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

HANDS-ON
EXERCISES

BASIC RPG400 PRO

GRAMMING

Hands-on
Create the following file and declare it to the FSpecs of the program source XXXRPG1;
1.
2.
3.
4.

XXX01REC physical file

XXX01K0 logical file
XXX02K physical file
XXXRPG1P printer file

BASIC RPG400 PRO

GRAMMING

Hands-on

Physical file XXX01REC

* This id the dds source of the

A
R XXX01REC
A
ACDCRS
6A
A
A
ADSCRS
40A
A
A
ANMLCR
20A
A
A
ANMFCR
20A
A
A
ANMMCR
20A
A
A
ACDSCR
1A
A
A
ACDCCR
1A
A
A
A
ACSSAL
15P
A
A
ADTSTR
8S
A
A
ADTEND
8S
A
A
AIDUSR
10A
A
A
ATMSTP
14S
A

physical file XXX01K

2
0
0

TEXT('COURSE CODE')
COLHDG('Course Code')
TEXT('COURSE DESCRIPTION')
COLHDG('Course Description')
TEXT('COORDINATOR LAST NAME')
COLHDG('Coordinator' 'Last Name')
TEXT('COORDINATOR FIRST NAME')
COLHDG('Coordinator' 'First Name')
TEXT('COORDINATOR MIDDLE NAME')
COLHDG('Coordinator' 'Middle Name')
TEXT('COORDINATOR SEX CODE')
COLHDG('Coordinator Sex Code')
TEXT('COORDINATOR CATEGORY CODE')
COLHDG('Coordinator' 'Category')
TEXT('SALARY')
COLHDG('Salary')
TEXT('START DATE')
COLHDG('Date Start')
TEXT('END DATE')
COLHDG('Date End')
TEXT('USER ID')
COLHDG('User ID')
TEXT('TIME STAMP')
COLHDG('Time Stamp')

BASIC RPG400 PRO

GRAMMING

Hands-on

Physical file XXX01K0

* This id the dds source of the logical file XXX01K0

A
UNIQUE
A
R XXX01REC
PFILE(XXX01K)
A
K ACDCRS

Physical file XXX01K0

* This id the dds source of the physical file XXX02K

A
UNIQUE
A
REF(XXX01K)
A
R XXX02REC
A
ACDCRS
R
6A
TEXT('COURSE CODE')
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

ANMSTD

60A

ARTEG1

3S 0

ARTEG2

3S 0

ARTEG3

3S 0

ARTEG4

3S 0

ARTEG5

3S 0

AIDUSR
ATMSTP
K ACDRS
K ANMSTD

R
R

TEXT('STUDENT NAME')
COLHDG('Student Name')
TEXT('EXAMINATION # 1 GRADE')
COLHDG('Grade for Exam # 1')
TEXT('EXAMINATION # 2 GRADE')
COLHDG('Grade for Exam # 2')
TEXT('EXAMINATION # 3 GRADE')
COLHDG('Grade for Exam # 3')
TEXT('EXAMINATION # 4 GRADE')
COLHDG('Grade for Exam # 4')
TEXT('EXAMINATION # 5 GRADE')
COLHDG('Grade for Exam # 5')
TEXT('USER ID')
TEXT('TIME STAMP')

BASIC RPG400 PRO

GRAMMING

Hands-on

Create Printer File XXXRPG1P. Use DATE Function for the date, PAGNBR function for the page and
TIME function for the time. Be sure to use EDTCDE for the page no. and EDTCDE(L) for all the rates in
the report.

Page Size:
Length lines per page> 66
Width positions per line.> 132
Characters per inch> 10
Overflow line number.> 60
Form Type...> *STD
Hold spooled file.> *YES
Save spooled file ...> *YES
For page Heading and Column Heading, use the following:
Record Format Name = HEADING

BASIC RPG400 PRO

GRAMMING

Hands-on

For Detail Line, use the following:

Record Format Name = DETAIL
Course Code Field Name = #CDCRS
Course Description Field name = #DSCRS
Student Name Field Name = #NMSTD
Examination Grade #1 Field Name = #RTEG1
Examination Grade #2 Field Name = #RTEG2
Examination Grade #3 Field Name = #RTEG3
Examination Grade #4 Field Name = #RTEG4
Examination Grade #5 Field Name = #RTEG5
Final Average Field Name = #RTFAV
Highest Grade Field Name = #RTHGR
Lowest Grade Field Name = #RTLGR

BASIC RPG400 PRO

GRAMMING

Hands-on

For Summary, use the following:

Record Format Name = SUMMARY
Examination Grade Average #1 Field Name = #RTEA1
Examination Grade Average #2 Field Name = #RTEA2
Examination Grade Average #3 Field Name = #RTEA3
Examination Grade Average #4 Field Name = #RTEA4
Examination Grade Average #5 Field Name = #RTEA5
Final Average Field Name = #RTEAF

BASIC RPG400 PRO

GRAMMING


*
A
*
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

Hands-on
Source Member: XXXRPG1P
R HEADING
SKIPB(001)
HIGHLIGHT
SPACEA(001)
1
'Program ID'
13
'XXXRPG1'
47
'IBM Solutions Delivery'
119
'Date'
125
DATE
EDTCDE(Y)
1
PAGNBR
SPACEB(001)

BASIC RPG400 PRO

GRAMMING

Hands-on
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

7
'Page:'
EDTCDE(3)
47
'S T U D E N T'
63
'G R A D E'
75
'R E P O R T'
119
'Time'
125
TIME
70
'<------Examination Grade------>
SPACEB(004)
106
'Final'
114
'Highest'

BASIC RPG400 PRO

GRAMMING

Hands-on
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

123
'Lowest'
29
'Student Name'
SPACEB(001)
123
'Grade'
71
'#1'
78
'#2'
85
'#3'
92
'#4'
79
'#5'
105
'Average'

BASIC RPG400 PRO

GRAMMING

Hands-on
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

'Grade'
5
'============================================================'
SPACEB(001)
70
'==='
+4
'==='
+4
'==='
+4
'==='
+4
'==='
+5
'===='
+5
'==='
+5
'==='

BASIC RPG400 PRO

GRAMMING

Hands-on
A

R DETAIL
*

A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

SPACEB(001)
SPACEA(001)
1
'Course'
HIGHLIGHT
#CDCRS
#DSCRS
#NMSTD

6A
40A
60A

O
O
O

9
16
5
SPACEB(001)

#RTEG1

3S 0O

70
EDTCDE(L)

#RTEG2

3S 0O

77
EDTCDE(L)

#RTEG3

3S 0O

84
EDTCDE(L)

#RTEG4

3S 0O

91
EDTCDE(L)

#RTEG5

3S 0O

98
EDTCDE(L)

BASIC RPG400 PRO

GRAMMING

Hands-on
A
A
A
A
A
A

#RTFAV

4S 0O

106
EDTCDE(L)

#RTHGR

3S 0O

116
EDTCDE(L)

#RTLGR

3S 0O

124
EDTCDE(L)

*
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

R SUMARRY
SPACEB(001)
HIGHLIGHT
70
'===='
77
'===='
84
'===='
91
'===='
98
'===='
106
'====='

BASIC RPG400 PRO

GRAMMING

Hands-on
A
A
A
A
A
A
A
A
A
A
A
A
A
A
A

47
'Examination Averages:'
SPACEB(002)
RTEA1

4S 1O

+2
EDTCDE(L)

RTEA2

4S 1O

+1
EDTCDE(L)

RTEA3

4S 1O

+1
EDTCDE(L)

RTEA4

4S 1O

+1
EDTCDE(L)

RTEA5

4S 1O

+1
EDTCDE(L)

RTEAF

5S 2O

+2

EDTCDE(L)
************************ End of Source ************************************

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

EXTENSION
SPECIFICATIONS

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

E - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

E - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

E - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

E - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

E - SPECS SUMMARY

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

INPUT
SPECIFICATIONS

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Field Description Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Field Description Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Program Described Files, Field Description Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Externally Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Externally Described Files, Record Identification Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Externally Described Files, Field Description Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Externally Described Files, Field Description Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Data Structure Statement Specifications

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Data Structure Statement Specifications

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Data Structure Statement Specifications

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Data Structure Subfield Specifications

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Data Structure Subfield Specifications

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Named Constant

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

I - SPECS SUMMARY
Named Constant Continuation

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

CALCULATION
SPECIFICATIONS

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS FORM AREAS
1
2
3
4
5
6
7
8
678901234567890123456789012345678901234567890123456789012345678901234567890
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++++++++
C Conditions

Operations

Tests

Comments

Position 6
All calculation instructions must have a C in column 6.
Conditions (Positions 7-17)
Conditioning indicator/s are specified (only when
needed in this logical area).
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS FORM AREAS

Operations (Positions 18-53)

This area includes fields whose function is to inform
the computer about the operation to be executed.
Tests (Positions 54-59)
Indicators (usually 01-99) are specified in one or
more of the fields in this area to test a result field
value for positive, negative, and/or zero; High,Low
and Equal.
Comments (Positions 60-80)
Comments may be included in this area to support
instructions.
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS SUMMARY
Position Name
6
Form Type

Entry
C

Explanation
Identification for a calculation specification

7-8

Blank

The operation is performed at detail calculation

time.

L0

The operation is performed at total calculation

time.

L1-L9

The operation is performed at total calculation

time when the control indicator is set on.

LR

The operation is performed after the last record

has been processed or after the LR indicator is
set on.

AN/OR

Indicators on more than one line condition the

operation.

Control Level

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS SUMMARY
(Continued)

Position Name
9-17
Indicators

Entry
Blank

Explanation
The operation is performed if the condition in
position 7 & 8 is met.
The following indicators are valid:

01-99

General indicators

KA-KN &
KP-KY

Function Key indicators

L1-L9

Control level indicators

U1-U8

External indicators (Job switches)

OA-OG,OV Overflow indicators

18-27

Factor 1

Symbolic
name or
literal

Entry specifies a symbolic name or actual data

upon which the operation is performed.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS SUMMARY
(Continued)

Position Name
28-32
Operation

Entry
Operation
code

Explanation
The operation to be performed.

33-42

Factor 2

Symbolic
name or
literal

Entry specifies a symbolic name or actual data

upon which the operation is performed.

43-48

Result Field

Field name

Names the field that contains the result of the

calculation performed.

49-51

Field length

Blank

The result field is defined elsewhere.

1-30

Numeric field length

1-256

Character field length

52

Decimal positions Blank

The result field is a character field or is defined

elsewhere.
Number of decimal positions in the result field.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

C - SPECS SUMMARY
(Continued)

Position Name
53
Half adjust

54-59

Result indicators

Entry
Blank

Explanation
Half adjust is not performed.

Half adjust is performed.

Blank

No resulting indicators

01-99

General indicators

KA-KN &
KP-KY

Function Key indicators

L1-L9

Control level indicators

LR

Last record indicator

60-80

Comments

Comments

Document the calculation.

75-80

Amendment
number

Amendment
number

Amendment number
(MKI Standard Only!)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

DEFINING INDICATORS
RECORD IDENTIFYING INDICATORS
pos. 19 & 20 of input specifications
FIELD INDICATORS
pos. 65 - 70 of input specifications
RESULTING INDICATORS
pos. 54 - 59 of calculation specifications
The purpose of the resulting indicator depends upon
the operation code specified.
VALID INDICATORS
RPG400 PRO
01 - 99 BASICLR
GRAMMING

BASIC RPG/400 PROGRAMMING

DEFINING INDICATORS
Control Level Indicators (L1 - L9 and LR)

can be specified in positions 7 and 8 of the Cspecs

Position 9 and 17

can specify one, two or three indicators (positions

10 & 11, 13 & 14 and 16 & 17) on each line.

Place an N before the appropriate indicator

(positions 9, 12 and 15), if it has to be off to
condition the operation

indicators are in an And relationship, when more

than one specified in the same line

specify AN/OR in positions 7 and 8 to place lines

of conditioning indicators in And/Or relationships

maximum BASIC
of seven
RPG400
(7) PRO
And/Or lines per group
GRAMMING

BASIC RPG/400 PROGRAMMING

SET ON OPERATION
SETON (Set On)
Indicators
7-8

9-17

Opt.

Opt.

Result
Factor 1
Blank

Factor 2
Blank

Field
Blank

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

58-59

At Least One Required

BASIC RPG/400 PROGRAMMING

SET OFF OPERATION
SETOF (Set Off)
Indicators

Result

7-8

9-17

Factor 1

Factor 2

Opt.

Opt.

Blank

Blank

Field
Blank

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

58-59

At Least One Required

BASIC RPG/400 PROGRAMMING

ARITHMETIC OPERATION CODES
ADD

Add

SUB

Subtract

MULT

Multiply

DIV

Divide

MVR

Move Remainder

Z-ADD

Zero & Add

Z-SUB

Zero & Subtract

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

ADD OPERATION
ADD (Add)
Indicators

Result
Field

7-8

9-17

Factor 1

Opt.

Opt.

Optional Required Require

d

Factor 2

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

SUB OPERATION
SUB (Subtract)
Indicators

Result
Field

7-8

9-17

Factor 1

Opt.

Opt.

Optional Required Require

d

Factor 2

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

Z-ADD OPERATION
Z-ADD (Zero and Add)
Indicators

Result

7-8

9-17

Factor 1

Opt.

Opt.

Blank

Factor 2

Field

Required Require
d

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

Z-SUB OPERATION
Z-SUB (Zero and Subtract)
Indicators

Result

7-8

9-17

Factor 1

Opt.

Opt.

Blank

Factor 2

Field

Required Require
d

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

MULT OPERATION
MULT (Multiply)
Indicators

Result
Field

7-8

9-17

Factor 1

Opt.

Opt.

Optional Required Require

d

Factor 2

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

DIV OPERATION
DIV (Divide)
Indicators

Result
Field

7-8

9-17

Factor 1

Opt.

Opt.

Optional Required Require

d

Factor 2

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

MVR OPERATION
MVR (Move remainder)
Indicators

Result

7-8

9-17

Factor 1

Factor 2

Opt.

Opt.

Blank

Blank

Field
Require
d

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

+ve

-ve

58-59
Zero

BASIC RPG/400 PROGRAMMING

ARITHMETIC OPERATIONS
can only be performed on numeric fields & literals
performed on data in packed decimal format. Data
stored in other formats is converted to or from packed
format. is performed for all arithmetic
decimal alignment
operations. Even if truncation occurs, the position of
the decimal point in the result field is not affected.
Factor 1 and factor 2 are not changed by arithmetic
operations
any data placed in the result field replaces previous
data
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

ARITHMETIC OPERATIONS
truncation occurs when the result field is not large
enough to contain the operation's result:
- digits are dropped from the left when the
integer is too small
- digits are dropped from the right when the
number of decimal places is too small
half adjust can be used on all arithmetic
operations except MVR or DIV followed by MVR
the length of any field used in an arithmetic operation
cannot exceed 30 digits
all arithmetic operations are performed algebraically
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

ARITHMETIC OPERATIONS
For arithmetic operations in which all three fields are
used:

Factor 1, Factor 2 and the Result field can be three

different fields

Factor 1, Factor 2 and the Result field can all be the

same field.

Factor 1 and Factor 2 can be the same but different

from the Result field.

Either Factor 1 or Factor 2 can be the same as the

Result field.
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

ARITHMETIC OPERATIONS
results of all operations are signed (hexadecimal F
for positive and hexadecimal D for negative)
For the ADD, SUB, MULT and DIV operations,
Factor 1 is not required. If Factor 1 is not specified,
the operation is performed as though Factor 1 and
the Result field are the same field.

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

EXAMPLE
ON
ARITHMETIC
OPERATIONS
1
2
3
4
5
6
7

1
2
3
4
5
6
7
8
9
10
11
12
13
14

678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
C
ADD 1
A
30
C
B
ADD C
V
52
C
B
ADD D
V
C*
C
Z-ADDC
V
C*
C
SUB 1
E
30
C
C
SUB B
W
51
C
C
SUB D
W
C*
C
Z-SUBC
W
C*
C
MULT E
F
30
C
B
MULT G
X
84
C
B
MULT D
X
C*
C
DIV B
H
30
C*
C
C
DIV J
Y
62
C*
C
MVR
Z
53

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

MOVE OPERATIONS
MOVE
Move Right
MOVEL
Move Left

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

MOVE OPERATION
MOVE (Move Right)
Indicators

Result

7-8

9-17

Factor 1

Factor 2

Opt.

Opt.

Blank

Required

Field
Required

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

58-59

+ve

-ve

Zero/Blank

BASIC RPG/400 PROGRAMMING

MOVE EXAMPLE 1
Factor 2 shorter than the result field
Factor 2
Character

Character

Result Field

P H 4 S N

P H 4 S N

Before MOVE
After MOVE

+
1 2 3 4 5 6 7 8 4
1 2 3 4 P H 4 S N

Character

Before MOVE

+
1 2 3 4 5 6 7 8 _4

Numeric

1 2 3 4 5 6 7 8 9

Numeric

After
Numeric

1 2 7 8 4 2 5

Before MOVE
After

Numeric

1 2 7 84 2 5

MOVE

MOVE

Before MOVE
After
MOVE
Note : 4 = letter D, and 5 = letter N

1 2 3 4 7 8 4 2 5

1 2 1 2 7 8 4 2 5
A C F G P H 4 S N Character
A C 1 2 7 8 4 2 5

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

MOVE EXAMPLE 2
Factor 2 longer than the result field
Factor 2
Character
Character

Result Field

A C FG PH 4 S N

A C F G PH 4S N

Before MOVE
After MOVE

5 6 7 8 4
PH 4SN
+

Character

Before MOVE
After MOVE

5 6 7 84
7 8 42 5

Numeric

Numeric

12 78 42 5

Before MOVE
After MOVE

5 67 8 4
7 8 425

Numeric

Numeric

12 78 42 5

Before MOVE
After MOVE

PH 4SN
78 42 5

Character

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

MOVE EXAMPLE 3
Factor 2 and the result field the same length
Factor 2

Result Field

Character

PH4 SN

Before MOVE
After MOVE

5 6 784
P H4 SN

Character

Character

P H4 SN

Before MOVE
After MOVE

5 6 784
7 8 425

Numeric

Numeric

7 8 4 2 5

Before MOVE
After MOVE

A L T5F
_
7 8 4 25

Numeric

Numeric

7 8 4 2 5

Before MOVE
After MOVE

AL T 5 F
78 42 N

Character

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

MOVEL OPERATION
MOVEL (Move Left)
Indicators

Result

7-8

9-17

Factor 1

Factor 2

Opt.

Opt.

Blank

Required

Field
Required

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

58-59

+ve

ve

Zero/Blank

BASIC RPG/400 PROGRAMMING

MOVEL EXAMPLE 1
Factor 2 shorter than the result field
Factor 2
Character C P T 5 N

Result Field
Before MOVEL B R W C X H 4 S A
After

Character

Numeric

C P T 5 N

7 8 4 25

7 8 4 25

C PT 5 N H 4SA
+

Before MOVEL

1 3 0 9 4 32 1 0

After

3 7 3 5 5 32 1 0

MOVEL

Before MOVEL
After

Numeric

MOVEL

+
+

1 30 9 4 3 2 1 0

MOVEL

7 8 4 2 5 3 2 1 0

Before MOVEL

BRW C XH4SA

After

MOVEL

Note : 4 = letter D, and 5 = letter N; arrow

Character

7 8 4 2 NH 4S A

is decimal point

BASIC RPG400 PRO

GRAMMING

Numeric

Numeric

Character

BASIC RPG/400 PROGRAMMING

MOVEL EXAMPLE 2
Factor 2 longer than the result field
Factor 2
Character

Character

Result Field

BRW C XH4SN

BRW C XH4SN

Before MOVEL

A K T 4D

After

BRW CX

MOVEL

Before MOVEL

+
5 6 7 8 4

Character

Numeric

After
Numeric

Numeric

00 02 5 842 5

90 31 784 2 5

MOVEL

2 9 6 3 7

Before MOVEL

+
5 6 7 8 4

After

MOVEL

0 0 0 2 5

Before MOVEL

A KT 4 D

After

9 0 3 1 7

MOVEL

BASIC RPG400 PRO

GRAMMING

Numeric

Character

BASIC RPG/400 PROGRAMMING

MOVEL EXAMPLE 3
Factor 2 and the result field the same length
Factor 2
Character P H 4 S N

Result Field
Before MOVEL A K T 4 N
After

Character P H 4 S N

Numeric

Numeric

7 8 425

7 8 425

MOVEL

PH 4 S N

Before MOVEL

5 6 7 8 4

After

7 8 4 2 5

MOVEL

Before MOVEL

5 6 7 8 4

After

MOVEL

78 4 2 5

Before MOVEL

A K T 4 D

After

7 8 4 2 N

MOVEL

BASIC RPG400 PRO

GRAMMING

Character

Numeric

Numeric

Character

BASIC RPG/400 PROGRAMMING

COMPARE OPERATIONS
COMP

Compare

CABxx

Compare & Branch

TAG

Tags

GOTO

Go to a Tag

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

REMINDERS FOR COMPARE
OPERATIONS
If numeric fields are compared, fields of unequal
length are aligned at the implied decimal point. The
shorter field is filled with zeros to the left or right of
the decimal point so that the field lengths are equal
for comparison.
If character fields are compared, fields of unequal
length are aligned to their leftmost character. The
shorter field is filled with blanks to equal the length of
the longer field so that the field lengths are equal for
BASIC RPG400 PRO
comparison
GRAMMING

BASIC RPG/400 PROGRAMMING

REMINDERS FOR COMPARE
OPERATIONS
(Continued)

All numeric comparisons are algebraic. A plus (+)

value is always greater than a minus () value.
Blanks within numeric fields are assumed to be
zeros.
Numeric fields are converted to packed decimal
format,if necessary, before they are compared.
A character field cannot be compared with a
numeric field.
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

COMP OPERATION
COMP (Compare)
Indicators
7-8

9-17

Opt.

Opt.

Result
Factor 1

Factor 2

Required Required

Field
Blank

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

GT

LT

58-59
EQ

BASIC RPG/400 PROGRAMMING

COMP OPERATION EXAMPLE

1
2
3
4

Initial values for the fields are:

FLDA = 100.00 FLDB = 105.00
FLDD = ABC

FLDE = ABCDE
BASIC RPG400 PRO
GRAMMING

FLDC = 100.00

BASIC RPG/400 PROGRAMMING

CABxx OPERATION
CABxx (Compare and Branch)
Indicators
7-8

9-17

Opt.

Opt.

Result
Factor 1

Factor 2

Field

Required Required Optional

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

GT

LT

58-59
EQ

BASIC RPG/400 PROGRAMMING

CABxx OPERATION EXAMPLE
1234567
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
1 CFLDACABLTFLDBTAGX

C*
CFLDACABLEFLDBTAGX16
2
C*
3 CFLDACABFLDBTAGX1718
C*
CFLDACABEQFLDBTAGX20
4
C*

The field values are:

FLDA = 100.00

FLDB = 105.00
BASIC RPG400 PRO
GRAMMING

BASIC RPG/400 PROGRAMMING

GOTO OPERATION
GOTO (Go to a TAG)
Indicators
7-8

9-17

Opt.

Opt.

Result
Factor 1

Factor 2

Blank

Required

Field
Blank

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

Blank

Blank

58-59
Blank

BASIC RPG/400 PROGRAMMING

TAG OPERATION
TAG (Label)
Indicators
7-8
Opt.

9-17

Result
Factor 1

Blank Required

Factor 2
Blank

Field
Blank

BASIC RPG400 PRO

GRAMMING

Result Indicators
54-55

56-57

Blank

Blank

58-59
Blank

BASIC RPG/400 PROGRAMMING

HANDS-ON
EXERCISES

BASIC RPG400 PRO

GRAMMING

Hands-on
Use RPGXXX1 and files previously created in this exercise. Populate first
the physical files of sample data.
1.
2.

3.

Print the page heading and the column heading on every page.
Read all records of XXX02K. For each record read, determine the
course description from the corresponding XXX01K0 record, the
final average of the 5 examination grades {(ARTEG1 + ARTEG2 +
ARTEG3 + ARTEG4 + ARTEG5) / 5}, the highest grade and the
lowest grade, then print the detail line.
Determine the total number of XXX02K records and the
summations of examination grades for #s 1, 2, 3, 4 & 5.
If the end of XXX02K file is reached, determine examination grade
averages (Summation of Examination Grades/ Total No. of XXX02K
records) and the final average of the five examination averages,
then print the summary.

BASIC RPG400 PRO

GRAMMING

Hands-on
Source Member: XXXRPG1

678901234567890123456789012345678901234567890123456789012345678901234
/TITLE RPG EXERCISE # 1
*
** File Declaration
*
FXXX02K IF E
K
DISK
FXXX01K0 IF E
K
DISK
FXXXRPG1PO E
01
PRINTER
*
E
EGR
5 3 0A
E
EAV
5 10 1A
*
/EJECT
********************************************************************
* Main Program
********************************************************************
C
EXSR PRCRTN
C
EXSR ENDRTN
********************************************************************
/SPACE 5

BASIC RPG400 PRO

GRAMMING

Hands-on
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
********************************************************************
* Initialization To initialize all program variables used
********************************************************************
C
*INZR
BEGSR
C
Z-ADD*ZEROS
VNOREC 60
C
Z-ADD*ZEROS
VACEGR 40
C
Z-ADD*ZEROS
VACEAV 51
C
CLEAREAV
C
ENDSR
********************************************************************
* Process all records of Student Grade File
********************************************************************
C
PRCRTN
BEGSR
C
EXSR HDGRTN
C
*LOVAL
SETLLXXX02K
C
READ XXX02K
60
C
*IN60
DOWEQ*OFF
C
EXSR DTLRTN
C
READ XXX02K
60
C
ENDDO
C
ENDSR
********************************************************************

BASIC RPG400 PRO

GRAMMING

Hands-on
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
********************************************************************
* Printing of Page Heading and Column Heading
********************************************************************
C
HDGRTN
BEGSR
C
WRITEHEADING
C
MOVE 0
*IN01
C
ENDSR
********************************************************************
* Printing of detail Line
********************************************************************
C
DTLPRN
BEGSR
C
ADD 1
VNOREC
C
ADD ARTEG1
EAV,1
C
ADD ARTEG2
EAV,2
C
ADD ARTEG3
EAV,3
C
ADD ARTEG4
EAV,4
C
ADD ARTEG5
EAV,5
C
MOVELACDCRS
#CDCRS
C
#CDCRS
CHAINXXX01K0
61
C
*IN61
IFEQ *OFF

BASIC RPG400 PRO

GRAMMING

Hands-on
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
C
MOVELADSCRS
#DSCRS
C
ELSE
C
MOVE *BLANKS
#DSCRS
C
ENDIF
C
MOVELANMSTD
#NMSTD
C
Z-ADDARTEG1
EGR,1
C
Z-ADDARTEG2
EGR,2
C
Z-ADDARTEG3
EGR,3
C
Z-ADDARTEG4
EGR,4
C
Z-ADDARTEG5
EGR,5
C
Z-ADDEGR,1
#RTEG1
C
Z-ADDEGR,2
#RTEG2
C
Z-ADDEGR,3
#RTEG3
C
Z-ADDEGR,4
#RTEG4
C
Z-ADDEGR,5
#RTEG5
C
XFOOTEGR
VACEGR
C
VACEGR
DIV 5
#RTFAV
H
C
SORTAEGR
C
Z-ADDEGR,5
#RTHGR
C
Z-ADDEGR,1
#RTLGR

BASIC RPG400 PRO

GRAMMING

Hands-on
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
C
*IN01
IFEQ 1
C
EXSR HDGRTN
C
ENDIF
C
WRITEDETAIL
C
ENDSR
********************************************************************
* End program
********************************************************************
C
ENDRTN
BEGSR
C
EXSR SMRRTN
C
SETON
LR
C
RETRN
C
ENDSR
********************************************************************
* Printing of Summary
********************************************************************
C
SMRRTN
BEGSR
C
VNOREC
IFNE *ZEROS
C
DIV VNOREC
EAV,1
H
C
DIV VNOREC
EAV,2
H

BASIC RPG400 PRO

GRAMMING

Hands-on
678901234567890123456789012345678901234567890123456789012345678901234
CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComment++++++++
C
DIV VNOREC
EAV,3
H
C
DIV VNOREC
EAV,4
H
C
DIV VNOREC
EAV,5
H
C
ENDIF
C
Z-ADDEAV,1
#RTEA1
C
Z-ADDEAV,2
#RTEA2
C
Z-ADDEAV,3
#RTEA3
C
Z-ADDEAV,4
#RTEA4
C
Z-ADDEAV,5
#RTEA5
C
XFOOTEAV
VACEAV
C
VACEAV
DIV 5
#RTEAF
H
C
WRITESUMMARY
C
ENDSR
*******************************************************************

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

OUTPUT
SPECIFICATIONS

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Record Identification and
Control Entries (Record Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Field Description and
Control Entries (Field Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Field Description and
Control Entries (Field Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Field Description and
Control Entries (Field Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Program Described Files, Field Description and
Control Entries (Field Line)

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Record Identification
and Control Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Record Identification
and Control Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Record Identification
and Control Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Record Identification
and Control Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Field Description and
Control Entries

BASIC RPG400 PRO

GRAMMING

BASIC RPG/400 PROGRAMMING

O - SPECS SUMMARY
Externally Described Files, Record Identification
and Control Entries

BASIC RPG400 PRO

GRAMMING