List of Figures

Chapter 5: Operation Codes

Example 5.1: Using the program status data structure to detect a divide-by-zero error.
Example 5.2: Detecting a record lock/time-out condition.
Example 5.3: Graphic illustration of RPG nesting.
Example 5.3: Graphic illustration of RPG nesting in free format.
Example 5.4: Acquiring a workstation device.
Example 5.5: Adding variables and constants.
Example 5.6: Using ADDDUR to add 30 days to a date variable.
Example 5.7: Allocating 500 bytes of memory.
Example 5.8: Using ANDLE to extend the DOWxx operation.
Example 5.9: Performing a subroutine.
Example 5.10: Converting the contents of an array to lowercase letters .
Example 5.11: Converting the contents of an array to uppercase letters.
Example 5.12: More examples of bit manipulation.
Example 5.13: Branching to certain labels based on the contents of various fields.
Example 5.14: Calling a program and passing two parameters.
Example 5.15: Calling a program and passing a data structure name as the parameter.
Example 5.16: Calling a bound procedure.
Example 5.17: Calling a procedure or program that has been prototyped.
Example 5.18: Testing for less than, equal, and a catch-all situation.
Example 5.19: Concatenating two values.
Example 5.20: Using CAT to build an address line.
Example 5.21: Accessing an externally described file using a key list.
Example 5.22: Reading a program-described file into a data structure.
Example 5.23: Verifying factor 2 against a list of characters .
Example 5.24: Using CHECK to find first nonblank character in a field.
Example 5.25: Using CHECK to build a proper salutation.
Example 5.26: Finding the length of data for a variable-length field.
Example 5.27: Clearing a data structure.
Example 5.28: Closing a data file by naming the file.
Example 5.29: Committing with a boundary identifier.
Example 5.30: Comparing fields to constants.
Example 5.31: Using DEALLOC to return memory to the system.
Example 5.32: Defining three derived fields.
Example 5.33: Defining an external data area and assigning the data area to the field named.
Example 5.34: Deleting a record by specifying a key list in factor 1.
Example 5.35: Deleting a record using CHAIN/DELETE combination.
Example 5.36: Long and short forms of division.
Example 5.37: Long form division with remainder.
Example 5.38: Division with rounding (half-adjust).
Example 5.39: Structure of a DO/ENDDO loop.
Example 5.40: Performing a DO group multiple times.
Example 5.41: Nested DO...END groups.
Example 5.42: DOUxx with ANDxx extension.
Example 5.43: DOU with OR extension to fill a subfile with 20 records.
Example 5.44: DOU with extended factor 2 to condition a DO UNTIL loop.
Example 5.45: DOWxx with ORxx extension.
Example 5.46: DOWxx with ANDxx extension to fill a subfile with 20 records.
Example 5.47: DOW with extended factor 2 to condition a DO WHILE loop.
Example 5.48: Display a message at the workstation.
Example 5.49: Producing a dump when divide by zero occurs.
Example 5.50: Using ELSE for conditioning.
Example 5.51: Using elseif for conditioning.
Example 5.52: Ending a DOU loop and an IF.
Example 5.53: Ending subroutine with a label.
Example 5.54: Exception/error subroutine with program cancel.
Example 5.55: Using an expression on the EVAL operation.
Example 5.56: Using an expression on the EVAL operation.
Example 5.57: Exception output to a program-defined printer file.
Example 5.58: Exception output with an EXCEPT label to a program-described file.
Example 5.59: Exception output to an externally described database file format.
Example 5.60: Exception output to release a locked record.
Example 5.61: Retrieving and displaying a data file record.
Example 5.62: Performing a subroutine to compute profit.
Example 5.63: Using EXTRCT to retrieve the day of the month.
Example 5.64: Forcing the end of data of a data file.
Example 5.65: An example of the FOR/ENDFOR operation.
Example 5.66: Forcing input from a secondary file.
Example 5.67: GOTO controlled looping.
Example 5.68: Conditioning a group of operations on a single comparison.
Example 5.69: Using the IFxx and the ORxx to test for a list of values.
Example 5.70: Using the IF and the AND to test for a range.
Example 5.71: Using the compound form of IFxx to control entry into a subroutine.
Example 5.72: Using alternate IF to control entry into a subroutine.
Example 5.73: Defining then retrieving a data area.
Example 5.74: Using ITER to bypass unnecessary code.
Example 5.75: Using a key field for access by warehouse and part number.
Example 5.76: Accessing a part master file via a key list.
Example 5.77: Using LEAVE to exit a DOUEQ loop.
Example 5.78: Using LEAVESR to exit a subroutine.
Example 5.79: Searching an array for a valid code.
Example 5.80: Monitor Group.
Example 5.81: Various MOVE operations.
Example 5.82: Moving with length of factor 2 greater than the result field.
Example 5.83: Moving with length of factor 2 shorter than the result field.
Example 5.84: Moving a field to an array—no indexing.
Example 5.85: Moving a field to an array with indexing in the result field.
Example 5.86: Moving an array to a field with indexing in factor 2.
Example 5.87: Moving an array to an array with indexing in factor 2 and the result field.
Example 5.88: Moving a value repeatedly to an array.
Example 5.89: Moving a 10-digit phone number to an area-code field.
Example 5.90: Moving left with factor 2 longer than the result field.
Example 5.91: Moving left with factor 2 shorter than the result field.
Example 5.92: Moving left with factor 2 shorter than the result field with pad.
Example 5.93: Using MOVE and MOVEL with date fields.
Example 5.94: Long and short forms of multiply.
Example 5.95: Multiplication with rounding.
Example 5.96: Integer division with remainder.
Example 5.97: Controlling input sequence with the NEXT operation.
Example 5.98: Illustrating the use of the OCCUR operation.
Example 5.99: A multiple occurrence data structure.
Example 5.100: Monitor Group.
Example 5.101: Opening a file, printing it, then closing the file.
Example 5.102: Using OREQ to extend the DOUxx operation.
Example 5.103: Testing input and performing a routine.
Example 5.104: Using a data area to store a control number.
Example 5.105: Passing parameters to a called program.
Example 5.106: Defining a parameter list.
Example 5.107: Specifying parameters without a parameter list.
Example 5.108: Defining a program-entry parameter list.
Example 5.109: Defining a parameter list for a program call.
Example 5.110: Additional parameters of a SPECIAL device file.
Example 5.111: POST status information to an information data structure.
Example 5.112: Reading a file until end of file is detected .
Example 5.113: Reading a workstation file with timeout support.
Example 5.114: Displaying a subfile then reading all changed records.
Example 5.115: Adding up the quantity on hand for a specific part number.
Example 5.116: Reading a data file backwards and filling a subfile with the data.
Example 5.117: Reading a data file backwards and filling a subfile one page at a time.
Example 5.118: Adding the quantity on hand for a specific item number.
Example 5.119: Reallocating memory based on a calculated value.
Example 5.120: Releasing an acquired workstation device.
Example 5.121: Resetting a data structure.
Example 5.122: Returning to caller from a dynamically called program.
Example 5.123: Returning a value to the caller with a procedure interface.
Example 5.124: Rolling back a file under commitment control.
Example 5.125: Finding a search argument in a character variable.
Example 5.126: Using a SELECT statement to delimit an in-line case group.
Example 5.127: Positioning a file with SETGT.
Example 5.128: Positioning a file with SETLL.
Example 5.129: Setting off various indicators.
Example 5.130: Setting on various indicators.
Example 5.131: Testing for a session shutdown request.
Example 5.132: Sorting the array ALPHA in ascending order.
Example 5.133: Calculating the square root of a value.
Example 5.134: Subtracting factor 2 from factor 1 and then decrementing the result.
Example 5.135: Illustrating array handling with the SUB operation.
Example 5.136: Using SUBDUR to calculate past-due invoices.
Example 5.137: Using SUBDUR to calculate various durations and new dates.
Example 5.138: Using SUBST with SCAN to split a name into first and last names .
Example 5.139: Branching to a label when end of file is detected.
Example 5.140: Testing for various date values.
Example 5.141: Testing various field bit values.
Example 5.142: Illustrating the TESTN operation.
Example 5.143: Illustrating the TESTZ operation.
Example 5.144: Retrieving the system time and the system time and date.
Example 5.145: Releasing all data area locks for a program.
Example 5.146: Unlocking a record previously locked.
Example 5.147: Updating a master data file and a subfile.
Example 5.148: In-line case group with SELECT/WHENxx/OTHER statements.
Example 5.149: Writing to a master data file and a subfile.
Example 5.150: Illustrating XFOOT with a numeric array.
Example 5.151: Translating lowercase characters to uppercase characters.
Example 5.152: Translating blanks to periods.
Example 5.153: Translating with starting position.
Example 5.154: Illustrating the Z-ADD operation.
Example 5.155: Illustrating the Z-SUB operation.