• How do AS/400 stored procedures get output?

    I have created a CL which calls an RPG program. Now I have to create a stored procedure which calls the CL! As RPG normally sends back the output to CL! How should I send back the output to SP? Will SP normally pick it or is there any command to send back the output to stored procedure (SP). I have...

    bharathtata25 pointsBadges:
  • DLCOBJ command not working

    I have a program that allocates an object (*file), calls a program, then deallocates. The dlcobj does not work. RPG PROGA calls CL PROGB which calls CL PROGC. PROGC does the alcobj and dlcobj. However when the program returns to PROGA (interactive RPG), the object is still locked. Any ideas?

    ttufankj25 pointsBadges:
  • Field missing in Synon created RPG when renames database fields

    I have an RPG program, created by Synon that, when it renames Input file fields, just a couple of the fields being renamed to are not defined. Nothing has changed in the program or the files since the last time it was gen'd and compiled. What could be causing this?

    jlgarrett5 pointsBadges:
  • AS/400 Group Jobs being held after the first empty job is run

    I am using STRGRPJS JOB to submit a group job but after the first job is run which is a empty job the remaining jobs are being held. Can anyone tell what should i do so that they don't go in held state? Thanks.

    aceamar25 pointsBadges:
  • Retain RPG menu selection on the screen

    Is there a way to retain a menu selection on the screen? If a user selects menu option ' 1 ' I want the number '1' to remain on the screen until another selection is made or another menu is selected.

    lumberman7035 pointsBadges:
  • How to add user info in RPG – AS/400 for any printing to a multifunction printer?

    I have a customer currently using RPG - AS/400. The customer needs to track AS/400 users who print to a multifunction printer but there is no users info in the print stream currently. How can I add the users info in AS/400 print spool and what are the steps required? Thank you!

    chanwt15 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:
  • 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:
  • 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:
  • Dynamic SQL in RPGLE

    I am building a dynamic SQL in RPGLE with a wildcards. It does not work like a native SQL statement. A search for "FRANK" will search on 6 characters (retrieve all the FRANK and the FRANKL, but not the FRANKLIN). A search on "FRANKL" will retrieve the FRANKL and the FRANKLIN. Any help would be...

    davidgrant10 pointsBadges:
  • Converting Float to packed

    I am trying to convert a Float8 to a 17 6 Packed and I am loosing 1/100000th of the value of the decimal portion. The packed result is 1/100000th less than the Float value. How do I stop this from happening? I am calculating taxes.

    Kcgto4550 pointsBadges:
  • 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...

    NicyChn135 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:

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.