RPG/400

rpg/400

below program write a records to xodstsf in two times.... i am not sure where i missing... can you advice. FWDRPIK CF E WORKSTN FXODSTSF O E DISK FTFL01 UF E K DISK ...

SETLL

Hi I have a set of records whose key has duplicates. Can SETLL be used to read these set of records.I need this to be done as part of a loop.

Comparing ID and password in an AS/400 login screen

Dear friends iam quite new to this AS/400 . could you please let me know how to compare the id and password in a login screen..how to connect the cl program and display file to perform login operation .Do i need to write rpg code for that ..Pls help me out with this code in detail ...

Physical File Without Key

Hi guys, Currently i'm using RPGLE language. If i have a Physical File that without key, How am i going to set my pointer. I can't CHAIN,SETLL and SETGT as well. In order to use them, u need have a key. Am i rite? Is there any idea to solve this matter? Thanks!!!!

RPG/400

i have a physical file name with length of 10 same file i need to declare in rpg/400 but here accepting only 8 length so any way to overcome....

Change AS/400 Library List for a Batch Job

HI, Is there a way by which we can override the Library List for a batch job, when the job is active?

Result fields in RPG/400 vs ILERPG

When coding in RPG400, the result of a calculation can be larger than the size of the result field, like this: D Fld1 s 2 0 Inz(20) D Fld2 s 2 0 Inz(10) D Fld3 s 2 0 Inz ...

SFLRCDNBR

I want to know the use of SFLRCDNBR Keyword used in Subfile . I also want any sample Code of how it is handled in the RPGLE Program?

Mixed record format Subfiles

I've been writing standard subfiles for a while now but I've seen some where, to me, it looks like the subfile has a mixed record format - i.e. a header and then a variable number of detail lines. (The fields are of different length and position in the header and detail lines). I'm writing an...

How to add one Module to the existing Service Program

Hi, I want to add or append one new module called 'C' to the already existing service program(SRVPGM) For Example: I have one service program called SRVPGM consits of 2 Modules are A, B. Now i want to add one new Module called 'C' to SRVPGM. how can i do this ?

Bad performance in call command in RPGLE

We are facing a bad performance issue when RPGLE pgm A is calling RPG pgm B. Pgm A is reading a file as primary that contains 1000000 records and for every record calls pgm B that is doing 1 chain to a file and if it's sucessfully updates another file and then RETURN (not with SETON LR) to pgm A...

(AS/400 - RPG(ILE)) Date-Conversion

Date-Conversion --------------------- I have a date in 7-digit format in '1YYMMDD' format. e.g 1071231 for representing 31st of December 2007.(where '107' represents 2007; 12 represents December & 31 represents 31st Day of the month). Now i need to convert this into '31/12/2007' (European...

Cl program that reads a datafile for ftp

i need an example of cl program that reads a file containing ftp commands and executes the commands in their arrival sequence. thanks.

Unable to over ride a PF member

Hi, I made a cl program and in it I over ride a pf member, clrpfm then call my rpgle program. I can't write on my member but instead it writes on the primary member and reads it. seems the member that is used is the the primary member and not the member that I over rides.

How to convert system date to other format using RPGILE

please advice how can convert system date to other format using rpgile.

DSPF

I have a field in the display file of length 13 CHAracters long. The first 4 characters contains the year, folloed by a hyphen, Next 2 characters contain the location(alphanumeric) followed by hyphen Last 5 characters contains numeric. How do i declare in the display file. when i enter a value in...

OPNQRYF

I have 4-fileds on Display File like frdiv(zoned),todiv(zoned),frpr(char),topr(char) all the fields are of size 2 only. I am using a "OPNQRYF" to filter the records froma Physical file (pfdiv), it containes 1,25,000 records . Through this openqryf all the selected records I will copy to a file...

RPG/400 - How to send spoolfiles to different users

Please advice how to send spoolfiles to different users.

RPG/400 - CL command to search a record like CHAIN opcode in RPG

Please advice we have any command there in CL to search or find a record like CHAIN opcode in RPG.

RPG/400 - How to check if record is reaching end of the file in CL

Please advice me how to chck record is reaching end of the file in CL.