Hi all, I have requirements in which I have to pass the file as parameter to another program with defaulting the field value as, If character field default the first character as ‘%’ and if Numeric default till the length of the field with -9999. As per now I’m getting two options. 1. Create the…

I have not written a subfile program in a while, but am having trouble when errors are encountered. As this is COBOL and the code can be lengthy to weed through on a forum, let me first spell out the scenario. I have 32 records in a COBOL subfile, 11 per page. There is one…

I have a file which has account opened date and account changed date. In my RPG program, I need to extract all those accounts opened today. and do some calculations. Then I need to extract all those accounts that are changed today and status is not ‘Cancelled’ My file doesn’t have either opened date or…

I have a file which has an ID field and description. The same file is present in many library. I am trying to create an utility which will ask for the ID and it should display all the library which has the file with that ID in it. How can I achieve this? How to…

I am using SFLSNGCHC(*AUTOSLT) to use subfile records as like choice. but I cannot do the auto advanced record like CHECK(ER). Is there any way can we use auto forward option in subfile selection?

How to display a message (essentially error message) at the bottom in display file (DSPF) from a Message File (MSGF)? Also in order to display more than one message, how do I go about that? I have a MSGF, wherein all the messages are pre-defined, which we have to use. Would greatly appreciate your prompt…

I am looking for a tool that we can develop on AS/400. Please suggest the list of tools.

How do you print the spool file in Times New Roman. Report is not PRTF. (Coded internal). I am modifing this program and been asked if we can do it. On the OVRPRTF, the Font Identifier is asking for a Character Value for the Times New Roman. Does anyone know what this Character Value is?…

Hi, I have renewed the SSL certificate of my iSeries system. While renewing certificate, I haven’t got any option to specify the number of days to renew the certificate. It is getting renewed for 1 year by default. How to increase these number of days for SSL certificate while renewing it. Thanks & regards, Ketan…

In WRKQRY, while selecting the collating sequence, what is option 2-Query for iSeries English? I am trying to learn the options in WRKQRY and came across this. F1 help details are not digesting. Please help.

Hi Can you please tell me how I can connect my AS/400 to my PC? My HMC is broken. Here is the scenario. Please explain to me in very simple words because I do not want to read IBM’s 300 pages book. 1. I have an AS/400 Model 520.  I have internet so I have…

Using SFLLIN to create a two column display. Would like to tab down first column and then next column. col1-row1, col1-row2, col1-row3 etc. then col2-row1, col2-row2 ..instead of default col1-row1, col2,row1,col1-row2, col2-row2 Any idea how to control the tab key?

I had heard that the job QJOBSCD is related to native job scheduler and it is responsible for the job submission to JOBQ but when I had given command WRKACTJOB JOB(QJOBSCD), I could not find the job. It’s still active and the job scheduler is working fine.

Hi all! I have a display file in LIB001 and its having many screen files and Window file, I just wanted to add one more screen file in this case. 1. Do I need to compile the Display file? 2. If compile the display file, its linked with many RPG, CL programs, so obviously I…

I need to transfer a file using SFTP. It’s a PF with a 180 character field. When I try the put command from an iSeries library, the file goes over as binary. If I copy it to the IFS and transfer from there, it goes over as text. But, I cannot have this unencrypted file…

I have to write those records in PF whose criteria is as follows: * [b] C – [/b] = ‘y’ * [b] record must be latest for particular id [/b]here is the data – pf name – FILEA (to be read) and FILEB ( to be write) [b] A B C [/B] 10 1 N…

I have a copy command in my CL program. I have specified tofile and tomember parameters. I have given CRTFILE(*NO) so that I don’t want to create a source file if it is not existing. I want to show a message “Sourcefile is invalid” when the source file is not an existing one. I want…

The other day a colleague ran an SQL statement to update a field in a file to a constant where 2 other fields were equal to constants (so no joining was needed, etc.) When finished, there was a duplicate copy of the file in the first library in the library list. (Which is higher than…

Hi there again, Odd question…I am trying to transfer targets and there are more than a few. My Question: Is it possible to transfer more than on file simultaneously from iSeries to multiple Excel spreadsheets, or does this need to happen one at a time. Trying to cut down the continuous transfer. Thanks guys.

I have a character field wISODate of length 8A. It holds value in the form of yyyymmdd. I want to convert this to an ISO date field. Decclaration D wDAte S D D wISODate S 8A Assume wISODate has value ’20121001′ *YMD0 Move wISODate wDAte Any other better method is there instead of using Move?