Tag Div, Try again Err =, Goto

	*-----------------------------------------------------------------			*
	* Start of subprocedure definition
	*-----------------------------------------------------------------			*
P SubProc		B
D SubProc		PI	5P 0
	...
	*-----------------------------------------------------------------			*
	* Body of code goes here including recovery code.
	*-----------------------------------------------------------------			*
C	TryAgain	TAG
C	X	DIV	Divisor	Result
C		Return	Result
	*-----------------------------------------------------------------			*
	* An error occurs when division by zero takes place.
	* Control is passed to the *PSSR subroutine.
	*-----------------------------------------------------------------			*
C	*PSSR	BEGSR
	*-----------------------------------------------------------------			*
	* If this is a divide-by-zero error, add 1 to the divisor
	* and try again
	*-----------------------------------------------------------------			*
C		IF	Err = 102
C		ADD	1	Divisor
C		GOTO	TryAgain
C		ENDIF
	*-----------------------------------------------------------------			*
	* If control reaches ENDSR, the procedure will fail
	*-----------------------------------------------------------------			*
C		ENDSR
P		E

Figure	113. Example of Subprocedure *PSSR Subroutine with GOTO

234 ILE RPG for AS/400 Programmer's Guide

Page 258

Image 258

IBM AS/400 manual Tag Div, If this is a divide-by-zero error, add 1 to the divisor, Try again Err =, Goto

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

Models: AS/400

TAG

DIV

*PSSR

* If this is a divide-by-zero error, add 1 to the divisor

* and try again

Err = 102

ADD

GOTO

ENDIF

* If control reaches ENDSR, the procedure will fail

ENDSR

113. Example of Subprocedure *PSSR Subroutine with GOTO

234 ILE RPG for AS/400 Programmer's Guide

AS/400 specifications