1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?

Categories >> Software >> MainFrame >> IBM AS400 >> RPG400
Suggest New Category

1)how to do date validation in rpg?
2)how to delete dUPLICATE RECORDS?

Question Posted / susmith

12 Answers
30919 Views
IBM, Opus, I also Faced
E-Mail Answers

Answers were Sorted based on User's Feedback

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

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

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

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

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

Answer / riyaz

Hi Sumathi, How can u delete duplicate records using RRN?

Is This Answer Correct ?

5 Yes

1 No

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

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

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

Answer / swetha p rao

TEST works in RPG400 not in RPG.

Is This Answer Correct ?

3 Yes

2 No

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

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

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

Answer / vivek kumar dwivedi

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

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

Answer / sekhar

For Date validation we can use TESTD Opcode
Duplicate records can be deleted using RRN

Is This Answer Correct ?

3 Yes

4 No

1)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

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)how to do date validation in rpg? 2)how to delete dUPLICATE RECORDS?..

Answer / sekhar

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

Post New Answer