1)how to do date validation in rpg?
2)how to delete dUPLICATE RECORDS?
Answers were Sorted based on User's Feedback
Answer / anonymus
TO VALIDATE DATE IN RPG .GO FOR "TEST" OPCODE
TO DELETE DUPLICATE RECORDS IN RPG GO FOR READE &DELETE
|Is This Answer Correct ?||13 Yes||6 No|
Answer / madhusudhan
1. Date Validation you can do with TESTD
2. Duplicate Records. There are two ways to delete this
a. Through SQL, after selecting the RRN numbers, you can
use the delete statement in SQL to delete the unwanted
record based on the RRN
b. Through RPG, but if you use the SETLL and READE, all
the records along with the duplicates will get deleted , so
you need to use one variable for count, once it reaches 1 ,
stop doing the delete.
|Is This Answer Correct ?||5 Yes||0 No|
Answer / riyaz
Hi Sumathi, How can u delete duplicate records using RRN?
|Is This Answer Correct ?||4 Yes||1 No|
Answer / swetha p rao
TEST works in RPG400 not in RPG.
|Is This Answer Correct ?||3 Yes||2 No|
Answer / raghav
2. Delete from File1 F1 where RRN(f1) > (select MIN(RRN(F2)) from File1 F2 where F2.Field1 = F1.Field1)
|Is This Answer Correct ?||1 Yes||0 No|
Answer / chandu
We can delete duplicate records by using this:
factor1 opcode factor2 result eq
key setll pf
reade pf 50
reade pf 50
|Is This Answer Correct ?||4 Yes||4 No|
Answer / zhang
Hi Riyaz, Sorry I'm not Sumathi,
I guess maybe we can use SQL to do that.
Select RRN(tableA) from tableA ;
Delete from tableA where RRN(tableA) =? ;
|Is This Answer Correct ?||4 Yes||6 No|
1: FOR DATE VALIDATION
TESTD(E) *ISO(WHAT EVER) DATE VARIABLE ;
IF %ERROR ;
DO SOME THING ;
2: CREATE A LOGICAL ON THAT FILE WITH KEY SAY FILE1
FFILE1 IP E K DISK
D X S 9S 0
I KEYFIELD L1 (CONTROL INDICATOR)
X += 1 ;
IF X <> 1 ;
DELETE RECORDFORMAT ;
CL1 RESET X
|Is This Answer Correct ?||0 Yes||2 No|
WHAT IS MENT BY RECORD LEVEL IDENTIFIER ? WHAT IS THE PURPOSE OF THIS?
How to select highest score of each subject or how to select highest income of every month?
how many variables can we declare in cl pgm?
what is the equivalent keyword for CHAIN opcode ??
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????
Errors in Sql query will be in which state?
Why we need to give File and To file Names While we are using OVRDBF. What is your understanding related to this?
How to identify the object has compiled with the debug view as *source without using STRDBG?
parameters cannot be passed in which one??
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...?
what is file information data structure?
I want to declare the number of elements of an array dynamically in RPGLE ? Is it possible? If yes, then how do I do it ?