Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual CUSMNT RPG Source, File Maintenance, Dspatrpr

Models: AS/400

1 489

Page 376

File Maintenance

Delete, and Display modes. The fields are defined as output/input (B 38). The fields are protected when Display or Delete mode is selecte


(DSPATR(PR)).			The CSTBLD record		provides		only	input fields	(I	in position
a	new	record.
The	HDRSCN		record	format contains		the	constant 'Customer		File	Maintenance'.
The	ERRMSG		keyword	defines the		messages		to be displayed if an error
The CA keywords define the function							keys	that can be used and assoc
function		keys with		indicators	in	the	RPG	program.

CUSMNT: RPG Source

*****************************************************************
*	PROGRAM NAME:			CUSMNT				*
* RELATED FILES:				CUSMSTL1 (LF)				*
*				MNTMENU	(DSPF)			*
*	DESCRIPTION:			THIS PROGRAM SHOWS A CUSTOMER MASTER				*
*				MAINTENANCE PROGRAM USING A WORKSTN FILE.				*
*				THIS PROGRAM ALLOWS THE USER TO ADD, UPDATE,				*
*				DELETE	AND	DISPLAY CUSTOMER RECORDS.		*
*				PF3 IS	USED TO QUIT THE PROGRAM.			*
*****************************************************************
FCUSMSTL1		UF A E			K	DISK
FMNTMENU		CF	E			WORKSTN
C	CSTKEY			KLIST
C				KFLD			CUST
********************************************************************
*	MAINLINE							*
********************************************************************
C				MOVE		'DISPLAY '	MODE
C				EXFMT		HDRSCN
C*
C				DOW		NOT *IN03
C				EXSR		SETMOD
C*
C	CUST			IFNE		*ZERO
C	MODE			CASEQ		'ADD'	ADDSUB
C	MODE			CASEQ		'UPDATE'	UPDSUB
C	MODE			CASEQ		'DELETE'	DELSUB
C	MODE			CASEQ		'DISPLAY'	INQSUB
C				ENDCS
C				ENDIF
C*
C				EXFMT		HDRSCN
C				ENDDO
C				MOVE		*ON	*INLR

Figure	175 (Part		1	of 3).		Source for module CUSMNT

352 ILE RPG for AS/400 Programmer's Guide

Page 376

Image 376

IBM AS/400 manual CUSMNT RPG Source, File Maintenance, Dspatrpr

Contents

AS/400e ILE RPG for AS/400 Programmers GuideVersion Page AS/400e ILE RPG for AS/400 Programmers GuideVersion Third Edition1999 commentsContents RPG Introductionwith Chapter a Service ProgramCreating Debugging vi ILEHandling 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 Guide About This GuideWho Should Use This How to Send Your Comments Prerequisite and Related Informations New This WhatRelease? 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 sectionRPG IV Overview Cycle ProgrammingFigure 1. RPG Program Logic Cycle Subprocedure logic IndicatorsRPG IV Overview The firstOperation Codes ProgramExample of an ILE RPG Example of an ILE RPG ProgramControl Specifications ProgramFile Description 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 weekFigure 4 Part 2 of 3. A Sample Payroll Calculation Program Example of an ILE RPG ProgramChapter 1. Overview of the RPG IV Programming11Language 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 GuideProgram Creation Chapter 2. RPG Programming in ILERPG Programming in ILE or CRTSRVPGM RPG Programming in ILEFigure 5. Program Creation in ILE Program Call Program Managementin ILE 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 ApplicationEffect of ILE Example of OPM-Compatible ProgramOPM-Compatible Application 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 ApplicationILE Application Using CRTRPGMOD Mixed-Language ILE Application ScenarioFigure 8. Single-Language Application Using CRTRPGMOD and CRTPGM ILE Application Using CRTRPGMOD Advanced Application ScenarioMixed-Language Application 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 ModuleMultiple Procedures Module Prototyped CallsMODULE 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 ARRSRPTGeneral Considerations Coding ConsiderationsCoding Considerations Main Procedure Considerations Subprocedure ConsiderationsProgram Creation Coding ConsiderationsSubprocedures Main ProceduresFor Further Information 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 CreationUsing the CRTBNDRPG Command Creating a Program for Source DebuggingConsiderations Creating a Program with Static BindingUsing the CRTBNDRPG Command 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 UsingUsing a Using In-Line Diagnostic MessagesCompiler Listing 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 ChapterUsing the CRTRPGMOD CommandCreating a Module Object Creating a NOMAIN Module Creating a Module ObjectCOPY TRANSP Creating a Module ObjectFigure 36 Part 1 of 3. Source for TRANSSVC member Creating a Module Object PartSource for TRANSSVC member PartCreating a Module Object Creating a Module forDebugging Source for TRANSRPT module Creating a Module ObjectOFLIND*INOF Related CL Commands Additional ExamplesModules Behavior of Bound ILEProgram Binding Modules into aBinding Modules into a Program into a UsingCRTPGM Group Binding Modules into a ProgramValue 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 Using CRTSRVPGM Strategies for Creating Service ProgramsCreating a Service Program Related CL commands Changing A Service Programa Service Program Using CRTSRVPGM Sample Service Program Sample Service ProgramFigure 42 Part 1 of 2. Source for Service Program CvtToHex Sample Service ProgramChapter 8. Creating a Service Program95 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 anChapter 8. Creating a Service Program101 Sample Service ProgramBasic Binder listing for CVTHEXPGM Sample Service Program 102 ILE RPG for AS/400 Programmers GuideRunning a Program Using the CL CALL Command Chapter 9. Running a ProgramCALL Passing Parameters using theRunning a Program Using the CL CALL Command Running a Program Using the CL CALL Command PartILE RPG Program that Requires Parameters at Run Time PartRunning a Program From a Menu-Driven Application ApplicationRunning a Program From a 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 Messages CommandReplying to Run-Time Inquiry Groups Ending an ILE ProgramManaging Activation Specifying an Activation Managing Activation GroupsGroup Compatibility DefaultRunning in the OPM Reclaim Resources Command Deleting an ActivationGroup Managing Activation GroupsManaging Dynamically-Allocated Managing the Default Heap Using RPG OperationsStorage Name? Managing Dynamically-Allocated StorageENDDO Chapter 9. Running a Program115 Managing Dynamically-Allocated Storagenext@ 116 ILE RPG for AS/400 Programmers Guide Managing Dynamically-Allocated Storagename@ Managing Dynamically-Allocated Storage 52 Part4 of 5. Memory Management - Build a Linked List of Names Chapter 9. Running a Program117Managing Dynamically-Allocated Storage Heap Storage Problemsof 5. Memory Management - Build a Linked List of Names Managing Dynamically-Allocated Storage Managing Your Own HeapBindable APIs SeeAPI theReference Managing Dynamically-Allocated Storage54. /COPY file DYNARRI containing prototypes for DYNARRAY module 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 stackProgram/Procedure Call Overview Recursive Calls59. Three Modules, each with subprocedures Program/Procedure Call Overview Parameter-Passing Considerations60. Recursive Call Stack To Be Avoided Program/Procedure Call Overview 132 ILE RPG for AS/400 Programmers GuideUsing a Prototyped Using the CALLP OperationCall Using a Prototyped Call Calling within an ExpressionExamples of Free-Form Call Passing Prototyped ParametersParameter Passing Styles Passing by ReferencePassing Prototyped Parameters Passing by Value2 * MinLengthFirst + LengthLast + 1 %sizeName Passing Prototyped Parameters PassingPassing Prototyped Parameters Using Operational DescriptorsPrototype for ILE CEE API CEETSTA with CONST Parameter 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 ParameterPassing Prototyped Parameters Checking for the NumberPassed Source for procedure FMTADDR Passing Prototyped Parameters3. Concatenate the complete address 4. Return 68 Part69. Source for /COPY member with Prototype for Procedure FMTADDR Figure 68 Part 2 of 2. Source for procedure FMTADDRPassing Prototyped Parameters 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 EndReturning from a Called Program or Procedure Returning from a Subprocedurewithout Returning using ILE Bindable Using Bindable APIsAPIs Calling a Graphics Routine Examples of Using Bindable APIsCalling a Graphics Routine Multithreading Considerations Calling Special RoutinesMultithreading Considerations Across How toShare Data Multithreading Considerations to Avoid DeadlockModules 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 forfor Debugging Creating a Root Source ViewCRTRPGMOD or 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 SourceViewing the Program Source Viewing a DifferentModule 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 BreakpointSetting and Removing Breakpoints Setting and Removing Unconditional Thread BreakpointsFigure 81. Setting an Unconditional Job Breakpoint Setting and Removing BreakpointsSetting and Removing Breakpoints Example of Setting a Conditional Job Breakpoint Using F13Line National Language Sort Sequence NLSS CommandSetting and Removing Breakpoints 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*SRCSTMTUsing the Work with Module Breakpoints Display Setting and Removing Conditional Thread BreakpointsSetting and Removing Breakpoints 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 DisplayFigure 89. Example of a Display Watch Window Setting and Removing Watch ConditionsChapter 11. Debugging Programs191 Setting and Removing Watch Conditions Displaying Active WatchesRemoving 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 ENTRY Stepping Through the Program ObjectPLIST Figure 95. Stepping into Subprocedure Switch Displaying Data and ExpressionsStepping Through the Program Object Stepping Through the Program Object Displaying a Field using the EVAL debug commandˆ LASTNAME = Jones 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 ObjectUsing EVAL with Data Structures Displaying IndicatorsStepping Through the Program Object Displaying Fields as Hexadecimal Values in Character FormatStepping Through the Program Object DisplayingData Displaying Variable-Length Fieldsby Pointers Displaying Null-Capable FieldsStepping Through the Program Object Figure 102. Examples of %SUBSTR using DBGEXChapter 11. Debugging Programs207 Fields ValueChanging the Value of Fields or Command Equating a Name with a Field, Expression, or CommandDisplaying Attributes of a Field Equating a Name withSample Source for Debug Examples ILE RPGExamples 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 PercolationException Handling Overview ILE RPG Exception HandlingMain Handling Exception HandlingINFSR Exception Handling Overview HandlingUsing Exception Handlers Using Exception HandlersException Handler Priority Nested ExceptionsUsing Exception Handlers For othertypes of messagesUsing Exception Handlers Example of Unhandled Function CheckNote The Optimization Considerations Using RPG-Specific Handlerskeyword, ILE 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 spec‘*DETC’ Example of *PSSR Subroutine in Main ProcedureChapter 12. Handling Exceptions233 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 Action codes are ILE Condition HandlersSHOWERR 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 programIf this is CPF4906, handle the notify msg, otherwise percolate Handler definitions120. ILE Condition Handler that Ignores CPF4906 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 InformationFeedback Areas Dumpof a Example of a Formatted Dump Figure 123. Feedback Areas section of Formatted Dumpof a Data InformationDump Figure 125 Part 1 of 2. Data section of Formatted Dump Example of a Formatted Dump256 ILE RPG for AS/400 Programmers Guide 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 betweenDefining Externally Described Defining Externally Described FilesFiles Renaming Record-Format Names Ignoring Record FormatsRenaming Field Names Defining Externally Described FilesUsing Input Specifications Modify anDescription Defining Externally Described FilesFiles Defining Externally DescribedFiles Using Output Specificationsediting DDS Referin the Defining Externally Described Files Level CheckingOSLSREC 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 f140. Example of a field Reference File Using Externally Described Disk Files284 ILE RPG for AS/400 Programmers Guide File Valid Keys for a RecordDisk Arguments a PartialReferring to Using Externally Described Disk Files¹ A Record Blocking and UnblockingUsing Externally Described Disk Files Using Program-Described Disk Files Using Program-Described Disk FilesIndexed File ArgumentsFiles Chapter 16. Accessing Database 289FilesHandling 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 fileMethods for Processing Disk Files Chapter 16. Accessing Database 295FilesSequential-by-Key Processing, Example Methods for Processing Disk Files Sequential-by-Key Using READ296 ILE RPG for AS/400 Programmers Guide for Processing Disk Files ENUMMethods for Processing Disk Files 298 ILE RPG for AS/400 Programmers GuideExample of Random-by-Key Processing Random-by-Key ProcessingMethods for Processing Disk Files Sequential-within-Limits Processing Methods for Processing Disk FilesExamples of Sequential-within-Limits Processing Disk FilesMethods for Processing Disk Files 2 Sequential-within-Limits ProcessingDDS for record address file LIMITS physical file Relative-Record-Number Processing Methods for Processing Disk FilesValid File Operations Valid File OperationsValid File Operations Chapter 16. Accessing Database 305Filesan A,P,G,D,T,Z Valid File Operations A record-addressUsing Commitment Control Using Commitment ControlCommitment Control Locks Using Commitment Controlsee theBackup and Recovery manual Abridged forSpecifying Using theFiles 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 Attached319DevicesAccessing Printer Devices Using the Fetch-OverflowPrinting a Field on Every Page Accessing Printer Devices Figure 159. Overflow Printing Setting of the Overflow IndicatorFetch Overflow Example of Specifying Fetch OverflowAccessing Printer Devices Use of Fetch OverflowFile Changing Forms ControlInformation in Forms Accessing Printer DevicesLayout of OPM PRTCTL Data Structure Accessing Tape Devices Accessing Tape DevicesAccessing Display Devices Using Sequential FilesUsing Sequential Files FileUsing SPECIAL Files Using SPECIAL FilesFile Using SPECIAL Files ErrorStatus DescriptionExample of Using a Special File SPECIAL FilesUsing SpecificationsUser-written program USERIO Using SPECIAL FilesPLISTSPCL Chapter 18. Using WORKSTN Files Using Externally Described WORKSTN FilesUsing Externally Described WORKSTN Files FunctionUsing Externally Described WORKSTN Files ¹ OutputChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN FilesR RESPONSE Device Specifying Function Key Indicators on Display Device FilesUsing Externally Described WORKSTN Files Using Subfiles Processing an Externally Described WORKSTN FileUsing Externally Described WORKSTN Files Chapter 18. Using WORKSTN Files335field Using Externally Described WORKSTN FilesSubfile Display Using Externally Described WORKSTN Files Use of SubfilesData Description Specifications for a Subfile Record Format 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 hoSource for module CUSMAIN Main Menu Inquiry348 ILE RPG for AS/400 Programmers Guide File Maintenance File MaintenanceCUSMSTL1 DDS for a LogicalDisplay File MaintenanceFile DeviceFigure 174 Part 2 of 2. DDS for display device file MNTMENU File MaintenanceChapter 19. Example of an Interactive 351Application File Maintenance CUSMNT RPG SourceDSPATRPR Chapter 19. Example of an Interactive 353Application File MaintenanceADD NEW CUSTOMER TO FILE SET MAINTENANCE MODE File Maintenance354 ILE RPG for AS/400 Programmers Guide 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 GuideYORKTOWN File MaintenanceChapter 19. Example of an Interactive 357Application Search by Zip Code Search byFile SZIPMENU DDS DisplayFile Device14DSPATRHI Search by Zip CodePROMPT Search by Zip Code SCHZIP RPG SourceChapter 19. Example of an Interactive 361Application 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 367ApplicationSearch and Inquiry by Name ¹ ToSUBROUTINE The user requestsmore information by192. Customer Search and Inquiry by Name detailed information screen Search and Inquiry by Name370 ILE RPG for AS/400 Programmers Guide Appendixes  Copyright IBM Corp. 1994372 ILE RPG for AS/400 Programmers Guide RPG/400 and ILEAS/400 AppendixDifferences Between OPM RPG/400 and ILE RPG RunningDebugging and Exception RPG/400 ILE RPG Differences Between OPM RPG/400ILE RPG DBCS Data in Character FieldsDBCS 378 ILE RPG for AS/400 Programmers Guide ILE RPGDifferences Between OPM RPG/400 Appendix B. Using Conversion OverviewConversion Conversion OverviewFile Record Length File ConsiderationsConversion Overview 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 Converting a Member Using DefaultsSource 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 pageFigure 195. Converted RPG IV Source for TEST1 Example of Source ConversionARR1 Analyzing Your Conversion Analyzing Your ConversionReport Using the ConversionAnalyzing Your Conversion Sample Source Section of Conversion Report YourSample Message Summary of Conversion Report Analyzing Your Conversion Using the Log FileCPYF FROMFILEQRPGLE/QARNCVTLG TOFILEMYLIB/QRNCVTLG CRTFILE*YES Analyzing Your Conversion Appendix B. Using the RPG III to RPG IV397 Conversion Aid200. DDS for model log file QARNCVTLG in library QRPGLE Resolving Conversion Problems Compilation Errors in Existing RPG III CodeUnsupported RPG III Features Resolving Conversion ProblemsRPG III Source for TEST2 ConversionRPG III Source for COPYDS1 Context-Sensitive Problems Resolving Conversion ProblemsStructures Use of ExternallyResolving Conversion Problems 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 3description32CRTBNDRPG Command Description of the CRTBNDRPG CommandOPTION Details CRTBNDRPG Command LIBLCURLIB SRCMBRCRTBNDRPG Command 410 ILE RPG for AS/400 Programmers GuideStatementNumber = sourceID * 1000000 + sourceSEUsequencenumber DEBUGIOCommand EVENTFDBGVIEW STMTcharacter-value CRTBNDRPG CommandEXPDDS, and CRTBNDRPG Command sort-table-nameLANGIDUNQ LANGIDSHRCRTBNDRPG Command REPLACE416 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandLIBCRTAUT target-release V2R3M5binding-directory-name CommandUSRCTL 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/ SourceCompiler Listings SectionSample Section of the Listing with OPTION*NOSRCSTMT Listings Appendix D. Compiler Listings427Figure 217 Part 1 of 3. Sample Source Part of the Listing Compiler Listings428 ILE RPG for AS/400 Programmers Guide Figure 217 Part 2 of 3. Sample Source Part of the Listing Compiler ListingsAppendix D. Compiler Listings429 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 InformationCompiler Listings External References ListFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT Message Summary Final SummaryCompiler Listings Figure 225. Sample External ReferencesCompiler Listings Code Generation and Binding ErrorsFigure 227. Sample Final Summary 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 continued SpecialSee Add 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 Part Number 99H3778 Program Number 5769-RG1 Printed in U.S.A ÉÂÔÙ99H3778 SC09-2507-02

(DSPATR(PR)).

CUSMNT: RPG Source