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
- 32991 Views
- IBM, Tech Mahindra, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / swetha p rao
1. File information Data Strucutre
2. Using Parm
3. Monitor
On-Error *All
Endmon
| Is This Answer Correct ? | 20 Yes | 4 No |
Answer / zhang
1. in F specification, use RECNO keyword.
2.
3. Use error capture subrountine, *PSSR
| Is This Answer Correct ? | 6 Yes | 2 No |
Answer / deepu
1.USING SETLL OR CHAIN BY GIVING RRN IN FACTOR ONE,OR
SPECIFY RECNO KEYWORD IN FILE LEVEL.
2.USING CALL AND PARM
3.USING ON-ERROR OPCODE
| Is This Answer Correct ? | 8 Yes | 5 No |
Answer / vishal
using recno(var) keyword in f spec where var is a variable
to store rrn.
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / guest
1 we can retrieve RRN through RPG by SFLRCDRRN along with
dds
3. we can trap the error through the RPG/400 by PSSR, INFDS
| Is This Answer Correct ? | 5 Yes | 4 No |
Answer / 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 |
Answer / girish kulkarni
1) Through CHAIN opcode it is possible , give RRN in Fact1
2) Write the value in Fact2 of Parm Opcode and name of
parameter in result field
3) Through the program status data structure or File
information data structure
| Is This Answer Correct ? | 4 Yes | 14 No |
How can read PF in reverse order (end to start) in CL pgm..
What is the purpose of Panel Groups?
1.The questions have given an array declaration and move operation then this statement is correct or not?
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 I90(Insure 90)?
How to call one program from another program in RPG? please help me with the code
CAN WE READ RECORDS WITHOUT USING SETLL,READ,CHAIN IN RPG?
what is program status data structure?
I want to add 10 days in current date. how it is possible in CL program...?
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 is edit word and edit code
Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?
RPG400 
