Xxii ILE RPG for AS/400 Programmers Guide

xxii ILE RPG for AS/400 Programmer's Guide

Image 24

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 File Description Specifications ProgramSecond file Output Specifications BonusChain Eval Subprocedure Heading Lines That Contain Constant String PayrollILE RPG Not Entire Source Program ReturnFqsysprt Printer 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 Services AS/400 ToolsILE R 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 Source Debugging Bindable APIsWhile the progra 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 ILE Program Using Crtbndrpg Related InformationStrategy 2 ILE Program 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 ILE Application Using Crtrpgmod UsingStrategy 3 ILE Application 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 That STATE, ZIPZIP 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 Using the Source Entry Utility Using SEUEntry Utility 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 Command Using the Crtbndrpg CommandWith 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 Command Using the CrtrpgmodYou Create a Module using the Create 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 Other Endsl ReturnEndsl Creating a Module for Prototype for TransIncProd Prototype for ProdName Ftrnsdta Disk Fqsysprt Printer ItrnsrecQTY Related CL Commands RPG, mainthe procedureisAdditional Examples Modules Binding Modules into a Program Binding Modules into a ProgramBinder 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 Removing Observability SizeReducing an Objects 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 Sample Service Program Sample Service ProgramAPI 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 You Run Menu by Entering RpginqRPGCHG, or Rpgadd respectively 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 Managing Dynamically-Allocated Storage INZ*NULLDsply AddName 40A AllocElem@ = next@ = *NULL Namelen = %len%trimrname Null DOW Heap Storage Problems Dealloc RPG procedure This Managing Your Own HeapBindable APIs Call Somepgm SeeAPI theReference Dynarray Copy Dynarri CeegtstCeecrhp 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 Calling Procedures Calling ProgramsStatic Call Stack Call stackStack Recursive Calls Recursive calls are only allowed ForThat Most r Stack Entry is Bottom 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 Using Operational Descriptors ILE CEE APICeetsta Extprocceetsta 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 Begsr Movel CheckEndif Endsr 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 Order of Evaluation Interlanguage CallsEffect Interlanguage Calling ConsiderationsTo obtain Actual Returned value DCL &RET2 TYPE*CHAR LEN2 DCL &RET1 TYPE*CHAR LEN1 Call Operations Fixed-Form Using the Fixed-Form Call Operations For Callb onlyOperation Operation extender is Used With Passing Parameters Using Parm Examples of Call and CallbOperations Operation Using the Plist Operation Fixed-Form Call OperationsPlist Returning from a Main Procedure ProcedureNormal End Returning from a Called Returning from a Called Program or Procedure Abnormal EndEntry Parm operation is perfor 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 How to AcrossShare Data 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 Starting the ILE Source Starting the ILE Source DebuggerOPMSRC*NO 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 Viewing a Different DbgexLibl PGM 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 Setting an JobBreakpoint 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 ¹ To specify a variable or expression to be watched, type Payroll ABC PGMPayroll 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 Object Stepping Through the Program ObjectStepping Through Over Into Subprocedures Stepping Over Call StatementsSubroutines You Can Stepping Into Call Statements Step IntoTIP F22 This example, you use F22 Step Into to step Into the OPMFrom Program Debugex This example, you use F22 Step Into to Subpr Which Module InputParmStep completed at line Switch Displaying Data and ExpressionsElse 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 For Sample Source for Debug ExamplesExamples Program using Source 215, type Sample Source for Debug ExamplesTo create the program DEBUGEX, type First Module DIM3 Ctdata DS1Inzabcde DS2 Occur DS2 Move Plist ParmCall Rpgpgm 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 Dure will Only Handle Errors That Subprocedure ILE RPG Exception HandlingException Handling within 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 After the Else Move InlrElse ADD 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 Formatted Dump ¹ If a Dump operation is bypassed By a Goto operation,Does not Occur 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 Naming Files Types of File DescriptionsTypes of File Descriptions Using Files with Program-DescribedFiles Example of Some Typical Relationships between Defining Externally Described Files Defining Externally DescribedOPTION*EXPDDS 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 Contained Physical file CUSMSTP, which is Identified UniqueUnique Dstref Distribution Application Field Reference Basdat EdtcdeyCust Checkmf Addr Reffldname Valid Keys for a Record File DiskCity Edtcdej Arguments Partial KeyReferring to 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 Consecutive Processing Subsequent Text Describes Each Method ProcessingADD 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 Sequential-within-Limits Processing ChangeFchange Examples of Sequential-within-Limits Processing Disk Files ESWLIM1 Related Files Empmst LimitsFlimits Disk 3PIDISK KEYLOC1 Fprint Relative-Record-Number Processing ESWLIM2 Related Files EmpmstFempmst Disk Fprint Valid File Operations Valid File Operations Z/F Recno Using Commitment Control Using Commitment ControlStarting and Ending Commitment See theBackup and Recovery manual Commitment Control LocksAbridged for Using Files ForSpecifying Concepts, Example of Using Commitment Control ReceiverJournal This command calls the program Revise Update Mastrec TranrecControl Disk Commit Ftrans Cycle DDM FilesDDM 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 Using the Fetch-Overflow Routine in Program-Described FilesOverf Overflow Printing Setting of the Overflow Indicator Fetch Overflow Example of Specifying Fetch Overflow Changing Forms Control FileOPM Prtctl data structure Values Contained First four subfields DatForms 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 Error StatusDescription Example of Using a Special File Special PgmnameuserioFLD Spcl Plist Parm FLD1 Movel Hello Write Excptn Outbuf Seton Are Added To the end of the RPG-created Parameter list Program User-written routineUserio Using Workstn Files Using Externally Described Workstn FilesFunction ¹ Output On page 333 shows an example of the DDS for a display-devic Refdstref PromptOverlay Descrp Specifying Function Key Indicators on Display Device Files Specifying Command Keys DisplayDevice Using Subfiles Processing an Externally Described Workstn File Field Sfile Use of Subfiles You press Specified Function key During ReadName Search SFL TEXTSubfile Record Using Program-Described Workstn Files Using Program-Described Workstn FilesSubfil 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 Is updated DevidKeyword. This field Initialized 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 Using Crtrpgmod Create Program By entering First option specifies that the first module in the listMain menu will appear as in on File Maintenance File MaintenanceCUSMSTL1 DDS for a Logical Display Device Mode 70DATE EdtcdeyEdtcdez Record Format contains Constant Customer File Maintenance Cusmnt RPG Source Subroutine Addsub Purpose Addsub Begsr Cstkey Chain CMLREC1 Not *IN50 MoveElse Move OFF 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 ADD Mode Delete ModeBathurst Avenue 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 Write Subctl Move OFF Move OFFADD Zero Recnum Endsr 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 Log File Conversion Aid Tool RequirementsUSE Wont Do Converting Your SourceConverting Your Source Aid Cvtrpgsrc Command Fromfile LiblCurlib Frommbr Tofile QrpglesrcNone Tombr Expcpy YESCvtrpt Seclvl YES Insrtpl Defaults Converting a Member UsingSource 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 Example Source Conversion To convert this source, enterConverted source is shown in on 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 Appendix D. Compiler Listings Compiler Listings423 Which was Compiled Using Compiler ListingReading a Crtb Module or Program Source memberCompiler options Indentation Mark Section EndifEject 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 Special 443Characters 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 Éâôù

IBM manual Xxii ILE RPG for AS/400 Programmers Guide

Models: AS/400

xxii ILE RPG for AS/400 Programmer's Guide

AS/400 specifications