05
Sun, Jan
0 New Articles
  1. You are here:  
  2. Home
  3. Search

Total: 3549 results found.

Search for:
Search Only:

Page 67 of 71

3301. 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
3302. 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
3303. 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
3304. 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
3305. 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
3306. 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
3307. 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
3308. 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
3309. 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
3310. 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
3311. 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
3312. 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
3313. 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
3314. 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
3315. 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
3316. 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
3317. 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
3318. 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
3319. 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
3320. 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
3321. 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
3322. 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
3323. 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
3324. 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
3325. 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
3326. 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
3327. 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
3328. 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
3329. 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
3330. 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
3331. 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
3332. 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
3333. 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
3334. 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
3335. 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
3336. 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
3337. 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
3338. 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
3339. 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
3340. 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
3341. 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
3342. 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
3343. 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
3344. 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
3345. 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
3346. 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
3347. 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
3348. 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
3349. 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
3350. 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