Hi below pasted is my code which i am running but i am getting an error 'Attemp to write duplicate records"
DDS
A*Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â CF03(03)Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â DSPSIZ(24 80 *DS3)Â
AÂ Â Â Â Â Â Â Â Â R RECSFLÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
AÂ 30Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLNXTCHGÂ Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â UPCÂ Â Â Â Â Â Â Â Â Â 20Â Â BÂ 9Â 3TEXT('UPC 2ND ITEM')
AÂ 31Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â DSPATR(UL)Â Â Â Â Â Â Â Â Â
A*Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â R RECCTLÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLCTL(RECSFL)Â Â Â Â Â
A*Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â OVERLAYÂ Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLSIZ(0010)Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLPAG(0005)Â Â Â Â Â Â Â
AÂ 10Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLDSPÂ Â Â Â Â Â Â Â Â Â Â Â Â
AÂ 12Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLDSPCTLÂ Â Â Â Â Â Â Â Â Â
AÂ 11Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLCLRÂ Â Â Â Â Â Â Â Â Â Â Â Â
AÂ 13Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLINZÂ Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLDROP(CF04)Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFLFOLD(CF04)Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â #RRNOÂ Â Â Â Â Â Â Â Â 4S 0HÂ Â Â Â Â SFLRCDNBRÂ Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1Â 2DATEÂ Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â EDTCDE(Y)Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1 12TIMEÂ Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 5Â 3'UPC SHORT CODE. .
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â COLOR(WHT)Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 8Â 3'UPC 2ND ITEM'Â Â Â
AÂ 31Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â DSPATR(UL)Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â COLOR(TRQ)Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â UPCSCDÂ Â Â Â Â Â Â Â 3AÂ IÂ 5 24TEXT('UPC')Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â R FKEYÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â OVERLAYÂ Â Â Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 23Â 2'F3 - EXIT'Â Â Â Â Â Â
AÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â COLOR(BLU)Â Â Â Â Â Â Â
RPGLE code
FSIDDLFÂ Â Â IFÂ Â EÂ Â Â Â Â Â Â Â Â Â K DISKÂ Â Â INFDS(@SIDLF)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
FPSIDDPFÂ Â IFÂ Â EÂ Â Â Â Â Â Â Â Â Â K DISKÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
FÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â RENAME(PSIDDPF:@PSIDDPF)Â Â Â Â Â Â Â Â
FÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â PREFIX(P)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
FD123Â Â Â Â Â CFÂ Â EÂ Â Â Â Â Â Â Â Â Â Â Â WORKSTN INFDS(@D123)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
FÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SFILE(RECSFL:I1)Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
D @D123Â Â Â Â Â Â Â Â Â Â DSÂ Â Â Â Â Â Â Â Â Â 500Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                                   Â
D @SIDLFÂ Â Â Â Â Â Â Â Â DSÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
DÂ #RRNÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 400Â Â Â 402Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                                   Â
 ********* MAIN ROUTINE *******************                 Â
 *                                                                   Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â EXSRÂ Â Â Â Â LOADÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â SETONÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â LR
 *                                                                   Â
******************* LOAD SUBFILE *********
 *                                                                   Â
CÂ Â Â Â LOADÂ Â Â Â Â Â Â Â Â BEGSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                                   Â
CÂ Â Â Â *IN03Â Â Â Â Â Â Â Â DOWEQÂ Â Â Â '0'Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                                   Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â WRITEÂ Â Â Â FKEYÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â EXFMTÂ Â Â Â RECCTLÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Z-ADDÂ Â Â Â 0Â Â Â Â Â Â Â Â Â Â Â Â I1Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Z-ADDÂ Â Â Â 0Â Â Â Â Â Â Â Â Â Â Â Â #RRNOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
C*Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â UPCSCDÂ Â Â Â Â Â Â SETLLÂ Â Â Â @PSIDDPFÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â UPCSCDÂ Â Â Â Â Â Â READEÂ Â Â Â @PSIDDPFÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 89
CÂ Â Â Â *IN89Â Â Â Â Â Â Â Â Â Â DOWEQÂ Â Â Â '0'Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVELÂ Â Â Â PUPCÂ Â Â Â Â Â Â Â Â UPCÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ADDÂ Â Â Â Â Â Â Â Â 1Â Â Â Â Â Â Â Â Â Â Â Â I1Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â #RRNOÂ Â Â Â Â Â Â Â IFEQÂ Â Â Â Â 0Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ADDÂ Â Â Â Â Â I1Â Â Â Â Â Â Â Â Â Â Â #RRNOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDIFÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
C                       WRITE    RECSFL       <--- error here                   C*                    Â
CÂ Â Â Â UPCSCDÂ Â Â Â Â Â Â READEÂ Â Â Â @PSIDDPFÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 89
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDDOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDDOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 ******** INIT ROUTINE *********************        Â
 *                                                             Â
CÂ Â Â Â *INZSRÂ Â Â Â Â Â Â BEGSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â EXSRÂ Â Â Â Â SCLRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
 ******* CLEAR SUBFILE ********************        Â
 *                                                             Â
CÂ Â Â Â SCLRÂ Â Â Â Â Â Â Â Â BEGSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Z-ADDÂ Â Â Â 0Â Â Â Â Â Â Â Â Â Â Â Â I1Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 4 0
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Z-ADDÂ Â Â Â 0Â Â Â Â Â Â Â Â Â Â Â Â #RRNOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *ONÂ Â Â Â Â Â Â Â Â Â *IN11Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *OFFÂ Â Â Â Â Â Â Â Â *IN10Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *OFFÂ Â Â Â Â Â Â Â Â *IN12Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
C                  WRITE    RECCTL  <-- Control record                        Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *OFFÂ Â Â Â Â Â Â Â Â *IN11Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *ONÂ Â Â Â Â Â Â Â Â Â *IN10Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *ONÂ Â Â Â Â Â Â Â Â Â *IN12Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â MOVEÂ Â Â Â Â *ONÂ Â Â Â Â Â Â Â Â Â *IN31Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Z-ADDÂ Â Â Â 5Â Â Â Â Â Â Â Â Â Â Â Â PGÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â 4 0
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â DOÂ Â Â Â Â Â Â PGÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ADDÂ Â Â Â Â Â 1Â Â Â Â Â Â Â Â Â Â Â Â I1Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ADDÂ Â Â Â Â Â 1Â Â Â Â Â Â Â Â Â Â Â Â #RRNOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â
C                  WRITE    RECSFL   <- subfile record                       Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDDOÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
CÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ENDSRÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â
 *                                                             Â
Software/Hardware used:
os/400
ASKED:
February 18, 2011 9:20 AM
UPDATED:
February 22, 2011 2:47 AM
program is working now just had to initialize the indicators….but i am facing another type of issue. I am entering the UPC short code value in UPCSCD value but after displaying subfile values in UPC, the value in UPCSCD gets cleared. I want to retain the value even after displaying the subfile values.. Any help
Thanks a ton in advance.
ohh. i have found that too…..the field was input capable…made it to output capable