Answer / vasu devareddy.g

we can update selected fields from pf using EXCEPT OPCODE

Answer / rahul

we can update selected fields of a pf using EXCEPT opcode

Answer / gurjit oberoi

without using cl command we can read members in RPG using
EXTMBR in F spec like

EXTMBR(member_name)

Answer / sivakumar y

Hello Friends, Question asked by vinit is how to read all
members in RPG3, but not in RPGLE.

I think the answer for this question is:
1)Need to declare the rquired file in USROPN mode in RPG.
FFILE1 UF E K DISK Usropn

2)Using QCMDEXC API execute the override command. The
value to be passed in first parameter is like below.
D Cmd1 C OVRDBF FILE(FILE1)
TOFILE(TOOLBOX/FILE1) MBR(*ALL)'

Regards
siva

Answer / sekhar214

UPDATE RCDFMT %FIELDS(FIELD1:FIELD2)

Answer / kamlesh

create new LF which is based on multi memeber PF
This LF has only one data member which is based on
all data members present in PF. Now use this LF
in yr RPG3.

Answer / daithuan

1.Why not use embedded SQL?
2.Why read all members, surely if you want to update the pf file base on a certain condition then every record that matches that condition will be updated.

Hope that helps!!!

Answer / sai reddy

Hi Siva,
what is the major Difference between RPG 3 and RPGLE in terms of coding...please reply me.

Why there is invention of RPG if we can do insert update delete in CL through SQL.Why the rise of RPG?

1 Answers   Infogain,

why subproc not run in dftactgrp?????/plz explain

2 Answers   CSC,

which MONMSG will give higher priority in CL program? I know MONMSG are of two types. Program Level Monmsg and Command Monmsg?

1 Answers  

Can anybody tell me that why we use option(*nodebugio)in H- Spec?

3 Answers  

in which journalling which attributes are necessary

2 Answers   CTS,

how can we know running job is batch or intractive ? i need all the possibilites.........plz help me

3 Answers   HSBC, IBM,

Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?

1 Answers  

if i have three programs progA,progB and progC .now i call progB from progA. but the progB does not exist . now i want to call progC instead of starting dump. how can we achieve this.

10 Answers   Four soft,

I have some doubts on subfile----------- -----I wrote a prog on subfile to display the records. Every thing is clear but i defined a field called "opt" as input field in subfile record format from that input field i wish to enter into new screen called "EDIT" which i created it as a separate RCD in display file. i gave opt as 2 for edit just like in WRKMBRPDM screen please telll me the code and how can i code for it in RPG.

3 Answers  

What is the significance of UDATE?

5 Answers   IBM,

Can anybody tell me in which scenario we have to use SQLRPG .(Embeded SQL)....?

2 Answers   HSBC,

Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On

0 Answers   IBM,