• Like in SQLRPGLE

    Hi, I am using the below query in SQLRPGLE Select count(data) into :cntrec from sample where data like '%' "+:tpnumber+" '%'. I am getting an error "Token "+:tpnmber+" was not valid" . The tpnumber is a character field(10a). Sample file is a flat file I even tried '%' +:tpnumber+" '%' and '%'...

    Prashanth123270 pointsBadges:
  • How does VLDCMDKEY work in AS/400

    I have display file with load all subfile and using function key 'F3= Exit' ,'F5=Refresh' and 'F9=Print'. I want to preventing lock of screen if user press any invalid function key(anything except F3,F5,F9).Could any one suggest me any solution? I have used VLDCMDKEY at display file but in RPG...

    nabamita90 pointsBadges:
  • Prototyping and passing parameter in ILE RPG

    d ipms01 PI d sen 25a I have used the above syntax of protype interface to get parameter. While receiving the value through parameter passing in sen variable, I get source and lib name attached with the data I have given for sen variable. Eg: I have given 'New York' through parameter passing but I...

    Gopinath007760 pointsBadges:
  • Create RPGLE program from text

    I have been looking for a way to delete audit journal receivers by date. I found a program online by Carsten Flensburg. I've downloaded the files for this but they are in text form. I am not a developer, maybe a novice CL programmer :) . There are 4 files he has created: Member Name     Source...

    BigT211240 pointsBadges:
  • How a work file created during runtime can be read in SQLRPGLE program to check the record count

    Workfile created using clle with no keys during run time in qtemp. Read a permanent file with its first key, using setll *loval and read in Dow loop. Check if the first key value is found in work file present in qtemp. The corresponding field in workfile is it's 4th field. How to check this or what...

    NicyChn130 pointsBadges:
  • Create flat file in AS/400

    Is there a sample code in RPG to create a flat file?

    Niteshradven5 pointsBadges:
  • RPG indicators

    Pls tell me how to pass values to a group of indicators at once in a single statement in RPG and RPGILE with example..thanks

    ten20081,150 pointsBadges:
  • RPG print file with overlay does not convert to PDF correctly for characters in bold and French characters

    Using Esend to convert iSeries RPG print file to PDF. Prints correctly on IBM printer but once converted to PDF it appears to substitute a different font and the overlay text runs off the page. I have an AS/400 system.

    cfaries5 pointsBadges:
  • Data structure array in RPG

    I have a physical file has 10 column like filed01, filed02, field03......field10 Now I want to define a data structure with 10 subfield of char 5 and use in cursor. For example: select * from t1 fetch from t1 into :DS1 Now I want a array of 10 element automatically get the value from my DS1. Thanks...

    97834441841,465 pointsBadges:
  • RNF7591 on func’s result

    Dear all! I am trying to work with DS fields returning from procedure call. Here are definitions: d fileds E ds EXTNAME(file1:rfmt1) qualified d rsltds ds likeds(fields) d getDS pr likeds(fields) d inID const like(ID) d inDATA const like(DATA) options(*nopass) If I write:...

    tempally25 pointsBadges:
  • RPG large number

    Yes I'll research this on my own, it seems like it'd be an interesting topic. What is the largest numeric size usable in RPG? I'm after the high-end, not the decimals. TMI: I have a calc that blows up when the result is too large for the target field. I know I can calc to a 15.6 numeric, but hoping...

    aceofdelts2,340 pointsBadges:
  • How to substring and cast in select where statement on iSeries with RPG free

    Hi. I'm relatively new to free form RPG and I rewrote a program to be RPG free and SQL. I'm having problems with my where clause. I'm trying to substring the second byte on a 2 digit packed field. I've tried to use the CAST statement to convert the packed field to CHAR and then do the SUBSTRING on...

    raynesnf65 pointsBadges:
  • Reading members of a physical file

    Hi, Can somebody please help by providing the program code for reading all the members of a file using RPG or RPGLE program? Suppose a file has 3 members then how to read the records of all the 3 members in a file? Thanks!

    6r1,850 pointsBadges:
  • Is IBM AS/400 not growing anymore (at all)?

    Did IBM let the AS/400 die? Do you think that CIOs and IT managers that are in charge of an AS/400 system would modernize it? Or for those companies trying to acquire a new  IT system, would they consider implementing a brand new AS/400 for their new system?

    michalwenn35 pointsBadges:
  • RPG tools that allow me to find programs that call a given program

    What tools are available that will allow me to find programs that call a given program. Also need to know all programs that use a given field in a file.

    SteveLane75 pointsBadges:
  • 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?

    Mohan K695 pointsBadges:
  • Write duplicate record to a PF

    A screen has one input field called number. whenever the number is inputted, the value gets stored in a file. The file has 2 fields, Value and Sequence. So, if any user has inputted '10', the files will store 10 as value and 1 as sequence. If any user inputs a value, which is already present in the...

    manju05310 pointsBadges:
  • CPF5032 member already locked to this job

    I have a program written in RPGLE which calls numerous other programs. These programs all share similar files. In my main program, when trying to read a particular file, I get error CPF5032 even though I unlock the file right before I do the setll reade. As a result, I figured the lock must be...

    GHENDER215 pointsBadges:
  • Why can’t I make the leap from RPG to Synon?

    AS/400 RPG programmer (8 yr) and COBOL (22 yr). New job uses Synon extensively. I feel like I'm drowning - I can't seem to make the leap from RPG to Synon. I can't visualize where to look or what to do when given a task. Changes that would take a day or two in RPG are taking 10 times longer, and I...

    SweigartMark110 pointsBadges:
  • Reading Excel with RPG HSSF

    I set up a program to read Excel on my AS/400 using the klement examples then move to user AS/400 and cannot get it to read the Excel. Program compiles fine.

    mr400man5 pointsBadges:

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

Thanks! We'll email you when relevant content is added and updated.

Following