Interested to Buy Any Domain ? << Click Here >> for more details...
How do you know if a record exists without doing a READ and
CHAIN?
- 6 Answers
- 20686 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / avinash
by using file information data structure we can find the
number of records in a file.
| Is This Answer Correct ? | 18 Yes | 0 No |
Answer / david lex
setll KeyA FileA;
if %equal( FileA );
...
endif;
| Is This Answer Correct ? | 8 Yes | 0 No |
Answer / rizwan
Without using Prg if you want to check the records of a Pf
through command line you can use
DSPFD (Display File Description)
which gives you the Total number of records as well as
deleted records in a PF.
| Is This Answer Correct ? | 5 Yes | 1 No |
PGM PARM(&NBRRCD)
DCL &NBRRCD TYPE(*DEC) LEN(10 0)
RTVMBRD FILE(STR) MBR(*FIRST) +
NBRCURRCD(&NBRRCD)
ENDPGM
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / sravs
We Can Done THis By using Setll with %found also..
| Is This Answer Correct ? | 0 Yes | 5 No |
You have a *USE authority on a Library and *All authority on a file in that Library.Can you change the data in that file?
How to check which are the pgms using 1 perticulate file.? I know there is many tool available for X-reference...but need to know is there any command available in the system...?
this is rpg3 code W0RTN IFEQ @CN,002 what is the means @CN,002
1.WHAT IS WRONG WITH THE CODE BELOW? C CUSTNO CHAIN CUSTMAST IF %ERROR can any body find the wrong please? 2.What builtin function will you use to achieve the following functionality? C QTY IFLT *ZERO C QTY MULT-1 QTY ENDIF
What is use of IMPORT and EXPORT in RPGLE ? What is activation Group ? What is Service Program ???? How to call another program in RPGLE ?
How to create a key field for a logical file inside RPG?
Explain mdt?
Can we found a record existance in a file w/o reading the file?
6 Answers Traitsys Technologies,
What are different ways to pass data between programs and which one is the efficient way?
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
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 IBM, Tech Mahindra,
how do you use commitment control in rpg?
RPG400 
