,,RPG
,,RPG  ,REPORT ,PROGRAM ,G5]ATOR  IS !
OLDE/ PROGRAMM+ LANGUAGE / DO+ XS
ORIG9AL JOB4 ,,IBM 9TRODUC$ X 9 #AIEI =
! #ADJA TO G5]ATE BUSI;S REPORTS F DATA
FILES1 & SIXTY-PLUS YE>S LAT] ,,RPG ,,IV
REMA9S ! PRIM>Y APPLICA;N LANGUAGE (
,,IBM'S MIDRANGE L9E  N[ CALL$ ,,IBM I 
": ,,RPG ,,II-]A CODE & FRE%LY WRITT5
FREE-=M CODE R\T9ELY COEXI/ 9 ! SAME
%OP4.<CITE3 .<,,IBM ,,RPG  #AIEI_/#ADJA
ORIG9 & XS 3T9U+ ROLE Z ! MIDRANGE
LANGUAGE.>.>
,! LANGUAGE'S PREMISE 0 EXACTLY :AT XS
"N SAYS3 BUSI;SES DIDN'T NE$ G5]AL
COMPUTA;N S M* Z ! SAME LOOP ="E  R1D A
RECORD1 CALCULATE1 PR9T1 REP1T4 ,,RPG
5COD$ T LOOP DIRECTLY 9TO ! PROGRAMM+
MODEL Z ! PROGRAM CYCLE3 A BUILT-9
R1D-PROCESS-WRITE PATT]N ! MA*9E RAN
AUTOMATICALLY1 ) ! PROGRAMM] SUPPLY+
ONLY ! V>IA;NS4 ,>.D X GREW ! LANGUAGE'S
MO/ RECOGNIZABLE F1TURE  FIX$-=M1
COLUMN-ORI5T$ SYNTAX1 ": A PROGRAM'S
M1N+ LIVES "PLY 9 : COLUMNS XS "*S
O3UPY4 ,SPECIFICA;N TYPES "<,9PUT1
,CALCULA;N1 ,\TPUT  ! FAM\S
,F_/,I_/,C_/,O %EETS T MIRROR$ PUN*$-C>D
?9K+"> MADE AN ,,RPG PROGRAM LOOK LESS L
PROSE & M L AN 5G9E]+ =M  2C T'S :AT X
WAS3 ! TABULAT+-MA*9E "WFL[ RE9C>NAT$ Z
A PROGRAMM+ LANGUAGE4.<CITE3 .<,,IBM
,,RPG  ! PROGRAM CYCLE & COLUMN-ORI5T$
SYNTAX2 ,,RPG DESC5D$ F ,,F>GO &
#I,,PAC.>.>
,A DYNA/Y ( MIDRANGE MA*9ES
,,RPG'S HI/ORY IS ! HI/ORY ( ,,IBM'S
SMALL-BUSI;S COMPUT]S3
- ,,RPG "<#AIEI">  ! #ADJA ORIG9AL1
REPORTS F FILES - ,,RPG ,,II  ! "WHORSE
( ! ,SY/EM_/#C "? ,SY/EM_/#CF ]A2 /
SUPPORT$ "U Z_/,,OS & Z_/,,VSE - ,,RPG
,,III  /RUCTUR$ OP]A;NS = ! ,SY/EM_/#CH
- ,,RPG_/#DJJ  ! ,,Z_/#DJJ'S V].N -
,,RPG ,,IV _/ ,,ILE ,,RPG  ! MOD]N
LANGUAGE ON ,,IBM I1 )  AT LA/  FREE-=M
SYNTAX1 MODULES1 & S]VICE PROGRAMS2
REL1SE #G4D %IPP$ 9 ,OCTOB] #BJBJ
,! L91GE AL ESCAP$ ,,IBM3 ,,RPG
IMPLE;TA;NS RAN ON ,,DEC ,,VAX1
,H"OYWELL1 ,BURR\<S1 ,,HP #CJJJ1 ,WANG
,,VS1 EV5 ,,MS-,,DOS  ! COLUMN> =MAT
PROV$ Z PORTABLE Z ! PUN*$ C>D X
REPLAC$4.<CITE3 .<,,IBM ,,RPG DIALECTS 
! ,,II_/,,III_/#DJJ_/,,IV SU3ES.N & !
NON-,,IBM PORTS.>.>
,,RPG IS ! LIV+ FOSSIL ( ! PUN*-C>D ]A3
= MO/ ( XS LIFE1 "9":"9 Y WROTE A "*
DET]M9$ :AT X M1NT  COLUMN #F M>K$ !
SPECIFICA;N TYPE1 & S1SON$ ,,RPG
PROGRAMM]S R1D CODE ! WAY 5G9E]S R1D
=MS4 ,,RPG ,,IV'S FREE-=M SYNTAX "<#BJJA
ONW>D"> RETIR$ ! COLUMNS AF =TY-TWO
YE>S4
,": X SITS
,,RPG IS ! PRO( T 8D1D0 IS A /ATUS
LANGUAGES E>N R ?AN RCV4 ,X HAS NO
!ORETICAL ELEG.E & NO GLAM\R  B X MODELS
"O ?+ "<PROCESS RECORDS1 PRODUCE
REPORTS"> P]FECTLY 5 T BILLIONS ( L9ES (
X / RUN ! _W'S MIDRANGE BACK (FICES4 ,X
\TLIV$ ! #ADJA1 ! ,SY/EM_/#C1 !
,,Z_/#DJJ1 & E OBITU>Y WRITT5 = X4
,*ECK YR "U/&+
- .< .> ,:AT DOES ,,RPG /& =1 :5 DID X
APPE>1 & ON :AT MA*9E8 - .< .> ,:AT IS !
8PROGRAM CYCLE0  ! IDEA ,,RPG H>D-WIR$
9TO ! LANGUAGE8 - .< .> ,:AT MADE
CLASSIC ,,RPG SYNTAX UNUSUAL AM;G
PROGRAMM+ LANGUAGES8 - .< .> ,IS ,,RPG
D1D8
#A  "9"9,REPORT ,PROGRAM ,G5]ATOR"9"91
"9"9#AIEI"9"91 ON ! "9"9,,IBM #ADJA"9"94
#B  ! BUILT-9 "9"9R1D  CALCULATE 
\TPUT"9"9 LOOP2 ! PROGRAMM] SPECIFI$
ONLY ! P]-RECORD LOGIC 9SIDE X4 #C 
"9"9FIX$-=M1 COLUMN-ORI5T$ SYNTAX"9"9 
M1N+ DEP5D$ ON : COLUMNS "*S O3UPI$
"<,F_/,I_/,C_/,O SPECIFICA;N %EETS">4 #D
"9"9,NO"9"9  ,,RPG ,,IV_/,,ILE ,,RPG /
RUNS ON ,,IBM I1 ) MOD]N FREE-=M
REL1SES2 ,,RPG ,,II CODE / EXECUTES "U
Z_/,,OS & Z_/,,VSE4