• grouping data in rpgle

    I have sample data in file as below - (Model/Library/Format is key field in PF)Model Library Format LastDate-------- ---------- --------- -----------Model1 Lib1 Fmt1 1-Oct Model2 Lib2 Fmt2 2-OctModel1 Lib1 Fmt1 10-SepModel1 Lib2 Fmt2 5-Sep Below is the format I need the information- (#TimesPrinted...

    sri8707465 pointsBadges:
  • OVRDBF to QTEMP and using in RPGLE

    I have below CL source where I am overriding STDOUT to QTEMP file. I have a RPGLE program (this RPGLE calls CL program) where I want to read from this QTEMP file and process the records. The reason why i have used QTEMP is, I do not want to create the file in any library. However, how can I compile...

    sri8707465 pointsBadges:
  • Select highest sequence in SQL400

    Please suggest a feasible solution to address this issueExample output with duplicates (seq 133 and 160): Expectation is to pick only seq 160 by excluding 133: DSBLC DSRMB BDLDD DSUSR DSSEQ 4 55 190,613 CAVC01 133 4 55 190,613 CRPE01 160 Query used in RPGLE program in a scroll-able cursor: select...

    Hamsu230 pointsBadges:
  • Converting AS/SET generated programs to standard RPG

    I have several old RPG programs developed with AS/SET. AS/SET has been discontinued and I have to rebuild those programs.I suppose that IT professionals faced with this problem may have solved it, in the past, without having to code the programs manually. Please, if you're one of them, let me know...

    Roldao5 pointsBadges:
  • Issue with amount fields with decimals

    I have an excel spreadsheet which i copied to AS400 stream file, and then copied from stream file in IFS to a database file using CPYFRMIMPF but the amount fields whihc i had has value as "21100" which should be treated as 211.00 in database but it copied as "21100.00" . How to resolve this issue?...

    Hamsu230 pointsBadges:
  • x’25’ vs x’20’ AS400

    I have a text field 'SAMPLE DATA' displayed on screen. I read each character of the field and set 2nd character as x'25' (green/underline/reverse image) and 5th character as x'20' (Green). Am i right to say that, i should be expecting to see as below - S - normal green AMP - green underlined...

    sri8707465 pointsBadges:
  • QCMDEXC error

    Hi Team, I am using below code but it's giving me this error :-*RNF5343 30 1 Array has too many omitted indexes; specification is ignore Code:- SEU==> AP2 FMT D .....DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords++++++++++++++++++++ *************** Beginning of data...

    6r2,640 pointsBadges:
  • How to check if the record exists in a file without reading it using file information data structure and SETLL

    Hi, Below piece of code is trying to use file information data structure without reading the file but it's not showing correctly records do exists in the declared file but program shows blanks only please advise. *************** Beginning of data ************************************* 01.00 FPFBOOKS...

    6r2,640 pointsBadges:
  • How to call 2 different programs from a same rpgle program.

    Hi, How can we call two different programs from a same RPGLE program? And these 2 called programs are also simple rpgle programs only.Thanks

    6r2,640 pointsBadges:
  • Exiting a Progress bar DDS/RPGLE

    Hello everyone; I am stuck. I have a progress bar running on a FOR loop and it needs to run until this input file that the FOR loop reads to exit is updated properly. if this input fileĀ  never get updated properly, the FOR loop continues and no way to exit the program. I want for the user to press...

    farrazola5 pointsBadges:
  • AS400 Product basic questions

    Hi,What are the common prerequisites or Questions that has be checked with a AS400 related product.I know it depends on different product, But there can be something in common about partitions, libraries , AS400 related.Please suggest

    as400dev670 pointsBadges:
  • Cursor line positioning on a subfile

    This subfile has about 60 records showing 10 per screen. I've got it going to the desired line on the initial display (1st open field but not a field in the heading). Now I PageDown and cursor stays on the same line number (it doesn't return control to the program), so I'm unable to set it to a...

    aceofdelts2,550 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.