• Access a OPNQRYF file using keys

    Is it possible to access a file created by opnqryf in an RPG/400 program using keys? I have defined the KEYFLD parameter but the RPG doesn't find the records when using READE or CHAIN.

    Marg5 pointsBadges:
  • OPNQRYF problem CPF9899

    DCLF FILE(LIBRARY/DISPLAY) START: SNDRCVF RCDFMT(REC) WAIT(*YES) IF COND(&IN03 *EQ '1') THEN(DO) GOTO CMDLBL(END) ENDDO IF COND(&ENQQUA1 *EQ ' ') THEN(DO) GOTO CMDLBL(START) ENDDO IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO) OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) + QRYSLT('&ENQQUA...

    Khadar90 pointsBadges:
  • WRKQRY query

    Hi, I have a CL program which uses WRKQRY to generate a report out of it. Now I have a requirement to change a field which holds Quantity and I want to divide this by 10 to the power of another field say DecFld. ie if Quantity is 359686 and DecFld is 2, I want 359686/10**2 = 3596.86 . Is it...

    RamvishakRamesh2,505 pointsBadges:
  • OPNQRYF query not working to filter pfdiv records

    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 from a Physical file (pfdiv), it contains 1,25,000 records . Through this openqryf all the selected records I will copy to a file...

    Khadar90 pointsBadges:
  • OPNQRYF error in QRYSLT

    PGM DCLF FILE(LIBRARY/DISPLAY) START: SNDRCVF RCDFMT(REC) WAIT(*YES) IF COND(&IN03 *EQ '1') THEN(DO) GOTO CMDLBL(END) ENDDO IF COND(&ENQQUA1 *EQ ' ') THEN(DO) GOTO CMDLBL(START) ENDDO IF COND(&ENQQUA1 *NE *BLANKS) THEN(DO) OPNQRYF FILE((SARKNS/ENQP002)) OPTION(*ALL) +...

    Khadar90 pointsBadges:
  • How to toggle between two columns in a subfile

    I want to toggle between two columns in a subfile...I'm using following code to condition the fields...however when i display subfile none of the fields are displayed...is there anything else i need to take care of?A #PROCP 8A O 6 22 A 15 DSPATR(ND) A #ORDERP 8A O 6 22 A N15 DSPATR(ND) ---------- C...

    Nutangujar895 pointsBadges:
  • How to remain on same page on Load All Subfile

    I am using Load All Subfile. I used Page Down key and went to 2nd page then on 2nd Page I pressed ENTER Key, then it went back to the first page of subfile. I am using COBOL program to write the subfile. Can anybody tell me how to remain on the same page after pressing ENTER key on Load All...

    Vids295 pointsBadges:
  • Single Page Subfile code

    Hi i have started learning Subfile and i've written a Load All Subfile code to display all the records in a PF. Iit is working fine.But I want to know what else should i include in this code to make it accodring to coding standard. Also i need help in writing the single page Subfile program.So what...

    ITKBHARAT120 pointsBadges:
  • Display only subfile record format

    I am using load all subfile...in that first it will display all records. My question is when i give any condition it has to display empty subfile ie.only subfile record format? plz guide me as early as possible..

    shyedajmal285 pointsBadges:
  • Delete all records from file using SQLRPGLE

    How to delete all the records from file(bpro1) using sqlrpgle?

    Minuvinu35 pointsBadges:
  • Variable not found when calling a SQLRPGLE program

    Variable not found when calling a SQLRPGLE program with parameters in CL program CALL PGM(LIBXYZ/TESTRPG1) PARM(&LIBNAM &FILNAM) here LIBNAM AD FILNAM are passed with VALUES to the SQLRPGLE program and at sql statemet ie. insert INTO LIB/FILl( LIB is having the value and FILL is not getting...

    ravula700 pointsBadges:
  • Problem with updating status of PF1 in SQLRPGLE

    Please help. I am trying to execute the below code but the update doesn't seems to be happening. DDATS E DS EXTNAME(PF1) C/EXEC SQL C+ DECLARE TESTC CURSOR FOR SELECT * FROM PF1 ORDER BY NUMBER C+ FOR UPDATE OF STATUS C/END-EXEC *OPEN the CURSOR C/EXEC SQL C+ OPEN TESTC C/END-EXEC C/EXEC SQL C+...

    juslikdat1440 pointsBadges:
  • What is the difference between using RPGLE and SQLRPGLE when updating a file?

    What is the difference in updating a file using RPGLE or SQLRPGLE?

    mcasantoshrai55 pointsBadges:
  • How to write multiple SQLRPGLE records into a printer file

    C/EXEC SQL C+ SELECT DISTINCT(CTP),COUNT(*) INTO :$Ctp,:#Ctotl FROM CUSTPF C+ GROUP BY CTP C/END-EXEC CTP is CustomerType in Customer File. Here actually I am getting 3 records as output. But I don't know how to write those 3 records into a printer file. Can anybody explain me how to write the...

    Sasikumarr195 pointsBadges:
  • Character in Cast argument not valid

    I need to retrieve the RRN and use it within my RPGLE program. I have the Select RRN(file) statement, but I get a Character in Cast argument not valid when executing. Any suggestions?

    trishahles10 pointsBadges:
  • How to write SQLRPGLE query with many select criteria

    I have a report to print using SQLRPGLE. The Report criteria screen has around 15-20 select conditions. Based on the conditions entered by the user, I build a query of type: Select * from emp1 where val1 = ? and val2 =? and val3 = ? and........... This is the first time I'm dealing with so many...

    Nutangujar895 pointsBadges:
  • Delete a record from COBOL/400 file

    In COBOL/400 PGM the file has been declared with ACCESS as SEQUENTIAL and ORGANIZATION as SEQUENTIAL. How to delete a record from such file?

    mvrkrishna535 pointsBadges:
  • How to invoke an auto start job in COBOL/400?

    How can I invoke an auto start job in COBOL/400 application?

    mvrkrishna535 pointsBadges:
  • Replace 1 character in a string with 1 or more characters in COBOL/400

    I want to replace 1 character in a string with 1 or more characters in COBOL/400. How can i perform this? Example: 1) A with ABC 2)A with ABCDE 3)A with A Etc.

    C.naveen09140 pointsBadges:
  • What’s the future of SAP in the industry?

    Hi, I'm a COBOL programmer working on mainframes with a work experience of 2 yrs. I've worked with technologies like JCL, COBOL, VSAM, DB2, IMS DB/DC, IDMS, FOCUS etc. I have an opportunity to get into SAP technical (ABAP/4) as a programmer in my organisation. Looking at the future prospects of the...

    ABAPer920 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.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

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

Following