- 3301. HOT TIPS: S/36 Environment (5 Tips)
- (CL)
- ... of two (ABC, DEF and IJK). A more generic solution, then, would be as follows: // EVALUATE P64='CALL XYZ (''?1?'' ''?2?'')' // SBMJOB CMD(?64?) JOBQ(QBATCH) Get Printer File Information in RPG36 Programs ...
- Created on 30 September 1993
- 3302. HOT TIPS: Operations (OS/400 & Products) (23 Tips)
- (System Administration)
- ... like this: CPYF FROMFILE(QGPL/CPYS) TOFILE(QGPL/QRPGSRC) + TOMBR(MBRNAME) REPLACE(*YES) FMTOPT(*CVTSRC) Unfortunately, the file will contain the attribute bytes from the screen. Search Indexes Galore ...
- Created on 30 September 1993
- 3303. HOT TIPS: Performance (3 Tips)
- (System Administration)
- ... to one using this method. Faster Processing by Sequential Read When processing a file in an RPG program, it is more efficient to process it sequentially than by key. So if you don't need the records in ...
- Created on 30 September 1993
- 3304. HOT TIPS: Programming (2 Tips)
- (System Administration)
- ... 56 10)) RPG programs can obtain their names from the program status data structure: ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 I SDS I *PROGRAM PGM or ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... ...
- Created on 30 September 1993
- 3305. HOT TIPS: DDS (7 Tips)
- (General)
- ... file. This will bring the database fields into the display file automatically when you retrieve the database record. RPG coding: 1. CHAIN and release the database record (place an N in position 53). ...
- Created on 30 September 1993
- 3306. HOT TIPS: Debugging (4 Tips)
- (General)
- ... the program with the generation options (GENOPT) parameter specified with *LIST and *XREF to get an Intermediate Representation Program (IRP) listing and a cross-reference of the IRP. For example: CRTRPGPGM ...
- Created on 30 September 1993
- 3307. HOT TIPS: Utilities (9 Tips)
- (General)
- ... power, consider this typical programmer's task. You have just inserted a field in database file FILEA and consequently need to change all the RPG programs that use that file. Nothing could be simpler: ...
- Created on 30 September 1993
- 3308. HOT TIPS: Security (6 Tips)
- (Security - Other)
- ... before control is returned to the program which sent the file. To detect inactive workstations from your RPG/400 programs, do the following: 1. Code the INVITE keyword in the DDS for the display file. ...
- Created on 30 September 1993
- 3309. How and Why to Copy Spooled Files
- (IT Infrastructure - Other)
- ... on the system, you can restore the file, copy it back to a spooled file again and print it. For your typical, text-based spooled files such as standard RPG output or system commands which provide OUTPUT(*PRINT), ...
- Created on 30 September 1993
- 3310. Beyond CPYSPLF - Saving Everything in a SPLF
- (IT Infrastructure - Other)
- ... RPG program are associated with each command. I'll explain how each program works and the APIs it calls in the following sections. Gathering the Pieces To write the save and restore spooled file programs, ...
- Created on 30 September 1993
- 3311. Return Cursor Location: Beyond Screen Coordinates
- (RPG)
- ... the field, then the POS variable would contain the value 2. For this particular example, this optional parameter is not necessary. The RPG program (3) starts out by displaying the main data entry screen. ...
- Created on 31 August 1993
- 3312. Using the SFLEND(*MORE) Keyword
- (RPG)
- Using the SFLEND(*MORE) Keyword It is very easy to add the "More..." or "Bottom" text to your subfiles. Just use the *MORE parameter on the subfile end (SFLEND) DDS keyword, like this: SFLEND(*MORE). ...
- Created on 31 August 1993
- 3313. Data Area Data Structure
- (General)
- Data Area Data Structure From: Tim Phinney To: All I need a date range in several RPG programs to determine processing. I didn't want to hard-code the date because the end date hasn't been determined. ...
- Created on 31 August 1993
- 3314. Decimal to "Character" Binary Conversio
- (General)
- Decimal to "Character" Binary Conversion Q: Is there a way to convert decimal data to binary in "character" form using RPG or CL on an AS/400? 3 illustrates the type of conversion I need. The pseudo-binary ...
- Created on 31 August 1993
- 3315. A Better Command to Work with Jobs
- (IT Infrastructure - Other)
- ... User Space (QUSCRTUS) API. JOB007CL then calls the RPG program JOB007RG (5, page 51), passing it the same three parameters. The WRKJOBS command (Figure 2) passes three parameters (job, user and status) ...
- Created on 31 August 1993
- 3316. Flexible Character String Search with OPNQRYF
- (Business Intelligence)
- ... is very good. As an example, I ran a test on a dedicated D20 where I compared the OPNQRYF command using the %WLDCRD function with an RPG program that used the SCAN operation. I searched a 185,000-record ...
- Created on 31 July 1993
- 3317. Telegram/400
- (Collaboration & Messaging)
- ... are printed immediately. The Clockwork Inside The source code for the SNDPRTMSG utility is in1 to 5. It consists of a command (1), a CL program (2), a display file (3), two printer files (4) and an RPG ...
- Created on 31 July 1993
- 3318. TechTalk: Compare Objects
- (CL)
- ... and then run a tool in QUSRTOOL to compare two files. I don't recall the name of the tool, but it's there. If the tool in question can only compare source code, you can write your own simple RPG program ...
- Created on 31 July 1993
- 3319. Creating Presentation Graphics with GDDM
- (Document Management)
- ... for the labels and the other for the values. The RPG program BAR001RG (5) starts out by moving the two fields LABELS and VALUES into arrays. The program then begins calling the GDDM routines. The following ...
- Created on 31 July 1993
- 3320. TechTalk: Date Editing
- (General)
- From: Alan Urtubia To: All In the output specs of an RPG program, a date field can be printed without zero suppression by using the edit word '0 / / '. I need to define in an externally described file ...
- Created on 31 July 1993
- 3321. TechTalk: Recursive Calls
- (General)
- From: Toby Miller To: All I have a menu system that I wrote in RPG to handle all of our users' various systems. I want to add the following feature, and was wondering if anyone had any ideas. I would ...
- Created on 31 July 1993
- 3322. TechTalk: Reading All Source Members
- (General)
- From: Tim Phinney To: All Is there a way to process a source physical file with an RPG program processing all members (like a S/36 FROMLIBR procedure with *ALL)? If not, do I need a CL program to Override ...
- Created on 31 July 1993
- 3323. TechTalk: PC Support File Transfer
- (Networking)
- ... this display.) The sample display shows how an RPG source file on the PC can be transferred to a source file on the AS/400. To initiate a prompted file upload, enter the command RFROMPC at your PC DOS ...
- Created on 31 July 1993
- 3324. DDS Goes Graphical
- (RPG)
- ... displayed on an InfoWindow II terminal attached to a 6050 EUI controller. The DDS and RPG/400 for this example are listed in6 and 7, respectively. To give you a flavor for how graphical DDS works, we'll ...
- Created on 30 June 1993
- 3325. TechTalk: Monitoring Remote Workstations
- (RPG)
- Monitoring Remote Workstations From: Artemio Llena To: All We have users at remote sites who dial in to our switched lines on the AS/400. I want to be able to disconnect workstations which are on a menu ...
- Created on 30 June 1993
- 3326. Create IBM-Style Rolling Menus with UIM
- (General)
- ... source sure doesn't look simple at first, but you'll get used to its strangeness the same way you got used to DDS, CL and RPG-by doing it over and over. You begin by creating a source physical file (IBM' ...
- Created on 30 June 1993
- 3327. TechTalk: Joining the Same File Twice With OPNQRY
- (General)
- ... of the RPG program. From: Ted Holt To: Mark Brown You can join the same file more than once in the same query. In the example you gave, you need to define two last name fields and two first name fields-one ...
- Created on 30 June 1993
- 3328. TechTalk: ?WS? Error in S/36E
- (Networking)
- ?WS? Error in S/36E I'm currently working in the S/36 Environment. Procedure control expressions- in this case, the substitution parameter ?WS?-are "converted" when you run a procedure or CL command. ...
- Created on 30 June 1993
- 3329. TechTalk: DDS Keyword for System Name and User Pr
- (RPG)
- The DDS keyword, SYSNAME, automatically incorporates the system name into your display files. It works much like the two other DDS keywords, DATE and TIME, which have been in existence for years. By ...
- Created on 31 May 1993
- 3330. TechTalk: Losing Last Character in Subfiles
- (RPG)
- Q. I have designed a subfile program and am losing the last character of the last subfile record on every page, because the system inserts the plus sign (+) to indicate the presence of additional subfile ...
- Created on 31 May 1993
- 3331. TechTalk: Overlay Displays
- (RPG)
- Q: I have two display formats that I want to display at different times on the same screen. The first displays the time/date and a field for entering an order number to be selected. The second screen will ...
- Created on 31 May 1993
- 3332. TechTalk: Object Cross-reference
- (General)
- In our shop, we have cross-reference reports that list where program (*PGM) objects are called from. In our case, they can come from CL or RPG programs. We generate the reports by using the Display Program ...
- Created on 31 May 1993
- 3333. TechTalk: Resetting DDS PAGNBR
- (General)
- ... A R HDR SKIPB(5) A 115'PAGE....:' A 129 A 02 PAGNBR A EDTCDE(Z) A SPACEA(1) ... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 TechTalk: Resetting DDS PAGNBR Figure 3 RPG Code ...
- Created on 31 May 1993
- 3334. TechTalk: Data Structure Debugging
- (General)
- ... with *LIST and *XREF to get an Intermediate Representation Program (IRP) listing and a cross reference of the IRP. For example: CRTRPGPGM PGM(pgmlib/pgm) + SRCFILE(srclib/srcfile) + GENOPT(*LIST *XREF) ...
- Created on 31 May 1993
- 3335. TechTalk: Use Data Areas Correctly
- (General)
- ... the data area values manually. 3. Data areas do not have external definitions. (You can use a file description to externally define a data area in RPG, but none of the subfields can appear in other data ...
- Created on 31 May 1993
- 3336. TechTalk: Overriding File Overrides
- (General)
- ... calls another inquiry program from within the RPG program using the CALL op code. My problem is this: I want to use this same program to inquire into our pending records files. (They are completely separate, ...
- Created on 31 May 1993
- 3337. TechTalk: Commenting Out Code
- (General)
- Have you ever been up late at night trying to debug RPG source code, even though you can't find anything wrong with the logic? Finally, hidden among the comment lines, you discover a line of code that isn' ...
- Created on 31 May 1993
- 3338. The Integrated Language Environment (ILE)
- (RPG)
- ... two distinct language models on the AS/400. The Original Program Model (OPM) is used for the traditional business programming languages like RPG and COBOL. The Extended Programming Model (EPM) supports ...
- Created on 30 April 1993
- 3339. TechTalk: Reading the Last Record in a File
- (RPG)
- From: James Moore To: All I have a program where I need to look at the last payment made in our payment file. I have been looking for ways to do this without CHAINing to the file and then using SETGT ...
- Created on 30 April 1993
- 3340. The Convert Date and Time Format
- (APIs)
- ... records must be processed in an RPG program. As part of the V2R2 system application program interfaces (APIs), IBM has provided and documented a program (QWCCVTDT) that can be called to perform date conversions. ...
- Created on 30 April 1993
- 3341. TechTalk: Don't Recycle Page Numbers
- (System Administration)
- ... exceed 9,999 pages. I wondered what would happen--after all, the PAGE field in RPG is implicitly defined as holding a maximum of four digits. So I wrote the program shown in 9 (page 104) and ran it as ...
- Created on 30 April 1993
- 3342. TechTalk: QRYSLT with Binary Fields
- (General)
- ... + (TEST4 '%AND(TESTBYTE X''08'')')) CALL PGM(BINRPG) CLOF OPNID(BINDATA) DLTOVR FILE(BINDATA) ENDPGM TechTalk: QRYSLT with Binary Fields Figure 4 Using %AND in QRYSLT TESTBYTE 10100010 00001111 X'80' ...
- Created on 30 April 1993
- 3343. TechTalk: Decimal Data Errors
- (General)
- ... decimal vs. packed numeric fields difference, I have to be very careful when mixing and matching RPG36 and RPG programs. I now have a CL program which dies due to decimal data error when I try to pass ...
- Created on 30 April 1993
- 3344. The Edit APIs
- (RPG)
- ... as input parameters to this API in the same format as used in RPG/400 or DDS. If you are going to edit several similar fields in your programs, you can save the values of the edit mask, edit mask length ...
- Created on 31 March 1993
- 3345. TechTalk: External Printer Files vs. O-specs
- (RPG)
- ... it meant I had to modify and recompile the RPG program in addition to the printer file. Had I been able to overlay the decimal positions with blanks, I would only have had to modify and recompile the printer ...
- Created on 31 March 1993
- 3346. TechTalk: How to Display Info Messages on Line 24
- (System Administration)
- How to Display Info Messages on Line 24 Q: I'm trying to duplicate IBM's method of displaying informational messages on line 24 of our AS/400 displays while processing an AS/400 command/program. I don't ...
- Created on 31 March 1993
- 3347. AS/400 Career Strategies
- (Analysis of News Events)
- ... large shops the primary source of better jobs for the AS/400 community. However, it takes a lot more than RPG and CL expertise to get your resume noticed in the corporate world. Large companies have ...
- Created on 31 March 1993
- 3348. TechTalk: Translating a File to Uppercase
- (General)
- ... look in the IBM documentation to have tables (object *TBL) explained? I don't want to write an RPG or COBOL program to do this if it can be avoided. Any thoughts? From: Ernie Malaga To: Mark Wheeler I' ...
- Created on 31 March 1993
- 3349. TechTalk: Using Embedded SQL on Very Large Files
- (SQL)
- Using Embedded SQL on Very Large Files From: Bruce Duty To: All We are trying to use embedded SQL in an RPG program to update a multimillion record file. When I execute an SQL update statement in an ...
- Created on 31 March 1993
- 3350. Let Users Display Their Submitted Jobs
- (IT Infrastructure - Other)
- ... surprised. All it takes is running the WRKSBMJOB command to *PRINT, capturing this printout into a database file and giving this file to an RPG program to display with an output-only subfile. I'm using ...
- Created on 31 March 1993