Manuals / IBM / Kitchen Appliance / Frozen Dessert Maker

IBM AS/400 manual Sample Service Program, Part 1 of 2. Source for Service Program CvtToHex

Models: AS/400

1 489

Download 489 pages 47.95 Kb

Page 119

Image 119

Figure 42 (Part 1 of 2). Source for Service Program CvtToHex

Sample Service Program

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

*CvtToHex - convert input string to hex output string *=================================================================*

H COPYRIGHT('(C) Copyright MyCompany 1995')

D/COPY RPGGUIDE/QRPGLE,CVTHEXPR
	*-----------------------------------------------------------------				*
	* Main entry parameters
	* 1. Input:	string			character(n)
	* 2. Output:	hex string			character(2 * n)
	*-----------------------------------------------------------------				*
D CvtToHex		PI			OPDESC
D	InString		16383		CONST OPTIONS(*VARSIZE)
D	HexString		32766		OPTIONS(*VARSIZE)
	*-----------------------------------------------------------------				*
	* Prototype for CEEDOD (Retrieve operational descriptor)
	*-----------------------------------------------------------------				*
D CEEDOD		PR
D ParmNum			10I	0	CONST
D			10I	0
D			10I	0
D			10I	0
D			10I	0
D			10I	0
D			12A		OPTIONS(*OMIT)
	* Parameters passed to CEEDOD
D DescType		S	10I	0
D DataType		S	10I	0
D DescInfo1		S	10I	0
D DescInfo2		S	10I	0
D InLen		S	10I	0
D HexLen		S	10I	0
	*-----------------------------------------------------------------				*
	* Other fields used by the program				*
	*-----------------------------------------------------------------				*
D HexDigits		C			CONST('0123456789ABCDEF')
D IntDs		DS
D	IntNum		5I	0	INZ(0)
D	IntChar		1		OVERLAY(IntNum:2)
D HexDs		DS
D	HexC1		1
D	HexC2		1
D InChar		S	1
D Pos		S	5P	0
D HexPos		S	5P	0

Figure 42 (Part 1 of 2). Source for Service Program CvtToHex

Chapter 8. Creating a Service Program95

Page 119

Image 119

IBM AS/400 manual Sample Service Program, Part 1 of 2. Source for Service Program CvtToHex, Creating a Service Program95

Contents

Version ILE RPG for AS/400 Programmers GuideAS/400e Page Version ILE RPG for AS/400 Programmers GuideAS/400e comments ThirdEdition 1999RPG Introduction Contentswith Creating a Service ProgramChapter Handling vi ILEDebugging 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 Who Should Use This About This GuideGuide Prerequisite and Related Information How to Send Your CommentsRelease? Whats New This 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 OverviewFigure 1. RPG Program Logic Cycle Cycle ProgrammingRPG IV Overview The first Subprocedure logicIndicators RPG IV OverviewExample of an ILE RPG Program Operation CodesProgram Example of an ILE RPGFile Description Specifications ProgramControl 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 payChapter 1. Overview of the RPG IV Programming11Language Example of an ILE RPG ProgramFigure 4 Part 2 of 3. A Sample Payroll Calculation Program 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 ToolsRPG Programming in ILE Chapter 2. RPG Programming in ILEProgram Creation Figure 5. Program Creation in ILE RPG Programming in ILEor CRTSRVPGM in ILE Program ManagementProgram Call 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 MethodOPM-Compatible Application Example of OPM-Compatible ProgramEffect of ILE 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 MethodFigure 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 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 ProceduresMODULE Prototyped CallsMultiple Procedures Module 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 ARRSRPTCoding Considerations Coding ConsiderationsGeneral Considerations Coding Considerations Main Procedure ConsiderationsSubprocedure Considerations Program CreationFor Further Information Main ProceduresSubprocedures 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 OptionsConsiderations Creating a Program for Source DebuggingUsing the CRTBNDRPG Command Using the CRTBNDRPG Command BindingCreating a Program with Static 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 CompilationCompiler Listing Using In-Line Diagnostic MessagesUsing a 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 ObjectCreating a Module Object CommandUsing the CRTRPGMOD Creating a Module Object Creating a NOMAIN ModuleFigure 36 Part 1 of 3. Source for TRANSSVC member Creating a Module ObjectCOPY TRANSP Part Creating a Module ObjectPart Source for TRANSSVC memberDebugging Creating a Module forCreating a Module Object OFLIND*INOF Creating a Module ObjectSource for TRANSRPT module Behavior of Bound ILE Related CL CommandsAdditional Examples ModulesBinding Modules into a Program Binding Modules into aProgram CRTPGM Usinginto a Value Binding Modules into a ProgramGroup 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 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 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 aBasic Binder listing for CVTHEXPGM Sample Service ProgramChapter 8. Creating a Service Program101 102 ILE RPG for AS/400 Programmers Guide Sample Service ProgramChapter 9. Running a Program Running a Program Using the CL CALL CommandRunning a Program Using the CL CALL Command Passing Parameters using theCALL Part Running a Program Using the CL CALL CommandPart ILE RPG Program that Requires Parameters at Run TimeRunning a Program From a ApplicationRunning a Program From a Menu-Driven Application 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 CommandReplying to Run-Time Inquiry Messages Managing Activation Ending an ILE ProgramGroups Group Managing Activation GroupsSpecifying an Activation Running in the OPM DefaultCompatibility Managing Activation Groups Reclaim Resources CommandDeleting an Activation GroupStorage 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 Chapter 9. Running a Program117 Managing Dynamically-Allocated Storage52 Part 4 of 5. Memory Management - Build a Linked List of Namesof 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 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 stack59. Three Modules, each with subprocedures Recursive CallsProgram/Procedure Call Overview 60. Recursive Call Stack To Be Avoided Parameter-Passing ConsiderationsProgram/Procedure Call Overview 132 ILE RPG for AS/400 Programmers Guide Program/Procedure Call OverviewCall Using the CALLP OperationUsing a Prototyped Calling within an Expression Using a Prototyped CallPassing by Reference Examples of Free-Form CallPassing Prototyped Parameters Parameter Passing Styles2 * MinLengthFirst + LengthLast + 1 %sizeName Passing by ValuePassing Prototyped Parameters Passing Passing Prototyped ParametersPrototype for ILE CEE API CEETSTA with CONST Parameter Using Operational DescriptorsPassing Prototyped Parameters 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 ParametersPassed Checking for the NumberPassing Prototyped Parameters 68 Part Source for procedure FMTADDRPassing Prototyped Parameters 3. Concatenate the complete address 4. ReturnPassing Prototyped Parameters Figure 68 Part 2 of 2. Source for procedure FMTADDR69. Source for /COPY member with Prototype for Procedure FMTADDR 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 Procedurewithout Returning from a SubprocedureReturning from a Called Program or Procedure APIs Using Bindable APIsReturning using ILE Bindable Calling a Graphics Routine Examples of Using Bindable APIsCalling a Graphics Routine Multithreading Considerations Calling Special RoutinesMultithreading Considerations Share Data How toAcross Modules to Avoid DeadlockMultithreading Considerations Deadlock Example 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 DebuggingCRTRPGMOD or Creating a Root Source Viewfor Debugging 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 SourceModule Viewing a DifferentViewing the Program Source 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 anFigure 81. Setting an Unconditional Job Breakpoint Setting and Removing Unconditional Thread BreakpointsSetting and Removing Breakpoints Breakpoints Setting and RemovingLine Example of Setting a Conditional Job Breakpoint Using F13Setting and Removing Breakpoints Setting and Removing Breakpoints CommandNational Language Sort Sequence NLSS 184 ILE RPG for AS/400 Programmers Guide Setting and Removing 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*NOSRCSTMTSetting and Removing Breakpoints Setting and Removing Conditional Thread BreakpointsUsing the Work with Module Breakpoints Display 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 ConditionsChapter 11. Debugging Programs191 Setting and Removing Watch ConditionsFigure 89. Example of a Display Watch Window Removing Watch Conditions Displaying Active WatchesSetting and Removing Watch Conditions Example of Setting a Watch Condition Example of Setting a Watch ConditionStepping Through the Program Object ObjectSTEP number-of-statements OVER Stepping Over Call StatementsStepping Through the Program Object Stepping Into Call StatementsStepping Through the Program Object PLIST Stepping Through the Program ObjectENTRY Stepping Through the Program Object Displaying Data and ExpressionsFigure 95. Stepping into Subprocedure Switch ˆ LASTNAME = Jones Displaying a Field using the EVAL debug commandStepping Through the Program Object 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 StructuresStepping Through the Program Object Displaying IndicatorsUsing EVAL with Data Structures Displaying Displaying Fields as Hexadecimal Valuesin Character Format Stepping Through the Program ObjectDisplaying Null-Capable Fields DataDisplaying Variable-Length Fields by PointersChapter 11. Debugging Programs207 Figure 102. Examples of %SUBSTR using DBGEXStepping Through the Program Object Value FieldsChanging the Value of Fields Equating a Name with or CommandEquating a Name with a Field, Expression, or Command Displaying Attributes of a FieldExamples ILE RPGSample Source for Debug Examples 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 OverviewMain ILE RPG Exception HandlingException Handling Overview INFSR Exception HandlingHandling Handling Exception Handling OverviewNested Exceptions Using Exception HandlersUsing Exception Handlers Exception Handler Prioritymessages Using Exception HandlersFor other types ofNote The Example of Unhandled Function CheckUsing Exception Handlers keyword, ILE Using RPG-Specific HandlersOptimization Considerations Extender Specifying Error Indicators or the Eblank Using an Error SubroutineBEGSR Using a File Error INFSR SubroutineTRNSUPDT This program is a simple inventory update program 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 SubroutineChapter 12. Handling Exceptions233 Example of *PSSR Subroutine in Main Procedure‘*DETC’ 234 ILE RPG for AS/400 Programmers Guide 113. Example of Subprocedure *PSSR Subroutine with GOTOAvoiding MOVE Specifying a Return Point ILE Condition Handlers Using a Condition HandlerILE Condition Handlers RPGHDLR RPG exception handling procedure SHOWERR ILE Condition HandlersAction codes are CEEHDLR ConditionILE Condition Handlers Show exception handling using a user-definedILE Condition Handlers Register the handler and generate 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 Messages120. ILE Condition Handler that Ignores CPF4906 Handler definitionsIf this is CPF4906, handle the notify msg, otherwise percolate Chapter 12. Handling Exceptions249 121. How to Ignore Status and Notify Messages250 ILE RPG for AS/400 Programmers Guide 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 aof a DumpFeedback Areas Figure 123. Feedback Areas section of Formatted Dump Example of a Formatted DumpDump Data Informationof a 256 ILE RPG for AS/400 Programmers Guide Example of a Formatted DumpFigure 125 Part 1 of 2. Data section of Formatted Dump Example of a Formatted Dump Example of a Formatted Dump Working with Files and Devices 260 ILE RPG for AS/400 Programmers Guide Associating Files with Input/Output Devices Chapter 14. Defining FilesAssociating Files with Input/Output Devices Associating Files with Input/Output Devices DeviceTypes of File Descriptions Naming FilesTypes of File Descriptions Example of Some Typical Relationships between Using Files withProgram-Described FilesFiles Defining Externally Described FilesDefining Externally Described Defining Externally Described Files Renaming Record-Format NamesIgnoring Record Formats Renaming Field NamesDefining Externally Described Files Using Input SpecificationsModify an DescriptionDefining Externally Described Filesediting DDS Referin the Using Output SpecificationsFiles OSLSREC Level CheckingDefining Externally Described Files 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 sample284 ILE RPG for AS/400 Programmers Guide Using Externally Described Disk Files140. Example of a field Reference File Disk Valid Keys for a RecordFile Using Externally Described Disk Files Argumentsa Partial Referring toUsing Externally Described Disk Files Record Blocking and Unblocking¹ A Arguments Using Program-Described Disk FilesUsing Program-Described Disk Files Indexed FileHandling Chapter 16. Accessing Database 289FilesFiles 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 fileSequential-by-Key Processing, Example Chapter 16. Accessing Database 295FilesMethods for Processing Disk Files 296 ILE RPG for AS/400 Programmers Guide Sequential-by-Key Using READMethods for Processing Disk Files ENUM for Processing Disk Files298 ILE RPG for AS/400 Programmers Guide Methods for Processing Disk FilesMethods for Processing Disk Files Random-by-Key ProcessingExample of Random-by-Key Processing Methods for Processing Disk Files Sequential-within-Limits ProcessingDisk Files Examples of Sequential-within-Limits ProcessingDDS for record address file LIMITS physical file 2 Sequential-within-Limits ProcessingMethods for Processing Disk Files Methods for Processing Disk Files Relative-Record-Number ProcessingValid File Operations Valid File Operationsan A,P,G,D,T,Z Chapter 16. Accessing Database 305FilesValid File Operations A record-address Valid File OperationsUsing Commitment Control Using Commitment ControlAbridged for Commitment Control LocksUsing Commitment Control see theBackup and Recovery manualFiles Using theSpecifying 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 DevicesPrinting a Field on Every Page Using the Fetch-OverflowAccessing Printer Devices Figure 159. Overflow Printing Setting of the Overflow Indicator Accessing Printer DevicesUse of Fetch Overflow Fetch OverflowExample of Specifying Fetch Overflow Accessing Printer DevicesInformation in Changing Forms ControlFile Layout of OPM PRTCTL Data Structure Accessing Printer DevicesForms Accessing Tape Devices Accessing Tape DevicesFile Accessing Display DevicesUsing Sequential Files Using Sequential FilesFile Using SPECIAL FilesUsing SPECIAL Files Description Using SPECIAL FilesError StatusSpecifications Example of Using a Special FileSPECIAL Files UsingPLISTSPCL Using SPECIAL FilesUser-written program USERIO Function Chapter 18. Using WORKSTN FilesUsing Externally Described WORKSTN Files Using Externally Described WORKSTN Files¹ Output Using Externally Described WORKSTN FilesR RESPONSE Using Externally Described WORKSTN FilesChapter 18. Using WORKSTN Files333 Using Externally Described WORKSTN Files Specifying Function Key Indicators on Display Device FilesDevice Chapter 18. Using WORKSTN Files335 Using SubfilesProcessing an Externally Described WORKSTN File Using Externally Described WORKSTN FilesSubfile 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 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 addition348 ILE RPG for AS/400 Programmers Guide Main Menu InquirySource for module CUSMAIN Logical File MaintenanceFile Maintenance CUSMSTL1 DDS for aDevice DisplayFile Maintenance FileChapter 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 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 screenChapter 19. Example of an Interactive 357Application File MaintenanceYORKTOWN File Search bySearch by Zip Code Device SZIPMENU DDSDisplay FilePROMPT Search by Zip Code14DSPATRHI Chapter 19. Example of an Interactive 361Application SCHZIP RPG SourceSearch by Zip Code 362 ILE RPG for AS/400 Programmers Guide Search by Zip Codeis written to the screen as shown in Figure 186 on page The 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 NameSUBROUTINE ¹ ToSearch and Inquiry by Name information by The userrequests more370 ILE RPG for AS/400 Programmers Guide Search and Inquiry by Name192. Customer Search and Inquiry by Name detailed information screen  Copyright IBM Corp. 1994 Appendixes372 ILE RPG for AS/400 Programmers Guide Appendix RPG/400and ILE AS/400Debugging and Exception RunningDifferences Between OPM RPG/400 and ILE RPG RPG/400 Differences Between OPM RPG/400 ILE RPGDBCS DBCS Data in Character FieldsILE RPG Differences Between OPM RPG/400 ILE RPG378 ILE RPG for AS/400 Programmers Guide Conversion Overview Appendix B. UsingConversion Overview ConversionConversion Overview File ConsiderationsFile Record Length 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 Source DefaultsConverting a Member Using 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, enterARR1 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 Resolving Conversion Problems Resolving Conversion ProblemsCompilation Errors in Existing RPG III Code Unsupported RPG III FeaturesRPG III Source for COPYDS1 ConversionRPG III Source for TEST2 Resolving Conversion Problems Context-Sensitive ProblemsResolving Conversion Problems Use of ExternallyStructures 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/32OPTION Details Description of the CRTBNDRPG CommandCRTBNDRPG Command SRCMBR CRTBNDRPG CommandLIBL CURLIB410 ILE RPG for AS/400 Programmers Guide CRTBNDRPG CommandDEBUGIO StatementNumber = sourceID * 1000000 + sourceSEUsequencenumberSTMT CommandEVENTF DBGVIEWEXPDDS, and CRTBNDRPG Commandcharacter-value LANGIDSHR CRTBNDRPG Commandsort-table-name LANGIDUNQREPLACE CRTBNDRPG CommandLIBCRTAUT CRTBNDRPG Command416 ILE RPG for AS/400 Programmers Guide V2R3M5 target-releaseUSRCTL Commandbinding-directory-name ENTRYEXIT CRTBNDRPG CommandCRTRPGMOD Command CRTRPGMOD CommandAppendix C. The Create Commands421 CRTRPGMOD 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 memberSample Section of the Listing with OPTION*NOSRCSTMT SectionCompiler Listings Appendix D. Compiler Listings427 Listings428 ILE RPG for AS/400 Programmers Guide Compiler ListingsFigure 217 Part 1 of 3. Sample Source Part of the Listing Appendix D. Compiler Listings429 Compiler ListingsFigure 217 Part 2 of 3. Sample Source Part of the Listing 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 ListingsFigure 224. Sample Cross-Reference Table with OPTION*NOSRCSTMT External References ListCompiler Listings Figure 225. Sample External References Message SummaryFinal Summary Compiler ListingsFigure 227. Sample Final Summary Code Generation and Binding ErrorsCompiler Listings 438 ILE RPG for AS/400 Programmers Guide Compiler ListingsDevelopment BibliographyADTS/400 ProgrammingFORTRAN/400 GDDMAS/400 Bibliography442 ILE RPG for AS/400 Programmers Guide See Add Specialcontinued Page CALL CL commands control-record format, subfile DBCS continued debugging continued NLSS NOOPT 364accesssummary Page Page alsoDISK See long alsoPARM creationcontinued methodscontinuedcallcontinued alsoILE debuggingcontinued programcontinuedWORKSTN Page WORKSTN file definition 331 examples 345 externally described 99H3778 SC09-2507-02 ÉÂÔÙPart Number 99H3778 Program Number 5769-RG1 Printed in U.S.A