- 3251. Structured Programming
- (RPG)
- From: Doug Payton To: All Perhaps many RPG programmers already know of the following technique. I think it is worthwhile because it makes screen error checking and function key use very readable. 6 contains ...
- Created on 30 April 1994
- 3252. The Scramble Bytes (SCRAMBLE) Command
- (IBM i (OS/400, i5/OS))
- ... program for this command is an RPG program. The program returns without setting on the LR indicator, so it is still active upon returning. The FREE command or the Reclaim Resources (RCLRSC) command can ...
- Created on 30 April 1994
- 3253. Performance Implications of Date Storage Solutions
- (System Administration)
- ... and the Open Query File (OPNQRYF) command. But, they will not necessarily help you in RPG. In fact, the database date type may hurt you from a performance viewpoint. We'll look at some test results which ...
- Created on 30 April 1994
- 3254. Menu Design & Implementation w/ Graphical DDS: #2
- (General)
- ... types of menus that you can implement. Last month's DDS and RPG fragments have been expanded to full, operational code, with working examples of multiple-choice, single-choice and "no-choice" menus. By examining ...
- Created on 30 April 1994
- 3255. Run-time Screen Attributes
- (IT Infrastructure - Other)
- ... screen and attribute fields. 4 shows a partial RPG program which uses the display file in 3. The highlighted code labeled as A shows a series of named constants containing hexadecimal values. These values ...
- Created on 30 April 1994
- 3256. Changing Decimal Positions of Referenced Fields
- (RPG)
- Q: In my DDS, I have defined a field using the REFFLD. The field that is being referenced is defined with a length of 12 with three decimal positions. I would like the new field to have zero decimals. ...
- Created on 31 March 1994
- 3257. The Spell Check Text (SPLCHKTXT) Command
- (CL)
- ... this command from a command line. It also means that you can't use QCMDEXC to run SPLCHKTXT from within RPG or COBOL programs, which are strong candidates for spell-checking assistance. In this case, ...
- Created on 31 March 1994
- 3258. Obtaining Information on a Locked Record
- (CL)
- From: Randy Jaye To: All I have an RPG program that periodically displays a program message stating that the record being accessed is already allocated by another job. Does anyone know how to retrieve ...
- Created on 31 March 1994
- 3259. Creating Barcodes on a Budget
- (Document Management)
- ... them. (See 1.) To construct the label, I used PCL5, an RPG program and a printer file created with DDS. To compose the AIAG label in 1, I needed to print more than just the barcode. I printed the following ...
- Created on 31 March 1994
- 3260. Menu Design & Implementation w/ Graphical DDS: #1
- (General)
- ... We'll also build an RPG program to drive the display file. This first installment looks at defining and displaying menu bars and addresses the associated design considerations, with partial DDS and RPG ...
- Created on 31 March 1994
- 3261. Decimal-to-Hex Conversion Program
- (General)
- When communicating with ASCII computers through the async workstation controller of our AS/400, I sometimes need to convert a decimal number to its equivalent hexadecimal value. I wrote a short RPG program ...
- Created on 31 March 1994
- 3262. Run SQL Statements Without SQL/400
- (SQL)
- Our corporate system is a D60 AS/400 with QUERY/400, RPG/400, SQL/400 and other licensed programs installed. At other company sites in town, we have two C04s, a B10 and a C10. These smaller boxes are used ...
- Created on 31 March 1994
- 3263. Subfile Technique
- (RPG)
- From: Ed Seigler To: All I have a situation where I am attempting to display a screen format underneath an expanding subfile. On the initial display, the subfile control record displays at the top of ...
- Created on 28 February 1994
- 3264. Hold the Drop or Fold
- (RPG)
- ... will be in the SFLMODE variable which can be used to reset the indicator. To see the keywords in action, refer to the partial display file in 4 and the partial RPG program in 5. Before initially displaying ...
- Created on 28 February 1994
- 3265. Noncontiguous Keys
- (RPG)
- From: J Sehi To: All I have run into a big problem. My shop is currently on an AS/400 E45 running V2R2 and most of the software is still in the S/36 Environment. Any new development must be in RPG/400. ...
- Created on 28 February 1994
- 3266. Improving Performance with SETOBJACC
- (System Administration)
- ... CL program to set up the datapool before nighttime processing. Dynamic Datapooling The next example shows how to datapool dynamically. Suppose CL program RPC100 (see 3) calls RPG program RPR100 whic ...
- Created on 28 February 1994
- 3267. Turbocharge Remote Applications
- (System Administration)
- Brief: Remote access to the AS/400 can be painfully slow. This article describes a simple programming technique that can significantly improve response time. Applications running on remote workstations ...
- Created on 28 February 1994
- 3268. Automate Daylight Saving Time Changes
- (IT Infrastructure - Other)
- ... be used to your advantage to make your programming easier. In this case, I didn't even have to write a single line of RPG code! All the work is done for me by facilities already built in to IBM's CL language. ...
- Created on 28 February 1994
- 3269. The Validate Data Base File (VALDBF) Command
- (IT Infrastructure - Other)
- ... CDO: TAADBFJ (QATTCMD) CPP: TAADBFJC (QATTCL) RPG: TAADBFJR (QATTRPG) RPG: TAADBFJR2 (QATTRPG) PF: TAADBFJP (QATTDDS) Prerequisite The following QUSRTOOL tool must reside on your system prior to creation ...
- Created on 28 February 1994
- 3270. Open Query File
- (Business Intelligence)
- ... the select statement using *NE with the wildcard option. The CL compiled fine; but when I ran it, I received a CPF message with an error on CL command. I don't want to sort the file with an RPG program ...
- Created on 31 January 1994
- 3271. Correctly Size Numeric Fields
- (RPG)
- It's a known fact that the RPG multiply (MULT) and divide (DIV) operations do not perform as well as the other arithmetic operations. (See "The Truth About RPG Performance Coding Techniques," MC, September ...
- Created on 31 January 1994
- 3272. Positioning the Cursor in a Window
- (RPG)
- ... Structure (INFDS in RPG) for the display file. The INFDS contains the current cursor location in positions 370-371. This information can then be used with the Cursor Location (CSRLOC) DDS keyword to position ...
- Created on 31 January 1994
- 3273. The Create Command Help Utility
- (CL)
- ... RPG program CMD006RG (see 9) is called. This program merges the source member for the help panel group shell, CMDPGSHELL (12), with the command information from file CMD006PF to create the panel group ...
- Created on 31 January 1994
- 3274. The Display Print Spacing (DSPPRTSPC) Command
- (CL)
- ... TAAPRTE (QATTCMD) CPP: TAAPRTEC (QATTCL) RPG: TAAPRTER (QATTRPG) The foregoing article was adapted from Midrange Computing's QUSRTOOL Command Reference. The manual contains explanations and syntax diagrams ...
- Created on 31 January 1994
- 3275. Powerful Audit Functions Enhance V2R3 Security
- (IBM i (OS/400, i5/OS))
- ... internal control blocks. RPG and COBOL programs created prior to V2R2 need to be recompiled to run under Level 50 if they use workstation files. QTEMP Library. At Level 50, a new QTEMP library is created ...
- Created on 31 January 1994
- 3276. Security Patrol: Security Questions & Answers
- (IBM i (OS/400, i5/OS))
- Q:We are planning to conduct an RPG training class for students. We are concerned about limiting access of our student programmers. How would we go about giving our students authority with access to their ...
- Created on 31 January 1994
- 3277. Helpful SEU Tricks
- (General)
- ... press F16. o Often, when bouncing back and forth between widely separated sections of a long program, I intentionally place a syntax error in the source member. For example, a blank line in an RPG member ...
- Created on 31 January 1994
- 3278. Barcoding with DDS
- (IT Infrastructure - Other)
- ... the applications your shop creates, how urgently you need the application and-finally-your own desire to dig into the technical requirements. You might decide to write an RPG program that takes advantage ...
- Created on 31 January 1994
- 3279. Writing a UPS Monitoring Program
- (IT Infrastructure - Other)
- ... and RPG both provide an easy method of detecting whether a controlled shutdown request has been initiated. This gives your critical application programs time to perform any last-minute cleanup (e.g., making ...
- Created on 31 January 1994
- 3280. Trimming Leading Zeros
- (RPG)
- Here's my method for trimming leading zeros from a character field in RPG (V2R1 or later). Let's say a character field with a length of 10, named CHRNUM, contains the value '002300450'. The TRMZRO subroutine ...
- Created on 31 December 1993
- 3281. Command Default Changed
- (CL)
- ... RPG Program (CRTSQLRPG) command. The COMMIT parameter default has been changed from *NONE to *CHG. RPG programs with embedded SQL statements which selected records from unjournaled database files via ...
- Created on 31 December 1993
- 3282. String-Scanning Performance Comparisions
- (System Administration)
- ... or RPG statement-not in a comment. SCNSRC can't make that distinction, but you can when you see the spooled output. An example of the SCNSRC output is shown in 5 (page 112). SCNSRC prints a simple listing ...
- Created on 31 December 1993
- 3283. Intelligent Upgrade Alternatives
- (Analysis of News Events)
- ... it against the cost of upgrading. Suppose you are running this system at peak performance with three programmers and the following software licenses: OS/400, PC Support/400, RPG/400, Application Development ...
- Created on 31 December 1993
- 3284. Barcode Printing on the AS/400
- (Document Management)
- ... further RPG encapsulation requirements. You simply need to identify a field in your DDS as a BARCODE, specifying the type of code and its size, and then compile the printer file. AFPDS does the rest. ...
- Created on 31 December 1993
- 3285. Enhancements to the Application Development Tools
- (General)
- ... them from the job log using F9 on a command line. For example, if you take option 2 on the WRKMBRPDM screen to edit the source member INV001RG in source file QRPGSRC in INVLIB, pressing F9 would retrieve ...
- Created on 31 December 1993
- 3286. No Output on ERRMSGID
- (IT Infrastructure - Other)
- From: Chris Ringer To: All After a few very frustrating hours of work on an AS/400 interactive program, I determined why my output was not always sent to the screen. I used indicator- conditioned ERRMSGIDs. ...
- Created on 31 December 1993
- 3287. Using //FILE to Build Files
- (DB2)
- I have been gradually converting RPG II programs to RPG/400 programs and running them in the S/36 Environment using OCL procedures. During this step-by- step conversion process, one of my RPG/400 programs ...
- Created on 30 November 1993
- 3288. More Powerful Message Subfiles
- (RPG)
- ... II" (MC, April 1992). The message for the third field is generated by the system. Now that you know what this example does, let's take a look at the DDS and RPG. The DDS Message Subfile 3 shows the DDS ...
- Created on 30 November 1993
- 3289. Cancel with CA12 Instead of CF12
- (RPG)
- While testing one of my RPG/400 programs, I typed invalid data into several fields which were coded with validity-checking keywords such as RANGE and VALUES. As I expected, after pressing the Enter key, ...
- Created on 30 November 1993
- 3290. Using the S/36E RUF Technique
- (RPG)
- Q: We have migrated a S/36 application to our AS/400 and are running it in S/36 Environment. The S/36 procedures that use the read-under-format (RUF) technique won't run. The RPG program that reads the ...
- Created on 30 November 1993
- 3291. Event-driven Programming with Data Queues
- (General)
- ... attention first: either an input from the display file, or an input from the data queue. Note that the record format is written. The usual write/read operation (EXFMT in RPG terms) is not used, because ...
- Created on 30 November 1993
- 3292. An Introductin to Distributed Data Management
- (IT Infrastructure - Other)
- ... DDM? DDM is part of OS/400. It permits applications or users on an AS/400 to access database files that exist on a remote system, with little or no RPG program modification. Access to remote files is ...
- Created on 30 November 1993
- 3293. String Highlights
- (RPG)
- String Highlights From: Eric Hill To: All I want to highlight certain characters in a string of data. Has anyone done this? I would like to display select characters within a string in high intensity. ...
- Created on 31 October 1993
- 3294. Roll Keys with Subfiles
- (RPG)
- Roll Keys with Subfiles From: Robert Munday To: All I require assistance with a subfile matter, and I'm turning to those of you who are more experienced. I have solved this problem with command keys, ...
- Created on 31 October 1993
- 3295. Retrieving the Relative Record Number
- (RPG)
- Retrieving the Relative Record Number Q: In an RPG program, how do I retrieve the relative record number (RRN) of a record read using a keyed file? The file being read is a logical with duplicate keys ...
- Created on 31 October 1993
- 3296. Floating Minus Signs
- (RPG)
- Floating Minus Signs Although there wasn't much fanfare upon its introduction a couple of years ago (in V1R3 of OS/400), IBM finally did provide something that users have wanted for years: the ability ...
- Created on 31 October 1993
- 3297. The Find Job Descriptions with Objects Utility
- (APIs)
- ... Interface Reference manual. Most of the formats can also be found as data structures in the QATTRPG source file in the QUSRTOOL library. The third parameter must contain the object name followed by it ...
- Created on 31 October 1993
- 3298. Improving the Performance of Program Calls
- (System Administration)
- ... a considerable amount of system overhead. A CL program does not have the capability to remain active as an RPG program does by returning with the last record indicator (LR) off. Every time you call a CL ...
- Created on 31 October 1993
- 3299. HOT TIPS: OPNQRYF (3 Tips)
- (DB2)
- ... 5 1)') + (TEST0 '%AND(TESTBYTE X''80'')') + (TEST3 '%AND(TESTBYTE X''10'')') + (TEST4 '%AND(TESTBYTE X''08'')')) CALL PGM(BINRPG) CLOF OPNID(BINDATA) DLTOVR FILE(BINDATA) ENDPGM The three %AND functions ...
- Created on 30 September 1993
- 3300. HOT TIPS: CL (8 Tips)
- (CL)
- Creating an Auto-refresh Screen in CL I wanted to monitor my network information and display it on a screen which would update itself automatically without any user intervention. I was able to accomplish ...
- Created on 30 September 1993