Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual Search and Inquiry by Name, Example of an Interactive 367Application

Models: AS/400

1 489

Page 391

Search and Inquiry by Name

********************************************************************
*	MAINLINE				*
********************************************************************
C		WRITE	FOOT1
C		WRITE	HEAD
C		EXFMT	PROMPT
C		DOW	NOT *IN03
C	CSTKEY	SETLL	CUSREC
C		EXSR	SFLPRC
C		EXSR	SFLCHG
C		IF	(NOT IN03) AND (NOT IN04)
C		WRITE	FOOT1
C		WRITE	HEAD
C		EXFMT	PROMPT
C		ENDIF
C		ENDDO
C*
C		SETON			LR
********************************************************************
*	SUBROUTINE - SFLPRC				*
*	PURPOSE	- PROCESS SUBFILE AND DISPLAY			*
********************************************************************
C	SFLPRC	BEGSR
C	NXTPAG	TAG
C		EXSR	SFLCLR
C		EXSR	SFLFIL
C	SAMPAG	TAG
C		WRITE	FOOT2
C		WRITE	HEAD
C		EXFMT	SUBCTL
C		IF	*IN95
C		IF	NOT *IN71
C		GOTO	NXTPAG
C		ELSE
C		GOTO	SAMPAG
C		ENDIF
C		ENDIF
C		ENDSR
********************************************************************
*	SUBROUTINE - SFLFIL				*
*	PURPOSE	- FILL SUBFILE			*
********************************************************************
C	SFLFIL	BEGSR
C		DOW	NOT *IN21
C		READ	CUSREC		71
C		IF	*IN71
C		MOVE	*ON	*IN21
C		ELSE
C		ADD	1	RECNUM
C		MOVE	*BLANK	SEL
C		WRITE	SUBFILE		21
C		ENDIF
C		ENDDO
C		ENDSR

Figure 189	(Part	2 of 3).	Source for module SCHNAM

Chapter 19. Example of an Interactive 367Application

Page 391

Image 391

IBM AS/400 manual Search and Inquiry by Name, Example of an Interactive 367Application

Contents

AS/400e ILE RPG for AS/400 Programmers GuideVersion Page AS/400e ILE RPG for AS/400 Programmers GuideVersion comments ThirdEdition 1999RPG Introduction Contentswith Chapter a Service ProgramCreating Debugging vi ILEHandling Chapter 14. Defining Files Working with Files and DevicesFiles FilesRPG for AppendixesAppendix B. Using the RPG III to RPG Chapter 19. Example of anCOPY Indexare inconsistent Noticescountry such provisionsProgramming Interface Information Trademarks and ServiceNotices xiv ILE RPG for AS/400 Programmers Guide Guide About This GuideWho Should Use This Prerequisite and Related Information How to Send Your Commentss New This WhatRelease? EVALR NODEBUGIOEVAL NumbersAbout 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 section RPG IV SpecificationsChapter 1. Overview RPG IV OverviewRPG IV Overview Cycle ProgrammingFigure 1. RPG Program Logic Cycle The first Subprocedure logicIndicators RPG IV OverviewExample of an ILE RPG Program Operation CodesProgram Example of an ILE RPGControl Specifications ProgramFile Description Specifications RATE Output SpecificationsExample of an ILE RPG Program NAMEChapter 1. Overview of the RPG IV Programming9 Language A SubprocedureExample of an ILE RPG Program REGISTERfor the week Example of an ILE RPG ProgramThe Entire Source Program This program creates a printed output of employees payFigure 4 Part 2 of 3. A Sample Payroll Calculation Program Example of an ILE RPG ProgramChapter 1. Overview of the RPG IV Programming11Language Using UsingInteracting with the System OS/400 Systemfor AS/400 ToolsApplication Development AS/400 ToolsAS/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 ToolsProgram 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 shown Source DebuggingBindable APIs RPG Programming in ILETHREAD*SEREALIZE Multithreaded ApplicationsRPG Programming in ILE suppo22 ILE RPG for AS/400 Programmers Guide RPG Programming in ILEOPM-Compatible Application Chapter 3. Program Creation StrategiesStrategy 1 OPM-Compatible Application MethodEffect of ILE Example of OPM-Compatible ProgramOPM-Compatible Application CRTBNDRPG UsingILE Program Using CRTBNDRPG Related InformationFigure 7. ILE Program Using CRTBNDRPG Example of ILE ProgramUsing ILE Program Using CRTBNDRPGRelated Information ILE Application Using CRTRPGMODCRTRPGMOD Strategy 3 ILE ApplicationSingle-Language ILE Application ScenarioILE Application Using CRTRPGMOD MethodILE 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 Related Information A Strategy to AvoidA Strategy to Avoid Servicesplit the default activation group and any named activationA Strategy to Avoid WhenMultiple Procedures Module Chapter 4. Creating an Application Using Multiple ProceduresMultiple Procedures Module Prototyped CallsMODULE 13. Prototype for FmtCust Procedure Multiple Procedures ModulePrototype for procedure FmtCust Note the PR on definition specification. It has two output parametersMultiple Example of Module withExample of Module with Multiple Procedures NumToC Proceduresin Fmt module Example of Module with Multiple ProceduresFigure 22 Part The Entire ARRSRPT ProgramExample of Module with Multiple Procedures ARRSRPT *PGM ARRSRPT *MODULE Main Procedure InArrears FmtCust42 ILE RPG for AS/400 Programmers Guide Example of Module with Multiple ProceduresFigure 22 Part ILE RPG Complete Source for ARRSRPT ModuleDaysLate*D Example of Module with Multiple ProceduresChapter 4. Creating an Application Using Multiple43 Procedures SUBDURARRSRPT Output for ARRSRPTGeneral Considerations Coding ConsiderationsCoding Considerations Coding Considerations Main Procedure ConsiderationsSubprocedure Considerations Program CreationSubprocedures Main ProceduresFor Further Information For Further Information Prototyped CallCreating Application50 ILE RPG for AS/400 Programmers Guide Source StatementsFile Chapter 5. EnteringUsing SEU Using the Source Entry UtilityUsing SEU 28. Source for EMPRPT member Using SEUProcedure EMPTYPE returns a string representing the employee type indicated by the parameter CODEUsing SQL Statements Using SQL StatementsRefer toADTS thefor AS/400 Source Entry Using SQL Statementsfor AS/400 SQL Programming manual and theDB2 UDB for AS/400 SQL Reference for moreCRTBNDRPG CommandUsing the CRTBNDRPG Command Using the CRTBNDRPGCreation Using the CRTBNDRPG CommandListing OptionsUsing the CRTBNDRPG Command Creating a Program for Source DebuggingConsiderations Creating a Program with Static BindingUsing the CRTBNDRPG Command Creating an OPM-Compatible CommandUsing ¹ WRKOUTQ queue-nameFigure 32 Part 2 of 2. A Sample Payroll Calculation Program Using the CRTBNDRPG CommandPart A Sample Payroll Calculation ProgramObtaining a Compiler Using a Compiler ListingUsing a Compiler Listing ListingUsing Customizing a Compiler ListingCustomizing a Page Heading a Compiler ListingThe /SPACE Customizing the SpacingIndenting Structured Operations Using a Compiler ListingUsing ErrorsListing CompilationUsing a Using In-Line Diagnostic MessagesCompiler Listing Using a Compiler Listing Correcting Run-time ErrorsUsing Additional-Diagnostic Messages Browsing a Compiler Listing Using SEUUsing a Compiler Listing Using a Compiler Listing forMaintenance Coordinating Listing Options with Debug View OptionsData 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 AreaChapter Commands7. Creating a Module ObjectUsing the CRTRPGMOD CommandCreating a Module Object Creating a Module Object Creating a NOMAIN ModuleCOPY TRANSP Creating a Module ObjectFigure 36 Part 1 of 3. Source for TRANSSVC member Part Creating a Module ObjectPart Source for TRANSSVC memberCreating a Module Object Creating a Module forDebugging Source for TRANSRPT module Creating a Module ObjectOFLIND*INOF Behavior of Bound ILE Related CL CommandsAdditional Examples ModulesProgram Binding Modules into aBinding Modules into a Program into a UsingCRTPGM Group Binding Modules into a ProgramValue CRTRPGMOD MODULEMYLIB/TRANSSVC Binding Modules into a ProgramConcepts for CRTRPGMOD MODULEMYLIB/TRANSRPTAdditional Examples Using a Binder ListingUsing a Binder Listing Related CL CommandsFULL Changing a Module or ProgramChanging a Module or BASICChanging a Module or Program Using the UPDPGM CommandLevel Changing the OptimizationChanging a Module or Program Removing ObservabilitySize Reducing an ObjectsChanging 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 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 96 ILE RPG for AS/400 Programmers Guide Sample Service ProgramSource for Service Program CvtToHex 42 PartFigure 44. Source for Binder Language for CvtToHex Creating the Service ProgramSample Service Program 43. Source for /COPY Member with Prototype for CvtToHex98 ILE RPG for AS/400 Programmers Guide Binding to a ProgramSample Service Program MODULProgram to test Service Program CVTTOHEX Sample Service Programto an Updating the ServiceSample Binder Listing add aChapter 8. Creating a Service Program101 Sample Service ProgramBasic Binder listing for CVTHEXPGM 102 ILE RPG for AS/400 Programmers Guide Sample Service ProgramChapter 9. Running a Program Running a Program Using the CL CALL CommandCALL Passing Parameters using theRunning a Program Using the CL CALL Command Part Running a Program Using the CL CALL CommandPart ILE RPG Program that Requires Parameters at Run TimeRunning a Program From a Menu-Driven Application ApplicationRunning a Program From a Figure 51. Source for Menu Program Figure 50. Data Description Specification of an Application MenuRunning a Program From a Menu-Driven Application A* CMDPROMPTReplying 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 Managing Activation Groups Reclaim Resources CommandDeleting an Activation GroupManaging 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@ Chapter 9. Running a Program117 Managing Dynamically-Allocated Storage52 Part 4 of 5. Memory Management - Build a Linked List of NamesManaging 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 Chapter 9. Running a Program121 Managing Dynamically-Allocated StoragePart of 2. Global variables and local prototypes for DYNARRAY2 of Figure 56 on page 123 shows the subprocedures in DYNARRAYManaging Dynamically-Allocated Storage Figure 55 PartPart DYNARRAY SubproceduresDYNARRAY Subprocedures Managing Dynamically-Allocated Storage124 ILE RPG for AS/400 Programmers Guide DYNARRAY SubproceduresManaging Dynamically-Allocated Storage Part 3 ofPart DYNARRAY SubproceduresDYNARRAY Subprocedures Managing Dynamically-Allocated StorageManaging Dynamically-Allocated Storage The logic of the subprocedures is as followsProgram/Procedure Call Overview Chapter 10. Calling Programs and ProceduresProgram/Procedure Call Overview calls Calling ProceduresCalling Programs Program/Procedure Call Overviewstack The Call StackProgram/Procedure Call Overview The call stackProgram/Procedure Call Overview Recursive Calls59. Three Modules, each with subprocedures Program/Procedure Call Overview Parameter-Passing Considerations60. Recursive Call Stack To Be Avoided 132 ILE RPG for AS/400 Programmers Guide Program/Procedure Call OverviewUsing a Prototyped Using the CALLP OperationCall Calling within an Expression Using a Prototyped CallPassing by Reference Examples of Free-Form CallPassing Prototyped Parameters Parameter Passing StylesPassing Prototyped Parameters Passing by Value2 * MinLengthFirst + LengthLast + 1 %sizeName Passing Passing Prototyped ParametersPassing Prototyped Parameters Using Operational DescriptorsPrototype for ILE CEE API CEETSTA with CONST Parameter is a character string passed by read-only reference Omitting ParametersPassing Prototyped Parameters Len returns a 10-digit integer value. The parameter67. Prototype for System API QCMDEXC with Optional Parameter Passing *OMITLeaving Out Parameters Passing Prototyped ParametersPassing Prototyped Parameters Checking for the NumberPassed 68 Part Source for procedure FMTADDRPassing Prototyped Parameters 3. Concatenate the complete address 4. Return69. Source for /COPY member with Prototype for Procedure FMTADDR Figure 68 Part 2 of 2. Source for procedure FMTADDRPassing Prototyped Parameters DIM2 Source for procedure PRTADDRPassing Prototyped Parameters 70 PartParameters Passing Less Data Than Requiredeffect Order of EvaluationInterlanguage Calls Passing Prototyped ParametersCalling Considerations InterlanguageV4R4M0 Call OperationsUsing UsingCALLB only Using the Fixed-Form Call OperationsPLIST Passing Parameters Using PARMExamples of CALL and CALLB Operationsthe Fixed-Form Call Operations Using the PLIST OperationReturning from a Called Returning from a Main ProcedureProcedure Normal EndAbnormal End Returning from a Called Program or ProcedureReturning 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 Deadlock Example ConsiderationsLanguage Environment source debugger Debugging and Exception Handling¹ Debug an Integrated Language Environment application by using the This section describes how to162 ILE RPG for AS/400 Programmers Guide The ILE Source Debugger Chapter 11. Debugging ProgramsThe ILE Source Debugger EQUATE Debug CommandsThe ILE Source Debugger ATTRTHREAD 3. EnterPF1 HelpThe ILE Source Debugger TBREAKPreparing a Program for Preparing a Program for Debuggingfor Debugging Creating a Root Source ViewCRTRPGMOD or Creating a Listing ViewCreating a COPY Source Preparing a Program for DebuggingCreating a StatementView Program for DebuggingStarting the ILE Source Debugger Starting the ILE SourceDisplay Module Source display for program DEBUGEX Setting Debug OptionsSTRDBG Example Starting the ILE Source DebuggerOPM source debug support field, and Adding/Removing Programs from a Debug Session ServiceExample of Removing ILE Programs from a Debug Session Example of Adding aViewing the Program Source Viewing the Program SourceViewing the Program Source Viewing a DifferentModule Viewing the Program Source Changing the View of aModule 79. Source View of ILE C procedure cprocSetting and Removing Breakpoints Setting and Removing BreakpointsUnconditional Setting and RemovingBreakpoints Setting and Removing BreakpointsBreakpoint Setting anSetting and Removing Breakpoints Setting and Removing Unconditional Thread BreakpointsFigure 81. Setting an Unconditional Job Breakpoint Breakpoints Setting and RemovingSetting and Removing Breakpoints Example of Setting a Conditional Job Breakpoint Using F13Line National Language Sort Sequence NLSS CommandSetting and Removing Breakpoints 184 ILE RPG for AS/400 Programmers Guide Setting and Removing BreakpointsStatement Setting and Removing JobSetting UsingFigure 85. Sample Section of the Compiler Listing with OPTION*SRCSTMT Setting and Removing BreakpointsSetting a Breakpoint Using Statement View Figure 84. Sample Section of the Listing with OPTION*NOSRCSTMTUsing the Work with Module Breakpoints Display Setting and Removing Conditional Thread BreakpointsSetting and Removing Breakpoints Conditions Debug CommandsSetting and Removing Watch Conditions Removing All Job andSource Characteristics of WatchesSetting and Removing Watch Conditions DisplayExample of a Work with Watch Display Setting Watch ConditionsCommand Setting and Removing Watch ConditionsFigure 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 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 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 Fields Unexpected Results when Evaluating VariablesStepping Through the Program Object Scalarvariablefield-name is Displaying the Contents of an ArrayDisplaying the Contents of a Table Stepping Through the Program ObjectStepping Through the Program Object Displaying Data StructuresUsing EVAL with Data Structures Displaying IndicatorsStepping Through the Program Object Displaying Displaying Fields as Hexadecimal Valuesin Character Format Stepping Through the Program ObjectDisplaying Null-Capable Fields DataDisplaying Variable-Length Fields by PointersStepping Through the Program Object Figure 102. Examples of %SUBSTR using DBGEXChapter 11. Debugging Programs207 Value FieldsChanging the Value of Fields Equating a Name with or CommandEquating a Name with a Field, Expression, or Command Displaying Attributes of a FieldSample Source for Debug Examples ILE RPGExamples Figure 105 Part 1 of 4. Source for Module DBGEX Sample Source for Debug ExamplesDate, Time, Timestamp PARM1 is used when calling RPGPROG programSample Source for Debug Examples Pointers214 ILE RPG for AS/400 Programmers Guide Sample Source for Debug ExamplesFigure 105 Part Source for Module DBGEXprogram Sample Source for Debug Examples105 Part 4 of Source for Module DBGEX. DBGEX is the main module of thechar *ptr Figure 107. Source for C Procedure cproc. cproc is called by DBGEXSample Source for Debug Examples char *cprocunsigned int size, char *inzvalException Handling Overview Chapter 12. Handling ExceptionsException Handling Overview 218 ILE RPG for AS/400 Programmers Guide Exception Handling OverviewEach boundary is controlreached boundary. ACall Stack and Exception Message Percolation Exception Handling OverviewException Handling Overview ILE RPG Exception HandlingMain Handling Exception HandlingINFSR Handling Exception Handling OverviewNested Exceptions Using Exception HandlersUsing Exception Handlers Exception Handler Prioritymessages Using Exception HandlersFor other types ofUsing Exception Handlers Example of Unhandled Function CheckNote The Optimization Considerations Using RPG-Specific Handlerskeyword, ILE 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 number Access the product master file using the transaction productIf the record is found, update the quantity in the master file If unexpected error occurs, cause inquiry message to be issuedspec Using a Program Error Subroutine‘*DETC’ Example of *PSSR Subroutine in Main ProcedureChapter 12. Handling Exceptions233 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 Action codes are ILE Condition HandlersSHOWERR CEEHDLR ConditionILE Condition Handlers Show exception handling using a user-definedILE Condition Handlers Register the handler and generate errorsAPIs UsingCancel Handlersdefine a local *PSSR subroutine to handle the error Define the prototype for the cancel handler. This procedure isa local procedure Procedure SubProc. Call Enabler. Since this call will fail3 of Procedure Enabler. This procedure enables a cancel handlerEnabling and Coding a Cancel Handler for a Subprocedure Figure 118 Part119. Output from CANHDLR program Problems when ILE CL Monitors for Notify and Status MessagesIf this is CPF4906, handle the notify msg, otherwise percolate Handler definitions120. ILE Condition Handler that Ignores CPF4906 Chapter 12. Handling Exceptions249 121. How to Ignore Status and Notify Messages250 ILE RPG for AS/400 Programmers Guide Obtaining an ILE RPG Formatted Dump Using the DUMP Operation CodeUsing the DUMP Operation Code Chapter 13. Obtaining a DumpProgram Status Information a FormattedDump of aFeedback Areas Dumpof a Figure 123. Feedback Areas section of Formatted Dump Example of a 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 Associating Files with Input/Output Devices DeviceTypes of File Descriptions Naming FilesTypes of File Descriptions Example of Some Typical Relationships between Using Files withProgram-Described FilesDefining Externally Described Defining Externally Described FilesFiles Defining Externally Described Files Renaming Record-Format NamesIgnoring Record Formats Renaming Field NamesDefining Externally Described Files Using Input SpecificationsModify an DescriptionDefining Externally Described FilesFiles Using Output Specificationsediting DDS Referin the Defining Externally Described Files Level CheckingOSLSREC Data Defining Program-Described FilesData Management Operations and ILE RPG I/O Operations RPG I/O Operations272 ILE RPG for AS/400 Programmers Guide Data Management Operations and ILE RPG I/O OperationsOperation OperationChapter 15. General FileConsiderations Overriding and Redirecting File Input and OutputOutput Inputand Output InputFile Locking File LockingRecord Locking Record LockingSharing an Open Data PathSpooling SpoolingFile Output SpoolingSRTSEQ/ALTSEQ SRTSEQ/ALTSEQ in an280 ILE RPG for AS/400 Programmers Guide SRTSEQ/ALTSEQPhysical Files and Logical Files Chapter 16. AccessingFiles Database FilesUsing Externally Described Disk Files Using Externally Described Disk FilesRecord Format Specifications Access PathDDS are for the customer master logical file CUSMSTL. The f Using Externally Described Disk FilesExample of the Data Description Specifications for a Database File The sample140. Example of a field Reference File Using Externally Described Disk Files284 ILE RPG for AS/400 Programmers Guide File Valid Keys for a RecordDisk Using Externally Described Disk Files Argumentsa Partial Referring to¹ A Record Blocking and UnblockingUsing Externally Described Disk Files Arguments Using Program-Described Disk FilesUsing Program-Described Disk Files Indexed FileFiles Chapter 16. Accessing Database 289FilesHandling D K1 Sequential FileRecord Address File Using Program-Described Disk FilesMethods for Processing Disk Files Methods for Processing Disk FilesLimits Records Relative Record Numberstext Consecutive ProcessingMethods for Processing Disk Files subsequentDisk DATA DESCRIPTION SPECIFICATIONS DDSFigure 144 on page 294 andSequential-by-Key Processing Examples of Sequential-by-Key Processing146. DDS for database file EMPL1 logical file Methods for Processing Disk FilesFigure 144. DDS for database file EMPMST physical file 145. DDS for database file TRWEEK physical 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 ENUM for Processing Disk Files298 ILE RPG for AS/400 Programmers Guide Methods for Processing Disk FilesExample of Random-by-Key Processing Random-by-Key ProcessingMethods for Processing Disk Files Methods for Processing Disk Files Sequential-within-Limits ProcessingDisk Files Examples of Sequential-within-Limits ProcessingMethods for Processing Disk Files 2 Sequential-within-Limits ProcessingDDS for record address file LIMITS physical file Methods for Processing Disk Files Relative-Record-Number ProcessingValid File Operations Valid File OperationsValid File Operations Chapter 16. Accessing Database 305Filesan A,P,G,D,T,Z A record-address Valid File OperationsUsing Commitment Control Using Commitment ControlAbridged for Commitment Control LocksUsing Commitment Control see theBackup and Recovery manualSpecifying Using theFiles 3.STRJRNPF FILEMASTER TRANS JRNJOURNAL Example of Using Commitment Control1.CRTJRNRCV JRNRCV RECEIVER 2.CRTJRN JRNJOURNAL JRNRCVRECEIVER3ENDCMTCTL ControlLCKLVL*ALL 2CALL. REVISECommitment Control in CycleDDM Files DDM FilesPre-V3R1 DDM Using314 ILE RPG for AS/400 Programmers Guide DDM FilesTypes AccessingExternally DevicesHandling Page Overflow Accessing Printer DevicesAccessing Printer Devices Specifying PRINTER FilesOverflow Accessing Printer DevicesAccessing Printer Devices Chapter 17. Accessing Externally Attached319Devices Example of Printing Headings on Every PageExample of Printing a Field on Every Page Accessing Printer DevicesAccessing Printer Devices Using the Fetch-OverflowPrinting a Field on Every Page Figure 159. Overflow Printing Setting of the Overflow Indicator Accessing Printer DevicesUse of Fetch Overflow Fetch OverflowExample of Specifying Fetch Overflow Accessing Printer DevicesFile Changing Forms ControlInformation in Forms Accessing Printer DevicesLayout of OPM PRTCTL Data Structure Accessing Tape Devices Accessing Tape DevicesFile Accessing Display DevicesUsing Sequential Files Using Sequential FilesUsing SPECIAL Files Using SPECIAL FilesFile Description Using SPECIAL FilesError StatusSpecifications Example of Using a Special FileSPECIAL Files UsingUser-written program USERIO Using SPECIAL FilesPLISTSPCL Function Chapter 18. Using WORKSTN FilesUsing Externally Described WORKSTN Files Using Externally Described WORKSTN Files¹ Output Using Externally Described WORKSTN FilesChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN FilesR RESPONSE Device Specifying Function Key Indicators on Display Device FilesUsing Externally Described WORKSTN Files Chapter 18. Using WORKSTN Files335 Using SubfilesProcessing an Externally Described WORKSTN File Using Externally Described WORKSTN Filesfield 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 FilesOutput Specifications withUsing Program-Described WORKSTN Files Using a Program-Describedwithout Input SpecificationsCalculation Specifications NameCombined File Valid WORKSTN File OperationsInput File Output FileMultiple-Device Files EXFMT OperationREAD Operation WRITE OperationMultiple-Device Files 344 ILE RPG for AS/400 Programmers Guide Multiple-Device FilesDatabase Physical File Chapter 19. Example of an Interactive ApplicationDatabase Physical File Main Menu Inquiry InquiryDDS for a Display Deviceto describing the constants, fields, line numbers, and ho CUSMAIN RPG SourceMain Menu Inquiry In additionSource for module CUSMAIN Main Menu Inquiry348 ILE RPG for AS/400 Programmers Guide Logical File MaintenanceFile Maintenance CUSMSTL1 DDS for aDevice DisplayFile Maintenance FileFigure 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 F3 End Job File MaintenanceF6 Update Customer File Maintenance Display Mode prompt screen356 ILE RPG for AS/400 Programmers Guide File MaintenanceCustomer File Maintenance Display Mode screen Customer File Maintenance Add Mode prompt screenYORKTOWN File MaintenanceChapter 19. Example of an Interactive 357Application Search by Zip Code Search byFile Device SZIPMENU DDSDisplay File14DSPATRHI Search by Zip CodePROMPT Search by Zip Code SCHZIP RPG SourceChapter 19. Example of an Interactive 361Application 362 ILE RPG for AS/400 Programmers Guide Search by Zip Codeis written to the screen as shown in Figure 186 on page The subfileCUSMSTL3 DDS Search and Inquiry by NameSearch and Inquiry by Name FileSNAMMENU DDS for a Display DeviceFile Search and Inquiry by NameSearch and Inquiry by Name SCHNAM RPG SourceChapter 19. Example of an Interactive 367Application Search and Inquiry by NameSearch and Inquiry by Name ¹ ToSUBROUTINE information by The userrequests more192. Customer Search and Inquiry by Name detailed information screen Search and Inquiry by Name370 ILE RPG for AS/400 Programmers Guide  Copyright IBM Corp. 1994 Appendixes372 ILE RPG for AS/400 Programmers Guide Appendix RPG/400and ILE AS/400Differences Between OPM RPG/400 and ILE RPG RunningDebugging and Exception RPG/400 Differences Between OPM RPG/400 ILE RPGILE RPG DBCS Data in Character FieldsDBCS 378 ILE RPG for AS/400 Programmers Guide ILE RPGDifferences Between OPM RPG/400 Conversion Overview Appendix B. UsingConversion Overview ConversionFile Record Length File ConsiderationsConversion Overview Overview The Log FileConversion Aid Tool Requirements FileWhat the Conversion Wont DoConverting Your Source Converting Your Sourcenames The CVTRPGSRC CommandConverting Your Source memberLIBL Converting Your SourceFROMFILE source-file-nameNONE Converting Your SourceTOFILE QRPGLESRCConverting Your Source Converting a Member Using DefaultsSource Converting Your Source Converting All Members in a Filea File Performing a Trial ConversionConverting Your Source Obtaining Conversion ReportsConverting Auto Report Source MembersExample of Source Conversion Inserting Specification Templatesa Data Example of Source ConversionThe converted source is shown in Figure 195 on page Exampleof Source Conversion To convert this source, enterFigure 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 Resolving Conversion ProblemsCompilation Errors in Existing RPG III Code Unsupported RPG III FeaturesRPG III Source for TEST2 ConversionRPG III Source for COPYDS1 Resolving Conversion Problems Context-Sensitive ProblemsStructures Use of ExternallyResolving Conversion Problems 207. RPG III source using external data structure with array Merging an Array with an Externally Described DS SubfieldInitializing Resolving Conversion ProblemsRPG IV source with two definitions for renamed subfield Run-time DifferencesResolving Conversion Problems 210. RPG III source with renamed and initialized external subfield404 ILE RPG for AS/400 Programmers Guide Resolving Conversion ProblemsReading Syntax Diagrams Appendix C. The Create CommandsUsing CL Commands How to Interpret Syntax DiagramsCRTBNDRPG Command CRTBNDRPG Command3description32 CRTBNDRPG CommandAppendix C. The Create Commands407 3library-name/32CRTBNDRPG Command Description of the CRTBNDRPG CommandOPTION Details SRCMBR CRTBNDRPG CommandLIBL CURLIB410 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandDEBUGIO StatementNumber = sourceID * 1000000 + sourceSEUsequencenumberSTMT CommandEVENTF DBGVIEWcharacter-value CRTBNDRPG CommandEXPDDS, and LANGIDSHR CRTBNDRPG Commandsort-table-name LANGIDUNQREPLACE CRTBNDRPG Command416 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandLIBCRTAUT V2R3M5 target-releasebinding-directory-name CommandUSRCTL ENTRYEXIT CRTBNDRPG CommandCRTRPGMOD Command CRTRPGMOD CommandAppendix C. The Create Commands421 CRTRPGMOD Command422 ILE RPG for AS/400 Programmers Guide Description of the CRTRPGMOD commandCRTRPGMOD Command of CRTRPGMODCompiler Listings Appendix D. Compiler ListingsCompiler Listings Compiler ListingPrologue Reading a4/ Source Compiler Listings2/ Module or Program 3/ Source memberCompiler Listings SectionSample Section of the Listing with OPTION*NOSRCSTMT Appendix D. Compiler Listings427 ListingsFigure 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 Ruler Line Compiler Listings1a/ *NOSRCSTMT Source Heading Line NumberListings DiagnosticAdditional SpecificationsSample Additional Diagnostic Messages with OPTION*SRCSTMT Output Buffer PositionsCOPY Member Table Sample Additional Diagnostic Messages with OPTION*NOSRCSTMT2/ Character to be Altered Compile-Time DataCompiler Listings 1/ Total Number of Characters AlteredFigure 223. Sample Key Field Information Key Field InformationCross-Reference Table Compiler ListingsCompiler Listings External References ListFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT Figure 225. Sample External References Message SummaryFinal Summary Compiler ListingsCompiler Listings Code Generation and Binding ErrorsFigure 227. Sample Final Summary 438 ILE RPG for AS/400 Programmers Guide Compiler ListingsDevelopment BibliographyADTS/400 ProgrammingFORTRAN/400 GDDMAS/400 Bibliography442 ILE RPG for AS/400 Programmers Guide continued SpecialSee Add 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 Part Number 99H3778 Program Number 5769-RG1 Printed in U.S.A ÉÂÔÙ99H3778 SC09-2507-02