• RPGLE SETLL / READE for update getting record lock on different key

    We are encountering sporadic unexpected record locks with update files using: setll (Key1) MasterFile; // Partial key. dou %eof(MasterFile); reade (Key1) MasterFile; if not %eof(MasterFile); // [Stuff] update MasterFmt; endif; enddo; Looking at the problem record by RRN, its key does not match...

    SemiTechieGeo70 pointsBadges:
  • Setoff EndOfFile and Found built-in functions

    How can we manually setOFF and setON the %Eof and %Found built-in functions on RPGLE? (Without using reading opcodes)

    csuoaananth110 pointsBadges:
  • IBM API for viewing debug data

    I want to check the debug view of all programs of a particular library. Tedious to go with DSPPGM on all programs and verify the DEBUG DATA parameter. Is there a system API that provides this information? I came across QCLRPGMI API and pass format name as PGMI0100. However, this doesn't have the...

    sri8707240 pointsBadges:
  • Printing Superscript / Subscript from RPGLE

    How to print subscript / superscript through RPGLE into spool file. This gets converted to PDF at the end. How to print "1st" as 1st using RPGLE. The printer field type is character length 5. Printer device type . . . . . . . . . : *AFPDS Coded as @Symbo = '1' x'09 'st' x'03 It prints "1 st ", with...

    LINYUSA201825 pointsBadges:
  • What are the advantages of using RPG over C/C++ at IBM i?

    What specifically RPGLE is good at doing, that'd be cumbersome/difficult with ILE C/C++? Also, how RPG differs from modern high-level languages? About me: I've studied C and C++ during high-school, and now working as an entry-level RPG/CL developer.

    rajat01185 pointsBadges:
  • SETGT READPE RPG FREE

    I am using a SETGT followed by READPE and not getting the right results. When this piece of code runs in figure 1 I end up retrieving LINE 7 instead of LINE 8. Begsr Sub1; SetGT ('-':wareh:appt#) I3APPTP1; ReadPE ('-':wareh:appt#) I3APPTP1; if %eof (I3APPTP1); SetGT (' ':wareh:appt#) I3APPTP1;...

    UARTJ220 pointsBadges:
  • In a display file window is 35 char wide and I want to put field 110 that wraps 4 lines

    I want a pop up window to allow user to type a 110 char field. The window is 35 char wide so I want it to cover 4 lines. Is there a way without having 4 display fields and having to concatenate in the RPG?

    rickgdcbloch5 pointsBadges:
  • OVRDBF, RRN and record deletion

    I have a CL program where I'm overriding file to qtemp based on *CALLLEVEL. In RPGLE program, I build the qtemp file with some records. After completion of RPGLE, I perform DLTOVR in CL. Now, in RPGLE program, I'm performing an activity of building the file again and again. (I perform something...

    sri8707240 pointsBadges:
  • Error in compiling embedded SQLRPGLE in full free format

    Hi everyone - here's a question from a user in regards to SQLRPGLE: I have written some simple embedded SQL PGMS in COBOL in AS/400, compiled and run successfully. But I am not able to do so in full free format RPGLE. Here is the RPGLE code that doesn't compile. dcl-s sql_RCONAME char(20) ; exec...

    Michael Tidmarsh65,530 pointsBadges:
  • SETLL/READE/CHAIN

    ID NAME VALUE1 VALUE2 VALUE3 MARKS 1 A 9 1 1 85 1 B 9 1 1 75 1 C 9 3 1 60 1 C 9 3 2 30 1 C 9 5 1 70 I have a file that contains fields as shown above. First 5 fields are the keyfields for the file. Now, i have a scenario where i need to fetch records pertaining to ID = 1, Type = C, Value1 = 9...

    sri8707240 pointsBadges:
  • AS/400 monitor out queue

    We have set up an out queue which is used strictly to email reports. As a result there should never be a lot of reports in the out queue. If there are a lot of reports, this means there is a problem and our reports are not emailing. Is there a way to monitor this queue? I would like a message sent...

    GHENDER250 pointsBadges:
  • Writing a RPGLE or CLLE program which clears multiple physical file by reading file names from a physical file

    I created a physical file which contains names of files which has to be cleared using CLRPFM. And write a RPGLE or CLLE to read from physical file, which files to clear.

    Yash6445 pointsBadges:
  • Dynamically assigning decimal places in RPGLE

    I have a character field of length 100. I need to convert this to decimal but the decimal points are not known beforehand. Example - In first instance, the character may hold value of '12345'. I need to apply 2 decimals on this and reflect as '123.45'. In example 2, i may need to apply 3 decimals...

    sri8707240 pointsBadges:
  • Program works in debug but not run time

    I have an RPGLE program that works when run in debug mode but will not update the file when run outside of debug. I have looked at the obvious, such as library list to ensure using same versions of programs. At a loss......

    Weklis0 pointsBadges:
  • Debugging RPGLE program

    Why some of the RPGLE sources are shown like sourcename_1 during debug.Is it because its not compiled properly? I have several modules bind to a program, in that few of the modules are shown with _1. Can any of you please help in this?

    Arundhathi85 pointsBadges:
  • AS/400 physical file

    Pf 1 file contain records below: Roll No Subject Marks 1           S1         100 2           S2          80 1           S1          60 2           S2          70 Another file PF2 Contain records below, Roll No Marks 1           180 2         ...

    vivekntt21450 pointsBadges:
  • Datastructure Subfield is not getting updated with new size eventhough the size has changed in copybook

    I need to increase the size of the field which happened to be the subfield of a data structure which is defined in a copybook. Even though I increased the size of the char field, it's not getting reflected it points to the previous value. I am not sure what am I missing there.

    Arundhathi85 pointsBadges:
  • Where to find external procedure inet_addr in AS/400

    Can any of you please tell where I can find the external procedures like inet_addr,connect(),accept() which are used in socket programming in RPGLE?

    Arundhathi85 pointsBadges:
  • Business days calculation in RPGLE

    Could you please some one help me, how to do the business Days calculation in RPGLE? For example I want to add the 6 business days to current date. I want to add the 6 business days to (1st March 2018) current date, it will be 9th March.

    venkateshh45 pointsBadges:
  • Compiling modules in RPGLE

    Hi, do I need to compile again a module which calls another module (which is changed) and both are bind to a program. Can any of you please confirm?

    Arundhathi85 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