Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 7055 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / sachin
EQ
READC SFLRCD 90
*IN90 DOWEQ *OFF
OPT COMP 2 SR100
ENDDO
SR100 BEGSR (TO DISPLAY NEW RECORD FORMAT )
*IN12 DOWEQ *OFF
EXFMT RCD1
|
|
|
ENDDO
I TINHK ABOVE STUFF IS ENOUGH FOR U TO UNDERSTAND THE LOGIC
| Is This Answer Correct ? | 4 Yes | 1 No |
Answer / abhishek kumar
Use CSRLOC keyword to select the particular record. Once u
get the record, do what ever u want to do (e.g edit, etc)
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / guest
Asyou gave option edit, you have changed the existing
recore, so do,
Readc SFLRCD;
when option ='Edit'
move the diplay file fields to the database field.
Do chain on the basis of key to database file (to read and
lock record for update)
Update File rcdfmt;
Update SFLRCD;
| Is This Answer Correct ? | 0 Yes | 2 No |
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
What is the name of default out queue when user logs inn to syatem with valid profile?
what is EXCEPT command in rpg and use
HOW TO DELETE THE RECORD FROM MASTER FILE WHICH IS LINK BY ANOTHER TRASATION FILE WITH REFERTIAL INTYGRITY?
Can we used ovrdbf command after the opnqry file if yes then What will be out put of your program?
can anybody explain significance of *loval setll with example code????
What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?
Need a sql query: retrive all duplicate records in table
what r drawbacks of OPM? Why do we go for ILE RPG?
Can any one plz explain the concept of INFSR, *PSSR, INFDS AND PSDS, I' confusing about PSDS and *PSSR, Wat is the difference btw them, wat PSDS will do????
CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?
1.I have a Physical file with 100 records, No duplicates exists, all are Unique,But while i am running Runqry utility i am getting only 80 records..What could be the reason?
RPG400 
