Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

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

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
Fill in the form and get your FREE NFR key NOW!
LVL 1
Fill in the form and get your FREE NFR key NOW!

Veeam® is happy to provide a FREE NFR server license to certified engineers, trainers, and bloggers.  It allows for the non‑production use of Veeam Agent for Microsoft Windows. This license is valid for five workstations and two servers.

I am trying to login. I am using correct information.
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
I am working on a program in the CAPS (claim medical processing system) software.  It allows the user to enter claim information.  In the program claim information is written to files.  Before the claims entry screen is displayed, the program creates a backup of all the information for the patient.  This involves making copies of data in 5 different files in qtemp.  

If the user decides not to continue with the claim and backs out, the program removes all of the information in the 5 files for the patient being processed.  It then copies back the data that had been saved.  The problem with this is that on more than one occasion the claim entry screen ended before the information was copied back.

My manager has selected that we try commitment control.  But from what I have read this may not be the best choice.   Can anyone tell me if I am correct or can this be used?

Thank you
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
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
Hi All,

I want to know what my pool memory contains of and did DMPMEMINF.
I do that to know what can be improve in my program/file.
And here is the result (top nine) :
COUNT ( * ) POOL OBJNAME LIBNAME
7,492     5               ACTVTN PROC REF TBL
6,351     5               HSD
3,052     5               IWA
3,042     5               TERASPACE ADDRESS
2,199     5               SEIZE LOCK RANGE
1,103     5               QJOBMSGQ
803        5               WMHQ Data Queue Cache Temp Spc QTEMP
732        5               BPCA SPACE CREATED BY QDBOPEN
310        5               MAHANDLEMAPPER SEG

What is the meaning of that values in OBJNAME? I tried to google it but found nothing.


Thanks and Regards.
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
Hi all,

I would like to know if exists the possibility to make as a search in the screen of AS400 (all the screen, included AvPag (+)) and locate the cursor in the word searched.

I know that in HALC exist the option of SearchText and also the option of create a msgbox, and I would like to know if with that two options it possible create a tool/macro script for imitate the searcher of Excel (Ctrl+F)

Also, I would like to know the code for create a macro that find massively a lot of data and make an action with them, for example just copy.

Thank you in advance and kindest regards.
0
On Demand Webinar - Networking for the Cloud Era
LVL 10
On Demand Webinar - Networking for the Cloud Era

This webinar discusses:
-Common barriers companies experience when moving to the cloud
-How SD-WAN changes the way we look at networks
-Best practices customers should employ moving forward with cloud migration
-What happens behind the scenes of SteelConnect’s one-click button

The users at our warehouse are telling me that when they print a "pick ticket" they get duplicates of some but not others. in the dspmsq qsysopr I can see the duplicate job number

 Writer 541275/QSPLJOB/SHIP2F started.          
 Writer 541275/QSPLJOB/SHIP2F ended normally.    

---JOB STARTS---
                                                                               
 Message ID . . . . . . :   CPF3382       Severity . . . . . . . :   00        
 Date sent  . . . . . . :   08/09/17      Time sent  . . . . . . :   05:32:28  
 Message type . . . . . :   Information                                        
 From . . . . . . . . . :   QSPLJOB       CCSID  . . . . . . . . :   65535      
                                                                               
 From job . . . . . . . . . . . :   SHIP2F                                      
   User . . . . . . . . . . . . :     QSPLJOB                                  
   Number . . . . . . . . . . . :     541275                                    
                                                                               
 From program . . . . . . . . . :   QSPWTRM1                                    
                                                                               
 To message queue . . . . . . . :   QSYSOPR                                    
   Library  . . . . . . . . . . :     QSYS                                      
                                              …
0
Hi all,

I created a macro script for AS400, basically with the comand "autECLSession.autECLPS.SendKeys "word" / "right" / etc...

This macro script runs at perfection but the error comes when there is a variance in the screen, because sometimes depending of the value introduced, it jumps a box with information (that I have to introduce Y/N (yes/no)), or just, sometimes, the values introduced are incorrected (because exceed the limit of characters available for a string), and the macro starts to fall and collapse the console.

My question is the following: there is any method that when occur an error in the macro, and appears the X in the status bar, the macro stops at that point?)

Kindest regards.
0
Hi
Looking for a solution to convert mass output on a IBM Mainframe z/OS - 300 Mio. Documents / Year, average 2 pages per document to PDF.
Most importantly with minimal increasing the resulting PDF output compared to AFP
A am aware that the amount of size increase depends on the AFP input. But is there a rule of thumb about the size ratio between AFP and PDF.
And what is the best solution to generate best quality PDF/A with minimal size.

Many thanks
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
What do you find is the best solution to mask data for both SQL server and iseries DB2?
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
Nothing ever in the clear!
LVL 1
Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

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
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
**************************************************************
        *                                                            *
        *            Licensed Materials - Property of IBM            *
        *                                                            *
        *     IBM(R) Sterling Connect:Direct(R) for UNIX 4.1.0.3     *
        *                   Build date: 20Jun2012                    *
        *                                                            *
        *  (C) Copyright IBM Corp. 1992, 2011 All Rights Reserved.   *
        *                                                            *
        **************************************************************

Direct>
XPAE003I  Return Code: 8  Feedback: 0
          :&KEYWD==:

XPAM001I  Return Code: 8  Feedback: 0
          Errors Parsing

Direct> Enter a ';' at the end of a command to submit it. Type 'quit;' to exit CLI.

       submit CAPM2AMS process SNODE=PQS1S
 step01 copy from (
                   file=/tmp/2017173.j4.01701.cctpepay
                   pnode
                   )
               to (
                   file=TEST.2017173.j4.01701.cctpepay
                   disp=new
                   snode
                   )
 step02 if (step01 == 0) then
           run task snode
           sysopts="TEST.PQS 2017173.j4.01701.cctpepay "
           run task (PGM=UNIX)
           sysopts="rm /tmp/2017173.j4.01701.cctpepay"
        else
 step03 run task …
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

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
>