Answer / anonymus

TO VALIDATE DATE IN RPG .GO FOR "TEST" OPCODE
TO DELETE DUPLICATE RECORDS IN RPG GO FOR READE &DELETE
OPCODES

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.

Answer / riyaz

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

Answer / raghav

1. TESTD

2. Delete from File1 F1 where RRN(f1) > (select MIN(RRN(F2)) from File1 F2 where F2.Field1 = F1.Field1)

Answer / swetha p rao

TEST works in RPG400 not in RPG.

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

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

Answer / sekhar

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

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) =? ;

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

wat is scan and check ? give me real time scenarios where we used these keywords in ur projects?

2 Answers   Four soft,

What is the difference between ITER and DO ? I know both are used to execute set of statements repeatedly, but what is the main difference?

2 Answers   CGI, Wipro,

Hi friends, Can you give the solution for the below mention simple code.and explain.what is output D CHR1 S 4A INZ('PEN') D CHR2 S 10A INZ('MYGET') D CHR3 S 8A INZ('GOOD') D CHR4 S 22A INZ C MOVEL CHR1 CHR4 C MOVE CHR2 CHR4 C EVAL CHR4=CHR3 C MOVE CHR1 CHR4

4 Answers  

1. What is bound-by-call and bound-by-reference? 2. Where and why is *Nomain used? 3. What are the difficulties faced by programmers when using service programs? 4. Explain the different ways of parsing and compiling XML in iSeries.

2 Answers  

1.How can you search an entire source file for a particular field name? 2.How can you find the differences between two versions of the source for the same program? 3.What is a hidden field as it relates to a sub file? 4.How do you display a sub file that has no records in the sub file?

8 Answers   HCL,

What is the significance of UDATE?

5 Answers   IBM,

Hi Viewers can any body explain me how to update and ahange the already existed data in physical file using subfile ? please explain me with the code if possible?

1 Answers  

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

5 Answers   CTS,

I have a RPG program of 100 Lines and first line is to SETON indicator LR. Will the program execute rest of the 99 Lines?

6 Answers  

how do I do concatenation in rpg iv, like I do in cl?

1 Answers   IBM,

how we create binder member for updating service program and where we type this code on command line or in program ? strpgmexp pgmlvl(*current) export symbol (xyz0 endpgmexp. plz explain me this step by step .

2 Answers  

I want to add 10 days in current date. how it is possible in CL program...?

11 Answers   CSC,