Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 The Entire ARRSRPT Program, Example of Module with Multiple Procedures, Part, 1 of

Models: AS/400

1 489

Download 489 pages 47.95 Kb

Page 65

Image 65

Example of Module with Multiple Procedures

The Entire ARRSRPT Program

The ARRSRPT program consists of Figure 21 shows the different

two modules: ARRSRPT and CVTPROCS. pieces of our mini-application.

ARRSRPT *PGM

ARRSRPT *MODULE

Main Procedure

InArrears

FmtCust

CVTPROCS *MODULE NOMAIN

NumToChar

/COPY member

CVTPROCP

CUSTFILE

DDS

CUSTRPT

DDS

Figure 21. The ARRSRPT Application

Figure 22 shows the source for the entire ARRSRPT module.

*=================================================================*

*Source for module ARRSRPT. Contains a main procedure and

*two subprocedures: InArrears and FmtCust.

*Related Module: CVTPROCS (NumToChar called by FmtCust) *=================================================================*

*--------------------------------------------------------------

*F I L E S

*CUSTFILE - contains customer information

*CUSTRPT - printer file (using format ARREARS)

*--------------------------------------------------------------			*
FCUSTFILE	IP	E	DISK
FCUSTRPT	O	E	PRINTER

Figure 22 (Part		1 of	3). ILE RPG Complete Source for ARRSRPT Module

Chapter 4. Creating an Application Using Multiple41 Procedures

Page 65

Image 65

IBM AS/400 manual The Entire ARRSRPT Program, Example of Module with Multiple Procedures, Part, 1 of

Contents

Version ILE RPG for AS/400 Programmers GuideAS/400e Page Version ILE RPG for AS/400 Programmers GuideAS/400e Edition Third1999 commentsRPG Introduction Contentswith Creating a Service ProgramChapter Handling vi ILEDebugging Chapter 14. Defining Files Working with Files and DevicesFiles FilesAppendix B. Using the RPG III to RPG AppendixesChapter 19. Example of an RPG forCOPY Indexcountry Noticessuch provisions are inconsistentProgramming Interface Information Trademarks and ServiceNotices xiv ILE RPG for AS/400 Programmers Guide Who Should Use This About This GuideGuide Prerequisite and Related Information How to Send Your CommentsRelease? Whats New This EVAL NODEBUGIONumbers EVALRAbout This Guidexix ElementElement xx ILE RPG for AS/400 Programmers GuideChanges to this Guidexxii ILE RPG for AS/400 Programmers Guide ILE RPG Introduction 2 ILE RPG for AS/400 Programmers Guide Chapter 1. Overview RPG IV SpecificationsRPG IV Overview sectionFigure 1. RPG Program Logic Cycle Cycle ProgrammingRPG IV Overview Indicators Subprocedure logicRPG IV Overview The firstProgram Operation CodesExample of an ILE RPG Example of an ILE RPG ProgramFile Description Specifications ProgramControl Specifications Example of an ILE RPG Program Output SpecificationsNAME RATEExample of an ILE RPG Program A SubprocedureREGISTER Chapter 1. Overview of the RPG IV Programming9 LanguageThe Entire Source Program Example of an ILE RPG 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 Interacting with the System UsingOS/400 System UsingApplication Development ToolsAS/400 Tools for AS/400AS/400 Tools IBM VisualAge RPG and Cooperative Development Environment for AS/400¹ Program verification- performs, at the workstation, the full range o AS/400 Tools16 ILE RPG for AS/400 Programmers Guide AS/400 ToolsRPG 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 Bindable APIs Source DebuggingRPG Programming in ILE shownRPG Programming in ILE Multithreaded Applicationssuppo THREAD*SEREALIZE22 ILE RPG for AS/400 Programmers Guide RPG Programming in ILEStrategy 1 OPM-Compatible Application Chapter 3. Program Creation StrategiesMethod OPM-Compatible ApplicationOPM-Compatible Application Example of OPM-Compatible ProgramEffect of ILE ILE Program Using CRTBNDRPG UsingRelated Information CRTBNDRPGUsing Example of ILE ProgramILE Program Using CRTBNDRPG Figure 7. ILE Program Using CRTBNDRPGCRTRPGMOD ILE Application Using CRTRPGMODStrategy 3 ILE Application Related InformationILE Application Using CRTRPGMOD ScenarioMethod 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 InformationA Strategy to Avoid the default activation group and any named activationWhen splitMultiple Procedures Module Chapter 4. Creating an Application Using Multiple ProceduresMODULE Prototyped CallsMultiple Procedures Module Prototype for procedure FmtCust Note the PR on definition Multiple Procedures Modulespecification. It has two output parameters 13. Prototype for FmtCust ProcedureMultiple Example of Module withExample of Module with Multiple Procedures NumToC Proceduresin Fmt module Example of Module with Multiple ProceduresExample of Module with Multiple Procedures The Entire ARRSRPT ProgramARRSRPT *PGM ARRSRPT *MODULE Main Procedure InArrears FmtCust Figure 22 PartFigure 22 Part Example of Module with Multiple ProceduresILE RPG Complete Source for ARRSRPT Module 42 ILE RPG for AS/400 Programmers GuideChapter 4. Creating an Application Using Multiple43 Procedures Example of Module with Multiple ProceduresSUBDUR DaysLate*DARRSRPT Output for ARRSRPTCoding Considerations Coding ConsiderationsGeneral Considerations Subprocedure Considerations Main Procedure ConsiderationsProgram Creation Coding ConsiderationsFor Further Information Main ProceduresSubprocedures For Further Information Prototyped CallCreating Application50 ILE RPG for AS/400 Programmers Guide File StatementsChapter 5. Entering SourceUsing SEU Using the Source Entry UtilityUsing SEU Procedure EMPTYPE returns a string representing the employee Using SEUtype indicated by the parameter CODE 28. Source for EMPRPT memberUsing SQL Statements Using SQL Statementsfor AS/400 SQL Programming manual and theDB2 UDB for AS/400 SQL Using SQL StatementsReference for more Refer toADTS thefor AS/400 Source EntryUsing the CRTBNDRPG Command CommandUsing the CRTBNDRPG CRTBNDRPGListing Using the CRTBNDRPG CommandOptions CreationConsiderations Creating a Program for Source DebuggingUsing the CRTBNDRPG Command Using the CRTBNDRPG Command BindingCreating a Program with Static Using Command¹ WRKOUTQ queue-name Creating an OPM-CompatiblePart Using the CRTBNDRPG CommandA 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 Page Heading Customizing a Compiler Listinga Compiler Listing UsingIndenting Structured Operations Customizing the SpacingUsing a Compiler Listing The /SPACEListing ErrorsCompilation UsingCompiler Listing Using In-Line Diagnostic MessagesUsing a Using Additional-Diagnostic Messages Correcting Run-time ErrorsBrowsing a Compiler Listing Using SEU Using a Compiler ListingMaintenance Using a Compiler Listing forCoordinating Listing Options with Debug View Options Using a Compiler ListingData AreaChapter 6. Creating a Program with the CRTBNDRPG Command71 Accessing the RETURNCODE Data Area72 ILE RPG for AS/400 Programmers Guide Accessing the RETURNCODE Data Area7. Creating Commandsa Module Object ChapterCreating a Module Object CommandUsing the CRTRPGMOD Creating a Module Object Creating a NOMAIN ModuleFigure 36 Part 1 of 3. Source for TRANSSVC member Creating a Module ObjectCOPY TRANSP Part Creating a Module ObjectSource for TRANSSVC member PartDebugging Creating a Module forCreating a Module Object OFLIND*INOF Creating a Module ObjectSource for TRANSRPT module Additional Examples Related CL CommandsModules Behavior of Bound ILEBinding Modules into a Program Binding Modules into aProgram CRTPGM Usinginto a Value Binding Modules into a ProgramGroup Concepts for Binding Modules into a ProgramCRTRPGMOD MODULEMYLIB/TRANSRPT CRTRPGMOD MODULEMYLIB/TRANSSVCUsing a Binder Listing Using a Binder ListingRelated CL Commands Additional ExamplesChanging a Module or Changing a Module or ProgramBASIC FULLLevel Using the UPDPGM CommandChanging the Optimization Changing a Module or ProgramSize Removing ObservabilityReducing an Objects Changing a Module or ProgramChanging a 90 ILE RPG for AS/400 Programmers Guide Changing a Module or ProgramService 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 Source for Service Program CvtToHex Sample Service Program42 Part 96 ILE RPG for AS/400 Programmers GuideSample Service Program Creating the Service Program43. Source for /COPY Member with Prototype for CvtToHex Figure 44. Source for Binder Language for CvtToHexSample Service Program Binding to a ProgramMODUL 98 ILE RPG for AS/400 Programmers GuideProgram to test Service Program CVTTOHEX Sample Service ProgramSample Binder Listing Updating the Serviceadd a to anBasic Binder listing for CVTHEXPGM Sample Service ProgramChapter 8. Creating a Service Program101 102 ILE RPG for AS/400 Programmers Guide Sample Service ProgramChapter 9. Running a Program Running a Program Using the CL CALL CommandRunning a Program Using the CL CALL Command Passing Parameters using theCALL Part Running a Program Using the CL CALL CommandILE RPG Program that Requires Parameters at Run Time PartRunning a Program From a ApplicationRunning a Program From a Menu-Driven Application Running a Program From a Menu-Driven Application Figure 50. Data Description Specification of an Application MenuA* 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 Deleting an Activation Reclaim Resources CommandGroup 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 52 Part Managing Dynamically-Allocated Storage4 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 Part Managing Dynamically-Allocated Storageof 2. Global variables and local prototypes for DYNARRAY Chapter 9. Running a Program121Managing Dynamically-Allocated Storage Figure 56 on page 123 shows the subprocedures in DYNARRAYFigure 55 Part 2 ofDYNARRAY Subprocedures DYNARRAY SubproceduresManaging Dynamically-Allocated Storage PartManaging Dynamically-Allocated Storage DYNARRAY SubproceduresPart 3 of 124 ILE RPG for AS/400 Programmers GuideDYNARRAY Subprocedures DYNARRAY SubproceduresManaging Dynamically-Allocated Storage PartManaging Dynamically-Allocated Storage The logic of the subprocedures is as followsProgram/Procedure Call Overview Chapter 10. Calling Programs and ProceduresProgram/Procedure Call Overview Calling Programs Calling ProceduresProgram/Procedure Call Overview callsProgram/Procedure Call Overview The Call StackThe 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 132 ILE RPG for AS/400 Programmers Guide Program/Procedure Call OverviewCall Using the CALLP OperationUsing a Prototyped Calling within an Expression Using a Prototyped CallPassing Prototyped Parameters Examples of Free-Form CallParameter Passing Styles Passing by Reference2 * MinLengthFirst + LengthLast + 1 %sizeName Passing by ValuePassing Prototyped Parameters Passing Passing Prototyped ParametersPrototype for ILE CEE API CEETSTA with CONST Parameter Using Operational DescriptorsPassing Prototyped Parameters Passing Prototyped Parameters Omitting ParametersLen returns a 10-digit integer value. The parameter is a character string passed by read-only referenceLeaving Out Parameters Passing *OMITPassing Prototyped Parameters 67. Prototype for System API QCMDEXC with Optional ParameterPassed Checking for the NumberPassing Prototyped Parameters Passing Prototyped Parameters Source for procedure FMTADDR3. 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 Passing Prototyped Parameters Source for procedure PRTADDR70 Part DIM2Parameters Passing Less Data Than RequiredInterlanguage Calls Order of EvaluationPassing Prototyped Parameters effectCalling Considerations InterlanguageUsing Call OperationsUsing V4R4M0CALLB only Using the Fixed-Form Call OperationsExamples of CALL and CALLB Passing Parameters Using PARMOperations PLISTthe Fixed-Form Call Operations Using the PLIST OperationProcedure Returning from a Main ProcedureNormal End Returning from a CalledAbnormal End Returning from a Called Program or Procedurewithout 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 Deadlock Example Considerations¹ Debug an Integrated Language Environment application by using the Debugging and Exception HandlingThis 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 The ILE Source Debugger Debug CommandsATTR EQUATEThe ILE Source Debugger 3. EnterPF1 HelpTBREAK THREADPreparing a Program for Preparing a Program for DebuggingCRTRPGMOD or Creating a Root Source Viewfor Debugging Creating a COPY Source a Listing ViewPreparing a Program for Debugging CreatingView a StatementProgram for Debugging CreatingStarting the ILE Source Debugger Starting the ILE SourceSTRDBG Example Setting Debug OptionsStarting the ILE Source Debugger Display Module Source display for program DEBUGEXOPM source debug support field, and Example of Removing ILE Programs from a Debug Session ServiceExample of Adding a Adding/Removing Programs from a Debug SessionViewing the Program Source Viewing the Program SourceModule Viewing a DifferentViewing the Program Source Module Changing the View of a79. Source View of ILE C procedure cproc Viewing the Program SourceSetting and Removing Breakpoints Setting and Removing BreakpointsBreakpoints Setting and RemovingSetting and Removing Breakpoints UnconditionalBreakpoint Setting anFigure 81. Setting an Unconditional Job Breakpoint Setting and Removing Unconditional Thread BreakpointsSetting and Removing Breakpoints Breakpoints Setting and RemovingLine Example of Setting a Conditional Job Breakpoint Using F13Setting and Removing Breakpoints Setting and Removing Breakpoints CommandNational Language Sort Sequence NLSS 184 ILE RPG for AS/400 Programmers Guide Setting and Removing BreakpointsSetting Setting and Removing JobUsing StatementSetting a Breakpoint Using Statement View Setting and Removing BreakpointsFigure 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 Setting and Removing Watch Conditions Debug CommandsRemoving All Job and ConditionsSetting and Removing Watch Conditions Characteristics of WatchesDisplay SourceCommand Setting Watch ConditionsSetting 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 ConditionStepping Through the Program Object ObjectSTEP number-of-statements OVER Stepping Over Call StatementsStepping Through the Program Object Stepping Into Call StatementsStepping 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 Stepping Through the Program Object Unexpected Results when Evaluating VariablesScalar FieldsDisplaying the Contents of a Table Displaying the Contents of an ArrayStepping Through the Program Object variablefield-name isStepping Through the Program Object Displaying Data StructuresStepping Through the Program Object Displaying IndicatorsUsing EVAL with Data Structures in Character Format Displaying Fields as Hexadecimal ValuesStepping Through the Program Object DisplayingDisplaying Variable-Length Fields Databy Pointers Displaying Null-Capable FieldsChapter 11. Debugging Programs207 Figure 102. Examples of %SUBSTR using DBGEXStepping Through the Program Object Value FieldsChanging the Value of Fields Equating a Name with a Field, Expression, or Command or CommandDisplaying Attributes of a Field Equating a Name withExamples ILE RPGSample Source for Debug Examples Figure 105 Part 1 of 4. Source for Module DBGEX Sample Source for Debug ExamplesSample Source for Debug Examples PARM1 is used when calling RPGPROG programPointers Date, Time, TimestampFigure 105 Part Sample Source for Debug ExamplesSource for Module DBGEX 214 ILE RPG for AS/400 Programmers Guide105 Part 4 of Sample Source for Debug ExamplesSource for Module DBGEX. DBGEX is the main module of the programSample Source for Debug Examples Figure 107. Source for C Procedure cproc. cproc is called by DBGEXchar *cprocunsigned int size, char *inzval char *ptrException Handling Overview Chapter 12. Handling ExceptionsException Handling Overview Each Exception Handling Overviewboundary is controlreached boundary. A 218 ILE RPG for AS/400 Programmers GuideCall Stack and Exception Message Percolation Exception Handling OverviewMain ILE RPG Exception HandlingException Handling Overview INFSR Exception HandlingHandling Handling Exception Handling OverviewUsing Exception Handlers Using Exception HandlersException Handler Priority Nested ExceptionsFor other Using Exception Handlerstypes of messagesNote The Example of Unhandled Function CheckUsing Exception Handlers keyword, ILE Using RPG-Specific HandlersOptimization Considerations Extender Specifying Error Indicators or the Eblank Using an Error SubroutineBEGSR Using a File Error INFSR SubroutineTRNSUPDT This program is a simple inventory update program If the record is found, update the quantity in the master file Access the product master file using the transaction productIf unexpected error occurs, cause inquiry message to be issued numberspec Using a Program Error SubroutineChapter 12. Handling Exceptions233 Example of *PSSR Subroutine in Main Procedure‘*DETC’ 234 ILE RPG for AS/400 Programmers Guide 113. Example of Subprocedure *PSSR Subroutine with GOTOAvoiding 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 CEEHDLR ConditionILE Condition Handlers Show exception handling using a user-definedILE Condition Handlers Register the handler and generate errorsCancel UsingHandlers APIsa local procedure Define the prototype for the cancel handler. This procedure isProcedure SubProc. Call Enabler. Since this call will fail define a local *PSSR subroutine to handle the errorEnabling and Coding a Cancel Handler for a Subprocedure Procedure Enabler. This procedure enables a cancel handlerFigure 118 Part 3 of119. Output from CANHDLR program Problems when ILE CL Monitors for Notify and Status Messages120. ILE Condition Handler that Ignores CPF4906 Handler definitionsIf this is CPF4906, handle the notify msg, otherwise percolate Chapter 12. Handling Exceptions249 121. How to Ignore Status and Notify Messages250 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 DumpDump a Formattedof a Program Status Informationof a DumpFeedback Areas Figure 123. Feedback Areas section of Formatted Dump Example of a 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 Associating Files with Input/Output Devices DeviceTypes of File Descriptions Naming FilesTypes of File Descriptions Program-Described Using Files withFiles Example of Some Typical Relationships betweenFiles Defining Externally Described FilesDefining Externally Described Ignoring Record Formats Renaming Record-Format NamesRenaming Field Names Defining Externally Described FilesModify an Using Input SpecificationsDescription Defining Externally Described FilesDefining Externally Described Filesediting DDS Referin the Using Output SpecificationsFiles OSLSREC Level CheckingDefining Externally Described Files Data Management Operations and ILE RPG I/O Operations Defining Program-Described FilesRPG I/O Operations DataOperation Data Management Operations and ILE RPG I/O OperationsOperation 272 ILE RPG for AS/400 Programmers GuideConsiderations FileOverriding and Redirecting File Input and Output Chapter 15. Generaland Output InputInput OutputFile Locking File LockingRecord Locking Record LockingSharing an Open Data PathSpooling SpoolingSRTSEQ/ALTSEQ Output SpoolingSRTSEQ/ALTSEQ in an File280 ILE RPG for AS/400 Programmers Guide SRTSEQ/ALTSEQFiles Chapter 16. AccessingDatabase Files Physical Files and Logical FilesRecord Format Specifications Using Externally Described Disk FilesAccess Path Using Externally Described Disk FilesExample of the Data Description Specifications for a Database File Using Externally Described Disk FilesThe 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 a Partial ArgumentsReferring 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 Record Address File Sequential FileUsing Program-Described Disk Files D K1Limits Records Methods for Processing Disk FilesRelative Record Numbers Methods for Processing Disk FilesMethods for Processing Disk Files Consecutive Processingsubsequent textSequential-by-Key Processing DATA DESCRIPTION SPECIFICATIONS DDSFigure 144 on page 294 andExamples of Sequential-by-Key Processing DiskFigure 144. DDS for database file EMPMST physical file Methods for Processing Disk Files145. 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 ENUM for Processing Disk Files298 ILE RPG for AS/400 Programmers Guide Methods for Processing Disk FilesMethods for Processing Disk Files Random-by-Key ProcessingExample of Random-by-Key Processing Methods for Processing Disk Files Sequential-within-Limits ProcessingDisk Files Examples of Sequential-within-Limits ProcessingDDS for record address file LIMITS physical file 2 Sequential-within-Limits ProcessingMethods for Processing Disk Files Methods for Processing Disk Files Relative-Record-Number ProcessingValid File Operations Valid File Operationsan A,P,G,D,T,Z Chapter 16. Accessing Database 305FilesValid File Operations A record-address Valid File OperationsUsing Commitment Control Using Commitment ControlUsing Commitment Control Commitment Control Lockssee theBackup and Recovery manual Abridged forFiles Using theSpecifying 1.CRTJRNRCV JRNRCV RECEIVER Example of Using Commitment Control2.CRTJRN JRNJOURNAL JRNRCVRECEIVER 3.STRJRNPF FILEMASTER TRANS JRNJOURNALLCKLVL*ALL Control2CALL. REVISE 3ENDCMTCTLDDM Files CycleDDM Files Commitment Control inPre-V3R1 DDM Using314 ILE RPG for AS/400 Programmers Guide DDM FilesExternally AccessingDevices TypesAccessing Printer Devices Accessing Printer DevicesSpecifying PRINTER Files Handling Page OverflowOverflow Accessing Printer DevicesAccessing Printer Devices Example of Printing a Field on Every Page Example of Printing Headings on Every PageAccessing Printer Devices Chapter 17. Accessing Externally Attached319DevicesPrinting a Field on Every Page Using the Fetch-OverflowAccessing Printer Devices Figure 159. Overflow Printing Setting of the Overflow Indicator Accessing Printer DevicesExample of Specifying Fetch Overflow 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 DevicesUsing Sequential Files Accessing Display DevicesUsing Sequential Files FileFile Using SPECIAL FilesUsing SPECIAL Files Error Using SPECIAL FilesStatus DescriptionSPECIAL Files Example of Using a Special FileUsing SpecificationsPLISTSPCL Using SPECIAL FilesUser-written program USERIO Using Externally Described WORKSTN Files Chapter 18. Using WORKSTN FilesUsing Externally Described WORKSTN Files Function¹ Output Using Externally Described WORKSTN FilesR RESPONSE Using Externally Described WORKSTN FilesChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN Files Specifying Function Key Indicators on Display Device FilesDevice Processing an Externally Described WORKSTN File Using SubfilesUsing 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 FilesUsing Program-Described WORKSTN Files withUsing a Program-Described Output SpecificationsCalculation Specifications Input SpecificationsName withoutInput File Valid WORKSTN File OperationsOutput File Combined FileREAD Operation EXFMT OperationWRITE Operation Multiple-Device FilesMultiple-Device Files 344 ILE RPG for AS/400 Programmers Guide Multiple-Device FilesDatabase Physical File Chapter 19. Example of an Interactive ApplicationDatabase Physical File DDS for a InquiryDisplay Device Main Menu InquiryMain Menu Inquiry CUSMAIN RPG SourceIn 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 LogicalFile Maintenance DisplayFile 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 F6 Update File MaintenanceCustomer File Maintenance Display Mode prompt screen F3 End JobCustomer File Maintenance Display Mode screen File MaintenanceCustomer 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 Display SZIPMENU DDSFile DevicePROMPT Search by Zip Code14DSPATRHI Chapter 19. Example of an Interactive 361Application SCHZIP RPG SourceSearch by Zip Code 362 ILE RPG for AS/400 Programmers Guide Search by Zip Codeis written to the screen as shown in Figure 186 on page The subfileSearch and Inquiry by Name Search and Inquiry by NameFile CUSMSTL3 DDSFile DeviceSearch and Inquiry by Name SNAMMENU DDS for a DisplaySearch and Inquiry by Name SCHNAM RPG SourceChapter 19. Example of an Interactive 367Application Search and Inquiry by NameSUBROUTINE ¹ ToSearch and Inquiry by Name requests The usermore information by370 ILE RPG for AS/400 Programmers Guide Search and Inquiry by Name192. Customer Search and Inquiry by Name detailed information screen  Copyright IBM Corp. 1994 Appendixes372 ILE RPG for AS/400 Programmers Guide and ILE RPG/400AS/400 AppendixDebugging and Exception RunningDifferences Between OPM RPG/400 and ILE RPG RPG/400 Differences Between OPM RPG/400 ILE RPGDBCS DBCS Data in Character FieldsILE RPG Differences Between OPM RPG/400 ILE RPG378 ILE RPG for AS/400 Programmers Guide Conversion Overview Appendix B. UsingConversion Conversion OverviewConversion Overview File ConsiderationsFile Record Length Conversion Aid Tool Requirements The Log FileFile OverviewConverting Your Source Wont DoConverting Your Source What the ConversionConverting Your Source The CVTRPGSRC Commandmember namesFROMFILE Converting Your Sourcesource-file-name LIBLTOFILE Converting Your SourceQRPGLESRC NONEConverting Your Source Source DefaultsConverting a Member Using a File Converting All Members in a FilePerforming a Trial Conversion Converting Your SourceConverting Auto Report Obtaining Conversion ReportsSource Members Converting Your Sourcea Data Inserting Specification TemplatesExample of Source Conversion Example of Source Conversionof Source Conversion ExampleTo 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 Compilation Errors in Existing RPG III Code Resolving Conversion ProblemsUnsupported RPG III Features Resolving Conversion ProblemsRPG III Source for COPYDS1 ConversionRPG III Source for TEST2 Resolving Conversion Problems Context-Sensitive ProblemsResolving Conversion Problems Use of ExternallyStructures Initializing Merging an Array with an Externally Described DS SubfieldResolving Conversion Problems 207. RPG III source using external data structure with arrayResolving Conversion Problems Run-time Differences210. RPG III source with renamed and initialized external subfield RPG IV source with two definitions for renamed subfield404 ILE RPG for AS/400 Programmers Guide Resolving Conversion ProblemsUsing CL Commands Appendix C. The Create CommandsHow to Interpret Syntax Diagrams Reading Syntax DiagramsCRTBNDRPG Command CRTBNDRPG CommandAppendix C. The Create Commands407 CRTBNDRPG Command3library-name/32 3description32OPTION Details Description of the CRTBNDRPG CommandCRTBNDRPG Command LIBL CRTBNDRPG CommandCURLIB SRCMBR410 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandDEBUGIO StatementNumber = sourceID * 1000000 + sourceSEUsequencenumberEVENTF CommandDBGVIEW STMTEXPDDS, and CRTBNDRPG Commandcharacter-value sort-table-name CRTBNDRPG CommandLANGIDUNQ LANGIDSHRREPLACE CRTBNDRPG CommandLIBCRTAUT CRTBNDRPG Command416 ILE RPG for AS/400 Programmers Guide V2R3M5 target-releaseUSRCTL Commandbinding-directory-name ENTRYEXIT CRTBNDRPG CommandCRTRPGMOD Command CRTRPGMOD CommandAppendix C. The Create Commands421 CRTRPGMOD CommandCRTRPGMOD Command Description of the CRTRPGMOD commandof CRTRPGMOD 422 ILE RPG for AS/400 Programmers GuideCompiler Listings Appendix D. Compiler ListingsPrologue Compiler ListingReading a Compiler Listings2/ Module or Program Compiler Listings3/ Source member 4/ SourceSample Section of the Listing with OPTION*NOSRCSTMT SectionCompiler Listings Appendix D. Compiler Listings427 Listings428 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 1a/ *NOSRCSTMT Source Heading Compiler ListingsLine Number Ruler LineAdditional DiagnosticSpecifications ListingsCOPY Member Table Output Buffer PositionsSample Additional Diagnostic Messages with OPTION*NOSRCSTMT Sample Additional Diagnostic Messages with OPTION*SRCSTMTCompiler Listings Compile-Time Data1/ Total Number of Characters Altered 2/ Character to be AlteredCross-Reference Table Key Field InformationCompiler Listings Figure 223. Sample Key Field InformationFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT External References ListCompiler Listings Final Summary Message SummaryCompiler Listings Figure 225. Sample External ReferencesFigure 227. Sample Final Summary Code Generation and Binding ErrorsCompiler Listings 438 ILE RPG for AS/400 Programmers Guide Compiler ListingsADTS/400 BibliographyProgramming DevelopmentFORTRAN/400 GDDMAS/400 Bibliography442 ILE RPG for AS/400 Programmers Guide See Add Specialcontinued Page CALL CL commands control-record format, subfile DBCS continued debugging continued NLSS NOOPT 364accesssummary Page Page alsoDISK See long alsoPARM creationcontinued methodscontinuedcallcontinued alsoILE debuggingcontinued programcontinuedWORKSTN 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

The Entire ARRSRPT Program

ARRSRPT *PGM

CVTPROCS *MODULE NOMAIN

Figure 22 (Part

1 of

3). ILE RPG Complete Source for ARRSRPT Module