Go Premium for a chance to win a PS4. Enter to Win

x

IBM System i

3K

Solutions

2K

Contributors

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

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
Free Tool: IP Lookup
LVL 11
Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

One of our developers has asked that we run a script that they wrote every 3-5 minutes on our iSeries.  The script is set up to see if a particular port is open - and if it isn't, then to start their application.

The script is a .sh (monitor.sh) file located in the IFS.

Is there any easy way to do this?
0
Hello Team,

Could you please tell me the difference between IPL Type A and IPL Type B? IPL B is used for routine work like ...PTF , LICPGM installation , Post monthly backups and for free up some space .... so what is the purpose of IPL A ?

on what scenarios we use IPL Type C?

Regards
Avinash Chandra
0
Hello Team,

Request you to answer the below questions

1.) What is Save while act in AS400 and How does it works?
2.) TEST LPAR was unfortunately shutdown and need to restart the LPAR with Restricted state? Does it possible ? i think we should remove the QSTRUPPGM value to *NONE and then restart the system to bring it in Restricted state , but that is not possible when LPAR is in inactive state
3.)what do you mean by Audits in MIMIX
4.) How do we check the Boot Load is TAP01 or not before initiating the IPL : Manual, D for recovery the system from bull backup tape
5.) on what scenarios we use End batch restricted state option in DST?
Regards
Avinash Chandra
0
I have a number of database files on our IBM i that I need to update the authority on for our developers to *USE. Unfortunately these files are pretty much in use 100% of the time.

Is there ANY way that authority can be updated on a file without having an exclusive lock on the file? I am not aware of any - but thought I would check with others to make sure I wasn't overlooking something.

Thanks in advance
0
We are FINALLY looking to retire our 'Office Vision' email. I'm looking for a way to dump the email detail for every email we currently have. The intent would be parse this information into a database for historical purposes.  

I've used QRYDST to dump header information, but I need all details.

Can anyone provide direction on this? Is it possible?

Thank You!!!
0
iSeries is successfully sending out emails, but spam filtering rules prevent the receipt of mail issued from the iSeries bearing the same domain name.  The only solution would be to route the outbound mail through the local exchange server.
What settings need to be altered on the iSeries to point the outbound SMTP traffic to the local Exchange Server?
0
Hi

I am trying to configure a Xerox Phaser 6180 MFP to work on an IBM AS400. the configuration is accepted but I keep getting the message "remote device rejected an attempt by the writer to open a connection"
I have it configured as a
Device Type:  3812
Model: 1
Port: 9100
Manufacturer Type and Model:   *HP5SI
Remote Location:  192.168.5.50
System Driver Program:  *HPPJLDRV

Can anyone advise.

Regards
Gerald
0
Our ERP system runs on an IBM AS/400 (or whatever IBM is calling it currently), accessed via TN5250. With our previous 400 users could choose to alternatively use JDE WorldVision to connect to the 400. WorldVision scraped the screen and provided a point and click interface for the users. A lot of people chose to use it.

However, with our latest upgrade WorldVision is no longer supported. Does anyone know of a comparable product? We looked at zScope Express, but it frequently made the wrong things into clickable buttons.
0
Hi

I have received a .SAVF file (as400 / iSeries) and I have no knowledge of how the .SAVF and the packages inside it work.

I have come across a programme called jSAVF.jar which can open the .SAVF file but there are lots of packages inside it which has UTLILECLP or UTLILESQL or UTLSRCDBF and I can extract the individual files from those packages i.e. UTLSRCDBF.<name>.txt has some code.

I need to convert that into standard pl/sql code if possible - I can see some sql code but there are other parameters and parsing happening which I am not sure what it does etc.

regards
0
Veeam Task Manager for Hyper-V
LVL 1
Veeam Task Manager for Hyper-V

Task Manager for Hyper-V provides critical information that allows you to monitor Hyper-V performance by displaying real-time views of CPU and memory at the individual VM-level, so you can quickly identify which VMs are using host resources.

Does anyone know how I would be able to output all users in an Authorization List to an IFS file - programmatically?

Any help is much appreciated.
0
My issue is two fold, why can I PING an IP of a device that isn't on the network and I can't print.

I have a Datamax label printer that I just created a device description for and assigned it a new IP address, this printer is plugged into a switch, the switch is plugged into a firewall that goes through to another firewall before it gets to the IBM i.  We have two partitions, PROD and TEST.  I copied the device description and out queue from TEST to PROD to ensure they were identical on both sides.  

This printer works perfectly in TEST.  When plugged into the network I am able to print to it, I can PING its IP, TELNET to it and the trace route returns the three expected entries.  When I vary off the device and unplug it from the network I cannot PING it from the IBM i nor the network, I cannot TELNET to it and the trace route only returns the two expected entries.  All as it should be.  

However, in PROD I am unable to print to the device.  When I release a spool file it goes right to RDY status and the writer gets error CPD337F Error CPD337F.  I have verified that the port and IP are correct, I have verified that the remote device is not busy, I have verified that the printer is on line.  I can PING its IP from both the IBM i and the network but I cannot TELNET to it and the trace route returns only two of the three expected entries.  When I vary off the device and unplug it from the network I can still PING it from the IBM i but not from the network, I …
0
I have a CL program that adds a library (WHMSDTA) to the user library list. The command is ADDLIBLE LIB(WHMSDTA)
at the end of the job the library is removed from the user library list.

However if the job ends abnormally, and the user restarts the job, the library WHMSDTA is still on the library list and the user must sign off the log in again in order to rerun the program.

how can I check if the library WHMSDTA already exists on the user library list so that I can condition execution of the ADDLIBLE command?
0
Team,  I need to convert End of line Hex Character in a IFS file from  x0A to x0D0A . Please help me

Thank you In advance.
0
How can i save restore  an  stored procedure  type external from system V6R1 to another with V7R1 .
this object is looked from iseries navigator >database>schema>procedure.
0
Have a pc attempting to log on to a AS400 but gets no response after entering userid & password.  Makes connection to AS400 and gets log on screen with no problem.  I even entered a wrong password to see if I received an error message but I did not.  Any suggestions?
0
Hi Team,

For one of our server the  tape drive has been broken , so please confirm if we need to IPL the system after the replacement

Regards
Avinash Chandra
0
Hi,

I have an application still running old 36 programs. (on the list to converted, but has not made it to the top of the list)
Can anyone tell me how to get the wait record no max to function in a 36 proc on the  '// file' statement? (like the *nomax on the ovrdbf)  
 
OVRDBF     FILE(CUSTDT) TOFILE(&FILE8) WAITRCD(*NOMAX)
// FILE NAME-CUSTDT,DISP-SHR,LABEL-?L'1,1'?CCUSTDT,*******?  - I want the program to wait forever for the record instead of timing out


Thank You,
Lynn
0
I am attempting to receive data from a data quue that is attached to an outq.

From there I take some of that information and use QUSLSPL API to get the List of Spool files that meet the criteria of what was found from the RCVDTAQ API.

I then create the pointer using QUSPTRUS API  to a user space that I created previous and attempt to run the spool list.  when I do this is not working as expected.  Basically the follow IF fails on NUMBER-LIST-ENTRIES being equal to 0.

           IF (INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "C"  (14)
              OR INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "P")
              AND NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 > 0  (16)
      *
      * address current list entry
      *

              SET ADDRESS OF STRING-SPACE TO SPCPTR,

              SET ADDRESS OF QUS-SPLF0200 TO
                  ADDRESS OF STRING-SPACE((OFFSET-LIST-DATA
                  OF QUS-GENERIC-HEADER-0100 + 1):1),     (18)
      *
      * and process all of the entries
      *
              PERFORM PROCES
                 NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 TIMES,  (20)

           ELSE
              DISPLAY "List data not valid.  **** THIS IS WHAT EXECUTES!!!!" 

Open in new window


I have referenced this link with a COBOL example.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htmhttps://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htm

I can provide more code if necessary.
0
Free Tool: SSL Checker
LVL 11
Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Workstation program version 6.0 for windows
Iseries access for windows

User profiles are getting disabled for no aparenr reason. for example, user is enterning correct password while logging on however the user gets i ' =@@@ and his user account got diabled on iseries app. I tried to replciate the issue, by hitting connect/disconnect button - my profile got disabled. any advise should be helpful for me.

day 5 at the job :)
0
I am looking for script help with copping cell data from excel and pasting to AS400.
Example: copy data from Excel cell D3 paste in AS400 09,040 enter, copy from Excel cell E3 paste in AS400 13,030 enter. I need  this to repeat or loop until all the data from Excel column D and E have been entered in AS400.
0
Can someone help with below requirement.....

I have a physical file with one of the field with variable length and it has contents as given below. My requirement is to substring the the IFS links just before the *OMIT for all occurrence .

For example, the i should get  /QSYS.LIB , /QDLS, /TMP/BRMS , /QIBM/ProdData ....from first record.

From second record, nothing, as the *OMIT is not present

From third record, i should get /QIBM/UserData/OS400/TCPIP/QTOCHOSTS

From fourth record, i should get /QSYS.LIB, /QDLS

Once i get these substrings, i will right it them to another file in one column field.

Sample records in the file are ....

OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT) ('/TMP/BRMS' *OMIT) ('/QIBM/ProdData' *OMIT))
OBJ(('/home/cdimage'))
OBJ(('/QIBM/UserData/OS400/TCPIP/QTOCHOSTS' *OMIT))
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT))
OBJ(('/fixes'))

Thanks in advance !!
0
Is it possible to generate AS400 spool file with 2 different overlay objects. 2nd Overlay is applicable only to last page of the spool file?
0
Hello. I am trying to setup a 5250 Printer Session from a remotely located IBM ISeries (V7R1M0) to my local machine using an HP LaserJet M605 printer. I have setup many 5250 Printer Sessions before using other printers (HP LaserJets, Lexmark) but for some reason after I set this one up to print to the M605 printer, nothing prints. The ISeries seems to be sending the print file normally but the M605 does not print anything. I am assuming that there is some "trick" to getting this to work but I don't know what it is. I have tried the Manufacturer and Model Type paramter to other types of printers without success. Any help would be appreciated. Thank You!

Here is the DEVD for the printer:

Device description . . . . . . . . :   XXX    
Option . . . . . . . . . . . . . . :   *BASIC    
Category of device . . . . . . . . :   *PRT      
                                                 
Device class . . . . . . . . . . . :   *VRT      
Device type  . . . . . . . . . . . :   3812      
Device model . . . . . . . . . . . :   1        
Advanced function printing . . . . :   *NO      
Online at IPL  . . . . . . . . . . :   *NO      
Attached controller  . . . . . . . :   QVIRCD0001
Font:                                            
  Identifier . . . . . . . . . . . :   011      
  Point size . . . . . . . . . . . :   *NONE    
Separator drawer . . . . . . . . . :   *FILE    
Separator program  . . . . . . . . :   *NONE    
Printer error message  . . . . . . :…
0
I'm looking for zipping tools that could create zips with password
for OS/400 R7  platform so that sensitive data in files are encrypted
& when we sftp over to Windows/Unix, the encrypted zipfiles are
sent over : for PCI-DSS compliance, we want data at rest to be
encrypted both at AS400 & the Windows/Unix ends.

Ideally the zipping tool can be called by RPG & Cobol

In Unix, we can 'pipe' data stream directly into a zip; would be good
to have this feature for the AS400 tool.  

Also, we have tons of logs (eg: audit trails) taking up valuable space
in AS400 so this zipping can hopefully reduce the size of these
0

IBM System i

3K

Solutions

2K

Contributors

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
>