Download RPG/400 User's Guide

Transcript
Examples of Using Auto Report
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ..*
IFilenameSqNORiPos1NCCPos2NCCPos3NCC................................*
ISALES
AA 01
I....................................PFromTo++DField+L1M1FrPlMnZr...*
I
1
7 ITEMNO ──┐
I
8
9 BRANCH
│
I
10 10 REGION
│
I
11 25 DESC
│ .A/
I
26 270SOLDQY
│
I
28 342SOLDVA
│
I
35 360ONHAND
│
I
37 432VALUE ──┘
I*
*.. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ..*
OName++++DFBASbSaN01N02N03Excnam....................................*
OPRINT
H
*AUTO
O................N01N02N03Field+YBEnd+PConstant/editword+++++++++...*
O
'SALES REPORT '
O
'FOR ANY CO.'
O
D
01
*AUTO
O
REGION
'REGION'
O
BRANCH
'BRANCH'
O
ITEMNO
'ITEM'
O
DESC
'DESCRIPTION'
O
SOLDQY
'SALES'
O
SOLDVA A
'AMOUNT'
O
ONHAND
'ON-HAND'
O
VALUE A
'VALUE'
O*
Chapter 12. Auto Report Feature
315