can we perform CHAIN operation on Subfile record format....?
- 4 Answers
- 18388 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / madhura
WE can chain subfile by Relative record number RRN.
| Is This Answer Correct ? | 19 Yes | 0 No |
Answer / ambikapathy velu
Yes CHAIN operation can be performed on Subfile record
format. You need to declare on hidden field and CHAIN
operation to be done with the hidden field.
| Is This Answer Correct ? | 12 Yes | 6 No |
Answer / kamlesh
Declare RRN field in F spec. Then move valid RRN into this
field and apply Chain on SFL record format having RRN field
specified in factor1 of chain. Specified RRN record from
subfile will be read by system.
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / rosh
Yes, we can chain the subfile by using RRN number to
subfile record format.
| Is This Answer Correct ? | 2 Yes | 0 No |
To check the locks , we use cmd WRKOBJLCK , but how we confirm whether it's objeck lock / member lock. I confused with the Lock type and Status values...Can any body please tell me ...
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
how we create binder member for updating service program and where we type this code on command line or in program ? strpgmexp pgmlvl(*current) export symbol (xyz0 endpgmexp. plz explain me this step by step .
what is the rpg system?
How to update selected fields from pf without using update opcode. How to read all member in Rpg-3,without using any cl command?
two attributes which govern the excecution of a job>>>>??
How can we read a particular record from the database file which is not having DDS (Flat File). For example, there are 100 records in the flat file. How can we retrive 15th record in RPG/400 program (Without using CL)
Thanks gagan for your answer,i'm new to as400,i don't know embedded sql in rpg.can you send me the coding for the below mentioned question in embedded sql rpg. how to retrieve particular field records from a physical file,say i have a physical file called 'employee' in it i have to retrieve the records of a field 'admin' present in pf 'employee' using rpg,but i should not use logical file or openquery file.
How can we override a file during runtime in rpg?
How to declare the more than one file in cl/400.
I have a PF(ABC)with no key fields. PF(ABC)have 2 fields (cusno and cusname). Please let me know how can i read the cusno = 1150 directly from PF in CL and RPG program(Without creating the LF and without reading the complete file and then compare 1150)
What will happen if we r using seton lr after return or vice versa.
RPG400 
