Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM manual Search by Zip Code, ILE RPG for AS/400 Programmers Guide

Models: AS/400

1 489

Page 386

Search by Zip Code

********************************************************************
*	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	ZIP	READE	CMLREC2		71
C		IF	*IN71
C		MOVE	*ON	*IN21
C		ELSE
C		ADD	1	RECNUM
C		WRITE	SUBFILE		21
C		ENDIF
C		ENDDO
C		ENDSR
********************************************************************
*	SUBROUTINE - SFLCLR				*
*	PURPOSE	- CLEAR SUBFILE RECORDS			*
********************************************************************
C	SFLCLR	BEGSR
C		MOVE	*ON	*IN55
C		WRITE	SUBCTL
C		MOVE	*OFF	*IN55
C		MOVE	*OFF	*IN21
C		Z-ADD	*ZERO	RECNUM	5 0
C		ENDSR

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

The file description specifications identify the disk file to be sea display device file to be used (SZIPMENU). The SFILE keyword for the file identifies the record format (SUBFILE) that is to be used as relative-record-number field (RECNUM) specified controls which record with subfile is being accessed.

The program displays the PROMPT record format and waits for the worksta user's response. F3 sets on indicator 03, which controls the end of th

362 ILE RPG for AS/400 Programmer's Guide

Page 386

Image 386

IBM manual Search by Zip Code, ILE RPG for AS/400 Programmers Guide

Contents

Version ILE RPG for AS/400 Programmers GuideAS/400e Page Version ILE RPG for AS/400 Programmers GuideAS/400e 1999 ThirdEdition commentsContents RPG Introductionwith Creating a Service ProgramChapter Handling vi ILEDebugging Working with Files and Devices Chapter 14. Defining FilesFiles FilesChapter 19. Example of an AppendixesAppendix B. Using the RPG III to RPG RPG forIndex COPYsuch provisions Noticescountry are inconsistentTrademarks and Service Programming Interface InformationNotices xiv ILE RPG for AS/400 Programmers Guide Who Should Use This About This GuideGuide How to Send Your Comments Prerequisite and Related InformationRelease? Whats New This Numbers NODEBUGIOEVAL 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 Overview RPG IV SpecificationsChapter 1. Overview sectionFigure 1. RPG Program Logic Cycle Cycle ProgrammingRPG IV Overview RPG IV Overview Subprocedure logicIndicators The firstExample of an ILE RPG Operation CodesProgram Example of an ILE RPG ProgramFile Description Specifications ProgramControl Specifications NAME Output SpecificationsExample of an ILE RPG Program RATEREGISTER A SubprocedureExample of an ILE RPG Program Chapter 1. Overview of the RPG IV Programming9 LanguageThis program creates a printed output of employees pay Example of an ILE RPG ProgramThe Entire Source Program for the weekChapter 1. Overview of the RPG IV Programming11Language Example of an ILE RPG ProgramFigure 4 Part 2 of 3. A Sample Payroll Calculation Program OS/400 System UsingInteracting with the System UsingAS/400 Tools ToolsApplication Development for AS/400IBM VisualAge RPG and Cooperative Development Environment for AS/400 AS/400 ToolsAS/400 Tools ¹ Program verification- performs, at the workstation, the full range oAS/400 Tools 16 ILE RPG for AS/400 Programmers GuideRPG Programming in ILE Chapter 2. RPG Programming in ILEProgram Creation Figure 5. Program Creation in ILE RPG Programming in ILEor CRTSRVPGM in ILE Program ManagementProgram Call RPG Programming in ILE Source DebuggingBindable APIs shownsuppo Multithreaded ApplicationsRPG Programming in ILE THREAD*SEREALIZERPG Programming in ILE 22 ILE RPG for AS/400 Programmers GuideMethod Chapter 3. Program Creation StrategiesStrategy 1 OPM-Compatible Application OPM-Compatible ApplicationOPM-Compatible Application Example of OPM-Compatible ProgramEffect of ILE Related Information UsingILE Program Using CRTBNDRPG CRTBNDRPGILE Program Using CRTBNDRPG Example of ILE ProgramUsing Figure 7. ILE Program Using CRTBNDRPGStrategy 3 ILE Application ILE Application Using CRTRPGMODCRTRPGMOD Related InformationMethod ScenarioILE Application Using CRTRPGMOD Single-Language ILE ApplicationFigure 8. Single-Language Application Using CRTRPGMOD and CRTPGM Mixed-Language ILE Application ScenarioILE Application Using CRTRPGMOD Mixed-Language Application Advanced Application ScenarioILE Application Using CRTRPGMOD Service A Strategy to AvoidA Strategy to Avoid Related InformationWhen the default activation group and any named activationA Strategy to Avoid splitChapter 4. Creating an Application Using Multiple Procedures Multiple Procedures ModuleMODULE Prototyped CallsMultiple Procedures Module specification. It has two output parameters Multiple Procedures ModulePrototype for procedure FmtCust Note the PR on definition 13. Prototype for FmtCust ProcedureExample of Module with MultipleExample of Module with Multiple Procedures Procedures NumToCin Fmt Example of Module with Multiple Procedures moduleARRSRPT *PGM ARRSRPT *MODULE Main Procedure InArrears FmtCust The Entire ARRSRPT ProgramExample of Module with Multiple Procedures Figure 22 PartILE RPG Complete Source for ARRSRPT Module Example of Module with Multiple ProceduresFigure 22 Part 42 ILE RPG for AS/400 Programmers GuideSUBDUR Example of Module with Multiple ProceduresChapter 4. Creating an Application Using Multiple43 Procedures DaysLate*DOutput for ARRSRPT ARRSRPTCoding Considerations Coding ConsiderationsGeneral Considerations Program Creation Main Procedure ConsiderationsSubprocedure Considerations Coding ConsiderationsFor Further Information Main ProceduresSubprocedures Prototyped Call For Further InformationApplication Creating50 ILE RPG for AS/400 Programmers Guide Chapter 5. Entering StatementsFile SourceUsing the Source Entry Utility Using SEUUsing SEU type indicated by the parameter CODE Using SEUProcedure EMPTYPE returns a string representing the employee 28. Source for EMPRPT memberUsing SQL Statements Using SQL StatementsReference for more Using SQL Statementsfor AS/400 SQL Programming manual and theDB2 UDB for AS/400 SQL Refer toADTS thefor AS/400 Source EntryUsing the CRTBNDRPG CommandUsing the CRTBNDRPG Command CRTBNDRPGOptions Using the CRTBNDRPG CommandListing CreationConsiderations Creating a Program for Source DebuggingUsing the CRTBNDRPG Command Using the CRTBNDRPG Command BindingCreating a Program with Static ¹ WRKOUTQ queue-name CommandUsing Creating an OPM-CompatibleA Sample Payroll Calculation Program Using the CRTBNDRPG CommandPart Figure 32 Part 2 of 2. A Sample Payroll Calculation ProgramListing Using a Compiler ListingUsing a Compiler Listing Obtaining a Compilera Compiler Listing Customizing a Compiler ListingCustomizing a Page Heading UsingUsing a Compiler Listing Customizing the SpacingIndenting Structured Operations The /SPACECompilation ErrorsListing UsingCompiler Listing Using In-Line Diagnostic MessagesUsing a Browsing a Compiler Listing Using SEU Correcting Run-time ErrorsUsing Additional-Diagnostic Messages Using a Compiler ListingCoordinating Listing Options with Debug View Options Using a Compiler Listing forMaintenance 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 Guidea Module Object Commands7. Creating ChapterCreating a Module Object CommandUsing the CRTRPGMOD Creating a NOMAIN Module Creating a Module ObjectFigure 36 Part 1 of 3. Source for TRANSSVC member Creating a Module ObjectCOPY TRANSP Source for TRANSSVC member Creating a Module ObjectPart PartDebugging Creating a Module forCreating a Module Object OFLIND*INOF Creating a Module ObjectSource for TRANSRPT module Modules Related CL CommandsAdditional Examples Behavior of Bound ILEBinding Modules into a Program Binding Modules into aProgram CRTPGM Usinginto a Value Binding Modules into a ProgramGroup CRTRPGMOD MODULEMYLIB/TRANSRPT Binding Modules into a ProgramConcepts for CRTRPGMOD MODULEMYLIB/TRANSSVCRelated CL Commands Using a Binder ListingUsing a Binder Listing Additional ExamplesBASIC Changing a Module or ProgramChanging a Module or FULLChanging the Optimization Using the UPDPGM CommandLevel Changing a Module or ProgramReducing an Objects Removing ObservabilitySize Changing a Module or ProgramChanging a Changing a Module or Program 90 ILE RPG for AS/400 Programmers GuideService Program Overview Chapter 8. Creating a Service ProgramService Program Overview Creating a Service Program Strategies for Creating Service ProgramsCreating a Service Program Using CRTSRVPGM a Service Program Using CRTSRVPGM Changing A Service ProgramRelated CL commands Sample Service Program Sample Service ProgramChapter 8. Creating a Service Program95 Sample Service ProgramFigure 42 Part 1 of 2. Source for Service Program CvtToHex 42 Part Sample Service ProgramSource for Service Program CvtToHex 96 ILE RPG for AS/400 Programmers Guide43. Source for /COPY Member with Prototype for CvtToHex Creating the Service ProgramSample Service Program Figure 44. Source for Binder Language for CvtToHexMODUL Binding to a ProgramSample Service Program 98 ILE RPG for AS/400 Programmers GuideSample Service Program Program to test Service Program CVTTOHEXadd a Updating the ServiceSample Binder Listing to anBasic Binder listing for CVTHEXPGM Sample Service ProgramChapter 8. Creating a Service Program101 Sample Service Program 102 ILE RPG for AS/400 Programmers GuideRunning a Program Using the CL CALL Command Chapter 9. Running a ProgramRunning a Program Using the CL CALL Command Passing Parameters using theCALL ILE RPG Program that Requires Parameters at Run Time Running a Program Using the CL CALL CommandPart PartRunning a Program From a ApplicationRunning a Program From a Menu-Driven Application A* CMDPROMPT Figure 50. Data Description Specification of an Application MenuRunning a Program From a Menu-Driven Application Figure 51. Source for Menu ProgramReplying to Run-Time Inquiry CommandReplying to Run-Time Inquiry Messages Managing Activation Ending an ILE ProgramGroups Group Managing Activation GroupsSpecifying an Activation Running in the OPM DefaultCompatibility Group Reclaim Resources CommandDeleting an Activation Managing Activation GroupsStorage Managing the Default Heap Using RPG OperationsManaging Dynamically-Allocated ENDDO Managing Dynamically-Allocated StorageName? next@ Managing Dynamically-Allocated StorageChapter 9. Running a Program115 name@ Managing Dynamically-Allocated Storage116 ILE RPG for AS/400 Programmers Guide 4 of 5. Memory Management - Build a Linked List of Names Managing Dynamically-Allocated Storage52 Part Chapter 9. Running a Program117of 5. Memory Management - Build a Linked List of Names Heap Storage ProblemsManaging Dynamically-Allocated Storage Bindable APIs Managing Your Own HeapManaging Dynamically-Allocated Storage 54. /COPY file DYNARRI containing prototypes for DYNARRAY module Managing Dynamically-Allocated StorageSeeAPI theReference of 2. Global variables and local prototypes for DYNARRAY Managing Dynamically-Allocated StoragePart Chapter 9. Running a Program121Figure 55 Part Figure 56 on page 123 shows the subprocedures in DYNARRAYManaging Dynamically-Allocated Storage 2 ofManaging Dynamically-Allocated Storage DYNARRAY SubproceduresDYNARRAY Subprocedures PartPart 3 of DYNARRAY SubproceduresManaging Dynamically-Allocated Storage 124 ILE RPG for AS/400 Programmers GuideManaging Dynamically-Allocated Storage DYNARRAY SubproceduresDYNARRAY Subprocedures PartThe logic of the subprocedures is as follows Managing Dynamically-Allocated StorageProgram/Procedure Call Overview Chapter 10. Calling Programs and ProceduresProgram/Procedure Call Overview Program/Procedure Call Overview Calling ProceduresCalling Programs callsThe call stack The Call StackProgram/Procedure Call Overview stack59. Three Modules, each with subprocedures Recursive CallsProgram/Procedure Call Overview 60. Recursive Call Stack To Be Avoided Parameter-Passing ConsiderationsProgram/Procedure Call Overview Program/Procedure Call Overview 132 ILE RPG for AS/400 Programmers GuideCall Using the CALLP OperationUsing a Prototyped Using a Prototyped Call Calling within an ExpressionParameter Passing Styles Examples of Free-Form CallPassing Prototyped Parameters Passing by Reference2 * MinLengthFirst + LengthLast + 1 %sizeName Passing by ValuePassing Prototyped Parameters Passing Prototyped Parameters PassingPrototype for ILE CEE API CEETSTA with CONST Parameter Using Operational DescriptorsPassing Prototyped Parameters Len returns a 10-digit integer value. The parameter Omitting ParametersPassing Prototyped Parameters is a character string passed by read-only referencePassing Prototyped Parameters Passing *OMITLeaving Out Parameters 67. Prototype for System API QCMDEXC with Optional ParameterPassed Checking for the NumberPassing Prototyped Parameters 3. Concatenate the complete address 4. Return Source for procedure FMTADDRPassing Prototyped Parameters 68 PartPassing Prototyped Parameters Figure 68 Part 2 of 2. Source for procedure FMTADDR69. Source for /COPY member with Prototype for Procedure FMTADDR 70 Part Source for procedure PRTADDRPassing Prototyped Parameters DIM2Passing Less Data Than Required ParametersPassing Prototyped Parameters Order of EvaluationInterlanguage Calls effectInterlanguage Calling ConsiderationsUsing Call OperationsUsing V4R4M0Using the Fixed-Form Call Operations CALLB onlyOperations Passing Parameters Using PARMExamples of CALL and CALLB PLISTUsing the PLIST Operation the Fixed-Form Call OperationsNormal End Returning from a Main ProcedureProcedure Returning from a CalledReturning from a Called Program or Procedure Abnormal Endwithout Returning from a SubprocedureReturning from a Called Program or Procedure APIs Using Bindable APIsReturning using ILE Bindable Calling a Graphics Routine Examples of Using Bindable APIsCalling a Graphics Routine Multithreading Considerations Calling Special RoutinesMultithreading Considerations Share Data How toAcross Modules to Avoid DeadlockMultithreading Considerations Considerations Deadlock ExampleThis section describes how to Debugging and Exception Handling¹ Debug an Integrated Language Environment application by using the Language Environment source debugger162 ILE RPG for AS/400 Programmers Guide The ILE Source Debugger Chapter 11. Debugging ProgramsThe ILE Source Debugger ATTR Debug CommandsThe ILE Source Debugger EQUATETBREAK 3. EnterPF1 HelpThe ILE Source Debugger THREADPreparing a Program for Debugging Preparing a Program forCRTRPGMOD or Creating a Root Source Viewfor Debugging Preparing a Program for Debugging a Listing ViewCreating a COPY Source CreatingProgram for Debugging a StatementView CreatingStarting the ILE Source Starting the ILE Source DebuggerStarting the ILE Source Debugger Setting Debug OptionsSTRDBG Example Display Module Source display for program DEBUGEXOPM source debug support field, and Example of Adding a ServiceExample of Removing ILE Programs from a Debug Session Adding/Removing Programs from a Debug SessionViewing the Program Source Viewing the Program SourceModule Viewing a DifferentViewing the Program Source 79. Source View of ILE C procedure cproc Changing the View of aModule Viewing the Program SourceSetting and Removing Breakpoints Setting and Removing BreakpointsSetting and Removing Breakpoints Setting and RemovingBreakpoints UnconditionalSetting an BreakpointFigure 81. Setting an Unconditional Job Breakpoint Setting and Removing Unconditional Thread BreakpointsSetting and Removing Breakpoints Setting and Removing BreakpointsLine Example of Setting a Conditional Job Breakpoint Using F13Setting and Removing Breakpoints Setting and Removing Breakpoints CommandNational Language Sort Sequence NLSS Setting and Removing Breakpoints 184 ILE RPG for AS/400 Programmers GuideUsing Setting and Removing JobSetting StatementFigure 84. Sample Section of the Listing with OPTION*NOSRCSTMT Setting and Removing BreakpointsSetting a Breakpoint Using Statement View Figure 85. Sample Section of the Compiler Listing with OPTION*SRCSTMTSetting and Removing Breakpoints Setting and Removing Conditional Thread BreakpointsUsing the Work with Module Breakpoints Display Removing All Job and Debug CommandsSetting and Removing Watch Conditions ConditionsDisplay Characteristics of WatchesSetting and Removing Watch Conditions SourceSetting and Removing Watch Conditions Setting Watch ConditionsCommand Example of a Work with Watch DisplayChapter 11. Debugging Programs191 Setting and Removing Watch ConditionsFigure 89. Example of a Display Watch Window Removing Watch Conditions Displaying Active WatchesSetting and Removing Watch Conditions Example of Setting a Watch Condition Example of Setting a Watch ConditionObject Stepping Through the Program ObjectStepping Over Call Statements STEP number-of-statements OVERStepping Into Call Statements Stepping Through the Program ObjectStepping Through the Program Object PLIST Stepping Through the Program ObjectENTRY Stepping Through the Program Object Displaying Data and ExpressionsFigure 95. Stepping into Subprocedure Switch ˆ LASTNAME = Jones Displaying a Field using the EVAL debug commandStepping Through the Program Object Scalar Unexpected Results when Evaluating VariablesStepping Through the Program Object FieldsStepping Through the Program Object Displaying the Contents of an ArrayDisplaying the Contents of a Table variablefield-name isDisplaying Data Structures Stepping Through the Program ObjectStepping Through the Program Object Displaying IndicatorsUsing EVAL with Data Structures Stepping Through the Program Object Displaying Fields as Hexadecimal Valuesin Character Format Displayingby Pointers DataDisplaying Variable-Length Fields Displaying Null-Capable FieldsChapter 11. Debugging Programs207 Figure 102. Examples of %SUBSTR using DBGEXStepping Through the Program Object Fields ValueChanging the Value of Fields Displaying Attributes of a Field or CommandEquating a Name with a Field, Expression, or Command Equating a Name withExamples ILE RPGSample Source for Debug Examples Sample Source for Debug Examples Figure 105 Part 1 of 4. Source for Module DBGEXPointers PARM1 is used when calling RPGPROG programSample Source for Debug Examples Date, Time, TimestampSource for Module DBGEX Sample Source for Debug ExamplesFigure 105 Part 214 ILE RPG for AS/400 Programmers GuideSource for Module DBGEX. DBGEX is the main module of the Sample Source for Debug Examples105 Part 4 of programchar *cprocunsigned int size, char *inzval Figure 107. Source for C Procedure cproc. cproc is called by DBGEXSample Source for Debug Examples char *ptrException Handling Overview Chapter 12. Handling ExceptionsException Handling Overview boundary is controlreached boundary. A Exception Handling OverviewEach 218 ILE RPG for AS/400 Programmers GuideException Handling Overview Call Stack and Exception Message PercolationMain ILE RPG Exception HandlingException Handling Overview INFSR Exception HandlingHandling Exception Handling Overview HandlingException Handler Priority Using Exception HandlersUsing Exception Handlers Nested Exceptionstypes of Using Exception HandlersFor other messagesNote The Example of Unhandled Function CheckUsing Exception Handlers keyword, ILE Using RPG-Specific HandlersOptimization Considerations Specifying Error Indicators or the E ExtenderUsing an Error Subroutine blankUsing a File Error INFSR Subroutine BEGSRTRNSUPDT This program is a simple inventory update program If unexpected error occurs, cause inquiry message to be issued Access the product master file using the transaction productIf the record is found, update the quantity in the master file numberUsing a Program Error Subroutine specChapter 12. Handling Exceptions233 Example of *PSSR Subroutine in Main Procedure‘*DETC’ 113. Example of Subprocedure *PSSR Subroutine with GOTO 234 ILE RPG for AS/400 Programmers GuideAvoiding MOVE Specifying a Return Point ILE Condition Handlers Using a Condition HandlerILE Condition Handlers RPGHDLR RPG exception handling procedure SHOWERR ILE Condition HandlersAction codes are Condition CEEHDLRShow exception handling using a user-defined ILE Condition HandlersRegister the handler and generate errors ILE Condition HandlersHandlers UsingCancel APIsProcedure SubProc. Call Enabler. Since this call will fail Define the prototype for the cancel handler. This procedure isa local procedure define a local *PSSR subroutine to handle the errorFigure 118 Part Procedure Enabler. This procedure enables a cancel handlerEnabling and Coding a Cancel Handler for a Subprocedure 3 ofProblems when ILE CL Monitors for Notify and Status Messages 119. Output from CANHDLR program120. ILE Condition Handler that Ignores CPF4906 Handler definitionsIf this is CPF4906, handle the notify msg, otherwise percolate 121. How to Ignore Status and Notify Messages Chapter 12. Handling Exceptions249250 ILE RPG for AS/400 Programmers Guide Chapter 13. Obtaining a Dump Using the DUMP Operation CodeUsing the DUMP Operation Code Obtaining an ILE RPG Formatted Dumpof a a FormattedDump Program Status Informationof a DumpFeedback Areas Example of a Formatted Dump Figure 123. Feedback Areas section of Formatted DumpDump Data Informationof a 256 ILE RPG for AS/400 Programmers Guide Example of a Formatted DumpFigure 125 Part 1 of 2. Data section of Formatted Dump Example of a Formatted Dump Example of a Formatted Dump Working with Files and Devices 260 ILE RPG for AS/400 Programmers Guide Associating Files with Input/Output Devices Chapter 14. Defining FilesAssociating Files with Input/Output Devices Device Associating Files with Input/Output DevicesTypes of File Descriptions Naming FilesTypes of File Descriptions Files Using Files withProgram-Described Example of Some Typical Relationships betweenFiles Defining Externally Described FilesDefining Externally Described Renaming Field Names Renaming Record-Format NamesIgnoring Record Formats Defining Externally Described FilesDescription Using Input SpecificationsModify an Defining Externally Described FilesFiles Defining Externally Describedediting DDS Referin the Using Output SpecificationsFiles OSLSREC Level CheckingDefining Externally Described Files RPG I/O Operations Defining Program-Described FilesData Management Operations and ILE RPG I/O Operations DataOperation Data Management Operations and ILE RPG I/O OperationsOperation 272 ILE RPG for AS/400 Programmers GuideOverriding and Redirecting File Input and Output FileConsiderations Chapter 15. GeneralInput Inputand Output OutputFile Locking File LockingRecord Locking Record LockingPath Sharing an Open DataSpooling SpoolingSRTSEQ/ALTSEQ in an Output SpoolingSRTSEQ/ALTSEQ FileSRTSEQ/ALTSEQ 280 ILE RPG for AS/400 Programmers GuideDatabase Files Chapter 16. AccessingFiles Physical Files and Logical FilesAccess Path Using Externally Described Disk FilesRecord Format Specifications Using Externally Described Disk FilesThe sample Using Externally Described Disk FilesExample of the Data Description Specifications for a Database File DDS are for the customer master logical file CUSMSTL. The f284 ILE RPG for AS/400 Programmers Guide Using Externally Described Disk Files140. Example of a field Reference File Disk Valid Keys for a RecordFile Referring to Argumentsa Partial Using Externally Described Disk FilesUsing Externally Described Disk Files Record Blocking and Unblocking¹ A Indexed File Using Program-Described Disk FilesUsing Program-Described Disk Files ArgumentsHandling Chapter 16. Accessing Database 289FilesFiles Using Program-Described Disk Files Sequential FileRecord Address File D K1Relative Record Numbers Methods for Processing Disk FilesLimits Records Methods for Processing Disk Filessubsequent Consecutive ProcessingMethods for Processing Disk Files textExamples of Sequential-by-Key Processing DATA DESCRIPTION SPECIFICATIONS DDSFigure 144 on page 294 andSequential-by-Key Processing Disk145. DDS for database file TRWEEK physical file Methods for Processing Disk FilesFigure 144. DDS for database file EMPMST physical file 146. DDS for database file EMPL1 logical fileSequential-by-Key Processing, Example Chapter 16. Accessing Database 295FilesMethods for Processing Disk Files 296 ILE RPG for AS/400 Programmers Guide Sequential-by-Key Using READMethods for Processing Disk Files for Processing Disk Files ENUMMethods for Processing Disk Files 298 ILE RPG for AS/400 Programmers GuideMethods for Processing Disk Files Random-by-Key ProcessingExample of Random-by-Key Processing Sequential-within-Limits Processing Methods for Processing Disk FilesExamples of Sequential-within-Limits Processing Disk FilesDDS for record address file LIMITS physical file 2 Sequential-within-Limits ProcessingMethods for Processing Disk Files Relative-Record-Number Processing Methods for Processing Disk FilesValid File Operations Valid File Operationsan A,P,G,D,T,Z Chapter 16. Accessing Database 305FilesValid File Operations Valid File Operations A record-addressUsing Commitment Control Using Commitment Controlsee theBackup and Recovery manual Commitment Control LocksUsing Commitment Control Abridged forFiles Using theSpecifying 2.CRTJRN JRNJOURNAL JRNRCVRECEIVER Example of Using Commitment Control1.CRTJRNRCV JRNRCV RECEIVER 3.STRJRNPF FILEMASTER TRANS JRNJOURNAL2CALL. REVISE ControlLCKLVL*ALL 3ENDCMTCTLDDM Files CycleDDM Files Commitment Control inUsing Pre-V3R1 DDMDDM Files 314 ILE RPG for AS/400 Programmers GuideDevices AccessingExternally TypesSpecifying PRINTER Files Accessing Printer DevicesAccessing Printer Devices Handling Page OverflowAccessing Printer Devices OverflowAccessing Printer Devices Accessing Printer Devices Example of Printing Headings on Every PageExample of Printing a Field on Every Page Chapter 17. Accessing Externally Attached319DevicesPrinting a Field on Every Page Using the Fetch-OverflowAccessing Printer Devices Accessing Printer Devices Figure 159. Overflow Printing Setting of the Overflow IndicatorAccessing Printer Devices Fetch OverflowExample of Specifying Fetch Overflow Use of Fetch OverflowInformation in Changing Forms ControlFile Layout of OPM PRTCTL Data Structure Accessing Printer DevicesForms Accessing Tape Devices Accessing Tape DevicesUsing Sequential Files Accessing Display DevicesUsing Sequential Files FileFile Using SPECIAL FilesUsing SPECIAL Files Status Using SPECIAL FilesError DescriptionUsing Example of Using a Special FileSPECIAL Files SpecificationsPLISTSPCL Using SPECIAL FilesUser-written program USERIO Using Externally Described WORKSTN Files Chapter 18. Using WORKSTN FilesUsing Externally Described WORKSTN Files FunctionUsing Externally Described WORKSTN Files ¹ OutputR RESPONSE Using Externally Described WORKSTN FilesChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN Files Specifying Function Key Indicators on Display Device FilesDevice Using Externally Described WORKSTN Files Using SubfilesProcessing an Externally Described WORKSTN File Chapter 18. Using WORKSTN Files335Subfile Display Using Externally Described WORKSTN Filesfield Data Description Specifications for a Subfile Record Format Use of SubfilesUsing Externally Described WORKSTN Files Using Program-Described WORKSTN Files Using Program-Described WORKSTN FilesUsing a Program-Described withUsing Program-Described WORKSTN Files Output SpecificationsName Input SpecificationsCalculation Specifications withoutOutput File Valid WORKSTN File OperationsInput File Combined FileWRITE Operation EXFMT OperationREAD 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 Display Device InquiryDDS for a Main Menu InquiryIn addition CUSMAIN RPG SourceMain Menu Inquiry to describing the constants, fields, line numbers, and ho348 ILE RPG for AS/400 Programmers Guide Main Menu InquirySource for module CUSMAIN CUSMSTL1 DDS for a File MaintenanceFile Maintenance LogicalFile DisplayFile Maintenance DeviceChapter 19. Example of an Interactive 351Application File MaintenanceFigure 174 Part 2 of 2. DDS for display device file MNTMENU DSPATRPR CUSMNT RPG SourceFile Maintenance ADD NEW CUSTOMER TO FILE File MaintenanceChapter 19. Example of an Interactive 353Application 354 ILE RPG for AS/400 Programmers Guide File MaintenanceSET MAINTENANCE MODE Customer File Maintenance Display Mode prompt screen File MaintenanceF6 Update F3 End JobCustomer File Maintenance Add Mode prompt screen File MaintenanceCustomer File Maintenance Display Mode screen 356 ILE RPG for AS/400 Programmers GuideChapter 19. Example of an Interactive 357Application File MaintenanceYORKTOWN File Search bySearch by Zip Code File SZIPMENU DDSDisplay DevicePROMPT Search by Zip Code14DSPATRHI Chapter 19. Example of an Interactive 361Application SCHZIP RPG SourceSearch by Zip Code Search by Zip Code 362 ILE RPG for AS/400 Programmers GuideThe subfile is written to the screen as shown in Figure 186 on pageFile Search and Inquiry by NameSearch and Inquiry by Name CUSMSTL3 DDSSearch and Inquiry by Name DeviceFile SNAMMENU DDS for a DisplaySCHNAM RPG Source Search and Inquiry by NameSearch and Inquiry by Name Chapter 19. Example of an Interactive 367ApplicationSUBROUTINE ¹ ToSearch and Inquiry by Name more The userrequests information by370 ILE RPG for AS/400 Programmers Guide Search and Inquiry by Name192. Customer Search and Inquiry by Name detailed information screen Appendixes  Copyright IBM Corp. 1994372 ILE RPG for AS/400 Programmers Guide AS/400 RPG/400and ILE AppendixDebugging and Exception RunningDifferences Between OPM RPG/400 and ILE RPG RPG/400 ILE RPG Differences Between OPM RPG/400DBCS DBCS Data in Character FieldsILE RPG Differences Between OPM RPG/400 ILE RPG378 ILE RPG for AS/400 Programmers Guide Conversion Appendix B. UsingConversion Overview Conversion OverviewConversion Overview File ConsiderationsFile Record Length File The Log FileConversion Aid Tool Requirements OverviewConverting Your Source Wont DoConverting Your Source What the Conversionmember The CVTRPGSRC CommandConverting Your Source namessource-file-name Converting Your SourceFROMFILE LIBLQRPGLESRC Converting Your SourceTOFILE NONEConverting Your Source Source DefaultsConverting a Member Using Performing a Trial Conversion Converting All Members in a Filea File Converting Your SourceSource Members Obtaining Conversion ReportsConverting Auto Report Converting Your SourceExample of Source Conversion Inserting Specification Templatesa Data Example of Source ConversionTo convert this source, enter Exampleof Source Conversion The converted source is shown in Figure 195 on pageARR1 Example of Source ConversionFigure 195. Converted RPG IV Source for TEST1 Analyzing Your Conversion Analyzing Your ConversionAnalyzing Your Conversion Using the ConversionReport Sample Message Summary of Conversion Report YourSample Source Section of Conversion Report CPYF FROMFILEQRPGLE/QARNCVTLG TOFILEMYLIB/QRNCVTLG CRTFILE*YES Using the Log FileAnalyzing Your Conversion 200. DDS for model log file QARNCVTLG in library QRPGLE Appendix B. Using the RPG III to RPG IV397 Conversion AidAnalyzing Your Conversion Unsupported RPG III Features Resolving Conversion ProblemsCompilation Errors in Existing RPG III Code Resolving Conversion ProblemsRPG III Source for COPYDS1 ConversionRPG III Source for TEST2 Context-Sensitive Problems Resolving Conversion ProblemsResolving Conversion Problems Use of ExternallyStructures Resolving Conversion Problems Merging an Array with an Externally Described DS SubfieldInitializing 207. RPG III source using external data structure with array210. RPG III source with renamed and initialized external subfield Run-time DifferencesResolving Conversion Problems RPG IV source with two definitions for renamed subfieldResolving Conversion Problems 404 ILE RPG for AS/400 Programmers GuideHow to Interpret Syntax Diagrams Appendix C. The Create CommandsUsing CL Commands Reading Syntax DiagramsCRTBNDRPG Command CRTBNDRPG Command3library-name/32 CRTBNDRPG CommandAppendix C. The Create Commands407 3description32OPTION Details Description of the CRTBNDRPG CommandCRTBNDRPG Command CURLIB CRTBNDRPG CommandLIBL SRCMBRCRTBNDRPG Command 410 ILE RPG for AS/400 Programmers GuideStatementNumber = sourceID * 1000000 + sourceSEUsequencenumber DEBUGIODBGVIEW CommandEVENTF STMTEXPDDS, and CRTBNDRPG Commandcharacter-value LANGIDUNQ CRTBNDRPG Commandsort-table-name LANGIDSHRCRTBNDRPG Command REPLACELIBCRTAUT CRTBNDRPG Command416 ILE RPG for AS/400 Programmers Guide target-release V2R3M5USRCTL Commandbinding-directory-name CRTBNDRPG Command ENTRYEXITCRTRPGMOD Command CRTRPGMOD CommandCRTRPGMOD Command Appendix C. The Create Commands421of CRTRPGMOD Description of the CRTRPGMOD commandCRTRPGMOD Command 422 ILE RPG for AS/400 Programmers GuideAppendix D. Compiler Listings Compiler ListingsReading a Compiler ListingPrologue Compiler Listings3/ Source member Compiler Listings2/ Module or Program 4/ SourceSample Section of the Listing with OPTION*NOSRCSTMT SectionCompiler Listings Listings Appendix D. Compiler Listings427428 ILE RPG for AS/400 Programmers Guide Compiler ListingsFigure 217 Part 1 of 3. Sample Source Part of the Listing Appendix D. Compiler Listings429 Compiler ListingsFigure 217 Part 2 of 3. Sample Source Part of the Listing Line Number Compiler Listings1a/ *NOSRCSTMT Source Heading Ruler LineSpecifications DiagnosticAdditional ListingsSample Additional Diagnostic Messages with OPTION*NOSRCSTMT Output Buffer PositionsCOPY Member Table Sample Additional Diagnostic Messages with OPTION*SRCSTMT1/ Total Number of Characters Altered Compile-Time DataCompiler Listings 2/ Character to be AlteredCompiler Listings Key Field InformationCross-Reference Table Figure 223. Sample Key Field InformationFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT External References ListCompiler Listings Compiler Listings Message SummaryFinal Summary Figure 225. Sample External ReferencesFigure 227. Sample Final Summary Code Generation and Binding ErrorsCompiler Listings Compiler Listings 438 ILE RPG for AS/400 Programmers GuideProgramming BibliographyADTS/400 DevelopmentGDDM FORTRAN/400Bibliography AS/400442 ILE RPG for AS/400 Programmers Guide See Add Specialcontinued Page CALL CL commands control-record format, subfile DBCS continued debugging continued NLSS 364access NOOPTsummary Page Page alsoDISK See long alsoPARM methodscontinued creationcontinuedcallcontinued alsoILE programcontinued debuggingcontinuedWORKSTN Page WORKSTN file definition 331 examples 345 externally described 99H3778 SC09-2507-02 ÉÂÔÙPart Number 99H3778 Program Number 5769-RG1 Printed in U.S.A