Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual SCHZIP RPG Source, Search by Zip Code, Example of an Interactive 361Application

Models: AS/400

1 489

Page 385

Search by Zip Code

SCHZIP: RPG Source

*****************************************************************
*	PROGRAM NAME:			SCHZIP			*
* RELATED FILES:				CUSMSTL2 (LOGICAL FILE)			*
*				SZIPMENU (WORKSTN FILE)			*
*	DESCRIPTION:			THIS PROGRAM SHOWS A CUSTOMER MASTER SEARCH			*
*				PROGRAM USING WORKSTN SUBFILE PROCESSING.			*
*				THIS PROGRAM PROMPTS THE USER FOR THE ZIP CODE*
*				AND DISPLAYS THE CUSTOMER MASTER RECORD BY			*
*				ZIP CODE.			*
*				ROLL UP KEY CAN BE USED TO LOOK AT ANOTHER			*
*				PAGE. PF3 IS USED TO QUIT THE PROGRAM.			*
*****************************************************************
FCUSMSTL2		IF	E	K	DISK
FSZIPMENU		CF	E		WORKSTN SFILE(SUBFILE:RECNUM)
C	CSTKEY			KLIST
C				KFLD		ZIP
********************************************************************
*	MAINLINE						*
********************************************************************
C				WRITE	FOOT1
C				WRITE	HEAD
C				EXFMT	PROMPT
C*
C				DOW	NOT *IN03
C				MOVE	*OFF	*IN61
C	CSTKEY			SETLL	CMLREC2		20
C				IF	NOT *IN20
C				MOVE	*ON	*IN61
C				ELSE
C				EXSR	SFLPRC
C				END
C				IF	(NOT IN03) AND (NOT IN04)
C				IF	NOT *IN61
C				WRITE	FOOT1
C				WRITE	HEAD
C				ENDIF
C				EXFMT	PROMPT
C				ENDIF
C				ENDDO
C*
C				SETON			LR

Figure	184 (Part		1	of 2).	Source for module SCHZIP

Chapter 19. Example of an Interactive 361Application

Page 385

Image 385

IBM AS/400 manual SCHZIP RPG Source, Search by Zip Code, Example of an Interactive 361Application

Contents

AS/400e ILE RPG for AS/400 Programmers GuideVersion Page AS/400e ILE RPG for AS/400 Programmers GuideVersion Edition Third1999 commentsRPG Introduction Contentswith Chapter a Service ProgramCreating Debugging vi ILEHandling 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 Guide About This GuideWho Should Use This Prerequisite and Related Information How to Send Your Commentss New This WhatRelease? 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 sectionRPG IV Overview Cycle ProgrammingFigure 1. RPG Program Logic Cycle Indicators Subprocedure logicRPG IV Overview The firstProgram Operation CodesExample of an ILE RPG Example of an ILE RPG ProgramControl Specifications ProgramFile Description 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 weekFigure 4 Part 2 of 3. A Sample Payroll Calculation Program Example of an ILE RPG ProgramChapter 1. Overview of the RPG IV Programming11Language 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 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 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 ApplicationEffect of ILE Example of OPM-Compatible ProgramOPM-Compatible Application 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 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 InformationA Strategy to Avoid the default activation group and any named activationWhen splitMultiple Procedures Module Chapter 4. Creating an Application Using Multiple ProceduresMultiple Procedures Module Prototyped CallsMODULE 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 ARRSRPTGeneral Considerations Coding ConsiderationsCoding Considerations Subprocedure Considerations Main Procedure ConsiderationsProgram Creation Coding ConsiderationsSubprocedures Main ProceduresFor Further Information 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 CreationUsing the CRTBNDRPG Command Creating a Program for Source DebuggingConsiderations Creating a Program with Static BindingUsing the CRTBNDRPG Command 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 UsingUsing a Using In-Line Diagnostic MessagesCompiler Listing 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 ChapterUsing 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 ObjectSource for TRANSSVC member PartCreating a Module Object Creating a Module forDebugging Source for TRANSRPT module Creating a Module ObjectOFLIND*INOF Additional Examples Related CL CommandsModules Behavior of Bound ILEProgram Binding Modules into aBinding Modules into a Program into a UsingCRTPGM Group Binding Modules into a ProgramValue 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 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 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 anChapter 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 CommandILE RPG Program that Requires Parameters at Run Time PartRunning a Program From a Menu-Driven Application ApplicationRunning a Program From a 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 Messages CommandReplying to Run-Time Inquiry Groups Ending an ILE ProgramManaging Activation Specifying an Activation Managing Activation GroupsGroup Compatibility DefaultRunning in the OPM Deleting an Activation Reclaim Resources CommandGroup 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@ 52 Part Managing Dynamically-Allocated Storage4 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 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 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 Prototyped Parameters Examples of Free-Form CallParameter Passing Styles Passing by ReferencePassing 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 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 ParameterPassing Prototyped Parameters Checking for the NumberPassed Passing Prototyped Parameters Source for procedure FMTADDR3. 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 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 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 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 Debuggingfor Debugging Creating a Root Source ViewCRTRPGMOD or 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 SourceViewing the Program Source Viewing a DifferentModule 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 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 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*SRCSTMTUsing the Work with Module Breakpoints Display Setting and Removing Conditional Thread BreakpointsSetting and Removing Breakpoints 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 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 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 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 StructuresUsing EVAL with Data Structures Displaying IndicatorsStepping Through the Program Object in Character Format Displaying Fields as Hexadecimal ValuesStepping Through the Program Object DisplayingDisplaying Variable-Length Fields Databy Pointers Displaying Null-Capable FieldsStepping Through the Program Object Figure 102. Examples of %SUBSTR using DBGEXChapter 11. Debugging Programs207 Value FieldsChanging the Value of Fields Equating a Name with a Field, Expression, or Command or CommandDisplaying Attributes of a Field Equating a Name withSample Source for Debug Examples ILE RPGExamples 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 OverviewException Handling Overview ILE RPG Exception HandlingMain Handling Exception HandlingINFSR Handling Exception Handling OverviewUsing Exception Handlers Using Exception HandlersException Handler Priority Nested ExceptionsFor other Using Exception Handlerstypes of messagesUsing 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 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 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 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 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 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 InformationFeedback 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 Program-Described Using Files withFiles Example of Some Typical Relationships betweenDefining Externally Described Defining Externally Described FilesFiles Ignoring Record Formats Renaming Record-Format NamesRenaming Field Names Defining Externally Described FilesModify an Using Input SpecificationsDescription Defining Externally Described FilesDefining Externally Described FilesFiles Using Output Specificationsediting DDS Referin the Defining Externally Described Files Level CheckingOSLSREC 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 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 a Partial ArgumentsReferring 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 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 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 ControlUsing Commitment Control Commitment Control Lockssee theBackup and Recovery manual Abridged forSpecifying Using theFiles 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 Attached319DevicesAccessing Printer Devices Using the Fetch-OverflowPrinting a Field on Every Page Figure 159. Overflow Printing Setting of the Overflow Indicator Accessing Printer DevicesExample of Specifying Fetch Overflow 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 DevicesUsing Sequential Files Accessing Display DevicesUsing Sequential Files FileUsing SPECIAL Files Using SPECIAL FilesFile Error Using SPECIAL FilesStatus DescriptionSPECIAL Files Example of Using a Special FileUsing SpecificationsUser-written program USERIO Using SPECIAL FilesPLISTSPCL Using Externally Described WORKSTN Files Chapter 18. Using WORKSTN FilesUsing Externally Described WORKSTN Files Function¹ 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 Processing an Externally Described WORKSTN File Using SubfilesUsing 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 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 hoSource for module CUSMAIN Main Menu Inquiry348 ILE RPG for AS/400 Programmers Guide File Maintenance File MaintenanceCUSMSTL1 DDS for a LogicalFile Maintenance DisplayFile 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 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 GuideYORKTOWN File MaintenanceChapter 19. Example of an Interactive 357Application Search by Zip Code Search byFile Display SZIPMENU DDSFile Device14DSPATRHI 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 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 NameSearch and Inquiry by Name ¹ ToSUBROUTINE requests The usermore information by192. 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 and ILE RPG/400AS/400 AppendixDifferences 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 Conversion OverviewFile Record Length File ConsiderationsConversion Overview 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 Converting a Member Using DefaultsSource 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 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 Compilation Errors in Existing RPG III Code Resolving Conversion ProblemsUnsupported RPG III Features Resolving Conversion ProblemsRPG III Source for TEST2 ConversionRPG III Source for COPYDS1 Resolving Conversion Problems Context-Sensitive ProblemsStructures Use of ExternallyResolving Conversion Problems 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 3description32CRTBNDRPG Command Description of the CRTBNDRPG CommandOPTION Details LIBL CRTBNDRPG CommandCURLIB SRCMBR410 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandDEBUGIO StatementNumber = sourceID * 1000000 + sourceSEUsequencenumberEVENTF CommandDBGVIEW STMTcharacter-value CRTBNDRPG CommandEXPDDS, and sort-table-name CRTBNDRPG CommandLANGIDUNQ LANGIDSHRREPLACE 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 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/ SourceCompiler 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 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 InformationCompiler Listings External References ListFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT Final Summary Message SummaryCompiler Listings Figure 225. Sample External ReferencesCompiler Listings Code Generation and Binding ErrorsFigure 227. Sample Final Summary 438 ILE RPG for AS/400 Programmers Guide Compiler ListingsADTS/400 BibliographyProgramming DevelopmentFORTRAN/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