IBM System i

IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.

Share tech news, updates, or what's on your mind.

Sign up to Post

Hello Experts,

I have a RPGLE question concerning looping though field names instead of having multiple routines with each field name.

Exp.   I have field names FIELD1, FIELD2, FIELD3, etc.   I know in the past(I've been away from AS/400 for years) I would use a DOU loop something like this.

DOU I = 10
FIELD,I      CHAIN    FILE       99

How do I do that in RPGLE?

THanks!!
0
Hi,

Been looking for reference material for the SQL for this system.

Connecting using VB.net app to query. Went to IBM site but pages are no longer available. What’s the best app to query the DB? Used winsql in the past for other work,

Best,

Ross
0
Dear Gurus

   I hope you're all doing great, I have a question regarding iSeries AS400 for Windows Macro/Scripting (Workstatin Program 6.0)

   As you probably know, there is a size limit for macro files (Not VBScript) and I'm building a user-friendly applet in excel that creates macro files

   In some cases there are lists of 6000 operations that have to be done, and mi Excel macro generates for example 220 AS400 macro files  (same number, all numbered)

saving screen for iseries for Windows emulator for macros
   Do you know which instruction may I use to call the "next macro" file in the text format?  "[wait app], [wait app inh], etc."

  Thanks as always for your wisdom

Dan
0
Hi Experts,

I have to start a remote job from As/400 using RUNRMTCMD, to run a program on a Windows 2012 server.
On some other servers  the program cwbrxd.exe is running, but this 2012 server has "Access Client Solutions" installed, so the cwbrxd.exe is no longer available.

I am aware that this cwbrxd.exe is a security risk, but is there an replacement for this service?
Or do I take an other direction to solve this?
0
Hi Experts,

After upgrading an as/400 (i5, iSeries, etc) from V7R1 to V7R3, is there a log available where I can find info about what is added, replaced and removed ?
0
Hello:
We currently have our IBM ISeries configured to send email thru our on premises Exchange 2013 server. The internal IP of the Exchange Server is 10.0.0.195 and I have a corresponding Host Table Entry on the ISeries pointing to that (10.0.0.195-MAIL.ROUTER.NAME). On the Exchange Server I have also setup a FrontEnd Receive Connector with the scope set to the internal IP of the ISeries (10.0.0.254). Everything works well and has for years.
However, we will be moving from hosting our Exchange on premises to using Rackspace's hosted Exchange and I was unsure how to route the email from the ISeries to Rackspace?
Thanks!
0
How to read a flat file and get data in as400??
0
Please Explain Difference between Writer and Printer in AS400
0
How i am able to get all the source file member names (not in spooled file) where a particular string 'XXXXX' is used??
0
I'm not trained in AS400.
We don't use tapes anymore but backup to a remote Data Domain.

AS400's audit journal receiver of our developmt AS400 is taking too much space in our current weekly backups with retention of 6 years.

a) Without compromising on the 6 years' retention, how can we reduce the space taken by the backups in the Data Domain?

b) I suppose weekly backup is taken because the receiver journal is rotated weekly: is there such thing as incremental or
    differential backup in AS400 for audit journals?

c) can we do it monthly with differential backups or what other strategy can we do it?  

d) can it be compressed?   the Data Domain solution we used is from EMC.  Anything on deduplication??

We are on OS400 V7 R2  running DB2
0
Hello Team,

I have following doubts on the below questions . Kindly please answer

-What is the difference between private authority and object authority?
- How do we delete temporary and permanent PTF ? Does it depend on the PTF type?
-PTF install has failed and what is the roll back plan?
-what is PSP and use of it?
-How do we connect HMC to server? I mean how HMC will talk to all the Hardware?
-Do you have document to configure HMC from scratch?
-Difference between capped and uncapped processor?
-what is processor pool and memory pool?
-what is CPW and how do we calculate the CPW of our LPAR/server?
-How to check how much memory is being used currently? using WRKSYSACT?
-In some point of time the ASP has been reached from 40 to 90, so how do we identify which object has been caused/saved?
- What is MIMIX Application Group and Data group?
0
I'm using QUSLJOB API to get the list of all jobs on the system. I'm then passing this job list to API QUSRJOBI format JOBI200 for getting various other information for each job. My problem is to have CPU% for each job. JOBI200 doesn't have any field that return CPU%. I know that the API JOB1000 gives the elapsed time CPU%, but couldn't find any example of it. If anyone can help me with the example of format JOB1000 then I will be grateful.

Thanks.
0
I am Running a process which read each month  control record by reading one record for each month from Physical file & that process create 3 csv files on each month in ifs (/home/one) for each month same name which I have this automated through CL.

Now I have to add another functionality so that will move the  files from /home/one/*.csv  to /home/two/Jan_2017_*.csv and read the next month control record.

I Have the prefix Jan_2017  to Dec_2017  also in the physical file.

How can I add this functionality into my CL for each month?

Thank you in advance as always.
0
Does anyone know if IBM has come out with a statement of impact or remediation for the IBM i platform - in regards to the Spectre/Meltdown vulnerabilities?
0
We had a client upgrade their AS400 OS from 5.4 to 7.1.  Their QNTC was writing to a 2003 server.  We have an AS400 routine that converts files to PDF, writes them  to a QNTC path and then the website reads them. It was working fine before the upgrade. Now it give a "file not found" error. When I open up iNavigator and use the same login as the website I cant see any QNTC paths and I was able to see them before the upgrade.  Any thoughts what might be wrong?
0
Does anyone have a SQL statement that will list all libraries on my IBM i server and the number of objects in each of the libraries?

So my output would have just 2 columns. Table Name and Number of Objects.

I appreciate any help...
0
I've been tasked with updating remote MS SQL database tables. I'd like best ideas for utilizing our IBM i to do this. I'm primarily and ILE-RPG, RPG Freeform programmer, but have worked using RPG-XML (which we have) and consuming  web services via a local MS SQL database. I'm also familiar with SQLLERPG to a degree.    

I have access to 'data source', 'Initial Catalog', 'User ID', and 'password' for the remote database tables.

All ideas are welcome and will rewards points accordingly.

Thanks,

Phil Knox
0
Ok i'm stumped and google/youtube are no help in this case

how exactly do i remove the processor heat sink on this server?
2017-11-28-11.44.11.jpg
2017-11-28-11.44.15.jpg
2017-11-28-11.44.21.jpg
2017-11-28-11.44.37.jpg
0
Hi experts,

Is there a way to use Certificates with Secure FTP on the iSeries (AS/400)?
(If Yes, How?)
0
Hi All,
The below is the requirement.
I have multiple queues  as below and i want to retrieve only specific output queues . These specific queue represent each day e.g
MON1,TUE1,WED1,THU1,FRI1 .These output queues are placed in random order and are in 'RDY' status in the queue.
Every day when the spool file comes into a specific queue , it should be copied into a physical file.
For Eg. On Monday, once the spool file SPOOLF1 is present in the output queue MON1, it should be immediately written to the physical file even if it is empty.There are many  other spool files present in MON1, however, the copy should be performed only to the specific file SPOOLF1 for MON1.

On similar lines, once the spool file SPOOLF1 comes to TUE1 queue , it should immediately be copied to another physical file and so on and so forth for queues WED1,THU1 and FRI1.

Work with all output queues:

Queue          Library
A                    XYZ
MON1           XYZ
C                    XYZ
D                   XYZ
TUE1             XYZ
F                    XYZ
H                    
I
WED1          XYZ
J
THU1           XYZ
K
L
FRI1                XYZ

After selecting output queue TUE1, i am in the below screen:
Work with output queue:
File                 User                    User Data       Sts
SPOOLX        user1                    ud1                 RDY
SPOOLY        user1                     ud2                RDY
SPOOLZ        user1                     ud3         …
0
Hi,

I am having issues restoring a library or objects using RSTOBJ or RSTLIB commands. The restore normally takes 13-17 minutes, however, its taking 8-12 hours.  The save includes ACCPTH(*YES) so it shouldn't take too long to restore. Ironically, whenever, I save the same library using the SAVLIB command, it takes 13-20 minutes. But to restore is a nightmare.

Please help me with this. I have checked sysval (System Values) for access path and other sysval for restoring objects like verify objects with digital signatures, converting objects etc. All those sysval based on my research seem to be correct.

I have a feeling it has to do with journaling. However, I am not sure. The message I got from the log were:
1. New format X was created for the file because sharing of fomat X with file X in Library Y could not be established again. It could be dependencies (logical files).
2. We encountered an error message CPF3281
3. File X in library Y using format X with a correct format level identifier does not exist.  

Please in whatever way you can HELP!

Regards,
Prince
0
Hi experts,

Trying to create the DS below, but get a compile error on subfield "Select", when I change it in e.g. iSelect it's ok.
I understand that Select is probably a reserved word, but I need this for my WSDL generation.

Dcl-Ds InDs Qualified;       
   Select Char(10);          
   Info Char(10);            
   Dcl-Ds Details;           
      Detail_LENGTH Int(5);  
      Dcl-Ds Detail Dim(10); 
         DetailText Char(25);
         DetailCode Char(10);
      End-Ds;                
   End-Ds;                   
End-Ds;                      

Open in new window


For now I solved it by using a DS specification with D-sepcs.
I can't imagine that I have to use an old-fashioned D-spec line for this type of constructions in full-free.
0
Greetings iSeries Gurus,

I just successfully set up SSL for an iSeries Access 5250 Emulation connection...
I need to know what port is used by the System i Navigator when it connects to the iSeries...

I know that Telnet uses port 23, FTP uses port 21, and SSL uses port 992 for their connections...
(Curious to note that port 992 is not showing as open on the iSeries...)

Thanks,
Jeff
0
Hi,

I have a problem via SQL and into RPG too when I type SUBSTR(xxxx,1,6)
from some reason on my iSeries it requesting to be one space between comma and lengths e.g. substr(xxx, 1, 6).
I know that on other iSeries it's not a problem and on more examples it is not written with these spaces...

This is the error message when I check

Select * from ztrans0p                    
 where substr(trcrd#,1,6) = '516971'        
 Token ,1 was not valid. Valid tokens: ) ,.
   

Message ID . . . . . . :   SQL0104                                            
                                                                               
                                                                               
Message . . . . :   Token ,1 was not valid. Valid tokens: ) ,.                
                                                                               
Cause . . . . . :   A syntax error was detected at token ,1.  Token ,1 is not  
  a valid token.  A partial list of valid tokens is ) ,.  This list assumes    
  that the statement is correct up to the token.  The error may be earlier in  
  the statement, but the syntax of the statement appears to be valid up to    
  this point.                                                                  
Recovery  . . . :   Do one or more of the following and try the request again:
    -- Verify the SQL statement in the area of the token ,1. Correct the      
  statement.  The error could be a …
0
Hi Experts.
I am doing work for a manufacturer.  They have email that is hosted by the ISP, so it is not in house.
I have a legacy system (AS400/iseries) that is in-house that I am sending emails out to vendors for Purchase orders.  The system creates PDF's then creates the email and sends out.  So it does not go thru the regular email system.    
So, we have had some emails not get delivered and some bounce back.  I have gone thru the option to tell Office 365 to whitelist the ip address we are sending from.    
The question is, Can we tell the world that our IP is safe via DNS in some way?   Otherwise, we are going to have to send emails to companies that we get kickbacks from and request that they white list us.  Issue is small now, but I am getting ready to add customer service to emailing invoices, etc too and it is only going to get bigger.
0

IBM System i

IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.

Top Experts In
IBM System i
<
Monthly
>