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
OPCODES
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 ? | 5 Yes | 1 No |
Answer / raghav
1. TESTD
2. Delete from File1 F1 where RRN(f1) > (select MIN(RRN(F2)) from File1 F2 where F2.Field1 = F1.Field1)
Is This Answer Correct ? | 2 Yes | 0 No |
Answer / chandu
We can delete duplicate records by using this:
factor1 opcode factor2 result eq
key setll pf
reade pf 50
dow *in50=*off
delete rec1
reade pf 50
enddo
Is This Answer Correct ? | 4 Yes | 4 No |
FPF#4 UF E K DISK
C 'ABC ' SETLLR1 44 25
C *IN55 DOWEQ*OFF
C READER1 55
C *IN55 IFEQ *ON
C LEAVE
C ENDIF
C DELETR1
C ENDDO
C SETON LR
Is This Answer Correct ? | 0 Yes | 0 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
/FREE
TESTD(E) *ISO(WHAT EVER) DATE VARIABLE ;
IF %ERROR ;
DO SOME THING ;
ENDIF ;
/END-FREE
2: CREATE A LOGICAL ON THAT FILE WITH KEY SAY FILE1
IN RPG
FFILE1 IP E K DISK
D X S 9S 0
D
I RECORDFORMAT-FILE1
I KEYFIELD L1 (CONTROL INDICATOR)
/FREE
X += 1 ;
IF X <> 1 ;
DELETE RECORDFORMAT ;
ENDIF ;
/END-FREE
CL1 RESET X
Is This Answer Correct ? | 0 Yes | 2 No |
how do u track msg in cl pgm???
we are sending data of physical file to screen design and it is showing no record why?
1.what are the ARITHMETIC EXPRESSIONS IN CL PGM? 2.How to PASSING PARAMETER TO CL PGM?
I have a file .In that file i have 3 fields. Those fields are eno, ename, esal.Keyfield is eno. In that file i have data like this for eno 1,2,3,4,5. Now i need to display 2nd record. That means i need to set the pointer on 2nd record... Then, write the complete rpg program using setll.
how can an indexed file be used as arrival sequence in RPG?
1..Write an sql query to find the employee name who is having 2 phone numebr? 2.Write an sql query to the the second highest salary of the employee?
Can an indexed file be accessed in arrival sequence in RPG?
can anyone explain aboutovrOVRDBF,OPNQRYF, OVRSCOPE and OPNSCOPE?
Difference between RESET and CLEAR
what is batch debug in as400?
How to read a record from file where there is multiple record occurrence is available?
3 members in a databasefile .how to read records from all the members?????????