- 3401. Better Than Job Logs...
- (IT Infrastructure - Other)
- ... ENDPGM Better Than Job Logs... Figure 2C RPG program USR002RG FUSRLOG O E DISK A * C *ENTRY PLIST C PARM ULMSGI C PARM ULMSGL C PARM ULMSGF C PARM ULMSGT C PARM ULMSGX C PARM ULJOBN C PARM ULJOBU ...
- Created on 31 July 1992
- 3402. AS/400 Subfile Programming, Part I: Foundation
- (RPG)
- ... RPG and COBOL source required to complete the program. During file definition specifications, a file extension or clause identifies the subfile and associates the RRN field with it to act as the relative ...
- Created on 30 June 1992
- 3403. TechTalk: Retrieving the AS/400 Serial Number
- (System Administration)
- From: Rick Crider To: All Does anybody out there know how to retrieve the system serial number in an RPG program? I would be most appreciative to have somebody stand up and say: I do!! I do!! It would ...
- Created on 30 June 1992
- 3404. TechTalk: S/36 to AS/400 Conversion Tips
- (System Administration)
- ... this month's Tech36 for an example of this code. About the position of the cursor, this information is now available in the INFDS, even with RPG36. The binary row is in 370, and the binary column is in ...
- Created on 30 June 1992
- 3405. S/36 Environment Printing Internals
- (Document Management)
- ... S/36 Environment are discussed in detail. It's not surprising that some S/36 programmers have expressed frustration with the "simple" job of producing a report on the AS/400. On the S/36, your RPG program ...
- Created on 30 June 1992
- 3406. Getting the Most Out of PDM
- (General)
- ... be used on database files or source files with equal ease, although it is mainly geared for source files. Let's put FNDSTRPDM to work. Assume you have a source file called QRPGSRC in MYLIB and you want ...
- Created on 30 June 1992
- 3407. The REXX Source File List
- (General)
- ... OELIB/QRPGSRC and INVLIB/QPGMSRC. The first step is to change the system's source file list: CHGREXSRCL TYPE(*SYS) + SRCL(QGPL/QREXSRC + UTILITY/SOURCE + OELIB/QRPGSRC + INVLIB/QPGMSRC) Now you decide ...
- Created on 30 June 1992
- 3408. TechTalk: Changing Field Usage in SDA
- (RPG)
- When using SDA to design screens, there are times when you need to change the usage of a field that is already defined. If you read the help screen for "Design Image Work Screen," it will explain ...
- Created on 31 May 1992
- 3409. Get a Handle on Object Authorities with the LSTOBJ
- (IBM i (OS/400, i5/OS))
- ... OUTMBR(*FIRST *ADD)) DLTOVR FILE(*ALL) ENDPGM Get a Handle on Object Authorities with the LSTOBJ Figure 5 RPG program OBJ010RG FQAOBJAUTIP E DISK FOBJ010P1O E 99 PRINTER * IQSYDSAUT I OALIB L1 I ...
- Created on 31 May 1992
- 3410. TechTalk: Record Lock Gotcha!
- (System Administration)
- ... little surprise? So, IBM wants me to spend many, many days recompiling all of my RPG programs in this canned software package that I have, just to pay the price of upgrading my operating system release ...
- Created on 31 May 1992
- 3411. TechTalk: What Programs Use a File?
- (General)
- ... SPACEA(1) A WHFNAM R 3 A WHLIB R +8 A WHPNAM R +4 A USAGE 12A +6 TechTalk: What Programs Use a File? Figure 1D RPG program F001RG FQADSPPGMIP E DISK FF001P1 O E 99 PRINTER * C WHFNAM IFEQ FILE C ...
- Created on 31 May 1992
- 3412. TechTalk: On CALLing and PARMing
- (General)
- ... will have to be modified, of course, to recognize this situation as valid. 2. If the CALLed program is an RPG program, you can use the program-status data structure to retrieve the number of parameters ...
- Created on 31 May 1992
- 3413. At Ease With the Attention Key
- (RPG)
- ... my Attention key program. Writing Your Own Attention Key Program You can write your own Attention key programs in any HLL language: CL, RPG, COBOL, C.... There are two limitations you must keep in mind ...
- Created on 30 April 1992
- 3414. TechTalk: RTNDTA: A New Trick for Old Dogs
- (RPG)
- ... stuff that's going to help right now, today? For example, my old style of coding a simple interactive maintenance program was to begin all screen field names with a '$' sign. Then in my RPG program I ...
- Created on 30 April 1992
- 3415. TechTalk: Reading From Subfiles
- (RPG)
- ... record. How can I code my RPG program so that it receives all input: the option numbers and the additional input fields? A. All you need to do is code several READ operations one after the other. For ...
- Created on 30 April 1992
- 3416. TechTalk: No Need to Recompile
- (RPG)
- You've just made a minor change to your display file. Now you must recompile all the programs that use it to avoid getting level check errors, right? Or do you? The system assigns a unique level identifier ...
- Created on 30 April 1992
- 3417. Juggling Jobs
- (CL)
- ... RTVDTAARA command. Instead of specifying a data area name, you use the special value *GDA with those commands. The RPG reference manuals do not mention the group data area as a data area that can be retrieved, ...
- Created on 30 April 1992
- 3418. Reorganize Your Data Queues
- (System Administration)
- ... MSGF(&MSGF) + MSGFLIB(&MSGFLIB) SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) MSGDTA(&MSGDTA) + MSGTYPE(*ESCAPE) ENDPGM Reorganize Your Data Queues Figure 1C RPG program DTAQ005RG * These tables translate ...
- Created on 30 April 1992
- 3419. Using REXX to Indent CL Source
- (General)
- ... write a program that will take a CL source member, indent the statements as needed, and write it back. If you have the December 1991 issue of MC, you'll remember Robin Klima's utility to indent RPG/400 source, ...
- Created on 30 April 1992
- 3420. Line Up for Data Queues
- (General)
- ... Program Interface (API) to send data to a data queue. QSNDDTAQ expects either four or six parameters: four if the data queue is *FIFO or *LIFO, six if *KEYED. 1 shows an example in RPG, using six parameters. ...
- Created on 30 April 1992
- 3421. TechTalk: S/36 to AS/400 Conversion
- (General)
- From: Paul Webb To: All We are in the process of converting from our S/36 to an AS/400 and it is taking me longer than I expected (and told my boss). The situation is that we having been using ASNA's 400/RPG ...
- Created on 31 March 1992
- 3422. TechTalk: Subfile Error
- (RPG)
- From: Brian Kautz To: All Just started playing with subfiles (we came over from S/36 about six-seven months ago.) Just got the error CPF5051--PUTGET not allowed in subfile for file XXXXXXXXXX in Library. ...
- Created on 29 February 1992
- 3423. Debugging Simplified
- (General)
- ... points at statement numbers for calculation, input and output specifications. The standard RPG processing points (i.e., *GETIN, *TERM, etc.) can also be used to set a break. A break point set at *TERM, ...
- Created on 29 February 1992
- 3424. Edit Character Data Areas Interactively
- (General)
- ... CURLIB(&DTAARALIB)) RTVDTAARA DTAARA(&DTAARALIB/&DTAARANAME) RTNVAR(&DTAARADTA) ENDDO /* Call RPG program to allow edit of data area */ RETRY: + CALL PGM(DTA001RG) PARM(&DTAARADTA &MSG &FILLER &DTAARALIB ...
- Created on 29 February 1992
- 3425. TechTalk: Auto-Report Problems
- (General)
- ... for the future, but this is ridiculous. We checked the logic of the program and everything was correct. Suspecting a problem with Auto-Report, we replaced it with an RPG program using identical logic. ...
- Created on 29 February 1992
- 3426. AS/400 Messages: Part I
- (IT Infrastructure - Other)
- ... however, is not recommended. Avoid using the letters CPF at the beginning of the message ID, since these are used for system messages. Other letters you should not use are CPA to CPZ, MCH, KBD, RPG, etc ...
- Created on 29 February 1992
- 3427. TechTalk: Utility to Change all END operations to
- (RPG)
- If you are on OS/400 V2R1, you may already have started to use the new RPG/400 operation codes ENDIF, ENDDO, ENDCS and ENDSL in your programs. You'll find that it doesn't take long to become accustomed ...
- Created on 31 January 1992
- 3428. TechTalK: Partial Key Lists
- (RPG)
- ... using the partial KLIST. I love the flexibility, but don't know where it is explained. From: Pete Hall To: Bill Robins Actually, partial KLISTs can be used for any of the RPG record retrieval opcodes. ...
- Created on 31 January 1992
- 3429. TechTalk: Using the RTV Commands
- (CL)
- ... AS/400. I would appreciate any help. From: Ernie Malaga To: John McKee RTVxxx commands retrieve information and place it in CL program variables only. You cannot run RTVxxx commands from RPG programs ...
- Created on 31 January 1992
- 3430. Printer File Creation and Management Made Easy
- (Document Management)
- ... errors can be avoided by eliminating the tedious coding of DDS or RPG Output specifications. With RLU, you will be able to easily create and modify reports with the assurance that the report is going ...
- Created on 31 January 1992
- 3431. Free SQL and Improved Query Through Query Manageme
- (SQL)
- ... the missing secondary record. Also, all QM form edits are not the familiar edit codes used with Query/400 and RPG--they are the new SAA edit types, including several character edit codes. Once the query ...
- Created on 31 January 1992
- 3432. TechTalk: Subfiles, Rolling and Enter
- (RPG)
- From: Brian Singleton To: All I'm having trouble with subfiles. I have set subfile size one greater than subfile page and load the subfile. The problem occurs if I press Roll Up several times and then ...
- Created on 31 December 1991
- 3433. TechTalk: Field Ranges
- (RPG)
- From: Chris Ringer To: All Does anyone out there know how to make sure the user enters a value in a field that falls within a certain range? For example, if a part price (all part prices) should be in ...
- Created on 31 December 1991
- 3434. Quote...unquote: Help with CL String Manipulation
- (CL)
- ... like this, shown in Figure 2. Octuple Quotes When doubling quotes time after time, only the sky's the limit. If you wanted to run the above SBMJOB command from within an RPG program, you'd have to use ...
- Created on 31 December 1991
- 3435. TechTalk: Using Variables With OPNQRYF
- (CL)
- ... OPNQRYF FILE((SRSOMF01)) QRYSLT('SMEXDT = %RANGE(920131 920131) & SMCONR = "08"') CALL PGM(SR00788RX) /* RPG to write selected records + based on policy expiration date */ CLOF OPIND(SRSOMF01) ...
- Created on 31 December 1991
- 3436. TechTalk: Shared Spool Files
- (System Administration)
- ... do this with the command OVRPRTF FILE(QSYSPRT) SHARE(*YES). Then you must open the printer file and keep it open. This can be done with a very small RPG program which contains dummy printer output (99N99 ...
- Created on 31 December 1991
- 3437. In My Opinion: Level 40--Does It Hurt Yet?
- (Commentary)
- ... CLRPFM or an RPG DELET operation on the wrong record or file. As anyone who has programmed in assembler knows, accidentally changing one wrong bit can bring down the machine, but deleting one of those ...
- Created on 31 December 1991
- 3438. Stamp Out Decimal Data Errors
- (General)
- ... OVRDBF FILE(DATAIN) TOFILE(&LIB/&FILNAM) MBR(&MBR) CALL PGM(DEC001RGA) PARM(&CHKSIGNED &CHKPACKED &UPDOPT &LSTERR) ENDPGM Stamp Out Decimal Data Errors Figure 4 RPG program DEC001RG FFILEATR IP E ...
- Created on 31 December 1991
- 3439. TechTalk: Combining Files Through a Logical View
- (General)
- Q: Could someone please enlighten me on the best way to combine data from two files, perform record selection and resequence the file for use by RPG/400? My situation is this: I have two externally ...
- Created on 31 December 1991
- 3440. TechTalk: Understanding QTEMP
- (General)
- ... use ?WS??TIME? for the filename here on my S/36 and externally describe the file using ASNA's 400/RPG. I understand that this will cause problems on the AS/400 because the output of a sort will be a temporary ...
- Created on 31 December 1991
- 3441. TechTalk: Edit Word
- (RPG)
- ... ) - ' This was valid in RPGII; I'm not sure about RPG/400 or DDS. Also remember to count an extra space for the leading zero (i.e., you couldn't output this field ending in position 13.) From: Pete Hall ...
- Created on 30 November 1991
- 3442. TechTalk: Device Error Recovery
- (System Administration)
- ... recovery. If you attempt recovery, the job is resumed and the program is returned with an error status. For RPG programs, this means the indicator in columns 56-57 comes on or the *INFSR routine gains ...
- Created on 31 October 1991
- 3443. TechTalk: Converting an AS/400 Document to ASCII
- (System Administration)
- ... as WordPerfect and further manipulate it. By comparison, there are no easy ways to do this using IBM- supplied facilities on either a PC or the AS/400. The command, CL program and RPG program (Figures ...
- Created on 31 October 1991
- 3444. TechTalk: Floating Brackets for Negative Numbers
- (System Administration)
- I recently had a fun problem. One of our accountants wanted to put brackets around negative numbers. I quickly added a compare to zero, setting on an indicator and hard-coded brackets when the indicator ...
- Created on 31 October 1991
- 3445. TechTalk: Printer Files
- (System Administration)
- ... what they looked like. Currently, I write the print file, pray it is correct, write the RPG code, then test the program. If changes need to be made in the DDS for the print file, then I need to re-compile ...
- Created on 31 October 1991
- 3446. A Look at REXX
- (General)
- ... programs, such as CL or RPG, there is no checking to determine if you have passed required parameters. For example, if you compile a CL program that specifies a parameter on its PGM statement, and then ...
- Created on 31 October 1991
- 3447. The Correcting Compiler
- (General)
- ... hundreds of other messages that you might want to change. The problem is, how to identify those messages? My first impulse was to simply print the QRPGMSG message file, so I did. This was 27 pages long. ...
- Created on 31 October 1991
- 3448. TechTalk: Easy Access to Compile Errors
- (General)
- ... numbers. Editor's Note: We have tested this technique and found that it works for member types CLP, RPG, PLI, PF, LF, DSPF, PRTF and CMD. We didn't test any others. While SEU shows the compile listing ...
- Created on 31 October 1991
- 3449. TechTalk: Faster LOKUP
- (General)
- As an RPG III and RPG/400 user, I have always wondered why IBM cannot give us an operation that would search an array starting from any array index and backwards to element 1. This would reduce processing ...
- Created on 31 October 1991
- 3450. TechTalk: S/36 to AS/400 Numeric Fields
- (General)
- ... programs (on the S/36) that define a screen field as both numeric and alpha--the field is specified twice in the RPG program. Can the AS/400 handle that? The reason for doing this is so the program can ...
- Created on 31 October 1991