Example of Using a Special File, Special Pgmnameuserio

								Using		SPECIAL Files

Table	27.	Valid File Operations for a SPECIAL File

File	Description	Specifications		Calculation			Specifications		Positions
	Positions

	17		18					26-35

I			P/S	CLOSE,	FEOD

C			P/S	WRITE,		CLOSE,		FEOD

U			P/S	UPDATE,		DELETE,		CLOSE,	FEOD

O				WRITE,		OPEN,		CLOSE, FEOD

I			F	READ,	OPEN,		CLOSE, FEOD

C			F	READ,	WRITE,			OPEN,	CLOSE,	FEOD

U			F	READ,	UPDATE,			DELETE,	OPEN,	CLOSE,
				FEOD

Example of Using a Special File

Figure 163 shows how to use the RPG device name SPECIAL in a program. example, a file description found in the file EXCPTN is associated wi

SPECIAL.

.. 1 ...

...

2 ...

... 3 ...

... 4 ...

...+

5 ...

...+

...6

... 7

...+...

FFilename++IPEASFRlen+LKlen+AIDevice+.Keywords+++++++++++++++++++++++++++++

FEXCPTN

SPECIAL PGMNAME('USERIO')

PLIST(SPCL)

.. 1 ...

...

2 ...

... 3 ...

... 4 ...

+...

5 ...

+...

6 ...

... 7

...+...

DName+++++++++++ETDsFrom+++To/L+++IDc.Functions++++++++++++++++++++++++++++

D OUTBUF

FLD

.. 1 ...

...

2 ...

... 3 ...

... 4 ...

+...

5 ...

+...

6 ...

... 7

...+...

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

...

SPCL

PLIST

PARM

FLD1

MOVEL

'HELLO'

FLD

MOVE

'1'

FLD1

WRITE

EXCPTN

OUTBUF

MOVE

'2'

FLD1

WRITE

EXCPTN

OUTBUF

SETON

Figure

163.

SPECIAL Device

Figure 164 on page 330 shows the user-written program USERIO.

Chapter 17. Accessing Externally Attached329 Devices

Page 353

Image 353

IBM AS/400 manual Example of Using a Special File, Special Pgmnameuserio, Fld

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 Apply DoesAny Law Programming Interface Information Trademarks and ServiceMarks Trademarks Or se Marks OthersPage Xiv ILE RPG for AS/400 Programmers Guide Guide About This GuideWho Should Use This III Prerequisite and Related Information How to Send Your Comments Release? What New ThisUCS-2 Risc INZ*USER INZ*EXTDFT Element CCSID*GRAPH Changes To this GuideSince For AS/400 Xxii ILE RPG for AS/400 Programmers Guide Program creation strategies ILE RPG Introduction ILE RPG for AS/400 Programmers Guide Control Specifications RPG IV SpecificationsInput Specifications RPG IV Overview Cycle Programming The.When You Let Compiler Provide Logic For Your Indicators Subprocedure logicFirst Last Program Operation CodesExample of an ILE RPG Example of an ILE RPG Program Second file File Description SpecificationsProgram Bonus Output SpecificationsChain Eval Heading Lines That Contain Constant String Payroll SubprocedureILE RPG Not Fqsysprt Printer Entire Source ProgramReturn Bonus PAY Rate10U 0 Value Not *IN99 Eval Interacting with the System Commonly Used Control Language CommandsOS/400 System System Library 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 Program Creation RPG Programming in ILERPG Programming in ILE ILE RPG, ILE C, ILE Cobo Language You can Create CRTSRVPGM, and Crtpgm commands. They can also Specified Program Management Procedure Followed Zero Or more subproceduresProgram Call ILE While the progra Source DebuggingBindable APIs Multithreaded Applications Accesses Are Also ThreadsafeAS/400 now supports multithreading. ILE Does Not Directly RPG Programming in ILE Strategy 1 OPM-Compatible Application Program Creation StrategiesMethod OPM-Compatible Application Effect of ILE Example of OPM-Compatible Program Strategy 2 ILE Program ILE Program Using CrtbndrpgRelated Information Shows Run-time view Application in which an ILE CL pr Calls ILE Program Using Crtbndrpg Example of ILE ProgramXYZ Although Actual Storage Not Deleted As it 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 Multiple Procedures Module Creating an Application Using Multiple ProceduresProcedures Overview What a module might Prototyped CallsLike with Multiple Dures Module FmtCust Name 100A Address Using prototyped calls you can call with the same syntaxNumToChar Numparm 30P 0 Value Order to format Name Address Properly Example of Module withMade Expression Shows Call Multiple DDS Example of Module with Multiple ProceduresISO Move Else Procedures ZIP ThatSTATE, ZIP Meaning that it consists only of subprocedur ModuleModule, by Coding Keyword on the control specificati Fcustfile Disk Fcustrpt Printer Entire Arrsrpt Program Icustrec Copy QRPGLE,CVTPROCPCallp Endsr Arrsrpt Following AboutISO Move Duedate Return Else Endif DDS Coding Considerations When Coding Module with multiple procedures You Will WantGeneral Considerations Coding Considerations Subprocedure Considerations Main Procedure ConsiderationsContain a program entry procedure and only a Cannot Contain Bound Procedure Calls Subprocedures Main ProceduresFor Further Information For For Further Information Prototyped Call Running an Application ILE RPG for AS/400 Programmers Guide File StatementsSource Creating a Library Entry Utility Using the Source Entry UtilityUsing SEU Ipcx IPCIPP Ippr Saved Press F3 Exit To the Exit display. Type Y Yes to save Using SQL Statements Using SQL StatementsStatements Calculation specification Start Your DB2 UDB Refer toADTS thefor AS/400 Source Entry Reference for moreUtilitymanual for Information about How SEU handles Statement Syntax Checking With CommandUsing the Crtbndrpg Command Shows Their Default Values You can use the Crtbndrpg Command interactively Batch From Creating a Program for Source Debugging Debugged Using a Source View Program TypeList Creates View similar Compiler listing Creating a Program with Static BindingThis example you create Program Display Module Source Bnddir Command¹ Wrkjob ¹ Wrkoutq queue-name Chain Emprec Not *IN99 Disk Fqsysprt PrinterPayroll Register Date Empname Emprate Using a Compiler Listing Using a Compiler ListingListing Obtaining a Compiler Customizing a Page Heading Customizing a Compiler ListingCompiler Listing Xref Customizing the Spacing Last UpdateIndenting Structured Operations PAGE/LINE Listing ErrorsEither Create This Will Add Sec Level text to the messages listed Message FLD2 Using In-Line Diagnostic MessagesFLD1 SEU Using Additional-Diagnostic Messages Correcting Run-time ErrorsBrowsing a Compiler Listing Using SEU Source Entry Utility Expdds these are the defaults Using a Compiler Listing for MaintenanceCoordinating Listing Options with Debug View Options Specified, and in the column labeled as Sta Ment Data Area Accessing the Returncode Data Area Accessing the Returncode Data Area Creating CommandsModule Object Chapter You Create a Module using the Create CommandUsing the Crtrpgmod Requested Creating a Nomain ModuleCreates a compiler listing which Crtrpgmod MODULEMYLIB/TRANSSVC SRCFILEMYLIB/QRPGLESRC Then Select option Display4 spooled ¹ DspjobFiles Related Files N/A Related Source Transrpt Endsl OtherEndsl Return Prototype for TransInc Creating a Module forProd Prototype for ProdName QTY Ftrnsdta Disk Fqsysprt PrinterItrnsrec RPG, mainthe procedureis Related CL CommandsAdditional Examples Modules Binder Binding Modules into a ProgramBinding Modules into a Program Command UsingInto a Crtclmod Group Concepts for ExportModules Trpt 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 Service Program Overview Creating a Service ProgramService Program Overview Dspsrvpgm Payroll DETAIL*PROCEXP *DATAEXP Creating a Service Program Using Crtsrvpgm Strategies for Creating Service ProgramsCreating a Service Program Using Crtsrvpgm Service Program Using Crtsrvpgm Changing a Service Program API Sample Service ProgramSample Service Program Const OPTIONS*VARSIZE OpdescOPTIONS*VARSIZE Ceedod Enddo ExsrBegsr Eval DIV MVR Parameters Crtsrvpgm command Creating the Service ProgramStrpgmexp Signaturecvthex Export Symbolcvttohex Endpgmexp Input String Charactern Output Hex string Character2 * n Create the program by typing Binding to a ProgramCrtrpgmod MODULEMYLIB/CVTHEXPGM SRCFILEMYLIB/QRPGLESRC Call Cvthexpgm Clear Callp Copy RPGGUIDE/QRPGLE,CVTHEXPRExcept Clear Sample Binder Listing Updating the Service Basic Binder listing for Cvthexpgm Sample Service Program Running a Program Using Running a Program Using the CL Call CommandRunning a Program 103 Passing Parameters using 106 shows DDS That is Referenced by the EMPRPT2 Source Running a Program From a Menu-Driven Application ApplicationRunning a Program From a Selecting Option Design menus RPGCHG, or Rpgadd respectively You Run Menu by EnteringRpginq Running a Program Using User-Created CommandReplying to Run-Time Inquiry Messages Replying to Run-Time Inquiry Groups Ending an ILE ProgramManaging Activation Wheresequence-no Specifying an Activation Managing Activation GroupsGroup OFF Compatibility DefaultRunning in the OPM Activation Deleting an Activation Reclaim Resources CommandGroup Activation Groups Such 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 Managing Your Own Heap RPG procedure ThisBindable APIs Call Somepgm Dynarray SeeAPI theReference Ceecrhp Copy DynarriCeegtst Subsalloc Initalloc Dynainit ResetADD Initalloc Enddo Dynainit Ifgt Dynaset ExportExsr Realloc Endif Eval Realloc Begsr Enddo Endsr Dynaset Else ADD SubsallocDynaget Export Ifle Crtsrvpgm Get Heap Storage Program/Procedure Call Overview Calling Programs and ProceduresProgram/Procedure Call Overview 127 Static Calling ProceduresCalling Programs Stack Call StackCall stack That Most r Stack Entry is Bottom Recursive CallsRecursive calls are only allowed For Recent Caller Parameter-Passing Considerations Program/Procedure Call Overview ¹ Subprocedures in the same module Using the Callp OperationRPG Prototyped calls Are also Known Callp Calling within an Expression Using a Prototyped Call31A 30P Passing Prototyped Parameters Examples of Free-Form CallParameter Passing Styles Passing by Reference Figures below Passing by Value Extprocdocalc PassingDocalc Export Docalc Ceetsta Extprocceetsta Using Operational DescriptorsILE CEE API Omitting Parameters When Calling Procedure You may sometimes want Leave Out ParOPTIONS*OMIT Omit Leaving Out Parameters Passing *OMITOPTIONS*OMIT*NOPASS API Qcmdexc Psds Passing Prototyped Parameters Checking for the Number OPTIONS*NOPASS Const Copy FmtaddrpEval Address = %TRIMRCSTREET# + + Trimrprovince Return Endif Endsr Begsr MovelCheck OPTIONS*NOPASS 144Ctdata 5P 0 DIM2 Ctdata Passing Less Data Than Required To create PRTADDR, using the source in on page 144, typParameters To create the program, PRTADDR, type Effect Order of EvaluationInterlanguage Calls Calling Considerations InterlanguageTo obtain Actual Returned value DCL &RET2 TYPE*CHAR LEN2 DCL &RET1 TYPE*CHAR LEN1 Fixed-Form Call Operations Operation Operation extender is Used With Using the Fixed-Form Call OperationsFor Callb only Examples of Call and Callb Passing Parameters Using ParmOperations Operation Plist Using the Plist OperationFixed-Form Call Operations Procedure Returning from a Main ProcedureNormal End Returning from a Called Entry Parm operation is perfor Returning from a Called Program or ProcedureAbnormal End Without Returning from a SubprocedureFor the AS/400 Reference Retu Returning using ILE Bindable Using Bindable APIsSubprocedure ends abnormally APIs Calling a Graphics Routine Examples of Using Bindable APIsCalling a Graphics Routine Ceeutx Multithreading Considerations Calling Special RoutinesMultithreading Considerations TheGDDM Programming Guide Share Data How toAcross Will Wait For MOD1 Unlock. Procedures Not Example, consider the situation where two procedures CalledHow To Avoid Deadlock PROC1 ConsiderationsMOD2 MOD1 161 Debugging and Exception Handling ILE RPG for AS/400 Programmers Guide ILE Source Debugger Debugging ProgramsILE Source Debugger 163 Attr Debug CommandsEquate Eval Thread TbreakWatch Find Preparing a Program for Debugging Order Debug it usingPreparing a Program for Source Options On the Dbgview parameter for Either Creating a Root Source ViewCrtbndrpg PGMMYLIB/DEBUGEX SRCFILEMYLIB/QRPGLESRC Crtrpgmod MODULEMYLIB/DBGEX SRCFILEMYLIB/QRPGLESRC View Listing ViewDbgview Module Program for Debugging View OPMSRC*NO Starting the ILE SourceStarting the ILE Source Debugger Strdbg Example Setting Debug OptionsStart a Debug Session for the sample debug program Debugex Into OPM source debug support field, SET Example of Removing ILE Programs from a Debug Session Example of Adding a ServiceAdding/Removing Programs from a Debug Session Debug Session Viewing the Program Source Viewing the Program SourceCobol Lstdbg ILE Libl PGM Viewing a DifferentDbgex Module Changing the View of aSeveral Different views Cproc Setting and Removing Breakpoints Setting and Removing BreakpointsSpecified You Not Erate Breakpoints Specify OPTION*NODEBUGIO With the source positioned at the line where the breakpoint Setting and RemovingDebug Command to set a job breakpoint Breakpoints Breakpoint Setting anJob Debug Command Sets a Thread breakpo Single Current Setting and Removing Unconditional Thread BreakpointsDebug Greater Than Equal To one Breakpoints Job Line Example of Setting a Conditional Job Breakpoint Using F13Conditional Breakpoint Work with Module Breakpoints Setting a Conditional Job Breakpoint Using CommandBreak 128 when BigDate=1994-09-30 National Language Sort Sequence Nlss Sort Sequence Control Spec Tion Is not available One procedure per module,procedurethe -namecan Either On the debug command lineMain procedure or one of the subprocedures Varia Set a breakpoint for Module With This Example Statement View Is used to Set Breakpoint ForSet Breakpoint For Module with Listing, type Using the Work with Module Breakpoints Display Setting and Removing Conditional Thread BreakpointsProcedurevariables-name and statement-number Main Procedure Exit Setting and Removing Watch Conditions Debug CommandsRemoving All Job Conditions Display Characteristics of WatchesProgram statemen You Debug One Job From Another On the debug command line, without any parameters Setting Watch ConditionsWatch Salary Payroll ¹ To specify a variable or expression to be watched, typePayroll ABC PGM Removing Watch Conditions Displaying Active WatchesEnddbg IPL Example of Setting a Watch Condition Example of Setting a Watch ConditionBlankDisplay Module Source Display as shown below. Instead Stepping Through ObjectStepping Through the Program Object Subroutines You Can Over Into SubproceduresStepping Over Call Statements TIP Stepping Into Call StatementsStep Into This example, you use F22 Step Into to step Into the OPM F22From Program Debugex 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 Scalar Fields RPG Definition Unexpected Results when Evaluating VariablesBased Fields Date, Time, Timestamp 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 Variable-Length Fields DataBy Pointers Displaying Null-Capable Fields String = 1ABCD6 STRING=%SUBSTRBIGDATE 1 4 = Fields = Abcdef Changing the Value of Fields Equating a Name with a Field, Expression, or Command Or CommandDisplaying Attributes of a Field Equating a Name with Examples ForSample Source for Debug Examples Sample Source for Debug Examples Program using Source 215, typeTo create the program DEBUGEX, type First Module DS1 DIM3 CtdataInzabcde DS2 Call Rpgpgm Occur DS2 MovePlist Parm Else Eval Dump SetonEntry Plist Parm Dsply Seton Source for C Procedure cproc. cproc is called by Dbgex Exception Handling Overview Handling ExceptionsException Handling Overview 217 Program Procedure P1 is Contro Boundary Indicates That Severe error has been detectedDescribes Status Work Being done by a program Call st Active on Exception Message Exception Handling within Dure will Only Handle Errors That SubprocedureILE RPG Exception Handling Operation For PGM C OPM Using Exception Handlers Using Exception HandlersException Handler Priority Nested Exceptions Escape Message For other Types MessagesPGM2 PRC1 Operation as well Example of Unhandled Function CheckPGM1 PGM2, each Containing a procedur Optimization Considerations Using RPG-Specific HandlersFor More Information Optimization See Changing Level Built-in-functions Infsr error Subroutines, on Exsr Operation Code Infds This Section Provides Some Examples How to Use Each These RExtender ILE RPG For AS/400 Reference provides Program Error Using an Error SubroutineOperation. If Either Explicitly c Using a File Error Infsr Subroutine Disk Ftrnbacklg O Fprint Printer INFSRPrdInfsr INFDSPrdInfdsPrdInfds PrdStatus Status Infds Position Definition Specification Enter Using a Program Error SubroutineAfter Keyword Operation With Factor Entry Proc Body of Code Goes Here ParmsPssr Begsr Move Getin If control reaches ENDSR, the procedure will fail If this is a divide-by-zero error, add 1 to the divisorTAG DIV Try again Err = Pssr Exceptions Order Show how to avoid looping WithinWhich is designed to ge Subrou Else ADD After the ElseMove Inlr OFL Specifying a Return Point ILE Condition Handlers Using a Condition HandlerILE Condition Handlers Handlers Printer Rpghdlr 132LIKECondTok Action 10I OutCondTok LIKECondTok Is registered Procedure Parameters Include Pointer Shows Source For ProcedureCondition Handler Communication Area Which Contains Pointer Ceehdlu ARR1 Noopt ProcptrSDS Noopt Proc Begsr Callp Subst 244 Cancel HandlersCeertx Ceeutx ILE Pssr has a Return operation, so the call from the main Procedure to SubProc will not failSubproc Pssrdsply Return Endsr Callb Ceertx Parm INZ0 StaticParm Omit Select When Condition Handlers Enabled Using RPG usingCancel Hdlr Dsply Msg CanHdlr Likely Occur With Endif Return Condition Handler that Ignores CPF4906 MsgSev = Warning Handle information or warning messages, otherwise percolate ILE RPG for AS/400 Programmers Guide Using the Dump Operation Code Using the Dump Operation CodeObtaining a Dump Obtaining an ILE RPG Formatted Dump Does not Occur Formatted Dump¹ If a Dump operation is bypassed By a Goto operation, Dump 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 Associating Files with Input/Output Devices Defining FilesAssociating Files with Input/Output Devices 261 Operation Device Dependent Device dependency Is that Compilation Time CertainOperation Code is Valid Only Write Types of File Descriptions Naming FilesTypes of File Descriptions Program-Described Using Files withFiles Example of Some Typical Relationships between OPTION*EXPDDS Defining Externally Described FilesDefining Externally Described Ignoring Record Formats Renaming Record-Format NamesRenaming Field Names Nbrofcharreplaced. Figure Modify an Using Input SpecificationsDescription External Indicator Record You Then Fixed Name Specification Will Get ErrorFiles Used Program This Example Field Using Output Specifications For Character Fields zero Level CheckingIs written ALL Data Management Operations and ILE RPG I/O Operations Defining Program-Described FilesRPG I/O Operations SEQ Special Delete Data Management Operations and ILE RPG I/O Operations Overriding and Redirecting File Input and Output File ConsiderationsOverriding 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 Path See UsingSharing an Open Data Control For More Information Spooling SpoolingProgram Details System Open Options Allowed for Each Can Specify Program Versus Output Spooling SRTSEQ/ALTSEQ Database Files AccessingPhysical Files and Logical Files Data Files and Source Record Format Specifications Using Externally Described Disk FilesAccess Path Using Externally Described Disk Files Unique Contained Physical file CUSMSTP, which is IdentifiedUnique Basdat Edtcdey Dstref Distribution Application Field ReferenceCust Checkmf Addr Reffldname Disk Valid Keys for a Record FileCity Edtcdej Referring to ArgumentsPartial Key Used, Record Blocking and Unblocking Using Program-Described Disk Files Using Program-Described Disk FilesIndexed File Valid Logical file ORDDTLL. For the two fields Keyword specifies position 15 as the starting po Record Address File Sequential File10AIDISK Move Order KEY Chain Limits Records Methods for Processing Disk FilesRelative Record Numbers Methods for Processing Disk Files ADD Consecutive ProcessingSubsequent Text Describes Each Method Processing Examples of Sequential-by-Key Processing Sequential-by-Key ProcessingDatabase Programming Database Programming manual Weekly hours worked Example, the employee master record Fprint YTDRPT1 Related Files EMPL1FEMPL1 Disk Iemprec Ircweek Setoff Read EMPL1 Goto Eofend Move Enum Empno YTDRPT2 Related Files EMPL1Seton Endif Eofend TAG Seton Records Are Processed as Matching records With For Processing Disk Files ADD Ehwrk Tothrs ADD Tothrs Totovt SetoffSUB Enhrs Ovthrs ADD Ovthrs Totovt Seton Endif Oprint Example of Random-by-Key Processing Random-by-Key ProcessingEmstupd Descriptions Nnhrs Fchange Sequential-within-Limits ProcessingChange Disk Files Examples of Sequential-within-Limits Processing Limits ESWLIM1 Related Files EmpmstFlimits Disk 3PIDISK KEYLOC1 Fprint Fempmst Disk Fprint Relative-Record-Number ProcessingESWLIM2 Related Files Empmst Valid File Operations Valid File Operations Z/F Recno Starting and Ending Commitment Using Commitment ControlUsing Commitment Control Abridged for See theBackup and Recovery manualCommitment Control Locks Files For UsingSpecifying Concepts, Journal Example of Using Commitment ControlReceiver Update Mastrec Tranrec This command calls the program ReviseControl Disk Commit Ftrans DDM Files CycleDDM Files ReferDistributedto the Data Pre-V3R1 DDM DDM Files Types of Device Files Chapter AccessingAttached 315 Accessing Printer Devices Accessing Printer DevicesSpecifying Printer Files Handling Page Overflow Overflow On an and notline,anoverflowthe linelineis Example of Printing a Field on Every Example of Printing Headings on EveryOANL2 Account 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 Accessing Tape Devices Accessing Tape DevicesPrint File Name Associated Data Structure is Using Sequential Files Accessing Display DevicesUsing Sequential Files Ovrdbf Using Special Files Using Special FilesFile Program name Description ErrorStatus Special Pgmnameuserio Example of Using a Special FileFLD Spcl Plist Parm FLD1 Movel Hello Write Excptn Outbuf Seton Userio Are Added To the end of the RPG-created Parameter listProgram User-written routine Function Using Workstn FilesUsing Externally Described Workstn Files On page 333 shows an example of the DDS for a display-devic ¹ Output Prompt RefdstrefOverlay Descrp Device Specifying Function Key Indicators on Display Device FilesSpecifying Command Keys Display Processing an Externally Described Workstn File Using Subfiles Sfile Field You press Specified Function key During Read Use of SubfilesName Search SFL TEXTSubfile Record Subfil Using Program-Described Workstn FilesUsing Program-Described Workstn Files With Using a Program-Described Calculation Specifications Input SpecificationsName Format Input File Valid Workstn File OperationsOutput File Combined File Read Operation Exfmt OperationWrite Operation Multiple-Device Files Keyword. This field Initialized Is updatedDevid Multiple-Device Files Database Physical File Example of an Interactive ApplicationDatabase Physical File 345 DDS for a InquiryDisplay Device Main Menu Inquiry Cusmain RPG Source Main menu will appear as in on Using Crtrpgmod Create Program By enteringFirst option specifies that the first module in the list File Maintenance File MaintenanceCUSMSTL1 DDS for a Logical 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 Update Mode When Move ADD Mode WhenMove Delete Mode When Move Display Mode Endsl MODE1 Endsr Customer File Maintenance Display ModeCstinq 223021 223106 On page 357 a new customer is added to the Customer Mast30/94 Customer 00007 223143 Bathurst Avenue ADD ModeDelete Mode Search by ZipSearch by Zip Code Code Related Files CUSMSTL2 SzipmenuFile SZIPMENU. IT has REFCUSMSTL2 Printqsysprt Indara Indicates when to display Subfile When Indicator 55 is Schzip RPG Source ADD Zero Recnum Endsr Write Subctl Move OFFMove OFF Zip File indicator 71 on thRoutine 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 Snammenu DDS for a Display Device FileFOOT2 Subfile Schnam RPG Source Records Using SubfilesThis Program Prompts the User for the Customer File by the Setll OPERATION. then IT Displays Example of an Interactive 367Application File Record Count File Indicator On the Read operationRecnum Inc Judah Gould 233948 30/94 Customer 00012 Name Inquiry by NameGould Yorktown 371 Appendixes ILE RPG for AS/400 Programmers Guide For AS/400 RPG/400 ILEAppendix Differences Debugging and Exception Running RPG III RPG/400 Will Issue Will issue the RNQ1222 inquiry MessageWill issue the RNQ1022 inquiry Message Will Issue Dbcs Data in Character Fields Compiler Such Programs Will Get Compilation errors Differences Between OPM RPG/400 Conversion Overview Appendix B. Using379 Hurry File Record Length File Considerations USE Log FileConversion Aid Tool Requirements Converting Your Source Wont DoConverting Your Source Aid Cvtrpgsrc Command Libl FromfileCurlib Frommbr Qrpglesrc TofileNone Tombr YES ExpcpyCvtrpt Seclvl YES Insrtpl Source DefaultsConverting a Member Using Performing a Trial Conversion Converting All Members in a FileConverting Some Members Cvtrpgsrc FROMFILEOLDRPG/QRPGSRC Frommbrpayroll TOFILE*NONE Converting Auto Report Obtaining Conversion ReportsSource Members CVTRPT*NO Data Inserting Specification TemplatesExample of Source Conversion Example of Source Conversion Converted source is shown in on Example Source ConversionTo convert this source, enter ARR2 Analyzing Your Conversion III specifications for ARR2. The Conversion AidAnalyzing Your Conversion DS1 Shows Command summary for a sample Conversion Using the ConversionReport Conversion Aid generates a conversion report if you specify Call PROG1 Your Using the Log File Lgdate Colhdgcvt Date Qrncvtfm Lgcent Colhdgcvt CentYmmdd Lgtime Colhdgcvt Time Compilation Errors in Existing RPG III Code Resolving Conversion ProblemsUnsupported RPG III Features Use of the /COPY TEST1 Records Using Context-Sensitive ProblemsMembers in the converted RPG IV source member Comp Use of Externally Command Or manually Correct Code After ConversionStructures Char Merging an Array with an Externally Described DS Subfield When convertedInitializing Extrec Behavior With Run-time DifferencesXYZ Dsone Extnameextrec Char Resolving Conversion Problems Using CL Commands Appendix C. The Create CommandsHow to Interpret Syntax Diagrams Reading Syntax Diagrams Crtbndrpg Command Crtbndrpg CommandValues KEYWORDREQUIRED-VALUE Appendix C. The Create Commands407 PGM Description of the Crtbndrpg CommandProgram-name Srcfile Genlvl SrcmbrText Srcmbrtxt Noxref OptionGEN Nogen Elseif Noext Dbgview EventfStmt List Output ALLPrint Optimize Datetime CvtoptGraphic Varchar Replace LangidUsrprf User Change IssuedUSE Exclude Zoned FixnbrTgtrls PRV Inputonly AlwnullBnddir Binding-directory-name Actgrp UsrliblQile NEW Crtrpgmod Command Crtrpgmod CommandPrfdta Nocol Appendix C. The Create Commands421 Usrprf Description of the Crtrpgmod commandPF4 PF1 423 Appendix D. Compiler ListingsCompiler Listings Compiler Listing Which was Compiled UsingReading a Crtb Source member Module or ProgramCompiler options Indentation Mark 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 Line Number 1a/ *NOSRCSTMT Source HeadingRuler Line Do Number Additional Diagnostic Copy Member Table Output Buffer Positions Total Number of Characters Altered Compile-Time DataCharacter to be Altered Alternate Sequence 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 Éâôù

SPECIAL Files

Positions

26-35

Example of Using a Special File

Figure 163 shows how to use the RPG device name SPECIAL in a program. example, a file description found in the file EXCPTN is associated wi

SPECIAL PGMNAME('USERIO')

FLD

SPCL

PLIST

PARM

FLD1

MOVEL

'HELLO'

WRITE

EXCPTN

OUTBUF

SETON

Figure 164 on page 330 shows the user-written program USERIO.

AS/400 specifications