IBM AS/400 User Manual Page 68

  • Download
  • Add to my manuals
  • Print
  • Page
    / 489
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 67
Example of Module with Multiple Procedures
Sample output for the program ARRSRPT is shown in Figure 23 on page 44.
Customer number: 00001
ABC Electronics (Customer number 1)
15 Arboreal Way, Treetop MN 12345
Amount outstanding: $1234.56 Due date: 1995-05-01
Customer number: 00152
A&P Electronics (Customer number 152)
27 Garbanzo Avenue, Smallville MN 51423
Amount outstanding: $26544.50 Due date: 1995-02-11
Figure 23. Output for ARRSRPT
Figure 24 and Figure 25 on page 45 show the DDS source for the files CUSTFILE
and CUSTRPT respectively.
A*================================================================*
A* FILE NAME : CUSTFILE
A* RELATED PGMS : ARRSRPT
A* DESCRIPTIONS : THIS IS THE PHYSICAL FILE CUSTFILE. IT HAS
A* ONE RECORD FORMAT CALLED CUSTREC.
A*================================================================*
A* CUSTOMER MASTER FILE -- CUSTFILE
A R CUSTREC
A CUSTNUM 5 0 TEXT('CUSTOMER NUMBER')
A CUSTNAME 20 TEXT('CUSTOMER NAME')
A STREETNUM 5 0 TEXT('CUSTOMER ADDRESS')
A STREETNAME 20 TEXT('CUSTOMER ADDRESS')
A CITY 20 TEXT('CUSTOMER CITY')
A STATE 2 TEXT('CUSTOMER STATE')
A ZIP 5 0 TEXT('CUSTOMER ZIP CODE')
A AMOUNT 10 2 TEXT('AMOUNT OUTSTANDING')
A DUEDATE 10 TEXT('DATE DUE')
Figure 24. DDS for CUSTFILE
44 ILE RPG for AS/400 Programmer's Guide
Page view 67
1 2 ... 63 64 65 66 67 68 69 70 71 72 73 ... 488 489

Comments to this Manuals

No comments