Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 Example of an ILE RPG Program, Output Specifications, Name, Rate, Ours, Trnnumber

Models: AS/400

1 489

Download 489 pages 47.95 Kb

Page 32

Image 32

Example of an ILE RPG Program

¹The TRANSACT file is defined as the Input Primary file. The ILE RPG

cycle controls the reading of records from this file.

¹The EMPLOYEE file is defined as the Input Full-Procedure file. The re

records from this file is controlled by operations in the calculatio

¹The QSYSPRT file is defined as the Output Printer file.

Definition

Specifications

*..

...+...

2 ...

+...

3 ...

... 4

...

+...

...+...

6 ...

+...

7 ...

+...

D+Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++

D Pay

D Heading1

'NUMBER

NAME

RATE

H-

OURS

BONUS

PAY

D Heading2

'______ ________________ ______ _-

____

_______

__________'

D CalcPay

Rate

VALUE

Hours

10U

VALUE

Bonus

VALUE

Using the definition specifications, declare a variable called "Pay" t employees' weekly pay and two constants "Heading1" and "Heading2" to ai printing of the report headings.

Calculation

Specifications

*..

...+...

2 ...

... 3 ...

... 4 ...

+...

5 ...

+...

6 ...

+...

7 ...

+...

CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq..

TRN_NUMBER

CHAIN

EMP_REC

NOT *IN99

EVAL

PAY = CalcPay(EMP_RATE : TRN_HOURS :

TRN_BONUS)

ENDIF

The coding entries on the calculation specifications include:

¹ Using	the CHAIN	operation code, the field	TRN_NUMBER from the transa
file	is used to	find the record with the	same employee number in
file.

¹If the CHAIN operation is successful (that is, indicator 99 is off employee is evaluated. The result is "rounded" and stored in the v Pay.

Output Specifications

8 ILE RPG for AS/400 Programmer's Guide

Page 32

Image 32

IBM AS/400 manual Example of an ILE RPG Program, Output Specifications, Name, Rate, Ours, Trnnumber, Emprec

Contents

Version ILE RPG for AS/400 Programmers GuideAS/400e Page Version ILE RPG for AS/400 Programmers GuideAS/400e Third Edition1999 commentsContents RPG Introductionwith Creating a Service ProgramChapter Handling vi ILEDebugging Working with Files and Devices Chapter 14. Defining FilesFiles FilesAppendixes Appendix B. Using the RPG III to RPGChapter 19. Example of an RPG forIndex COPYNotices countrysuch provisions are inconsistentTrademarks and Service Programming Interface InformationNotices xiv ILE RPG for AS/400 Programmers Guide Who Should Use This About This GuideGuide How to Send Your Comments Prerequisite and Related InformationRelease? Whats New This NODEBUGIO EVALNumbers EVALRElement About This Guidexixxx ILE RPG for AS/400 Programmers Guide Elementto this Guide Changesxxii ILE RPG for AS/400 Programmers Guide ILE RPG Introduction 2 ILE RPG for AS/400 Programmers Guide RPG IV Specifications Chapter 1. OverviewRPG IV Overview sectionFigure 1. RPG Program Logic Cycle Cycle ProgrammingRPG IV Overview Subprocedure logic IndicatorsRPG IV Overview The firstOperation Codes ProgramExample of an ILE RPG Example of an ILE RPG ProgramFile Description Specifications ProgramControl Specifications Output Specifications Example of an ILE RPG ProgramNAME RATEA Subprocedure Example of an ILE RPG ProgramREGISTER Chapter 1. Overview of the RPG IV Programming9 LanguageExample of an ILE RPG Program The Entire Source ProgramThis program creates a printed output of employees pay for the weekChapter 1. Overview of the RPG IV Programming11Language Example of an ILE RPG ProgramFigure 4 Part 2 of 3. A Sample Payroll Calculation Program Using Interacting with the SystemOS/400 System UsingTools Application DevelopmentAS/400 Tools for AS/400IBM VisualAge RPG and Cooperative Development Environment for AS/400 AS/400 ToolsAS/400 Tools ¹ Program verification- performs, at the workstation, the full range oAS/400 Tools 16 ILE RPG for AS/400 Programmers GuideRPG Programming in ILE Chapter 2. RPG Programming in ILEProgram Creation Figure 5. Program Creation in ILE RPG Programming in ILEor CRTSRVPGM in ILE Program ManagementProgram Call Source Debugging Bindable APIsRPG Programming in ILE shownMultithreaded Applications RPG Programming in ILEsuppo THREAD*SEREALIZERPG Programming in ILE 22 ILE RPG for AS/400 Programmers GuideChapter 3. Program Creation Strategies Strategy 1 OPM-Compatible ApplicationMethod OPM-Compatible ApplicationOPM-Compatible Application Example of OPM-Compatible ProgramEffect of ILE Using ILE Program Using CRTBNDRPGRelated Information CRTBNDRPGExample of ILE Program UsingILE Program Using CRTBNDRPG Figure 7. ILE Program Using CRTBNDRPGILE Application Using CRTRPGMOD CRTRPGMODStrategy 3 ILE Application Related InformationScenario ILE Application Using CRTRPGMODMethod Single-Language ILE ApplicationFigure 8. Single-Language Application Using CRTRPGMOD and CRTPGM Mixed-Language ILE Application ScenarioILE Application Using CRTRPGMOD Mixed-Language Application Advanced Application ScenarioILE Application Using CRTRPGMOD A Strategy to Avoid A Strategy to AvoidService Related Informationthe default activation group and any named activation A Strategy to AvoidWhen splitChapter 4. Creating an Application Using Multiple Procedures Multiple Procedures ModuleMODULE Prototyped CallsMultiple Procedures Module Multiple Procedures Module Prototype for procedure FmtCust Note the PR on definitionspecification. It has two output parameters 13. Prototype for FmtCust ProcedureExample of Module with MultipleExample of Module with Multiple Procedures Procedures NumToCin Fmt Example of Module with Multiple Procedures moduleThe Entire ARRSRPT Program Example of Module with Multiple ProceduresARRSRPT *PGM ARRSRPT *MODULE Main Procedure InArrears FmtCust Figure 22 PartExample of Module with Multiple Procedures Figure 22 PartILE RPG Complete Source for ARRSRPT Module 42 ILE RPG for AS/400 Programmers GuideExample of Module with Multiple Procedures Chapter 4. Creating an Application Using Multiple43 ProceduresSUBDUR DaysLate*DOutput for ARRSRPT ARRSRPTCoding Considerations Coding ConsiderationsGeneral Considerations Main Procedure Considerations Subprocedure ConsiderationsProgram Creation Coding ConsiderationsFor Further Information Main ProceduresSubprocedures Prototyped Call For Further InformationApplication Creating50 ILE RPG for AS/400 Programmers Guide Statements FileChapter 5. Entering SourceUsing the Source Entry Utility Using SEUUsing SEU Using SEU Procedure EMPTYPE returns a string representing the employeetype indicated by the parameter CODE 28. Source for EMPRPT memberUsing SQL Statements Using SQL StatementsUsing SQL Statements for AS/400 SQL Programming manual and theDB2 UDB for AS/400 SQLReference for more Refer toADTS thefor AS/400 Source EntryCommand Using the CRTBNDRPG CommandUsing the CRTBNDRPG CRTBNDRPGUsing the CRTBNDRPG Command ListingOptions CreationConsiderations Creating a Program for Source DebuggingUsing the CRTBNDRPG Command Using the CRTBNDRPG Command BindingCreating a Program with Static Command Using¹ WRKOUTQ queue-name Creating an OPM-CompatibleUsing the CRTBNDRPG Command PartA Sample Payroll Calculation Program Figure 32 Part 2 of 2. A Sample Payroll Calculation ProgramUsing a Compiler Listing Using a Compiler ListingListing Obtaining a CompilerCustomizing a Compiler Listing Customizing a Page Headinga Compiler Listing UsingCustomizing the Spacing Indenting Structured OperationsUsing a Compiler Listing The /SPACEErrors ListingCompilation UsingCompiler Listing Using In-Line Diagnostic MessagesUsing a Correcting Run-time Errors Using Additional-Diagnostic MessagesBrowsing a Compiler Listing Using SEU Using a Compiler ListingUsing a Compiler Listing for MaintenanceCoordinating Listing Options with Debug View Options Using a Compiler ListingArea DataAccessing the RETURNCODE Data Area Chapter 6. Creating a Program with the CRTBNDRPG Command71Accessing the RETURNCODE Data Area 72 ILE RPG for AS/400 Programmers GuideCommands 7. Creatinga Module Object ChapterCreating a Module Object CommandUsing the CRTRPGMOD Creating a NOMAIN Module Creating a Module ObjectFigure 36 Part 1 of 3. Source for TRANSSVC member Creating a Module ObjectCOPY TRANSP Creating a Module Object PartSource for TRANSSVC member PartDebugging Creating a Module forCreating a Module Object OFLIND*INOF Creating a Module ObjectSource for TRANSRPT module Related CL Commands Additional ExamplesModules Behavior of Bound ILEBinding Modules into a Program Binding Modules into aProgram CRTPGM Usinginto a Value Binding Modules into a ProgramGroup Binding Modules into a Program Concepts forCRTRPGMOD MODULEMYLIB/TRANSRPT CRTRPGMOD MODULEMYLIB/TRANSSVCUsing a Binder Listing Using a Binder ListingRelated CL Commands Additional ExamplesChanging a Module or Program Changing a Module orBASIC FULLUsing the UPDPGM Command LevelChanging the Optimization Changing a Module or ProgramRemoving Observability SizeReducing an Objects Changing a Module or ProgramChanging a Changing a Module or Program 90 ILE RPG for AS/400 Programmers GuideService Program Overview Chapter 8. Creating a Service ProgramService Program Overview Creating a Service Program Strategies for Creating Service ProgramsCreating a Service Program Using CRTSRVPGM a Service Program Using CRTSRVPGM Changing A Service ProgramRelated CL commands Sample Service Program Sample Service ProgramChapter 8. Creating a Service Program95 Sample Service ProgramFigure 42 Part 1 of 2. Source for Service Program CvtToHex Sample Service Program Source for Service Program CvtToHex42 Part 96 ILE RPG for AS/400 Programmers GuideCreating the Service Program Sample Service Program43. Source for /COPY Member with Prototype for CvtToHex Figure 44. Source for Binder Language for CvtToHexBinding to a Program Sample Service ProgramMODUL 98 ILE RPG for AS/400 Programmers GuideSample Service Program Program to test Service Program CVTTOHEXUpdating the Service Sample Binder Listingadd a to anBasic Binder listing for CVTHEXPGM Sample Service ProgramChapter 8. Creating a Service Program101 Sample Service Program 102 ILE RPG for AS/400 Programmers GuideRunning a Program Using the CL CALL Command Chapter 9. Running a ProgramRunning a Program Using the CL CALL Command Passing Parameters using theCALL Running a Program Using the CL CALL Command PartILE RPG Program that Requires Parameters at Run Time PartRunning a Program From a ApplicationRunning a Program From a Menu-Driven Application Figure 50. Data Description Specification of an Application Menu Running a Program From a Menu-Driven ApplicationA* CMDPROMPT Figure 51. Source for Menu ProgramReplying to Run-Time Inquiry CommandReplying to Run-Time Inquiry Messages Managing Activation Ending an ILE ProgramGroups Group Managing Activation GroupsSpecifying an Activation Running in the OPM DefaultCompatibility Reclaim Resources Command Deleting an ActivationGroup Managing Activation GroupsStorage Managing the Default Heap Using RPG OperationsManaging Dynamically-Allocated ENDDO Managing Dynamically-Allocated StorageName? next@ Managing Dynamically-Allocated StorageChapter 9. Running a Program115 name@ Managing Dynamically-Allocated Storage116 ILE RPG for AS/400 Programmers Guide Managing Dynamically-Allocated Storage 52 Part4 of 5. Memory Management - Build a Linked List of Names Chapter 9. Running a Program117of 5. Memory Management - Build a Linked List of Names Heap Storage ProblemsManaging Dynamically-Allocated Storage Bindable APIs Managing Your Own HeapManaging Dynamically-Allocated Storage 54. /COPY file DYNARRI containing prototypes for DYNARRAY module Managing Dynamically-Allocated StorageSeeAPI theReference Managing Dynamically-Allocated Storage Partof 2. Global variables and local prototypes for DYNARRAY Chapter 9. Running a Program121Figure 56 on page 123 shows the subprocedures in DYNARRAY Managing Dynamically-Allocated StorageFigure 55 Part 2 ofDYNARRAY Subprocedures DYNARRAY SubproceduresManaging Dynamically-Allocated Storage PartDYNARRAY Subprocedures Managing Dynamically-Allocated StoragePart 3 of 124 ILE RPG for AS/400 Programmers GuideDYNARRAY Subprocedures DYNARRAY SubproceduresManaging Dynamically-Allocated Storage PartThe logic of the subprocedures is as follows Managing Dynamically-Allocated StorageProgram/Procedure Call Overview Chapter 10. Calling Programs and ProceduresProgram/Procedure Call Overview Calling Procedures Calling ProgramsProgram/Procedure Call Overview callsThe Call Stack Program/Procedure Call OverviewThe call stack stack59. Three Modules, each with subprocedures Recursive CallsProgram/Procedure Call Overview 60. Recursive Call Stack To Be Avoided Parameter-Passing ConsiderationsProgram/Procedure Call Overview Program/Procedure Call Overview 132 ILE RPG for AS/400 Programmers GuideCall Using the CALLP OperationUsing a Prototyped Using a Prototyped Call Calling within an ExpressionExamples of Free-Form Call Passing Prototyped ParametersParameter Passing Styles Passing by Reference2 * MinLengthFirst + LengthLast + 1 %sizeName Passing by ValuePassing Prototyped Parameters Passing Prototyped Parameters PassingPrototype for ILE CEE API CEETSTA with CONST Parameter Using Operational DescriptorsPassing Prototyped Parameters Omitting Parameters Passing Prototyped ParametersLen returns a 10-digit integer value. The parameter is a character string passed by read-only referencePassing *OMIT Leaving Out ParametersPassing Prototyped Parameters 67. Prototype for System API QCMDEXC with Optional ParameterPassed Checking for the NumberPassing Prototyped Parameters Source for procedure FMTADDR Passing Prototyped Parameters3. Concatenate the complete address 4. Return 68 PartPassing Prototyped Parameters Figure 68 Part 2 of 2. Source for procedure FMTADDR69. Source for /COPY member with Prototype for Procedure FMTADDR Source for procedure PRTADDR Passing Prototyped Parameters70 Part DIM2Passing Less Data Than Required ParametersOrder of Evaluation Interlanguage CallsPassing Prototyped Parameters effectInterlanguage Calling ConsiderationsCall Operations UsingUsing V4R4M0Using the Fixed-Form Call Operations CALLB onlyPassing Parameters Using PARM Examples of CALL and CALLBOperations PLISTUsing the PLIST Operation the Fixed-Form Call OperationsReturning from a Main Procedure ProcedureNormal End Returning from a CalledReturning from a Called Program or Procedure Abnormal Endwithout Returning from a SubprocedureReturning from a Called Program or Procedure APIs Using Bindable APIsReturning using ILE Bindable Calling a Graphics Routine Examples of Using Bindable APIsCalling a Graphics Routine Multithreading Considerations Calling Special RoutinesMultithreading Considerations Share Data How toAcross Modules to Avoid DeadlockMultithreading Considerations Considerations Deadlock ExampleDebugging and Exception Handling ¹ Debug an Integrated Language Environment application by using theThis section describes how to Language Environment source debugger162 ILE RPG for AS/400 Programmers Guide The ILE Source Debugger Chapter 11. Debugging ProgramsThe ILE Source Debugger Debug Commands The ILE Source DebuggerATTR EQUATE3. EnterPF1 Help The ILE Source DebuggerTBREAK THREADPreparing a Program for Debugging Preparing a Program forCRTRPGMOD or Creating a Root Source Viewfor Debugging a Listing View Creating a COPY SourcePreparing a Program for Debugging Creatinga Statement ViewProgram for Debugging CreatingStarting the ILE Source Starting the ILE Source DebuggerSetting Debug Options STRDBG ExampleStarting the ILE Source Debugger Display Module Source display for program DEBUGEXOPM source debug support field, and Service Example of Removing ILE Programs from a Debug SessionExample of Adding a Adding/Removing Programs from a Debug SessionViewing the Program Source Viewing the Program SourceModule Viewing a DifferentViewing the Program Source Changing the View of a Module79. Source View of ILE C procedure cproc Viewing the Program SourceSetting and Removing Breakpoints Setting and Removing BreakpointsSetting and Removing BreakpointsSetting and Removing Breakpoints UnconditionalSetting an BreakpointFigure 81. Setting an Unconditional Job Breakpoint Setting and Removing Unconditional Thread BreakpointsSetting and Removing Breakpoints Setting and Removing BreakpointsLine Example of Setting a Conditional Job Breakpoint Using F13Setting and Removing Breakpoints Setting and Removing Breakpoints CommandNational Language Sort Sequence NLSS Setting and Removing Breakpoints 184 ILE RPG for AS/400 Programmers GuideSetting and Removing Job SettingUsing StatementSetting and Removing Breakpoints Setting a Breakpoint Using Statement ViewFigure 84. Sample Section of the Listing with OPTION*NOSRCSTMT Figure 85. Sample Section of the Compiler Listing with OPTION*SRCSTMTSetting and Removing Breakpoints Setting and Removing Conditional Thread BreakpointsUsing the Work with Module Breakpoints Display Debug Commands Setting and Removing Watch ConditionsRemoving All Job and ConditionsCharacteristics of Watches Setting and Removing Watch ConditionsDisplay SourceSetting Watch Conditions CommandSetting and Removing Watch Conditions Example of a Work with Watch DisplayChapter 11. Debugging Programs191 Setting and Removing Watch ConditionsFigure 89. Example of a Display Watch Window Removing Watch Conditions Displaying Active WatchesSetting and Removing Watch Conditions Example of Setting a Watch Condition Example of Setting a Watch ConditionObject Stepping Through the Program ObjectStepping Over Call Statements STEP number-of-statements OVERStepping Into Call Statements Stepping Through the Program ObjectStepping Through the Program Object PLIST Stepping Through the Program ObjectENTRY Stepping Through the Program Object Displaying Data and ExpressionsFigure 95. Stepping into Subprocedure Switch ˆ LASTNAME = Jones Displaying a Field using the EVAL debug commandStepping Through the Program Object Unexpected Results when Evaluating Variables Stepping Through the Program ObjectScalar FieldsDisplaying the Contents of an Array Displaying the Contents of a TableStepping Through the Program Object variablefield-name isDisplaying Data Structures Stepping Through the Program ObjectStepping Through the Program Object Displaying IndicatorsUsing EVAL with Data Structures Displaying Fields as Hexadecimal Values in Character FormatStepping Through the Program Object DisplayingData Displaying Variable-Length Fieldsby Pointers Displaying Null-Capable FieldsChapter 11. Debugging Programs207 Figure 102. Examples of %SUBSTR using DBGEXStepping Through the Program Object Fields ValueChanging the Value of Fields or Command Equating a Name with a Field, Expression, or CommandDisplaying Attributes of a Field Equating a Name withExamples ILE RPGSample Source for Debug Examples Sample Source for Debug Examples Figure 105 Part 1 of 4. Source for Module DBGEXPARM1 is used when calling RPGPROG program Sample Source for Debug ExamplesPointers Date, Time, TimestampSample Source for Debug Examples Figure 105 PartSource for Module DBGEX 214 ILE RPG for AS/400 Programmers GuideSample Source for Debug Examples 105 Part 4 ofSource for Module DBGEX. DBGEX is the main module of the programFigure 107. Source for C Procedure cproc. cproc is called by DBGEX Sample Source for Debug Exampleschar *cprocunsigned int size, char *inzval char *ptrException Handling Overview Chapter 12. Handling ExceptionsException Handling Overview Exception Handling Overview Eachboundary is controlreached boundary. A 218 ILE RPG for AS/400 Programmers GuideException Handling Overview Call Stack and Exception Message PercolationMain ILE RPG Exception HandlingException Handling Overview INFSR Exception HandlingHandling Exception Handling Overview HandlingUsing Exception Handlers Using Exception HandlersException Handler Priority Nested ExceptionsUsing Exception Handlers For othertypes of messagesNote The Example of Unhandled Function CheckUsing Exception Handlers keyword, ILE Using RPG-Specific HandlersOptimization Considerations Specifying Error Indicators or the E ExtenderUsing an Error Subroutine blankUsing a File Error INFSR Subroutine BEGSRTRNSUPDT This program is a simple inventory update program Access the product master file using the transaction product If the record is found, update the quantity in the master fileIf unexpected error occurs, cause inquiry message to be issued numberUsing a Program Error Subroutine specChapter 12. Handling Exceptions233 Example of *PSSR Subroutine in Main Procedure‘*DETC’ 113. Example of Subprocedure *PSSR Subroutine with GOTO 234 ILE RPG for AS/400 Programmers GuideAvoiding MOVE Specifying a Return Point ILE Condition Handlers Using a Condition HandlerILE Condition Handlers RPGHDLR RPG exception handling procedure SHOWERR ILE Condition HandlersAction codes are Condition CEEHDLRShow exception handling using a user-defined ILE Condition HandlersRegister the handler and generate errors ILE Condition HandlersUsing CancelHandlers APIsDefine the prototype for the cancel handler. This procedure is a local procedureProcedure SubProc. Call Enabler. Since this call will fail define a local *PSSR subroutine to handle the errorProcedure Enabler. This procedure enables a cancel handler Enabling and Coding a Cancel Handler for a SubprocedureFigure 118 Part 3 ofProblems when ILE CL Monitors for Notify and Status Messages 119. Output from CANHDLR program120. ILE Condition Handler that Ignores CPF4906 Handler definitionsIf this is CPF4906, handle the notify msg, otherwise percolate 121. How to Ignore Status and Notify Messages Chapter 12. Handling Exceptions249250 ILE RPG for AS/400 Programmers Guide Using the DUMP Operation Code Using the DUMP Operation CodeChapter 13. Obtaining a Dump Obtaining an ILE RPG Formatted Dumpa Formatted Dumpof a Program Status Informationof a DumpFeedback Areas Example of a Formatted Dump Figure 123. Feedback Areas section of Formatted DumpDump Data Informationof a 256 ILE RPG for AS/400 Programmers Guide Example of a Formatted DumpFigure 125 Part 1 of 2. Data section of Formatted Dump Example of a Formatted Dump Example of a Formatted Dump Working with Files and Devices 260 ILE RPG for AS/400 Programmers Guide Associating Files with Input/Output Devices Chapter 14. Defining FilesAssociating Files with Input/Output Devices Device Associating Files with Input/Output DevicesTypes of File Descriptions Naming FilesTypes of File Descriptions Using Files with Program-DescribedFiles Example of Some Typical Relationships betweenFiles Defining Externally Described FilesDefining Externally Described Renaming Record-Format Names Ignoring Record FormatsRenaming Field Names Defining Externally Described FilesUsing Input Specifications Modify anDescription Defining Externally Described FilesFiles Defining Externally Describedediting DDS Referin the Using Output SpecificationsFiles OSLSREC Level CheckingDefining Externally Described Files Defining Program-Described Files Data Management Operations and ILE RPG I/O OperationsRPG I/O Operations DataData Management Operations and ILE RPG I/O Operations OperationOperation 272 ILE RPG for AS/400 Programmers GuideFile ConsiderationsOverriding and Redirecting File Input and Output Chapter 15. GeneralInput and OutputInput OutputFile Locking File LockingRecord Locking Record LockingPath Sharing an Open DataSpooling SpoolingOutput Spooling SRTSEQ/ALTSEQSRTSEQ/ALTSEQ in an FileSRTSEQ/ALTSEQ 280 ILE RPG for AS/400 Programmers GuideChapter 16. Accessing FilesDatabase Files Physical Files and Logical FilesUsing Externally Described Disk Files Record Format SpecificationsAccess Path Using Externally Described Disk FilesUsing Externally Described Disk Files Example of the Data Description Specifications for a Database FileThe sample DDS are for the customer master logical file CUSMSTL. The f284 ILE RPG for AS/400 Programmers Guide Using Externally Described Disk Files140. Example of a field Reference File Disk Valid Keys for a RecordFile Arguments a PartialReferring to Using Externally Described Disk FilesUsing Externally Described Disk Files Record Blocking and Unblocking¹ A Using Program-Described Disk Files Using Program-Described Disk FilesIndexed File ArgumentsHandling Chapter 16. Accessing Database 289FilesFiles Sequential File Record Address FileUsing Program-Described Disk Files D K1Methods for Processing Disk Files Limits RecordsRelative Record Numbers Methods for Processing Disk FilesConsecutive Processing Methods for Processing Disk Filessubsequent textDATA DESCRIPTION SPECIFICATIONS DDSFigure 144 on page 294 and Sequential-by-Key ProcessingExamples of Sequential-by-Key Processing DiskMethods for Processing Disk Files Figure 144. DDS for database file EMPMST physical file145. DDS for database file TRWEEK physical file 146. DDS for database file EMPL1 logical fileSequential-by-Key Processing, Example Chapter 16. Accessing Database 295FilesMethods for Processing Disk Files 296 ILE RPG for AS/400 Programmers Guide Sequential-by-Key Using READMethods for Processing Disk Files for Processing Disk Files ENUMMethods for Processing Disk Files 298 ILE RPG for AS/400 Programmers GuideMethods for Processing Disk Files Random-by-Key ProcessingExample of Random-by-Key Processing Sequential-within-Limits Processing Methods for Processing Disk FilesExamples of Sequential-within-Limits Processing Disk FilesDDS for record address file LIMITS physical file 2 Sequential-within-Limits ProcessingMethods for Processing Disk Files Relative-Record-Number Processing Methods for Processing Disk FilesValid File Operations Valid File Operationsan A,P,G,D,T,Z Chapter 16. Accessing Database 305FilesValid File Operations Valid File Operations A record-addressUsing Commitment Control Using Commitment ControlCommitment Control Locks Using Commitment Controlsee theBackup and Recovery manual Abridged forFiles Using theSpecifying Example of Using Commitment Control 1.CRTJRNRCV JRNRCV RECEIVER2.CRTJRN JRNJOURNAL JRNRCVRECEIVER 3.STRJRNPF FILEMASTER TRANS JRNJOURNALControl LCKLVL*ALL2CALL. REVISE 3ENDCMTCTLCycle DDM FilesDDM Files Commitment Control inUsing Pre-V3R1 DDMDDM Files 314 ILE RPG for AS/400 Programmers GuideAccessing ExternallyDevices TypesAccessing Printer Devices Accessing Printer DevicesSpecifying PRINTER Files Handling Page OverflowAccessing Printer Devices OverflowAccessing Printer Devices Example of Printing Headings on Every Page Example of Printing a Field on Every PageAccessing Printer Devices Chapter 17. Accessing Externally Attached319DevicesPrinting a Field on Every Page Using the Fetch-OverflowAccessing Printer Devices Accessing Printer Devices Figure 159. Overflow Printing Setting of the Overflow IndicatorFetch Overflow Example of Specifying Fetch OverflowAccessing Printer Devices Use of Fetch OverflowInformation in Changing Forms ControlFile Layout of OPM PRTCTL Data Structure Accessing Printer DevicesForms Accessing Tape Devices Accessing Tape DevicesAccessing Display Devices Using Sequential FilesUsing Sequential Files FileFile Using SPECIAL FilesUsing SPECIAL Files Using SPECIAL Files ErrorStatus DescriptionExample of Using a Special File SPECIAL FilesUsing SpecificationsPLISTSPCL Using SPECIAL FilesUser-written program USERIO Chapter 18. Using WORKSTN Files Using Externally Described WORKSTN FilesUsing Externally Described WORKSTN Files FunctionUsing Externally Described WORKSTN Files ¹ OutputR RESPONSE Using Externally Described WORKSTN FilesChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN Files Specifying Function Key Indicators on Display Device FilesDevice Using Subfiles Processing an Externally Described WORKSTN FileUsing Externally Described WORKSTN Files Chapter 18. Using WORKSTN Files335Subfile Display Using Externally Described WORKSTN Filesfield Data Description Specifications for a Subfile Record Format Use of SubfilesUsing Externally Described WORKSTN Files Using Program-Described WORKSTN Files Using Program-Described WORKSTN Fileswith Using Program-Described WORKSTN FilesUsing a Program-Described Output SpecificationsInput Specifications Calculation SpecificationsName withoutValid WORKSTN File Operations Input FileOutput File Combined FileEXFMT Operation READ OperationWRITE Operation Multiple-Device FilesMultiple-Device Files Multiple-Device Files 344 ILE RPG for AS/400 Programmers GuideDatabase Physical File Chapter 19. Example of an Interactive ApplicationDatabase Physical File Inquiry DDS for aDisplay Device Main Menu InquiryCUSMAIN RPG Source Main Menu InquiryIn addition to describing the constants, fields, line numbers, and ho348 ILE RPG for AS/400 Programmers Guide Main Menu InquirySource for module CUSMAIN File Maintenance File MaintenanceCUSMSTL1 DDS for a LogicalDisplay File MaintenanceFile DeviceChapter 19. Example of an Interactive 351Application File MaintenanceFigure 174 Part 2 of 2. DDS for display device file MNTMENU DSPATRPR CUSMNT RPG SourceFile Maintenance ADD NEW CUSTOMER TO FILE File MaintenanceChapter 19. Example of an Interactive 353Application 354 ILE RPG for AS/400 Programmers Guide File MaintenanceSET MAINTENANCE MODE File Maintenance F6 UpdateCustomer File Maintenance Display Mode prompt screen F3 End JobFile Maintenance Customer File Maintenance Display Mode screenCustomer File Maintenance Add Mode prompt screen 356 ILE RPG for AS/400 Programmers GuideChapter 19. Example of an Interactive 357Application File MaintenanceYORKTOWN File Search bySearch by Zip Code SZIPMENU DDS DisplayFile DevicePROMPT Search by Zip Code14DSPATRHI Chapter 19. Example of an Interactive 361Application SCHZIP RPG SourceSearch by Zip Code Search by Zip Code 362 ILE RPG for AS/400 Programmers GuideThe subfile is written to the screen as shown in Figure 186 on pageSearch and Inquiry by Name Search and Inquiry by NameFile CUSMSTL3 DDSDevice FileSearch and Inquiry by Name SNAMMENU DDS for a DisplaySCHNAM RPG Source Search and Inquiry by NameSearch and Inquiry by Name Chapter 19. Example of an Interactive 367ApplicationSUBROUTINE ¹ ToSearch and Inquiry by Name The user requestsmore information by370 ILE RPG for AS/400 Programmers Guide Search and Inquiry by Name192. Customer Search and Inquiry by Name detailed information screen Appendixes  Copyright IBM Corp. 1994372 ILE RPG for AS/400 Programmers Guide RPG/400 and ILEAS/400 AppendixDebugging and Exception RunningDifferences Between OPM RPG/400 and ILE RPG RPG/400 ILE RPG Differences Between OPM RPG/400DBCS DBCS Data in Character FieldsILE RPG Differences Between OPM RPG/400 ILE RPG378 ILE RPG for AS/400 Programmers Guide Appendix B. Using Conversion OverviewConversion Conversion OverviewConversion Overview File ConsiderationsFile Record Length The Log File Conversion Aid Tool RequirementsFile OverviewWont Do Converting Your SourceConverting Your Source What the ConversionThe CVTRPGSRC Command Converting Your Sourcemember namesConverting Your Source FROMFILEsource-file-name LIBLConverting Your Source TOFILEQRPGLESRC NONEConverting Your Source Source DefaultsConverting a Member Using Converting All Members in a File a FilePerforming a Trial Conversion Converting Your SourceObtaining Conversion Reports Converting Auto ReportSource Members Converting Your SourceInserting Specification Templates a DataExample of Source Conversion Example of Source ConversionExample of Source ConversionTo convert this source, enter The converted source is shown in Figure 195 on pageARR1 Example of Source ConversionFigure 195. Converted RPG IV Source for TEST1 Analyzing Your Conversion Analyzing Your ConversionAnalyzing Your Conversion Using the ConversionReport Sample Message Summary of Conversion Report YourSample Source Section of Conversion Report CPYF FROMFILEQRPGLE/QARNCVTLG TOFILEMYLIB/QRNCVTLG CRTFILE*YES Using the Log FileAnalyzing Your Conversion 200. DDS for model log file QARNCVTLG in library QRPGLE Appendix B. Using the RPG III to RPG IV397 Conversion AidAnalyzing Your Conversion Resolving Conversion Problems Compilation Errors in Existing RPG III CodeUnsupported RPG III Features Resolving Conversion ProblemsRPG III Source for COPYDS1 ConversionRPG III Source for TEST2 Context-Sensitive Problems Resolving Conversion ProblemsResolving Conversion Problems Use of ExternallyStructures Merging an Array with an Externally Described DS Subfield InitializingResolving Conversion Problems 207. RPG III source using external data structure with arrayRun-time Differences Resolving Conversion Problems210. RPG III source with renamed and initialized external subfield RPG IV source with two definitions for renamed subfieldResolving Conversion Problems 404 ILE RPG for AS/400 Programmers GuideAppendix C. The Create Commands Using CL CommandsHow to Interpret Syntax Diagrams Reading Syntax DiagramsCRTBNDRPG Command CRTBNDRPG CommandCRTBNDRPG Command Appendix C. The Create Commands4073library-name/32 3description32OPTION Details Description of the CRTBNDRPG CommandCRTBNDRPG Command CRTBNDRPG Command LIBLCURLIB SRCMBRCRTBNDRPG Command 410 ILE RPG for AS/400 Programmers GuideStatementNumber = sourceID * 1000000 + sourceSEUsequencenumber DEBUGIOCommand EVENTFDBGVIEW STMTEXPDDS, and CRTBNDRPG Commandcharacter-value CRTBNDRPG Command sort-table-nameLANGIDUNQ LANGIDSHRCRTBNDRPG Command REPLACELIBCRTAUT CRTBNDRPG Command416 ILE RPG for AS/400 Programmers Guide target-release V2R3M5USRCTL Commandbinding-directory-name CRTBNDRPG Command ENTRYEXITCRTRPGMOD Command CRTRPGMOD CommandCRTRPGMOD Command Appendix C. The Create Commands421Description of the CRTRPGMOD command CRTRPGMOD Commandof CRTRPGMOD 422 ILE RPG for AS/400 Programmers GuideAppendix D. Compiler Listings Compiler ListingsCompiler Listing PrologueReading a Compiler ListingsCompiler Listings 2/ Module or Program3/ Source member 4/ SourceSample Section of the Listing with OPTION*NOSRCSTMT SectionCompiler Listings Listings Appendix D. Compiler Listings427428 ILE RPG for AS/400 Programmers Guide Compiler ListingsFigure 217 Part 1 of 3. Sample Source Part of the Listing Appendix D. Compiler Listings429 Compiler ListingsFigure 217 Part 2 of 3. Sample Source Part of the Listing Compiler Listings 1a/ *NOSRCSTMT Source HeadingLine Number Ruler LineDiagnostic AdditionalSpecifications ListingsOutput Buffer Positions COPY Member TableSample Additional Diagnostic Messages with OPTION*NOSRCSTMT Sample Additional Diagnostic Messages with OPTION*SRCSTMTCompile-Time Data Compiler Listings1/ Total Number of Characters Altered 2/ Character to be AlteredKey Field Information Cross-Reference TableCompiler Listings Figure 223. Sample Key Field InformationFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT External References ListCompiler Listings Message Summary Final SummaryCompiler Listings Figure 225. Sample External ReferencesFigure 227. Sample Final Summary Code Generation and Binding ErrorsCompiler Listings Compiler Listings 438 ILE RPG for AS/400 Programmers GuideBibliography ADTS/400Programming DevelopmentGDDM FORTRAN/400Bibliography AS/400442 ILE RPG for AS/400 Programmers Guide See Add Specialcontinued Page CALL CL commands control-record format, subfile DBCS continued debugging continued NLSS 364access NOOPTsummary Page Page alsoDISK See long alsoPARM methodscontinued creationcontinuedcallcontinued alsoILE programcontinued debuggingcontinuedWORKSTN Page WORKSTN file definition 331 examples 345 externally described 99H3778 SC09-2507-02 ÉÂÔÙPart Number 99H3778 Program Number 5769-RG1 Printed in U.S.A