AS/400
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
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
Change the language for a user
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
AS/400, iSeries
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
AS/400, iSeries
QBatch subsystem Monitoring
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
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
RPG / free command to movel 6 digit field to 8 character field
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
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
How to easily perform date conversions in RPGLE (Including Substringing!)
*=================================================* * 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
*=================================================* * 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
Subfile with scroll bar.
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
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
Error in position while printing variable
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
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
Code review checklist for AS/400 application
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
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
Query in subfile with SFLNXTCHG
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
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
Window keyword in display file
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
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
RPGLE SETLL / READE for update getting record lock on different key
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
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
AS/400 Query – how do you split names in field into seperate fields
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
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
How to find the copybook?
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
AS/400, COBOL/400
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
AS/400, COBOL/400
How do I convert a date in text format to a proper date with AS/400 Query
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
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
Change the user of a JOB
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
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
AS/400 Transfer of files
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
AS/400, DDMF
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
AS/400, DDMF
SQL message with no records selected
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 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
Execute from a source member list
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
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
PRT01 is in MSGW
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
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
FTP related
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
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
