Contained Physical file CUSMSTP, which is Identified

Using Externally Described Disk Files

*..

1 ...

+...

2 ...

+...

3 ...

+...

4 ...

+...

5 ...

+...

6 ...

+...

7 ..

T.Name++++++.Len++TDpB

......

Functions++++++++++++++++++++*

A** LOGICAL

CUSMSTL

CUSTOMER MASTER FILE

UNIQUE

R CUSREC

PFILE(CUSMSTP)

TEXT('Customer Master Record')

ACUST

ANAME

AADDR

ACITY

ASTATE

AZIP

ASRHCOD

ACUSTYP

AARBAL

AORDBAL

ALSTAMT

ALSTDAT

ACRDLMT

ASLSYR

ASLSLYR

AK CUST

Figure 139.	Example of the Data Description Specifications for a Database File
The sample	DDS are for the customer master logical file CUSMSTL. The f

tains one record format CUSREC (customer master record). The data fo

contained

the physical file CUSMSTP, which is

identified

the

The

UNIQUE

keyword is used to indicate

that

duplicate

key

values

for

this file. The CUST field is identified

a K in

position

key

field for this record format.

The

fields

in this record format are listed in the order they are

record.

The

attributes for

the

fields

are obtained from the physi

The

physical

file, in turn,

refers to

field-reference file to ob

the

fields.

The field-reference

file

shown

Figure 140

on page

Chapter 16. Accessing Database 283Files

Page 307

Image 307

IBM AS/400 manual Contained Physical file CUSMSTP, which is Identified, Unique

AS/400 specifications

The IBM AS/400, now known as the IBM iSeries, is a midrange computer system that has been a cornerstone of enterprise computing since its introduction in 1988. Designed to provide a robust platform for business applications, the AS/400 is celebrated for its reliability, scalability, and integrated database capabilities.

One of the key features of the AS/400 is its Integrated Operating Environment, which blends hardware and software resources seamlessly. This integration allows businesses to execute diverse workloads, ranging from traditional applications to modern web-based services, all on a single platform. The operating system, OS/400 (now IBM i), offers a rich set of APIs and tools for developers, simplifying application development and management.

Another standout characteristic of the AS/400 is its built-in database, DB2 for i. This powerful relational database management system allows for efficient data handling and provides advanced features such as support for SQL, XML, and JSON, making it easier for businesses to manage their data and integrate it with other systems. The database's tight integration with the operating system enables high performance and security.

In terms of scalability, the AS/400 can accommodate small businesses as well as large enterprises, with the ability to support hundreds of users simultaneously. Its architecture allows for easy upgrades in hardware, meaning that organizations can scale their systems without replacing the entire infrastructure.

Security is another critical attribute of the AS/400. With a sophisticated security model, it offers built-in user authentication, access control, encryption, and auditing capabilities to protect data and applications from unauthorized access.

The AS/400 also supports multiple programming languages, including RPG, COBOL, Java, and PHP, giving organizations the flexibility to choose the development tools that best fit their needs. This diversity helps maintain legacy applications while also developing new ones that leverage modern technologies.

Moreover, the platform supports both traditional green-screen interfaces and modern graphical user interfaces, allowing organizations to transition smoothly into contemporary user experience paradigms.

Overall, the IBM AS/400 stands out as a resilient, flexible, and secure computing platform that enables organizations to effectively manage their business operations, streamline processes, and adapt to changing market demands. Its unique combination of integrated features and capabilities ensures that it remains relevant in today's fast-paced technology landscape.

Contents

ÉÂÔ Page ÉÂÔ Third Edition May 1999 Contents With SQL Chapter Service Program Exception Vi ILE Vii Working with Files and Devices Files RPG ILE Appendixes Index Copy Law DoesApply Any Trademarks Or se Marks Others Trademarks and ServiceProgramming Interface Information MarksPage Xiv ILE RPG for AS/400 Programmers Guide III About This GuideGuide Who Should Use This Prerequisite and Related Information How to Send Your Comments Risc What New ThisRelease? UCS-2 INZ*USER INZ*EXTDFT Element CCSID*GRAPH For AS/400 To this GuideChanges Since Xxii ILE RPG for AS/400 Programmers Guide Program creation strategies ILE RPG Introduction ILE RPG for AS/400 Programmers Guide RPG IV Overview RPG IV SpecificationsControl Specifications Input Specifications Cycle Programming The.When You Let Compiler Provide Logic For Your Last Subprocedure logicIndicators First Example of an ILE RPG Program Operation CodesProgram Example of an ILE RPG Program File Description SpecificationsSecond file Eval Output SpecificationsBonus Chain Not SubprocedureHeading Lines That Contain Constant String Payroll ILE RPG Return Entire Source ProgramFqsysprt Printer Not *IN99 Eval RateBonus PAY 10U 0 Value System Library Commonly Used Control Language CommandsInteracting with the System OS/400 System Application Development Manager System Offers Full Set Tools That You May find usef AS/400 Tools ServicesILE R Overview of the RPG IV Programming15 Language AS/400 Tools ILE RPG, ILE C, ILE Cobo RPG Programming in ILEProgram Creation RPG Programming in ILE Language You can Create CRTSRVPGM, and Crtpgm commands. They can also Specified ILE Procedure Followed Zero Or more subproceduresProgram Management Program Call Bindable APIs Source DebuggingWhile the progra Does Not Directly Accesses Are Also ThreadsafeMultithreaded Applications AS/400 now supports multithreading. ILE RPG Programming in ILE OPM-Compatible Application Program Creation StrategiesStrategy 1 OPM-Compatible Application Method Effect of ILE Example of OPM-Compatible Program Related Information ILE Program Using CrtbndrpgStrategy 2 ILE Program Although Actual Storage Not Deleted As it ILE Program Using Crtbndrpg Example of ILE ProgramShows Run-time view Application in which an ILE CL pr Calls XYZ Using ILE Application Using CrtrpgmodStrategy 3 ILE Application Single-Language ILE Application Scenario Mixed-Language ILE Application Scenario Single-Language Application Using Crtrpgmod and Crtpgm Advanced Application Scenario Strategy to Avoid Strategy to Avoid Activation Group Overview Creating an Application Using Multiple ProceduresMultiple Procedures Module Procedures Module Prototyped CallsWhat a module might Like with Multiple Dures Numparm 30P 0 Value Using prototyped calls you can call with the same syntaxFmtCust Name 100A Address NumToChar Multiple Example of Module withOrder to format Name Address Properly Made Expression Shows Call Else Example of Module with Multiple ProceduresDDS ISO Move Procedures STATE, ZIP ThatZIP Keyword on the control specificati ModuleMeaning that it consists only of subprocedur Module, by Coding Fcustfile Disk Fcustrpt Printer Entire Arrsrpt Program Endsr Copy QRPGLE,CVTPROCPIcustrec Callp Return Else Endif Following AboutArrsrpt ISO Move Duedate DDS Coding Considerations When Coding Module with multiple procedures You Will WantCoding Considerations General Considerations Cannot Contain Bound Procedure Calls Main Procedure ConsiderationsSubprocedure Considerations Contain a program entry procedure and only a For Main ProceduresSubprocedures For Further Information For Further Information Prototyped Call Running an Application ILE RPG for AS/400 Programmers Guide Creating a Library StatementsFile Source Using SEU Using the Source Entry UtilityEntry Utility Ippr IPCIpcx IPP Saved Press F3 Exit To the Exit display. Type Y Yes to save DB2 UDB Using SQL StatementsUsing SQL Statements Statements Calculation specification Start Your Statement Syntax Checking Reference for moreRefer toADTS thefor AS/400 Source Entry Utilitymanual for Information about How SEU handles Using the Crtbndrpg Command CommandWith Shows Their Default Values You can use the Crtbndrpg Command interactively Batch From Creates View similar Compiler listing Debugged Using a Source View Program TypeCreating a Program for Source Debugging List Display Module Source BindingCreating a Program with Static This example you create Program ¹ Wrkoutq queue-name CommandBnddir ¹ Wrkjob Empname Emprate Disk Fqsysprt PrinterChain Emprec Not *IN99 Payroll Register Date Obtaining a Compiler Using a Compiler ListingUsing a Compiler Listing Listing Xref Customizing a Compiler ListingCustomizing a Page Heading Compiler Listing PAGE/LINE Last UpdateCustomizing the Spacing Indenting Structured Operations This Will Add Sec Level text to the messages listed Message ErrorsListing Either Create SEU Using In-Line Diagnostic MessagesFLD2 FLD1 Source Entry Utility Correcting Run-time ErrorsUsing Additional-Diagnostic Messages Browsing a Compiler Listing Using SEU Specified, and in the column labeled as Sta Ment Using a Compiler Listing for MaintenanceExpdds these are the defaults Coordinating Listing Options with Debug View Options Data Area Accessing the Returncode Data Area Accessing the Returncode Data Area Chapter CommandsCreating Module Object Using the Crtrpgmod CommandYou Create a Module using the Create Crtrpgmod MODULEMYLIB/TRANSSVC SRCFILEMYLIB/QRPGLESRC Creating a Nomain ModuleRequested Creates a compiler listing which Related Files N/A Related Source Transrpt ¹ DspjobThen Select option Display4 spooled Files Endsl Return OtherEndsl Prototype for ProdName Creating a Module forPrototype for TransInc Prod Itrnsrec Ftrnsdta Disk Fqsysprt PrinterQTY Modules Related CL CommandsRPG, mainthe procedureis Additional Examples Binding Modules into a Program Binding Modules into a ProgramBinder Crtclmod UsingCommand Into a Group Trpt ExportConcepts for Modules Using a Binder Listing Using a Binder Listing Changing a Module or Changing a Module or Program Level Using the Updpgm Command Size Removing ObservabilityReducing an Objects Changing a Changing a Module or Program Dspsrvpgm Payroll DETAIL*PROCEXP *DATAEXP Creating a Service ProgramService Program Overview Service Program Overview Using Crtsrvpgm Strategies for Creating Service ProgramsCreating a Service Program Using Crtsrvpgm Creating a Service Program Service Program Using Crtsrvpgm Changing a Service Program Sample Service Program Sample Service ProgramAPI Ceedod OpdescConst OPTIONS*VARSIZE OPTIONS*VARSIZE DIV MVR ExsrEnddo Begsr Eval Input String Charactern Output Hex string Character2 * n Creating the Service ProgramParameters Crtsrvpgm command Strpgmexp Signaturecvthex Export Symbolcvttohex Endpgmexp Call Cvthexpgm Binding to a ProgramCreate the program by typing Crtrpgmod MODULEMYLIB/CVTHEXPGM SRCFILEMYLIB/QRPGLESRC Clear Copy RPGGUIDE/QRPGLE,CVTHEXPRClear Callp Except Sample Binder Listing Updating the Service Basic Binder listing for Cvthexpgm Sample Service Program 103 Running a Program Using the CL Call CommandRunning a Program Using Running a Program Passing Parameters using 106 shows DDS That is Referenced by the EMPRPT2 Source Selecting Option Design menus ApplicationRunning a Program From a Menu-Driven Application Running a Program From a Rpginq You Run Menu by EnteringRPGCHG, or Rpgadd respectively Replying to Run-Time Inquiry CommandRunning a Program Using User-Created Replying to Run-Time Inquiry Messages Wheresequence-no Ending an ILE ProgramGroups Managing Activation OFF Managing Activation GroupsSpecifying an Activation Group Activation DefaultCompatibility Running in the OPM Activation Groups Such Reclaim Resources CommandDeleting an Activation Group Referenceto Abridged Managing the Default Heap Using RPG Operations INZ*NULL Managing Dynamically-Allocated StorageDsply Alloc AddName 40AElem@ = next@ Namelen = %len%trimrname = *NULL Null DOW Dealloc Heap Storage Problems Call Somepgm RPG procedure ThisManaging Your Own Heap Bindable APIs Dynarray SeeAPI theReference Ceegtst Copy DynarriCeecrhp Subsalloc Initalloc Enddo Dynainit ResetDynainit ADD Initalloc Realloc Begsr Dynaset ExportIfgt Exsr Realloc Endif Eval Ifle Else ADD SubsallocEnddo Endsr Dynaset Dynaget Export Crtsrvpgm Get Heap Storage 127 Calling Programs and ProceduresProgram/Procedure Call Overview Program/Procedure Call Overview Calling Programs Calling ProceduresStatic Call stack Call StackStack Recursive calls are only allowed For Recursive CallsThat Most r Stack Entry is Bottom Recent Caller Parameter-Passing Considerations Program/Procedure Call Overview Callp Using the Callp Operation¹ Subprocedures in the same module RPG Prototyped calls Are also Known 30P Using a Prototyped CallCalling within an Expression 31A Passing by Reference Examples of Free-Form CallPassing Prototyped Parameters Parameter Passing Styles Figures below Passing by Value Docalc PassingExtprocdocalc Docalc Export ILE CEE API Using Operational DescriptorsCeetsta Extprocceetsta Omit When Calling Procedure You may sometimes want Leave Out ParOmitting Parameters OPTIONS*OMIT API Qcmdexc Passing *OMITLeaving Out Parameters OPTIONS*OMIT*NOPASS Psds Passing Prototyped Parameters Checking for the Number Trimrprovince Return Copy FmtaddrpOPTIONS*NOPASS Const Eval Address = %TRIMRCSTREET# + + Check Begsr MovelEndif Endsr 5P 0 DIM2 Ctdata 144OPTIONS*NOPASS Ctdata To create the program, PRTADDR, type To create PRTADDR, using the source in on page 144, typPassing Less Data Than Required Parameters Interlanguage Calls Order of EvaluationEffect DCL &RET2 TYPE*CHAR LEN2 DCL &RET1 TYPE*CHAR LEN1 InterlanguageCalling Considerations To obtain Actual Returned value Fixed-Form Call Operations For Callb only Using the Fixed-Form Call OperationsOperation Operation extender is Used With Operation Passing Parameters Using ParmExamples of Call and Callb Operations Fixed-Form Call Operations Using the Plist OperationPlist Returning from a Called Returning from a Main ProcedureProcedure Normal End Abnormal End Returning from a Called Program or ProcedureEntry Parm operation is perfor Retu Returning from a SubprocedureWithout For the AS/400 Reference APIs Using Bindable APIsReturning using ILE Bindable Subprocedure ends abnormally Ceeutx Examples of Using Bindable APIsCalling a Graphics Routine Calling a Graphics Routine TheGDDM Programming Guide Calling Special RoutinesMultithreading Considerations Multithreading Considerations Across How toShare Data To Avoid Deadlock Example, consider the situation where two procedures CalledWill Wait For MOD1 Unlock. Procedures Not How MOD1 ConsiderationsPROC1 MOD2 161 Debugging and Exception Handling ILE RPG for AS/400 Programmers Guide 163 Debugging ProgramsILE Source Debugger ILE Source Debugger Eval Debug CommandsAttr Equate Find TbreakThread Watch Source Order Debug it usingPreparing a Program for Debugging Preparing a Program for Crtrpgmod MODULEMYLIB/DBGEX SRCFILEMYLIB/QRPGLESRC Creating a Root Source ViewOptions On the Dbgview parameter for Either Crtbndrpg PGMMYLIB/DEBUGEX SRCFILEMYLIB/QRPGLESRC Module Listing ViewView Dbgview Program for Debugging View Starting the ILE Source Debugger Starting the ILE SourceOPMSRC*NO Into Setting Debug OptionsStrdbg Example Start a Debug Session for the sample debug program Debugex OPM source debug support field, SET Debug Session Example of Adding a ServiceExample of Removing ILE Programs from a Debug Session Adding/Removing Programs from a Debug Session Lstdbg ILE Viewing the Program SourceViewing the Program Source Cobol Dbgex Viewing a DifferentLibl PGM Cproc Changing the View of aModule Several Different views OPTION*NODEBUGIO Setting and Removing BreakpointsSetting and Removing Breakpoints Specified You Not Erate Breakpoints Specify Breakpoints Setting and RemovingWith the source positioned at the line where the breakpoint Debug Command to set a job breakpoint Job Setting anBreakpoint Greater Than Equal To one Setting and Removing Unconditional Thread BreakpointsDebug Command Sets a Thread breakpo Single Current Debug Breakpoints Job Work with Module Breakpoints Example of Setting a Conditional Job Breakpoint Using F13Line Conditional Breakpoint National Language Sort Sequence Nlss CommandSetting a Conditional Job Breakpoint Using Break 128 when BigDate=1994-09-30 Sort Sequence Control Spec Tion Is not available Varia On the debug command lineOne procedure per module,procedurethe -namecan Either Main procedure or one of the subprocedures Listing, type This Example Statement View Is used to Set Breakpoint ForSet a breakpoint for Module With Set Breakpoint For Module with Main Procedure Exit Setting and Removing Conditional Thread BreakpointsUsing the Work with Module Breakpoints Display Procedurevariables-name and statement-number Conditions Debug CommandsSetting and Removing Watch Conditions Removing All Job You Debug One Job From Another Characteristics of WatchesDisplay Program statemen Salary Setting Watch ConditionsOn the debug command line, without any parameters Watch Payroll ABC PGM ¹ To specify a variable or expression to be watched, typePayroll IPL Displaying Active WatchesRemoving Watch Conditions Enddbg Display as shown below. Instead Example of Setting a Watch ConditionExample of Setting a Watch Condition BlankDisplay Module Source Stepping Through the Program Object ObjectStepping Through Stepping Over Call Statements Over Into SubproceduresSubroutines You Can Step Into Stepping Into Call StatementsTIP Debugex F22This example, you use F22 Step Into to step Into the OPM From Program InputParm This example, you use F22 Step Into to Subpr Which ModuleStep completed at line Displaying Data and Expressions SwitchElse Const On page 201 shows Use Date, Time, Timestamp Fields Unexpected Results when Evaluating VariablesScalar Fields RPG Definition Based Fields Displaying the Contents of a Table Displaying the Contents of an Array Eval DS12 Displaying Data Structures Which is discussed Below Displaying Indicators Character Format Displaying Fields as Hexadecimal Values Displaying Null-Capable Fields DataDisplaying Variable-Length Fields By Pointers String = 1ABCD6 STRING=%SUBSTRBIGDATE 1 4 = Fields = Abcdef Changing the Value of Fields Equating a Name with Or CommandEquating a Name with a Field, Expression, or Command Displaying Attributes of a Field Sample Source for Debug Examples ForExamples First Module Program using Source 215, typeSample Source for Debug Examples To create the program DEBUGEX, type DS2 DIM3 CtdataDS1 Inzabcde Plist Parm Occur DS2 MoveCall Rpgpgm Dsply Seton Dump SetonElse Eval Entry Plist Parm Source for C Procedure cproc. cproc is called by Dbgex 217 Handling ExceptionsException Handling Overview Exception Handling Overview Call st Indicates That Severe error has been detectedProgram Procedure P1 is Contro Boundary Describes Status Work Being done by a program Active on Exception Message ILE RPG Exception Handling Dure will Only Handle Errors That SubprocedureException Handling within Operation For PGM C OPM Nested Exceptions Using Exception HandlersUsing Exception Handlers Exception Handler Priority PRC1 For other Types MessagesEscape Message PGM2 PGM2, each Containing a procedur Example of Unhandled Function CheckOperation as well PGM1 Built-in-functions Using RPG-Specific HandlersOptimization Considerations For More Information Optimization See Changing Level ILE RPG For AS/400 Reference provides This Section Provides Some Examples How to Use Each These RInfsr error Subroutines, on Exsr Operation Code Infds Extender Explicitly c Using an Error SubroutineProgram Error Operation. If Either Using a File Error Infsr Subroutine Status INFSRPrdInfsr INFDSPrdInfdsDisk Ftrnbacklg O Fprint Printer PrdInfds PrdStatus Infds Operation With Factor Entry Using a Program Error SubroutinePosition Definition Specification Enter After Keyword Move Getin ParmsProc Body of Code Goes Here Pssr Begsr Try again Err = If this is a divide-by-zero error, add 1 to the divisorIf control reaches ENDSR, the procedure will fail TAG DIV Subrou Exceptions Order Show how to avoid looping WithinPssr Which is designed to ge Move Inlr After the ElseElse ADD OFL Specifying a Return Point Handlers Using a Condition HandlerILE Condition Handlers ILE Condition Handlers Action 10I OutCondTok LIKECondTok 132Printer Rpghdlr LIKECondTok Communication Area Which Contains Pointer Shows Source For ProcedureIs registered Procedure Parameters Include Pointer Condition Handler Ceehdlu ARR1 Proc ProcptrNoopt SDS Noopt Begsr Callp Subst Ceeutx ILE Cancel Handlers244 Ceertx Return Endsr Procedure to SubProc will not failPssr has a Return operation, so the call from the main Subproc Pssrdsply Select When INZ0 StaticCallb Ceertx Parm Parm Omit Likely Occur With RPG usingCondition Handlers Enabled Using Cancel Hdlr Dsply Msg CanHdlr Endif Return Condition Handler that Ignores CPF4906 MsgSev = Warning Handle information or warning messages, otherwise percolate ILE RPG for AS/400 Programmers Guide Obtaining an ILE RPG Formatted Dump Using the Dump Operation CodeUsing the Dump Operation Code Obtaining a Dump ¹ If a Dump operation is bypassed By a Goto operation, Formatted DumpDoes not Occur Dump Qspl Example of a Formatted Dump Dump Agement Part 1 of 2. Data section of Formatted Dump 125 Part Data section of Formatted Dump Order Which they are defined Gaps Beginning of user variables, listed in alphabetical order, 259 Working with Files and Devices ILE RPG for AS/400 Programmers Guide 261 Defining FilesAssociating Files with Input/Output Devices Associating Files with Input/Output Devices Write Compilation Time CertainOperation Device Dependent Device dependency Is that Operation Code is Valid Only Types of File Descriptions Naming FilesTypes of File Descriptions Example of Some Typical Relationships between Using Files withProgram-Described Files Defining Externally Described Defining Externally Described FilesOPTION*EXPDDS Nbrofcharreplaced. Figure Renaming Record-Format NamesIgnoring Record Formats Renaming Field Names External Using Input SpecificationsModify an Description Used Program This Example Field You Then Fixed Name Specification Will Get ErrorIndicator Record Files Using Output Specifications ALL Level CheckingFor Character Fields zero Is written SEQ Special Defining Program-Described FilesData Management Operations and ILE RPG I/O Operations RPG I/O Operations Delete Data Management Operations and ILE RPG I/O Operations 273 File ConsiderationsOverriding and Redirecting File Input and Output Overriding and Redirecting File Input and Output FMT1 Input OutputInput Output Example of Redirecting Program Can Chang Allocate Object File LockingFile Locking Data Management manual Record Locking Record Locking Control For More Information See UsingPath Sharing an Open Data Can Specify SpoolingSpooling Program Details System Open Options Allowed for Each Program Versus Output Spooling SRTSEQ/ALTSEQ Data Files and Source AccessingDatabase Files Physical Files and Logical Files Using Externally Described Disk Files Using Externally Described Disk FilesRecord Format Specifications Access Path Unique Contained Physical file CUSMSTP, which is IdentifiedUnique Addr Reffldname Dstref Distribution Application Field ReferenceBasdat Edtcdey Cust Checkmf Edtcdej Valid Keys for a Record FileDisk City Partial Key ArgumentsReferring to Used, Record Blocking and Unblocking Valid Using Program-Described Disk FilesUsing Program-Described Disk Files Indexed File Logical file ORDDTLL. For the two fields Keyword specifies position 15 as the starting po Move Order KEY Chain Sequential FileRecord Address File 10AIDISK Methods for Processing Disk Files Methods for Processing Disk FilesLimits Records Relative Record Numbers Subsequent Text Describes Each Method Processing Consecutive ProcessingADD Database Programming manual Sequential-by-Key ProcessingExamples of Sequential-by-Key Processing Database Programming Weekly hours worked Example, the employee master record Iemprec Ircweek YTDRPT1 Related Files EMPL1Fprint FEMPL1 Disk Eofend TAG Seton YTDRPT2 Related Files EMPL1Setoff Read EMPL1 Goto Eofend Move Enum Empno Seton Endif Records Are Processed as Matching records With For Processing Disk Files ADD Ovthrs Totovt Seton Endif Oprint ADD Tothrs Totovt SetoffADD Ehwrk Tothrs SUB Enhrs Ovthrs Nnhrs Random-by-Key ProcessingExample of Random-by-Key Processing Emstupd Descriptions Change Sequential-within-Limits ProcessingFchange Disk Files Examples of Sequential-within-Limits Processing 3PIDISK KEYLOC1 Fprint ESWLIM1 Related Files EmpmstLimits Flimits Disk ESWLIM2 Related Files Empmst Relative-Record-Number ProcessingFempmst Disk Fprint Valid File Operations Valid File Operations Z/F Recno Using Commitment Control Using Commitment ControlStarting and Ending Commitment Commitment Control Locks See theBackup and Recovery manualAbridged for Concepts, UsingFiles For Specifying Receiver Example of Using Commitment ControlJournal Disk Commit Ftrans This command calls the program ReviseUpdate Mastrec Tranrec Control DDM Files CycleDDM Files ReferDistributedto the Data Pre-V3R1 DDM DDM Files 315 AccessingTypes of Device Files Chapter Attached Handling Page Overflow Accessing Printer DevicesAccessing Printer Devices Specifying Printer Files Overflow On an and notline,anoverflowthe linelineis Account Example of Printing Headings on EveryExample of Printing a Field on Every OANL2 Routine in Program-Described Files Using the Fetch-OverflowOverf Overflow Printing Setting of the Overflow Indicator Example of Specifying Fetch Overflow Fetch Overflow File Changing Forms ControlOPM Prtctl data structure Dat Values Contained First four subfieldsForms File Name Associated Data Structure is Accessing Tape DevicesAccessing Tape Devices Print Ovrdbf Accessing Display DevicesUsing Sequential Files Using Sequential Files Program name Using Special FilesUsing Special Files File Status ErrorDescription Spcl Plist Parm FLD1 Movel Hello Write Excptn Outbuf Seton Example of Using a Special FileSpecial Pgmnameuserio FLD Program User-written routine Are Added To the end of the RPG-created Parameter listUserio Using Externally Described Workstn Files Using Workstn FilesFunction On page 333 shows an example of the DDS for a display-devic ¹ Output Descrp RefdstrefPrompt Overlay Specifying Command Keys Display Specifying Function Key Indicators on Display Device FilesDevice Processing an Externally Described Workstn File Using Subfiles Sfile Field SFL TEXTSubfile Record Use of SubfilesYou press Specified Function key During Read Name Search Using Program-Described Workstn Files Using Program-Described Workstn FilesSubfil With Using a Program-Described Format Input SpecificationsCalculation Specifications Name Combined File Valid Workstn File OperationsInput File Output File Multiple-Device Files Exfmt OperationRead Operation Write Operation Devid Is updatedKeyword. This field Initialized Multiple-Device Files 345 Example of an Interactive ApplicationDatabase Physical File Database Physical File Main Menu Inquiry InquiryDDS for a Display Device Cusmain RPG Source First option specifies that the first module in the list Using Crtrpgmod Create Program By enteringMain menu will appear as in on Logical File MaintenanceFile Maintenance CUSMSTL1 DDS for a Device Display 70DATE Edtcdey ModeEdtcdez Cusmnt RPG Source Record Format contains Constant Customer File Maintenance Addsub Begsr Cstkey Chain CMLREC1 Not *IN50 Move Subroutine Addsub PurposeElse Move OFF Move Display Mode Endsl MODE1 Endsr Move ADD Mode WhenMove Update Mode When Move Delete Mode When 223021 Display ModeCustomer File Maintenance Cstinq 223143 On page 357 a new customer is added to the Customer Mast223106 30/94 Customer 00007 Delete Mode ADD ModeBathurst Avenue Code ZipSearch by Search by Zip Code REFCUSMSTL2 Printqsysprt Indara SzipmenuRelated Files CUSMSTL2 File SZIPMENU. IT has Indicates when to display Subfile When Indicator 55 is Schzip RPG Source Move OFF Write Subctl Move OFFADD Zero Recnum Endsr Subfile Is written to the screen as shown in on File indicator 71 on thZip Routine Fills Subfile Record Read From Identifies Name field Key Fields Search and Inquiry by NameSearch and Inquiry by Name For Database File Used This Program Defines one reco Subfile Device FileSnammenu DDS for a Display FOOT2 File by the Setll OPERATION. then IT Displays Records Using SubfilesSchnam RPG Source This Program Prompts the User for the Customer Example of an Interactive 367Application Inc File Indicator On the Read operationFile Record Count Recnum Judah Gould Yorktown Inquiry by Name233948 30/94 Customer 00012 Name Gould 371 Appendixes ILE RPG for AS/400 Programmers Guide Differences RPG/400 ILEFor AS/400 Appendix Debugging and Exception Running RPG III Will Issue Will issue the RNQ1222 inquiry MessageRPG/400 Will Issue Will issue the RNQ1022 inquiry Message Dbcs Data in Character Fields Compiler Such Programs Will Get Compilation errors Differences Between OPM RPG/400 Hurry Appendix B. UsingConversion Overview 379 File Record Length File Considerations Conversion Aid Tool Requirements Log FileUSE Aid Wont DoConverting Your Source Converting Your Source Cvtrpgsrc Command Frommbr FromfileLibl Curlib Tombr TofileQrpglesrc None Seclvl YES Insrtpl ExpcpyYES Cvtrpt Converting a Member Using DefaultsSource Cvtrpgsrc FROMFILEOLDRPG/QRPGSRC Frommbrpayroll TOFILE*NONE Converting All Members in a FilePerforming a Trial Conversion Converting Some Members CVTRPT*NO Obtaining Conversion ReportsConverting Auto Report Source Members Example of Source Conversion Inserting Specification TemplatesData Example of Source Conversion To convert this source, enter Example Source ConversionConverted source is shown in on ARR2 DS1 III specifications for ARR2. The Conversion AidAnalyzing Your Conversion Analyzing Your Conversion Conversion Aid generates a conversion report if you specify Using the ConversionShows Command summary for a sample Conversion Report Call PROG1 Your Using the Log File Lgtime Colhdgcvt Time Qrncvtfm Lgcent Colhdgcvt CentLgdate Colhdgcvt Date Ymmdd Use of the /COPY Resolving Conversion ProblemsCompilation Errors in Existing RPG III Code Unsupported RPG III Features TEST1 Comp Context-Sensitive ProblemsRecords Using Members in the converted RPG IV source member Char Command Or manually Correct Code After ConversionUse of Externally Structures Extrec When convertedMerging an Array with an Externally Described DS Subfield Initializing Dsone Extnameextrec Char Run-time DifferencesBehavior With XYZ Resolving Conversion Problems Reading Syntax Diagrams Appendix C. The Create CommandsUsing CL Commands How to Interpret Syntax Diagrams KEYWORDREQUIRED-VALUE Crtbndrpg CommandCrtbndrpg Command Values Appendix C. The Create Commands407 Srcfile Description of the Crtbndrpg CommandPGM Program-name Srcmbrtxt SrcmbrGenlvl Text Nogen OptionNoxref GEN Elseif Noext List EventfDbgview Stmt Optimize ALLOutput Print Varchar CvtoptDatetime Graphic User LangidReplace Usrprf Exclude IssuedChange USE PRV FixnbrZoned Tgtrls Binding-directory-name AlwnullInputonly Bnddir NEW UsrliblActgrp Qile Nocol Crtrpgmod CommandCrtrpgmod Command Prfdta Appendix C. The Create Commands421 PF1 Description of the Crtrpgmod commandUsrprf PF4 Compiler Listings Appendix D. Compiler Listings423 Crtb Which was Compiled UsingCompiler Listing Reading a Indentation Mark Module or ProgramSource member Compiler options Endif SectionEject Sequence Numbers Root Listings Part 1 of 3. Sample Source Part of the Listing Part 2 of 3. Sample Source Part of the Listing Do Number 1a/ *NOSRCSTMT Source HeadingLine Number Ruler Line Additional Diagnostic Copy Member Table Output Buffer Positions Alternate Sequence Compile-Time DataTotal Number of Characters Altered Character to be Altered Cross-Reference Table Key Field Information Duedate External References List Final Summary Message Summary N a L M M a R Y Code Generation and Binding Errors Compiler Listings 439 Bibliography Iddu ILE RPG ILE RPG for AS/400 Programmers Guide 443 SpecialCharacters See Ceeutx See AlsoILE Control-record format, subfile Create Program Dbcs Describing Dsppgmref Binder Listing 100 Exception Service Find See halt See file See last See long Plist Methods Qual OA-OG, OV SEU See DB2 Totc ILE RPG for AS/400 Programmers Guide Éâôù