Appendixes, 371 | IBM AS/400 manual

Appendixes

 Copyright IBM Corp. 1994, 1999

371

Image 395

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 Second file File Description SpecificationsProgram Eval Output SpecificationsBonus Chain Not SubprocedureHeading Lines That Contain Constant String Payroll ILE RPG Fqsysprt Printer Entire Source ProgramReturn 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 ILE R ServicesAS/400 Tools 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 While the progra Source DebuggingBindable APIs 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 Strategy 2 ILE Program ILE Program Using CrtbndrpgRelated Information 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 Strategy 3 ILE Application ILE Application Using CrtrpgmodUsing 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 ZIP ThatSTATE, ZIP 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 Entry Utility Using the Source Entry UtilityUsing SEU 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 With CommandUsing the Crtbndrpg Command 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 You Create a Module using the Create CommandUsing the Crtrpgmod 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 OtherEndsl Return Prototype for ProdName Creating a Module forPrototype for TransInc Prod QTY Ftrnsdta Disk Fqsysprt PrinterItrnsrec Modules Related CL CommandsRPG, mainthe procedureis Additional Examples Binder Binding Modules into a ProgramBinding Modules into a Program 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 Reducing an Objects Removing ObservabilitySize 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 API Sample Service ProgramSample Service Program 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 RPGCHG, or Rpgadd respectively You Run Menu by EnteringRpginq 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 Dsply Managing Dynamically-Allocated StorageINZ*NULL Elem@ = next@ AddName 40AAlloc Namelen = %len%trimrname = *NULL Null DOW Dealloc Heap Storage Problems Call Somepgm RPG procedure ThisManaging Your Own Heap Bindable APIs Dynarray SeeAPI theReference Ceecrhp Copy DynarriCeegtst 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 Static Calling ProceduresCalling Programs Stack Call StackCall stack That Most r Stack Entry is Bottom Recursive CallsRecursive calls are only allowed For 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 Ceetsta Extprocceetsta Using Operational DescriptorsILE CEE API 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# + + Endif Endsr Begsr MovelCheck 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 Effect Order of EvaluationInterlanguage Calls DCL &RET2 TYPE*CHAR LEN2 DCL &RET1 TYPE*CHAR LEN1 InterlanguageCalling Considerations To obtain Actual Returned value Fixed-Form Call Operations Operation Operation extender is Used With Using the Fixed-Form Call OperationsFor Callb only Operation Passing Parameters Using ParmExamples of Call and Callb Operations Plist Using the Plist OperationFixed-Form Call Operations Returning from a Called Returning from a Main ProcedureProcedure Normal End Entry Parm operation is perfor Returning from a Called Program or ProcedureAbnormal End 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 Share Data How toAcross 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 OPMSRC*NO Starting the ILE SourceStarting the ILE Source Debugger 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 Libl PGM Viewing a DifferentDbgex 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 Breakpoint Setting anJob 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 ¹ To specify a variable or expression to be watched, typePayroll ABC PGM 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 ObjectStepping Through the Program Object Subroutines You Can Over Into SubproceduresStepping Over Call Statements TIP Stepping Into Call StatementsStep Into Debugex F22This example, you use F22 Step Into to step Into the OPM From Program Step completed at line This example, you use F22 Step Into to Subpr Which ModuleInputParm Else SwitchDisplaying Data and Expressions 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 Examples ForSample Source for Debug Examples First Module Program using Source 215, typeSample Source for Debug Examples To create the program DEBUGEX, type DS2 DIM3 CtdataDS1 Inzabcde Call Rpgpgm Occur DS2 MovePlist Parm 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 Exception Handling within Dure will Only Handle Errors That SubprocedureILE RPG Exception Handling 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 Else ADD After the ElseMove Inlr 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 Does not Occur Formatted Dump¹ If a Dump operation is bypassed By a Goto operation, 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 OPTION*EXPDDS Defining Externally Described FilesDefining Externally Described 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 Referring to ArgumentsPartial Key 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 ADD Consecutive ProcessingSubsequent Text Describes Each Method Processing 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 Fchange Sequential-within-Limits ProcessingChange Disk Files Examples of Sequential-within-Limits Processing 3PIDISK KEYLOC1 Fprint ESWLIM1 Related Files EmpmstLimits Flimits Disk 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 Concepts, UsingFiles For Specifying Journal Example of Using Commitment ControlReceiver 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 Overf Using the Fetch-OverflowRoutine in Program-Described Files Overflow Printing Setting of the Overflow Indicator Example of Specifying Fetch Overflow Fetch Overflow OPM Prtctl data structure Changing Forms ControlFile Forms Values Contained First four subfieldsDat 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 Description ErrorStatus Spcl Plist Parm FLD1 Movel Hello Write Excptn Outbuf Seton Example of Using a Special FileSpecial Pgmnameuserio FLD Userio Are Added To the end of the RPG-created Parameter listProgram User-written routine Function Using Workstn FilesUsing Externally Described Workstn Files On page 333 shows an example of the DDS for a display-devic ¹ Output Descrp RefdstrefPrompt Overlay Device Specifying Function Key Indicators on Display Device FilesSpecifying Command Keys Display Processing an Externally Described Workstn File Using Subfiles Sfile Field SFL TEXTSubfile Record Use of SubfilesYou press Specified Function key During Read Name Search Subfil Using Program-Described Workstn FilesUsing Program-Described Workstn Files 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 Keyword. This field Initialized Is updatedDevid 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 Main menu will appear as in on Using Crtrpgmod Create Program By enteringFirst option specifies that the first module in the list Logical File MaintenanceFile Maintenance CUSMSTL1 DDS for a Device Display Edtcdez Mode70DATE Edtcdey Cusmnt RPG Source Record Format contains Constant Customer File Maintenance Else Move OFF Subroutine Addsub PurposeAddsub Begsr Cstkey Chain CMLREC1 Not *IN50 Move 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 Bathurst Avenue ADD ModeDelete Mode 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 ADD Zero Recnum Endsr Write Subctl Move OFFMove OFF 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 USE Log FileConversion Aid Tool Requirements Aid Wont DoConverting Your Source Converting Your Source Cvtrpgsrc Command Frommbr FromfileLibl Curlib Tombr TofileQrpglesrc None Seclvl YES Insrtpl ExpcpyYES Cvtrpt Source DefaultsConverting a Member Using 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 Converted source is shown in on Example Source ConversionTo convert this source, enter 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 423 Appendix D. Compiler ListingsCompiler Listings Crtb Which was Compiled UsingCompiler Listing Reading a Indentation Mark Module or ProgramSource member Compiler options Eject SectionEndif 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 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 Éâôù

IBM AS/400 manual Appendixes, 371

Models: AS/400

Appendixes

371

AS/400 specifications