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

Hi Experts,

After configuring several webservice on the iSeries (AS/400) Apache-server (using the wizzard),
I like to transfer the configuration of them to an other machine.

Is it possible to copy and paste or backup and restore this configuration info?
0
Learn Ruby Fundamentals
LVL 13
Learn Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

What will happen in the following situation, I can't force this nor test this.

In a process a recordset is selected with SQL with a selection e.g. WHERE CODE = 1
(The result can contain a few hundred records.)
each record will be processed (within 15-30 seconds) and flagged as "CODE = 2"

Now a second job (same program) is started.
This program will also select a recordset with SQL with a selection e.g. WHERE CODE = 1.

What will happen when:
Job 1 select a records with code=1
(e.g result 250 records)

Job 2 select a records with code=1
(e.g result 240 records, 10 already processd by job 1)

Job 1 change value of a record to CODE = 2.
Is this record still in the recordset from Job 2?
0
Hi Experts.  I have what I think is a simple question but I haven't had any success searching for the answer.

I need a program that will notify a user when another user has a record locked that they are trying to access and who is using the record.

Thanks!
0
Hi Experts,

Using the WSDL2RPG from IBM....,
I thougt that this would be the tool that solve all my Webservice problems :-)
But now I get the following errors from the compiler:

*RNF0501 20      6 Length of character item exceeds 16773104; length defaults to 16773104.  
*RNF7301 30     93 Position of subfield is greater than length of data  structure; specification ignored.          

Position (335462082-335462085) of subfield SIZE in data structure SHIPMEN... is greater than length of data structure (16773104).                                

I understand what the problem is, but I still have to create a Webservice client
So I have a big issue/challenge.
What is the way to solve this issue?
0
Hi Experts,

I started my first RPGLE development with a sourcefile on the IFS instead in then QRPGLESRC,
Will takes some time getting used to is, but I think that's the way to go.

Now... In the program I use :
/copy myinclfile1.rpgleinc
/copy /QIBM/ProdData/OS/WebServices/V1/client/include/Axis.rpgleinc

The first is a includefile in the same map. the second... oke I think this is clear.

When I compile to a module it will work flawless.
Now I have changes the RPGLE into SQLRPGLE , and try to crate a module with CRTSQLRPGI
The result is: unknown copymembers.

Because of the map/program structure, it's not desirable to make a /copy to a fixedpath, if must stay relative.

How can I solve that?
0
Hi Experts,

I would like to exchange encrypted  information (by a certificate) from an IBM I-server to a Microsoft SQL server (2016)
Can I exchange the certificate used for the encryption from IBM to MSSQL server or vice versa?

For what I have read: I can create identical certificates on a source and target MS SQL server, but I cannot export and import this certificate.\

Can anyone help, please?
0
Hello Experts,

I use the QWVRCSTK API (format CSTK0100) to get the caller of my Trigger (program WHOCALLS)
But if I look at the callstack, I have no idea how to figure-out what entry I need.
In the example it's #MyPgm, but it can be any program from any library including SQLRPG, DFU or SQL.


Type  Program                  Statement         Procedure         
      QCMD       QSYS                     /0519                    
      QUICMENU   QSYS                     /00C1                    
   1  QUIMNDRV   QSYS                     /0DD3                    
      QUOCPP     QPDA                     /070E                    
      QUOMAIN    QPDA                     /011E                    
   2  QUOCMD     QSYS                     /01EA                    
      #MyPgm     MyLib                           _QRNP_PEP_#01     
      #MyPgm     MyLib         72                #MyPgm               
      QSQROUTE   QSYS          16483             QSQROUTE          
      QSQRUN3    QSYS          16906             SQL_Update        
      QDBUDR     QSYS          9759              QDBUDR            
      QDBUDR     QSYS          19816             CALL_TRIGGER_PGM  
      TRGPGMR    MyLib                           _QRNP_PEP_TRGPGMR 
      TRGPGMR    MyLib         5000              TRGPGMR            
      WHOCALLS   MyLib                           _QRNP_PEP_WHOCALLS 
      WHOCALLS   MyLib         3300              WHOCALLS           
      QTEVIREF   QSYS        

Open in new window

0
Hi Experts,

I like to write a structured DS to an IFS-file but in the same format as you see in debug mode, so all levels, all field-names an all values.
Write to IFS is not the problem , I know how to do that.
0
We are trying to create two generic ID files in Domino admin for registering person docs (Registering New users) and re-certify user certificates which are expired. Current issue is we when we create a new person document with ID file and grant access to Admin server and try creating a new lotus domino account, we are unable to view list of certifiers to select.

When we try to modify recovery authorities but it fails and does not resolve the current issue, When we try to Modify certifiers and try to remove administrators its giving an error  “Cannot locate user certificate. Make sure server contains your certificate for encryption”. I also tried copying the person document of that administrator back into their directory and followed the same steps which did not help me.

Can any one help me at the earliest as its very important to us?2019-03-28-09_35_36-2019-02-10-10_46.png
0
I copied the Georgia font from windows to the appropriate folder on my AS/400 and am trying to use it in a *AFPDS printer file.  In the DDS I've tried identifying the font by file name georgia.ttf and by font name Georgia, but it is not printing correctly.  What am I doing wrong?
0
Become a CompTIA Certified Healthcare IT Tech
LVL 13
Become a CompTIA Certified Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

I'm looking for a simple CL command that will output a message if a job has completed successfully or not.  We have a 3rd party email client already, so I know the syntax to allow the email to go, but I don't know the command to send it if the job is successful or if it failed.  Any assistance would be appreciated.

Essentially, I want the logic to be as such...

If the job completed successfully, go to this email message, else if the job didn't complete successfully, then go to this message.  I don't want any other reaction to occur.

-Anthony
0
Hi experts,

I use LIBHTTP to call a restservice (POST)
On this moment I use :
http_post(URL                         
         : %addr(myJSON:*data )       
         : %len(%trim(myJSON))        
         : '/home/user/result.dta' 
         : HTTP_TIMEOUT               
         : HTTP_USERAGENT             
         : 'application/json' );  

Open in new window

The result is written to a resultfile, I prefer to get the result in a variable in the program,
what do I have to change to accomplish that?
0
I could use some help with my script. I put *** where I need help making a code that would auto enter the most recent sundays date. Could you help?

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()
   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[tab]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "158"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[field+]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "5"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[enter]"
   
   autECLSession.autECLPS.WaitForAttrib 10,56,"00","3c",3,10000

   autECLSession.autECLPS.WaitForCursor 10,57,10000

   autECLSession.autECLOIA.WaitForAppAvailable
   
   autECLSession.autECLOIA.WaitForInputReady
   ***Input the most recent sunday's date.
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[field+]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "[field+]"
   autECLSession.autECLOIA.WaitForInputReady
   autECLSession.autECLPS.SendKeys "580171"
end sub
1
I need to get guidance on proper storage of an as400. I believe it is running system 38 (or 36).

Regards, George
0
Dears,

I have a Qlogic issue in IBM BladeCenter, Blade HS22 and LS42.

as attached picture no  device present in Fiber Channel Device.


Regards,
Saeed
Blade5.jpg
0
Hi All

Greetings!!!

Hope you are well.

I need to copy a Schema from one machine to other machine,

Both machines have Db2 instance of same version (10.5)

But Schema is having data of LOB data type.

Which method is simple to copy the entire schema with structure and data.

I know ADMIN_COPY_Schema only supports on same machine and under same instance .

But db2move utility does not support LOB data type (I think).

Any inputs on this Please.

Thanks in Advance!!!!
0
Hi, we have two tapes to be used for daily backup. and we have scheduled jobs to run the daily backups at night. previously, we only need 1 tape but now, it asks for 2nd tape. we have a program to initialize single tape, but not for 2 tapes. can anyone helps on how to intialize more than 1 tape  for daily backup   (1 week rotation basis). 2 tape cartridges per day, 14 tapes/week. os version: v6r1. thanks.
      PGM                                                                
      DCL VAR(&DAY) TYPE(*CHAR) LEN(4)                                  
      DCL VAR(&DLYVOL) TYPE(*CHAR) LEN(6)                                
      RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DAY)                          
      CHGVAR VAR(&DLYVOL) VALUE('DLY' *CAT %SST(&DAY 2 3))              
      INZTAP DEV(tapxx) NEWVOL(&DLYVOL) NEWOWNID(xxxx) CHECK(*NO) -
 ENDOPT(*REWIND)                                                        
      ENDPGM
0
Hi experts,

I recently discovered the "SYSTOOLS.HTTPPOSTCLOB" to consume webservices
As long as I give the right input to the WS, it works fine, but I can't figureout how to catch errors.

e.g. I send a wrong ZipCode a Zipcode-service to get an address.
If I do that in SoapUI I get the information:
{"errors": [{
   "status": "400",
   "title": "Bad Request",
   "detail": "postalcode has the wrong format. It should be: 9999XX"
}]}

Open in new window

If i do the same request with SYSTOOLS.HTTPPOSTCLOB, the response is empty (I assume null),
result : GDATA_DATA          CHAR(8000000)        NOT ADDRESSABLE

SQLCODE = -4302
SQLSTATE = '38000'

SQL Diagnostics data:
        ....5...10...15...20...25...30...35...40...45...50...55...60 
   1   'COMMAND_FUNCTION=VALUES INTO;COMMAND_FUNCTION_CODE=-66;DB2_N'
  61   'UMBER_CONNECTIONS=+1;DB2_SQL_ATTR_CONCURRENCY=R;DB2_SQL_ATTR'
 121   '_CURSOR_CAPABILITY=R;DB2_SQL_ATTR_CURSOR_HOLD=N;DB2_SQL_ATTR'
 181   '_CURSOR_ROWSET=N;DB2_SQL_ATTR_CURSOR_SCROLLABLE=N;DB2_SQL_AT'
 241   'TR_CURSOR_SENSITIVITY=S;DB2_SQL_ATTR_CURSOR_TYPE=F;MORE=N;NU'
 301   'MBER=+1;CLASS_ORIGIN=ISO 9075;CONDITION_NUMBER=+1;DB2_MESSAG'
 361   'E_ID=SQL4302;DB2_MESSAGE_ID1=CPF503E;DB2_MODULE_DETECTING_ER'
 421   'ROR=QSQVALUE;DB2_ORDINAL_TOKEN_1=SYSTOOLS.HTTPPOSTCLOB;DB2_O'
 481   'RDINAL_TOKEN_2=HTTPP00013;DB2_ORDINAL_TOKEN_3=java.net.Malfo'
 541   'rmedURLException:no protocol:                               '
 601   '                                  

Open in new window

0
Hi Experts,

We are getting the error message CPF5033 during READ operation in batch program and error message says the below.
"I/O error CPF5033 was detected in file B1PBILH (C G D F)."

When I check the log it says
" Select or omit error on field B1PBILH_1.BTCAR member B1PBILH.  
 Select/omit error on member B1PBILH.                            "

"I/O error CPF5033 was detected in file B1PBILH.                          
Function check. RNX1299 unmonitored by BLR573R1A at statement 0000048100,
  instruction X'0000'.                                                    "

I have checked the record lock and object lock on the file. No locks exist.
I have checked the data for the particular record where to check the junk value. No junk value exist.
And we are getting this error randomly for different records.

Program flow:
Cl program does the OVRDBF and then opnqry on the file and we read the same file in RPGLE with out key.
and we are getting CPF5033 error while performing the read operation on the file.

Please help me to fix the issue. I have attached the screen shot for your reference.


Thanks in advance.

Regards,
Sri
0
Bootstrap 4: Exploring New Features
LVL 13
Bootstrap 4: Exploring New Features

Learn how to use and navigate the new features included in Bootstrap 4, the most popular HTML, CSS, and JavaScript framework for developing responsive, mobile-first websites.

While do save/restore operation on *LINK in AS400,I am getting error  "File system error occurred. error number 3474
0
hi.  I am trying to configure mail on the iSeries or AS400.   My only ISP I have access to is verizon.  They have no SMTP servers you can use.  How can I configure the system to send out mail?  I am have other questions concerning this, but can't seem to find one if you have no access to an smtp server.
0
I had this question after viewing Display file Overlay problem.

I have the same problem but with window formats, three of them. Each is in its own program and display file. When program A is called from the menu, it displays its window leaving the original menu screen intact. From activity performed on that window, another program is called, program B, which also displays a window but now, everything behind it is black. This behavior continues for the next program which also displays a window and a black background eliminating everything  previously displayed up to this point.

I have a dummy format in each program with the ASSUME keyword and the one character field at 1,2 and even added the KEEP keyword but it made no difference.

I have not set row and column positions but have selected the default positioning option expecting the OS to position each screen to avoid any issues but obviously, this isn't happening.

Any suggestions?
Mike.
0
We have an issue right now where when our cust service team runs a credit card they at times receive a handshake error. We run a IBM i AS/400 that connects to a backend called Curbstone. Here is a break down of how this works Here is what is supposed to happen.

When credit cards are run curbstone opens a connection to paymenttech.
At this point the IBM I sends along “cipher suite, decryption keys” this information is accepted by paymenttech and the transaction continues.

Here is what is happening now.
Curbstone opens a connection to paymenttech.  At this point the IBM I sends along “cipher suite, decryption keys” this information is now rejected by paymenttech the transaction fails and the handshake error pops up. I have run a trccnn on the IBM i and in wireshark. Both curbstone and paymenttech don't see any issues on their end. I did call paymenttech today and a transaction that I saw on the IBM i didn't get to them resulting in the handshake error. I don't think its an issue with our network because it isn't a constant issue. I thought perhaps there was some job running at the time of the handshake error but that doesn't seem to be an issue. This issue ramps up at between 4pm and 6pm on Fridays. Why? I can't seem to find a reason.
TLS_FAILED_HANDSHAKE.pcap
0
Hi,
Does anyone know of a technique of locking an IBM i spool file so it cannot be deleted while a process is running?

Thank you,
0
How to do manual IPL from HMC on AS400 server . Am not having physical access to server. All remote access to the partition.
What settings should i change?
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
>