This appears to be a question from a test. Have you tried to run the code?
View Answer | March 4, 2013 6:28 AM
AS/400, AS/400 - CL Command
some of the LPARS have German, French and Spanish as their default lang. English is installed on these lpars and I want English to be my default lang.
View Answer | March 4, 2013 1:47 AM
Hi Tom, Thanks for updating me. But the problem being is i don’t have authority for ADDEXITPGM and neither we can start and stop the subsystme to achieve. Do we have any other option. What i really need to do is… I need the Job Number, Name and user of the job as soon as the Job [...]
View Answer | March 4, 2013 8:01 PM
AS/400, CLLE, iSeries, iSeries AS/400, QBATCH, RPGLE, Subsystems
thanks for the info - i need alittle more – i do not want to insert any ‘/’ into the field – i want to move the 6 digit field to an 8 character field and I want to left justify the field leaving me 2 spaces at the end of the 8 character field. how [...]
View Answer | March 4, 2013 3:58 PM
RPG, RPG field
*=================================================* * DECLARATION SPECS * *=================================================* D BREAKFASTTIME S 6S 0 INZ(083000) D CANCELDATE S 8S 0 INZ D CANCELDATEISO S D INZ D [...]
View Answer | February 26, 2013 5:30 PM
RPG, RPGIV, RPGLE
0000.10 A*%%TS SD 20130225 015246 ATANEJA REL-V5R4M0 5722-WDS 0000.20 A*%%EC 0000.30 A DSPSIZ(24 80 *DS3) 0000.40 A CF03(03) 0000.50 A R SFL1 SFL 0000.60 A*%%TS SD 20130225 015246 ATANEJA REL-V5R4M0 5722-WDS 0000.70 A TEXT(‘y’) 0000.80 A SEMP# 7A O 7 11 0000.90 A SENAME 15A O 7 22 0001.00 A SSALARY 7S 0O 7 43 [...]
View Answer | February 26, 2013 7:52 AM
AS/400, AS/400 Subfiles
Got the answer.It is due to memory management of Packed decimal,it is being printing at 70 and not 71.We can use ‘.’ to adjust the correct position. Thanks Tom.
View Answer | February 26, 2013 6:00 AM
AS/400, AS/400 Printer File
Generally a Code Review is not include in the Unit Test Process. The Unit Test is done by the QA staff or the end users. A code review is the IT Developement staff looking at the actual source code.
View Answer | February 25, 2013 6:17 PM
AS/400, AS/400 applications
Your subfile record probably has (or should have) a SFLNXTCHG keyword conditioned by one or more indicators. Set the indicators so the SFLNXTCHG condition is TRUE when you write or update each subfile record that you want the READC to read.
View Answer | February 25, 2013 4:34 AM
AS/400, AS/400 Subfiles
If you can get on the AS400 that has this issue, and you can recreate it, then I recommend that you start two AS400 session side-byside; one on a machine that does not thave this issus and the machine that does have the issue. Go into DEBUG on both machines and step through the code. [...]
View Answer | February 25, 2013 10:18 PM
AS/400, AS/400 Display File
REPOSTED IN EDITOR TO FORMAT TEXT: We are encountering sporadic unexpected record locks with update files using: setll (Key1) MasterFile; // Partial key. dou %eof(MasterFile); reade (Key1) MasterFile; if not %eof(MasterFile); // [Stuff] update MasterFmt; endif; enddo; Looking at the problem record by RRN, its key does not match Key1. It’s not even the next [...]
View Answer | February 22, 2013 8:59 PM
READE, Record lock, RPGLE
You are not going to be able to do this with Query, You need to use a language that allows for scan and substring. With the format you defined: LASTNAME, FIRSTNAME MI Start at pos 1 and scan for ‘,’. When found all data preceding the comma is LASTNAME. Now start at the position of [...]
View Answer | February 24, 2013 3:56 PM
AS/400, AS/400 Query, iSeries
After entering your Pds name in option 3.4 we will get a list of copy books included in this pds,within the command line we can type ‘listcat entries(/) all’ then we can see the full details including its length.
View Answer | February 22, 2013 4:05 AM
I have amanged to find an online manual which illustrates how to difine the statement. Many thanks for your thoughts.
View Answer | February 21, 2013 11:22 AM
AS/400, AS/400 Query
Here is a link to a recent article that explains how to do this. http://www.mcpressonline.com/cl/techtip-take-advantage-of-the-su-cl-command.html
View Answer | February 21, 2013 10:13 AM
AS/400, AS/400 commands
Yes, this is possible. On the target system, create the PF as multi-membered. On the Source system, create the DDMF to point the your target file. You can do a CPYF Fromfile(SourceFile) ToFile(DDMF on Source) Frommbr(mbrname) Tombr(*FROMMBR)
View Answer | February 21, 2013 8:05 AM
I would open two sessions and use DSPUSRPRF to compare the 2 user profiles to see if there are any differences. Also need to check object authority to see if that is a problem. How are you doing this? With STRSQL? RUNSQL? RUNSQLSTM? You said the *LIBL seem to be the same. Just to get [...]
View Answer | February 20, 2013 8:39 PM
AS/400, SQL message
I do not understand the question. Are you asking how to setup a User Defined PDM option or how to find out what program ran when your co-worker used the EX option? If you want to know what happened when he used the EX option, ask him. User Defined PDM options are usually stored in [...]
View Answer | February 18, 2013 12:58 PM
CL Program, CMD, syntax
First check in wrkwtr. if it is varied on. check in WRKCFGSTS *dev PRT*, there check the status as well check IP of printer.
View Answer | February 18, 2013 12:55 PM
AS/400, AS/400 administration, WRKCFGSTS
You could also try to FTP the same file to an in-house location so you can view what is received. You may also want to send it again to that same location just incase of a possible problem with the 1st transmission.
View Answer | February 15, 2013 9:58 AM
AS/400, AS/400 commands