Interested to Buy Any Domain ? << Click Here >> for more details...
1) How to retrieve RRN through RPG ?
2) How to pass parameter by value ?
3) How to trap the error through the RPG/400
- 10 Answers
- 33033 Views
- IBM, Tech Mahindra, I also Faced
- E-Mail Answers
Answer Posted / kumar
1) using CHAIN OR SETLL
EX : FSAMP IF E DISK
C 5 CHAIN SAMP
FLD DSPLY
EVAL *INLR=*ON
2) Using call and parm
3)Indicators, infds(file information datastructure) *pssr
| Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
How can we override a file during runtime in rpg?
What is the diff bw PF/LF Name and their Record format name? what is restriction in record format then file name?
do you use message subfiles? What are the necessary keywords required coding a message subfile?
what are the key words you must use when using a subfile?
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?
what is the rpg system?
Please tell me how to read the records from a file with load an array of size with error conditions(The logic answer for this question is ARR is array of 99 elements Z-ADD 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN99 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO).So,Please give me the complete of this code.
what is a rpg?
how do I preserve and clean the array?
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
which program rpg or cl is efficent to update a transaction onto a database file and why ?
What is the difference between copybooks and subprocedures in as400?
How do u design a physical file, when you have 2 Unique fields like for eg in A student file student ID and student examination no both are unique
what is data area and how it is used in rpg program ?
what is the difference between do while and do until?
