Output Specifications, Bonus, Chain, Eval, Endif

Example of an ILE RPG Program

¹The TRANSACT file is defined as the Input Primary file. The ILE RPG

cycle controls the reading of records from this file.

¹The EMPLOYEE file is defined as the Input Full-Procedure file. The re

records from this file is controlled by operations in the calculatio

¹The QSYSPRT file is defined as the Output Printer file.

Definition

Specifications

*..

...+...

2 ...

+...

3 ...

... 4

...

+...

...+...

6 ...

+...

7 ...

+...

D+Name++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++

D Pay

D Heading1

'NUMBER

NAME

RATE

H-

OURS

BONUS

PAY

D Heading2

'______ ________________ ______ _-

____

_______

__________'

D CalcPay

Rate

VALUE

Hours

10U

VALUE

Bonus

VALUE

Using the definition specifications, declare a variable called "Pay" t employees' weekly pay and two constants "Heading1" and "Heading2" to ai printing of the report headings.

Calculation

Specifications

*..

...+...

2 ...

... 3 ...

... 4 ...

+...

5 ...

+...

6 ...

+...

7 ...

+...

CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq..

TRN_NUMBER

CHAIN

EMP_REC

NOT *IN99

EVAL

PAY = CalcPay(EMP_RATE : TRN_HOURS :

TRN_BONUS)

ENDIF

The coding entries on the calculation specifications include:

¹ Using	the CHAIN	operation code, the field	TRN_NUMBER from the transa
file	is used to	find the record with the	same employee number in
file.

¹If the CHAIN operation is successful (that is, indicator 99 is off employee is evaluated. The result is "rounded" and stored in the v Pay.

Output Specifications

8 ILE RPG for AS/400 Programmer's Guide

Page 32

Image 32

IBM AS/400 manual Output Specifications, Bonus, Chain, Eval, Endif

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 SQL With Service Program Chapter Vi ILE Exception Working with Files and Devices Vii RPG Files Appendixes ILE Copy Index Does ApplyAny Law Trademarks and Service Programming Interface InformationMarks Trademarks Or se Marks OthersPage Xiv ILE RPG for AS/400 Programmers Guide About This Guide GuideWho Should Use This III How to Send Your Comments Prerequisite and Related Information What New This Release?UCS-2 Risc INZ*EXTDFT INZ*USER Element CCSID*GRAPH To this Guide ChangesSince For AS/400 Xxii ILE RPG for AS/400 Programmers Guide ILE RPG Introduction Program creation strategies ILE RPG for AS/400 Programmers Guide RPG IV Specifications Control SpecificationsInput Specifications RPG IV Overview The.When You Let Compiler Provide Logic For Your Cycle Programming Subprocedure logic IndicatorsFirst Last Operation Codes ProgramExample of an ILE RPG Example of an ILE RPG Program Second file File Description SpecificationsProgram Output Specifications BonusChain Eval Subprocedure Heading Lines That Contain Constant String PayrollILE RPG Not Fqsysprt Printer Entire Source ProgramReturn Rate Bonus PAY10U 0 Value Not *IN99 Eval Commonly Used Control Language Commands Interacting with the SystemOS/400 System System Library System Offers Full Set Tools That You May find usef Application Development Manager ILE R ServicesAS/400 Tools Overview of the RPG IV Programming15 Language AS/400 Tools RPG Programming in ILE Program CreationRPG Programming in ILE ILE RPG, ILE C, ILE Cobo CRTSRVPGM, and Crtpgm commands. They can also Specified Language You can Create Procedure Followed Zero Or more subprocedures Program ManagementProgram Call ILE While the progra Source DebuggingBindable APIs Accesses Are Also Threadsafe Multithreaded ApplicationsAS/400 now supports multithreading. ILE Does Not Directly RPG Programming in ILE Program Creation Strategies Strategy 1 OPM-Compatible ApplicationMethod OPM-Compatible Application Example of OPM-Compatible Program Effect of ILE Strategy 2 ILE Program ILE Program Using CrtbndrpgRelated Information ILE Program Using Crtbndrpg Example of ILE Program Shows Run-time view Application in which an ILE CL pr CallsXYZ Although Actual Storage Not Deleted As it Strategy 3 ILE Application ILE Application Using CrtrpgmodUsing Scenario Single-Language ILE Application Single-Language Application Using Crtrpgmod and Crtpgm Mixed-Language ILE Application Scenario Advanced Application Scenario Strategy to Avoid Strategy to Avoid Activation Group Creating an Application Using Multiple Procedures Multiple Procedures ModuleProcedures Overview Prototyped Calls What a module mightLike with Multiple Dures Module Using prototyped calls you can call with the same syntax FmtCust Name 100A AddressNumToChar Numparm 30P 0 Value Example of Module with Order to format Name Address ProperlyMade Expression Shows Call Multiple Example of Module with Multiple Procedures DDSISO Move Else Procedures ZIP ThatSTATE, ZIP Module Meaning that it consists only of subprocedurModule, by Coding Keyword on the control specificati Entire Arrsrpt Program Fcustfile Disk Fcustrpt Printer Copy QRPGLE,CVTPROCP IcustrecCallp Endsr Following About ArrsrptISO Move Duedate Return Else Endif DDS When Coding Module with multiple procedures You Will Want Coding ConsiderationsGeneral Considerations Coding Considerations Main Procedure Considerations Subprocedure ConsiderationsContain a program entry procedure and only a Cannot Contain Bound Procedure Calls Main Procedures SubproceduresFor Further Information For Prototyped Call For Further Information Application Running an ILE RPG for AS/400 Programmers Guide Statements FileSource Creating a Library Entry Utility Using the Source Entry UtilityUsing SEU IPC IpcxIPP Ippr Press F3 Exit To the Exit display. Type Y Yes to save Saved Using SQL Statements Using SQL StatementsStatements Calculation specification Start Your DB2 UDB Reference for more Refer toADTS thefor AS/400 Source EntryUtilitymanual for Information about How SEU handles Statement Syntax Checking With CommandUsing the Crtbndrpg Command You can use the Crtbndrpg Command interactively Batch From Shows Their Default Values Debugged Using a Source View Program Type Creating a Program for Source DebuggingList Creates View similar Compiler listing Binding Creating a Program with StaticThis example you create Program Display Module Source Command Bnddir¹ Wrkjob ¹ Wrkoutq queue-name Disk Fqsysprt Printer Chain Emprec Not *IN99Payroll Register Date Empname Emprate Using a Compiler Listing Using a Compiler ListingListing Obtaining a Compiler Customizing a Compiler Listing Customizing a Page HeadingCompiler Listing Xref Last Update Customizing the SpacingIndenting Structured Operations PAGE/LINE Errors ListingEither Create This Will Add Sec Level text to the messages listed Message Using In-Line Diagnostic Messages FLD2FLD1 SEU Correcting Run-time Errors Using Additional-Diagnostic MessagesBrowsing a Compiler Listing Using SEU Source Entry Utility Using a Compiler Listing for Maintenance Expdds these are the defaultsCoordinating Listing Options with Debug View Options Specified, and in the column labeled as Sta Ment Area Data Accessing the Returncode Data Area Accessing the Returncode Data Area Commands CreatingModule Object Chapter You Create a Module using the Create CommandUsing the Crtrpgmod Creating a Nomain Module RequestedCreates a compiler listing which Crtrpgmod MODULEMYLIB/TRANSSVC SRCFILEMYLIB/QRPGLESRC ¹ Dspjob Then Select option Display4 spooledFiles Related Files N/A Related Source Transrpt Endsl OtherEndsl Return Creating a Module for Prototype for TransIncProd Prototype for ProdName QTY Ftrnsdta Disk Fqsysprt PrinterItrnsrec Related CL Commands RPG, mainthe procedureisAdditional Examples Modules Binder Binding Modules into a ProgramBinding Modules into a Program Using CommandInto a Crtclmod Group Export Concepts forModules Trpt Using a Binder Listing Using a Binder Listing Changing a Module or Program Changing a Module or Using the Updpgm Command Level Reducing an Objects Removing ObservabilitySize Changing a Changing a Module or Program Creating a Service Program Service Program OverviewService Program Overview Dspsrvpgm Payroll DETAIL*PROCEXP *DATAEXP Strategies for Creating Service Programs Creating a Service Program Using CrtsrvpgmCreating a Service Program Using Crtsrvpgm Changing a Service Program Service Program Using Crtsrvpgm API Sample Service ProgramSample Service Program Opdesc Const OPTIONS*VARSIZEOPTIONS*VARSIZE Ceedod Exsr EnddoBegsr Eval DIV MVR Creating the Service Program Parameters Crtsrvpgm commandStrpgmexp Signaturecvthex Export Symbolcvttohex Endpgmexp Input String Charactern Output Hex string Character2 * n Binding to a Program Create the program by typingCrtrpgmod MODULEMYLIB/CVTHEXPGM SRCFILEMYLIB/QRPGLESRC Call Cvthexpgm Copy RPGGUIDE/QRPGLE,CVTHEXPR Clear CallpExcept Clear Updating the Service Sample Binder Listing Basic Binder listing for Cvthexpgm Sample Service Program Running a Program Using the CL Call Command Running a Program UsingRunning a Program 103 Passing Parameters using 106 shows DDS That is Referenced by the EMPRPT2 Source Application Running a Program From a Menu-Driven ApplicationRunning a Program From a Selecting Option Design menus RPGCHG, or Rpgadd respectively You Run Menu by EnteringRpginq Command Running a Program Using User-CreatedReplying to Run-Time Inquiry Messages Replying to Run-Time Inquiry Ending an ILE Program GroupsManaging Activation Wheresequence-no Managing Activation Groups Specifying an ActivationGroup OFF Default CompatibilityRunning in the OPM Activation Reclaim Resources Command Deleting an ActivationGroup Activation Groups Such Managing the Default Heap Using RPG Operations Referenceto Abridged Dsply Managing Dynamically-Allocated StorageINZ*NULL Elem@ = next@ AddName 40AAlloc = *NULL Namelen = %len%trimrname Null DOW Heap Storage Problems Dealloc RPG procedure This Managing Your Own HeapBindable APIs Call Somepgm SeeAPI theReference Dynarray Ceecrhp Copy DynarriCeegtst Initalloc Subsalloc Reset DynainitADD Initalloc Enddo Dynainit Dynaset Export IfgtExsr Realloc Endif Eval Realloc Begsr Else ADD Subsalloc Enddo Endsr DynasetDynaget Export Ifle Get Heap Storage Crtsrvpgm Calling Programs and Procedures Program/Procedure Call OverviewProgram/Procedure Call Overview 127 Static Calling ProceduresCalling Programs Stack Call StackCall stack That Most r Stack Entry is Bottom Recursive CallsRecursive calls are only allowed For Parameter-Passing Considerations Recent Caller Program/Procedure Call Overview Using the Callp Operation ¹ Subprocedures in the same moduleRPG Prototyped calls Are also Known Callp Using a Prototyped Call Calling within an Expression31A 30P Examples of Free-Form Call Passing Prototyped ParametersParameter Passing Styles Passing by Reference Passing by Value Figures below Passing ExtprocdocalcDocalc Export Docalc Ceetsta Extprocceetsta Using Operational DescriptorsILE CEE API When Calling Procedure You may sometimes want Leave Out Par Omitting ParametersOPTIONS*OMIT Omit Passing *OMIT Leaving Out ParametersOPTIONS*OMIT*NOPASS API Qcmdexc Passing Prototyped Parameters Checking for the Number Psds Copy Fmtaddrp OPTIONS*NOPASS ConstEval Address = %TRIMRCSTREET# + + Trimrprovince Return Endif Endsr Begsr MovelCheck 144 OPTIONS*NOPASSCtdata 5P 0 DIM2 Ctdata To create PRTADDR, using the source in on page 144, typ Passing Less Data Than RequiredParameters To create the program, PRTADDR, type Effect Order of EvaluationInterlanguage Calls Interlanguage Calling ConsiderationsTo obtain Actual Returned value DCL &RET2 TYPE*CHAR LEN2 DCL &RET1 TYPE*CHAR LEN1 Call Operations Fixed-Form Operation Operation extender is Used With Using the Fixed-Form Call OperationsFor Callb only Passing Parameters Using Parm Examples of Call and CallbOperations Operation Plist Using the Plist OperationFixed-Form Call Operations Returning from a Main Procedure ProcedureNormal End Returning from a Called Entry Parm operation is perfor Returning from a Called Program or ProcedureAbnormal End Returning from a Subprocedure WithoutFor the AS/400 Reference Retu Using Bindable APIs Returning using ILE BindableSubprocedure ends abnormally APIs Examples of Using Bindable APIs Calling a Graphics RoutineCalling a Graphics Routine Ceeutx Calling Special Routines Multithreading ConsiderationsMultithreading Considerations TheGDDM Programming Guide Share Data How toAcross Example, consider the situation where two procedures Called Will Wait For MOD1 Unlock. Procedures NotHow To Avoid Deadlock Considerations PROC1MOD2 MOD1 Debugging and Exception Handling 161 ILE RPG for AS/400 Programmers Guide Debugging Programs ILE Source DebuggerILE Source Debugger 163 Debug Commands AttrEquate Eval Tbreak ThreadWatch Find Order Debug it using Preparing a Program for DebuggingPreparing a Program for Source Creating a Root Source View Options On the Dbgview parameter for EitherCrtbndrpg PGMMYLIB/DEBUGEX SRCFILEMYLIB/QRPGLESRC Crtrpgmod MODULEMYLIB/DBGEX SRCFILEMYLIB/QRPGLESRC Listing View ViewDbgview Module View Program for Debugging OPMSRC*NO Starting the ILE SourceStarting the ILE Source Debugger Setting Debug Options Strdbg ExampleStart a Debug Session for the sample debug program Debugex Into SET OPM source debug support field, Example of Adding a Service Example of Removing ILE Programs from a Debug SessionAdding/Removing Programs from a Debug Session Debug Session Viewing the Program Source Viewing the Program SourceCobol Lstdbg ILE Libl PGM Viewing a DifferentDbgex Changing the View of a ModuleSeveral Different views Cproc Setting and Removing Breakpoints Setting and Removing BreakpointsSpecified You Not Erate Breakpoints Specify OPTION*NODEBUGIO Setting and Removing With the source positioned at the line where the breakpointDebug Command to set a job breakpoint Breakpoints Breakpoint Setting anJob Setting and Removing Unconditional Thread Breakpoints Debug Command Sets a Thread breakpo Single CurrentDebug Greater Than Equal To one Job Breakpoints Example of Setting a Conditional Job Breakpoint Using F13 LineConditional Breakpoint Work with Module Breakpoints Command Setting a Conditional Job Breakpoint UsingBreak 128 when BigDate=1994-09-30 National Language Sort Sequence Nlss Control Spec Tion Is not available Sort Sequence On the debug command line One procedure per module,procedurethe -namecan EitherMain procedure or one of the subprocedures Varia This Example Statement View Is used to Set Breakpoint For Set a breakpoint for Module WithSet Breakpoint For Module with Listing, type Setting and Removing Conditional Thread Breakpoints Using the Work with Module Breakpoints DisplayProcedurevariables-name and statement-number Main Procedure Exit Debug Commands Setting and Removing Watch ConditionsRemoving All Job Conditions Characteristics of Watches DisplayProgram statemen You Debug One Job From Another Setting Watch Conditions On the debug command line, without any parametersWatch Salary Payroll ¹ To specify a variable or expression to be watched, typePayroll ABC PGM Displaying Active Watches Removing Watch ConditionsEnddbg IPL Example of Setting a Watch Condition Example of Setting a Watch ConditionBlankDisplay Module Source Display as shown below. Instead Stepping Through ObjectStepping Through the Program Object Subroutines You Can Over Into SubproceduresStepping Over Call Statements TIP Stepping Into Call StatementsStep Into F22 This example, you use F22 Step Into to step Into the OPMFrom Program Debugex Step completed at line This example, you use F22 Step Into to Subpr Which ModuleInputParm Else SwitchDisplaying Data and Expressions On page 201 shows Use Const Unexpected Results when Evaluating Variables Scalar Fields RPG DefinitionBased Fields Date, Time, Timestamp Fields Displaying the Contents of an Array Displaying the Contents of a Table Displaying Data Structures Eval DS12 Displaying Indicators Which is discussed Below Displaying Fields as Hexadecimal Values Character Format Data Displaying Variable-Length FieldsBy Pointers Displaying Null-Capable Fields STRING=%SUBSTRBIGDATE 1 4 = String = 1ABCD6 Fields Changing the Value of Fields = Abcdef Or Command Equating a Name with a Field, Expression, or CommandDisplaying Attributes of a Field Equating a Name with Examples ForSample Source for Debug Examples Program using Source 215, type Sample Source for Debug ExamplesTo create the program DEBUGEX, type First Module DIM3 Ctdata DS1Inzabcde DS2 Call Rpgpgm Occur DS2 MovePlist Parm Dump Seton Else EvalEntry Plist Parm Dsply Seton Source for C Procedure cproc. cproc is called by Dbgex Handling Exceptions Exception Handling OverviewException Handling Overview 217 Indicates That Severe error has been detected Program Procedure P1 is Contro BoundaryDescribes Status Work Being done by a program Call st Exception Message Active on Exception Handling within Dure will Only Handle Errors That SubprocedureILE RPG Exception Handling Operation For OPM PGM C Using Exception Handlers Using Exception HandlersException Handler Priority Nested Exceptions For other Types Messages Escape MessagePGM2 PRC1 Example of Unhandled Function Check Operation as wellPGM1 PGM2, each Containing a procedur Using RPG-Specific Handlers Optimization ConsiderationsFor More Information Optimization See Changing Level Built-in-functions This Section Provides Some Examples How to Use Each These R Infsr error Subroutines, on Exsr Operation Code InfdsExtender ILE RPG For AS/400 Reference provides Using an Error Subroutine Program ErrorOperation. If Either Explicitly c Using a File Error Infsr Subroutine INFSRPrdInfsr INFDSPrdInfds Disk Ftrnbacklg O Fprint PrinterPrdInfds PrdStatus Status Infds Using a Program Error Subroutine Position Definition Specification EnterAfter Keyword Operation With Factor Entry Parms Proc Body of Code Goes HerePssr Begsr Move Getin If this is a divide-by-zero error, add 1 to the divisor If control reaches ENDSR, the procedure will failTAG DIV Try again Err = Exceptions Order Show how to avoid looping Within PssrWhich is designed to ge Subrou Else ADD After the ElseMove Inlr Specifying a Return Point OFL Using a Condition Handler ILE Condition HandlersILE Condition Handlers Handlers 132 Printer RpghdlrLIKECondTok Action 10I OutCondTok LIKECondTok Shows Source For Procedure Is registered Procedure Parameters Include PointerCondition Handler Communication Area Which Contains Pointer ARR1 Ceehdlu Procptr NooptSDS Noopt Proc Subst Begsr Callp Cancel Handlers 244Ceertx Ceeutx ILE Procedure to SubProc will not fail Pssr has a Return operation, so the call from the mainSubproc Pssrdsply Return Endsr INZ0 Static Callb Ceertx ParmParm Omit Select When RPG using Condition Handlers Enabled UsingCancel Hdlr Dsply Msg CanHdlr Likely Occur With Condition Handler that Ignores CPF4906 Endif Return Handle information or warning messages, otherwise percolate MsgSev = Warning ILE RPG for AS/400 Programmers Guide Using the Dump Operation Code Using the Dump Operation CodeObtaining a Dump Obtaining an ILE RPG Formatted Dump Does not Occur Formatted Dump¹ If a Dump operation is bypassed By a Goto operation, Dump Example of a Formatted Dump Qspl Agement Dump Part 1 of 2. Data section of Formatted Dump 125 Part Data section of Formatted Dump Beginning of user variables, listed in alphabetical order, Order Which they are defined Gaps Working with Files and Devices 259 ILE RPG for AS/400 Programmers Guide Defining Files Associating Files with Input/Output DevicesAssociating Files with Input/Output Devices 261 Compilation Time Certain Operation Device Dependent Device dependency Is thatOperation Code is Valid Only Write Types of File Descriptions Naming FilesTypes of File Descriptions Using Files with Program-DescribedFiles Example of Some Typical Relationships between OPTION*EXPDDS Defining Externally Described FilesDefining Externally Described Renaming Record-Format Names Ignoring Record FormatsRenaming Field Names Nbrofcharreplaced. Figure Using Input Specifications Modify anDescription External You Then Fixed Name Specification Will Get Error Indicator RecordFiles Used Program This Example Field Using Output Specifications Level Checking For Character Fields zeroIs written ALL Defining Program-Described Files Data Management Operations and ILE RPG I/O OperationsRPG I/O Operations SEQ Special Data Management Operations and ILE RPG I/O Operations Delete File Considerations Overriding and Redirecting File Input and OutputOverriding and Redirecting File Input and Output 273 Input Output Input OutputExample of Redirecting FMT1 File Locking File LockingData Management manual Program Can Chang Allocate Object Record Locking Record Locking See Using PathSharing an Open Data Control For More Information Spooling SpoolingProgram Details System Open Options Allowed for Each Can Specify Output Spooling Program Versus SRTSEQ/ALTSEQ Accessing Database FilesPhysical Files and Logical Files Data Files and Source Using Externally Described Disk Files Record Format SpecificationsAccess Path Using Externally Described Disk Files Unique Contained Physical file CUSMSTP, which is IdentifiedUnique Dstref Distribution Application Field Reference Basdat EdtcdeyCust Checkmf Addr Reffldname Valid Keys for a Record File DiskCity Edtcdej Referring to ArgumentsPartial Key Record Blocking and Unblocking Used, Using Program-Described Disk Files Using Program-Described Disk FilesIndexed File Valid Keyword specifies position 15 as the starting po Logical file ORDDTLL. For the two fields Sequential File Record Address File10AIDISK Move Order KEY Chain Methods for Processing Disk Files Limits RecordsRelative Record Numbers Methods for Processing Disk Files ADD Consecutive ProcessingSubsequent Text Describes Each Method Processing Sequential-by-Key Processing Examples of Sequential-by-Key ProcessingDatabase Programming Database Programming manual Example, the employee master record Weekly hours worked YTDRPT1 Related Files EMPL1 FprintFEMPL1 Disk Iemprec Ircweek YTDRPT2 Related Files EMPL1 Setoff Read EMPL1 Goto Eofend Move Enum EmpnoSeton Endif Eofend TAG Seton For Processing Disk Files Records Are Processed as Matching records With ADD Tothrs Totovt Setoff ADD Ehwrk TothrsSUB Enhrs Ovthrs ADD Ovthrs Totovt Seton Endif Oprint Random-by-Key Processing Example of Random-by-Key ProcessingEmstupd Descriptions Nnhrs Fchange Sequential-within-Limits ProcessingChange Examples of Sequential-within-Limits Processing Disk Files ESWLIM1 Related Files Empmst LimitsFlimits Disk 3PIDISK KEYLOC1 Fprint Fempmst Disk Fprint Relative-Record-Number ProcessingESWLIM2 Related Files Empmst Valid File Operations Valid File Operations Z/F Recno Starting and Ending Commitment Using Commitment ControlUsing Commitment Control Abridged for See theBackup and Recovery manualCommitment Control Locks Using Files ForSpecifying Concepts, Journal Example of Using Commitment ControlReceiver This command calls the program Revise Update Mastrec TranrecControl Disk Commit Ftrans DDM Files CycleDDM Files Pre-V3R1 DDM ReferDistributedto the Data DDM Files Accessing Types of Device Files ChapterAttached 315 Accessing Printer Devices Accessing Printer DevicesSpecifying Printer Files Handling Page Overflow Overflow On an and notline,anoverflowthe linelineis Example of Printing Headings on Every Example of Printing a Field on EveryOANL2 Account Overf Using the Fetch-OverflowRoutine in Program-Described Files Overflow Printing Setting of the Overflow Indicator Fetch Overflow Example of Specifying Fetch Overflow OPM Prtctl data structure Changing Forms ControlFile Forms Values Contained First four subfieldsDat Accessing Tape Devices Accessing Tape DevicesPrint File Name Associated Data Structure is Accessing Display Devices Using Sequential FilesUsing Sequential Files Ovrdbf Using Special Files Using Special FilesFile Program name Description ErrorStatus Example of Using a Special File Special PgmnameuserioFLD Spcl Plist Parm FLD1 Movel Hello Write Excptn Outbuf Seton Userio Are Added To the end of the RPG-created Parameter listProgram User-written routine Function Using Workstn FilesUsing Externally Described Workstn Files ¹ Output On page 333 shows an example of the DDS for a display-devic Refdstref PromptOverlay Descrp Device Specifying Function Key Indicators on Display Device FilesSpecifying Command Keys Display Using Subfiles Processing an Externally Described Workstn File Field Sfile Use of Subfiles You press Specified Function key During ReadName Search SFL TEXTSubfile Record Subfil Using Program-Described Workstn FilesUsing Program-Described Workstn Files Using a Program-Described With Input Specifications Calculation SpecificationsName Format Valid Workstn File Operations Input FileOutput File Combined File Exfmt Operation Read OperationWrite Operation Multiple-Device Files Keyword. This field Initialized Is updatedDevid Multiple-Device Files Example of an Interactive Application Database Physical FileDatabase Physical File 345 Inquiry DDS for aDisplay Device Main Menu Inquiry Cusmain RPG Source Main menu will appear as in on Using Crtrpgmod Create Program By enteringFirst option specifies that the first module in the list File Maintenance File MaintenanceCUSMSTL1 DDS for a Logical Display Device Edtcdez Mode70DATE Edtcdey Record Format contains Constant Customer File Maintenance Cusmnt RPG Source Else Move OFF Subroutine Addsub PurposeAddsub Begsr Cstkey Chain CMLREC1 Not *IN50 Move Move ADD Mode When Move Update Mode WhenMove Delete Mode When Move Display Mode Endsl MODE1 Endsr Display Mode Customer File MaintenanceCstinq 223021 On page 357 a new customer is added to the Customer Mast 22310630/94 Customer 00007 223143 Bathurst Avenue ADD ModeDelete Mode Zip Search bySearch by Zip Code Code Szipmenu Related Files CUSMSTL2File SZIPMENU. IT has REFCUSMSTL2 Printqsysprt Indara Indicates when to display Subfile When Indicator 55 is Schzip RPG Source ADD Zero Recnum Endsr Write Subctl Move OFFMove OFF File indicator 71 on th ZipRoutine Fills Subfile Record Read From Subfile Is written to the screen as shown in on Search and Inquiry by Name Search and Inquiry by NameFor Database File Used This Program Defines one reco Identifies Name field Key Fields Device File Snammenu DDS for a DisplayFOOT2 Subfile Records Using Subfiles Schnam RPG SourceThis Program Prompts the User for the Customer File by the Setll OPERATION. then IT Displays Example of an Interactive 367Application File Indicator On the Read operation File Record CountRecnum Inc Judah Gould Inquiry by Name 233948 30/94 Customer 00012 NameGould Yorktown Appendixes 371 ILE RPG for AS/400 Programmers Guide RPG/400 ILE For AS/400Appendix Differences Running Debugging and Exception RPG III Will issue the RNQ1222 inquiry Message RPG/400 Will IssueWill issue the RNQ1022 inquiry Message Will Issue Compiler Such Programs Will Get Compilation errors Dbcs Data in Character Fields Differences Between OPM RPG/400 Appendix B. Using Conversion Overview379 Hurry File Considerations File Record Length USE Log FileConversion Aid Tool Requirements Wont Do Converting Your SourceConverting Your Source Aid Cvtrpgsrc Command Fromfile LiblCurlib Frommbr Tofile QrpglesrcNone Tombr Expcpy YESCvtrpt Seclvl YES Insrtpl Source DefaultsConverting a Member Using Converting All Members in a File Performing a Trial ConversionConverting Some Members Cvtrpgsrc FROMFILEOLDRPG/QRPGSRC Frommbrpayroll TOFILE*NONE Obtaining Conversion Reports Converting Auto ReportSource Members CVTRPT*NO Inserting Specification Templates DataExample of Source Conversion Example of Source Conversion Converted source is shown in on Example Source ConversionTo convert this source, enter ARR2 III specifications for ARR2. The Conversion Aid Analyzing Your ConversionAnalyzing Your Conversion DS1 Using the Conversion Shows Command summary for a sample ConversionReport Conversion Aid generates a conversion report if you specify Your Call PROG1 Using the Log File Qrncvtfm Lgcent Colhdgcvt Cent Lgdate Colhdgcvt DateYmmdd Lgtime Colhdgcvt Time Resolving Conversion Problems Compilation Errors in Existing RPG III CodeUnsupported RPG III Features Use of the /COPY TEST1 Context-Sensitive Problems Records UsingMembers in the converted RPG IV source member Comp Command Or manually Correct Code After Conversion Use of ExternallyStructures Char When converted Merging an Array with an Externally Described DS SubfieldInitializing Extrec Run-time Differences Behavior WithXYZ Dsone Extnameextrec Char Resolving Conversion Problems Appendix C. The Create Commands Using CL CommandsHow to Interpret Syntax Diagrams Reading Syntax Diagrams Crtbndrpg Command Crtbndrpg CommandValues KEYWORDREQUIRED-VALUE Appendix C. The Create Commands407 Description of the Crtbndrpg Command PGMProgram-name Srcfile Srcmbr GenlvlText Srcmbrtxt Option NoxrefGEN Nogen Noext Elseif Eventf DbgviewStmt List ALL OutputPrint Optimize Cvtopt DatetimeGraphic Varchar Langid ReplaceUsrprf User Issued ChangeUSE Exclude Fixnbr ZonedTgtrls PRV Alwnull InputonlyBnddir Binding-directory-name Usrlibl ActgrpQile NEW Crtrpgmod Command Crtrpgmod CommandPrfdta Nocol Appendix C. The Create Commands421 Description of the Crtrpgmod command UsrprfPF4 PF1 423 Appendix D. Compiler ListingsCompiler Listings Which was Compiled Using Compiler ListingReading a Crtb Module or Program Source memberCompiler options Indentation Mark Eject SectionEndif Listings Sequence Numbers Root Part 1 of 3. Sample Source Part of the Listing Part 2 of 3. Sample Source Part of the Listing 1a/ *NOSRCSTMT Source Heading Line NumberRuler Line Do Number Diagnostic Additional Output Buffer Positions Copy Member Table Compile-Time Data Total Number of Characters AlteredCharacter to be Altered Alternate Sequence Key Field Information Cross-Reference Table External References List Duedate Message Summary Final Summary Code Generation and Binding Errors N a L M M a R Y Compiler Listings Bibliography 439 Iddu ILE RPG ILE RPG for AS/400 Programmers Guide Characters Special443 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 Éâôù