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 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
Announcing the Most Valuable Experts of 2016
LVL 6
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

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
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
How do I change the default view from the WRKOUTQ command to get the view 2 details displayed straightaway, instead of having to press F11?

We just did an upgrade and for the life of me I can't remember where/how to change this. (release V7R3)

Thank you in advance!
Lynn
0
We have a remote system running V5R4 and our current server is running v7r2.  

We have a remote location entry setup for the old machine it works with TELNET.  I can access using 'TELNET OLDSYS' but I'm not able to do as savrstlib to 'OLDSYS'  error:

Route to specified location not found.              
An error occurred during the SAVRSTLIB operation.  

spelling is correct.  If telnet works should savrstlib work?

Thank You!!!!
0
HI,

We run BRMS nightly. Last night the tape failed. The snapshot was created. Is there a way to push this snapshot to tape so we don’t lose a backup?

Thank You,
Lynn
0
Hi,

In my AS400 system, there are around 20 applications which runs and occupies around 90% of CPU.

I would like to Know the process to find how much a particular application is putting load on that CPU.

Example, app1 takes 20% of CPU out of 20 applications.

Can somebody shed some lights on how to find this.

Thanks
Chaitu
0
Hi,

One of our application is running on V5R3 AS400 server.
This application is running slow as there lot more applications running parallely on this system.
Admin tried all the tunings but there is no more memory to accomodate any load.

So we are planning application alone to move this to latest AS400 version with a very good hardware configuration.

I understand that we cannot upgrade the V5R3 to V7R2.

But can we move the application from V5R3 AS400 server to a brand new V7R2 server with a good Hardwae configuration.

When i say move, i would like to do create a SAVF on V5R3 and restore that on V7R2.

Please let me know if you have any other suggestions or thoughts.

Thanks
Krishna
0
Hi,

We have a powerbuilder application which connects to AS400.

When it runs some AS400 cobol program through ODBC connection, I see in the job log with below error

RRMGlobals::getIndex(char,int)(117)] Unable to get index: 6 mode: S
Object name  is not valid.

When i press F1 and F9, then i see the program name as PSCOMMON/NW0002A.

Looks like this is some system program.
When i checked this program on our system, it doesn't exist.

can somebody tell me what this program is all about.

Thanks
Krish
0
Get HTML5 Certified
LVL 9
Get HTML5 Certified

Want to be a web developer? You'll need to know HTML. Prepare for HTML5 certification by enrolling in July's Course of the Month! It's free for Premium Members, Team Accounts, and Qualified Experts.

Hi Experts,

I have a DB2-400 table that contains a field of type 'G' (DBCS-Graphic data  30-pos) this field contains some text (some records chinese)
If I try to print this field I get all data except the chinese info.

What do I have to change in the PRTF-DDS and/or the RPG to get this on my output
0
Is there a difference bwteen selecting rows in the WHERE clause on in the JOIN clause.

For example,

SELECT t2.*
  FROM orderHdr t1
  JOIN orderDtl  t2 on t2.orderno = t1.orderno
  WHERE t1.orderno = 100
       AND t2.status = ' '

as opposed to

SELECT t2.*
  FROM orderHdr t1
  JOIN orderDtl  t2 on t2.orderno = t1.orderno  AND t2.status = ' '
  WHERE t1.orderno = 100

I would think the second method would be faster as I'm thining that join is only to rows where the status is blank.

Thanks for your thoughts,

Rob
0
Hello all,
As the title says I need to make a cronjob to check a remote ftp folder if a file exists. If so, it needs to email me. I have a Ubuntu web server I can use that is setup to email out and all that, is it best to try to make a bash script, or PHP to accomplish this? Does anyone know of any examples that might help me from having to start from scratch?

I currently have a bash script I have made that already connects to the ftp server and downloads, backsup the file into a folder, then copies the file to another folder on an as400, then deletes if off the FTP once it finishes, so I am wondering if maybe I can implement emailing into my bash script, but I am not even sure how to setup a cron job on an as400 (IBM iSeries 720). So I was thinking that maybe a PHP script on my Ubuntu web server might be easier to just connect, see if a file is in the folder if so, send me an email so I can then run my aforementioned script, or even better, make it run that script automatically.

If anyone has any suggestions, I would greatly appreciate it.
Thanks!
0
Hi Experts,

While using the QLIRLIBD API, I discover that some libraries take a lot of time (up to several minutes), while other libraries take a few seconds.
the size of the library an the number of objects. It seems that there is no relation between size/objects and the required time to analyse the library.

What causes this delay and how can I speed it up?
0
I have very simple code to check if the last entry of an email address is a '.' and if it is remove it. If multiple '.' are entered remove them all.

The issue is if my email address exceeds 30 characters. I found other posts if the variables are varying in length or %trim is used. I do neither.  I don't see why this would have an issue. Please see attached for debug display, definitions, etc.  

Thank you. -substr-length-error-.docx
0
Hi, I am new to Mimix process and while reviewing some Mimix guide I came across below two command for which I could not find much information.
Will appreciate if someone can provide basic understanding of what a data group is and why it is required in Mimix process and explain intent of below 2 command.  Thanks in advance !!

CLRDGHST DGDFN
STRDG DGDFN
0
I have installed Client Access (7.1) on our MS SQL 2014 server.  I am using the IBMDA400 OLE driver to create a linked server to DB2 database one the iSeries. When I run a select statement on the data in a table a couple of fields are legible but most did not translate.

The fields that translate properly are ccsid 37 the ones that did not are ccsid 65535.

I have read several posts and tried putting various translation options in the Provider string.  It seems as soon as I add add any additional string other than the "Default Collection = xxx" in the provider string the connection test fails.

Can anyone steer me in the right direction?
0
I need to calculate a prorated amount of annual premium in free rpgle and account the number of days in leap years.

say a company's annual premium would be $1000 and they sign up on 11/01. I only need to charge them for 61 days of the yearly premium.

anyone have any date math examples for doing this?
0
please help for this

    Read hpol01;                                          
    DOW NOT %EOF(HPOL01);                                  
   exec sql SELECT PPROD,PVEND,max(PEDTE) AS PDTE          
   FROM hpo where pwhs='CP'  GROUP BY PPROD , PVEND;      
    PPPROD= PPROD;                                        
    PPVEND= PVEND;                                        
    PPEDTE=pdte;                                          
    Read HPoL01;                                          
    write(e) PURHL1;                                      
    EndDo;                                                
                                                           
     *InLR = *On ;
0
Free Tool: IP Lookup
LVL 9
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.

This is an ongoing project to sync Office Vision on a 610 (v4r5) to backup system a 170 (v4r4).

We did a full system save of the main system and restored it to the backup system, changed license keys, IP address, and address Id on the backup machine then did a full system save on it.

The restored receivers where not what I expected (please see attached document). I've include screen shots and steps I took. The questions are posted at the bottom of the document. Basically I'm not able to restore the journals (have not tried apyjrnchg with the seq numbers).

Thank you for any assistance.
Lynn Sync-Information.docx
0
Hi experts,

I try to get a list with abnormalities between object(source)date and source change date.

I think ANZUSROBJ would do the job, but when I start this, I get the error:
The call to program QCMDEXC ended in error (C G S D F).

In the log I see:
ASP group *NONE not set for thread X'000000000000008C'.    
-------8<----------- hundreds of times ---------------------------------    
ASP group *NONE not set for thread X'000000000000008C'.        
ASP group *NONE not set for thread X'000000000000008C'.        
Functiefout opgetreden. CPFB8E9 niet voorzien door QUSY2CO1 bij
  programma-instructie *N, systeeminstructie X'030D'.          
The call to program QCMDEXC ended in error (C G S D F).        

I also checked the tool CHKOBJSRC, but that can't deal with RPGLE nor serviceprograms
0
Our developers have been creating a lot of SQL Stored Procedures lately.  When they are doing this - the default authority that is "granted" to the new object is basically *PUBLIC *USE and then *ALL access to the user profile who created the Stored Procedure. The problem is that the other developers who work on the application are then not able to work with the new stored procedure.

Is there an option to "adopt" the authority of the library which the Stored Procedure is created in?  It would be ideal to just adopt the authority of the parent library - which is set up the way we want it to be.

I appreciate any guidance.
0
Update: I'm trying to sync office vision email changes between to old systems for recovery purposes. Office vision is the only application running both systems:  active system is a 610 v4r5 and the backup system is a 170 v4r4.  

Plan:
Sync users, configuration, etc. once. Then any changes made to the live system (610) will also be made to the backup system (170) manually for these areas. However, documents and email changes by users need to be synced a few times throughout the day. (depending on what the final solution will allow due to availability, speed, etc.) The hope is to sync the folders/files & email every half hour to hour.

 (should be noted I'm a newbie to journaling)

Background:
I would like to use QAOSDIAJRN for email recovery. Documents, as well, if they are recoverable is the same journal. Otherwise SAVRSTDLO will be used to folders/files. The SAVRSTDLO was successful with my own library but I have not done a full test until I get the email working. (I have created a job to grant myself permission to handle email for all current users; if the savrst is required.)

I have not tried remote journaling with redirect because it seems to me the results would be the same (newbie).  Plus,  I'm hoping not to mess with system journals. Whether I use SAVRSTOBJ on the receiver and pass it to the remote system or use remote journaling it seems either way I end up with a receiver on the remote system which must somehow be recognized by the system journal …
0
Hi,
Our shop has not used journal until a couple months ago when I added them to a couple master files for audit trail purpose. So, my experience with journaling is very limited. I don’t mind digging but would like to not chase my tail for hours on something that is not possible if I can help it.

Can I add remote journaling to a system journal? Specially, QAOSDIAJRN (Journal for DIA files). I have been researching how to setup a remote journal and thought I read somewhere remote journals could not be done on ‘Q’ files outside QGPL. Has anyone done a remote journaling on this system journal before? Any tips?

Thank you in advance!
Lynn
0
We have a user who is having an issue with her messages not breaking to her screen for some reason.

Her user profile is set to *BREAK and I verified that her MSGQ is set to *BREAK.

Not sure what else would be causing this issue? Any ideas?

Thanks!
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
>