/ Rexx ------------------------------------- QDS Display Des Doubles /
/ Appel _ QDS COL LG LDEB LFIN SELECT /
/ Param tres _ COL Colonne de recherche (position) /
/ _ LG Longueur du crit re de recherche /
/ _ LDEB,LFIN Ligne D but et Ligne fin /
/ _ SELECT = ALL pour afficher l'enreg. et son double /
/ SELECT = " " pour afficher les doubles seulement /
/ Defauts : QDS 1 LRECL .ZF .ZL /
/ ---------------------------------------------- Display Des Doubles /
Address ISPEXEC
"IsrEdit Macro (COL LG LDEB LFIN SELECT)"
Upper COL LG LDEB LFIN SELECT
If Col='?' Then
Do
Call Help
Exit
End
"ISREDIT (LONG) = LRECL"
If LG = "ALL" ! COL = "ALL" ! LDEB = "ALL" ! LFIN = "ALL" ,
Then SELECT = "ALL"
If COL = "" ! COL = "ALL" Then COL = 1
If LG = "" ! LG = "ALL" Then LG = LONG - COL + 1
If LDEB = "" ! LDEB = "ALL" Then LDEB = .ZF
If LFIN = "" ! LFIN = "ALL" Then LFIN = .ZL

"ISREDIT (LPOS) = CURSOR" / Sauvegarde Positionnement /
"ISREDIT CURSOR = "LFIN
"ISREDIT (LMAX) = CURSOR" / Limite Superieure /
"ISREDIT CURSOR = "LDEB
"ISREDIT (LINE) = CURSOR" / Limite Inferieure /
fin=Lg+col-1
"Isredit Sort "Col fin
"ISREDIT EXCLUDE ALL"

EXLINE = 0
"ISREDIT (DataLine) = LINE "LINE
SEARCH = SUBSTR(DataLine,COL,LG)
LINE = LINE + 1
Do While LINE <= LMAX
"ISREDIT (LINEDATA) = LINE "LINE
If SubStr(LINEDATA,COL,LG) <> SEARCH Then Do
PREV = LINE - 1
If SELECT= "ALL" Then "ISREDIT RESET "PREV LINE
ELSE do
"ISREDIT RESET "LINE LINE
Exline=Exline+1
End
SEARCH = SubStr(LINEDATA,COL,LG)
End
Else Do
PREV = LINE - 1
"IsrEdit Exclude '"Search"'"
Exline=Exline-1
End
LINE = LINE + 1
End
Exline=Exline+1
ZEDLMSG = "Recherche en colonne "COL" sur "LG" de long . "!!,
Exline" Lignes affich es."
"SETMSG MSG(ISRZ000)"

"ISREDIT CURSOR = "LPOS
exit
Help:
Say "------------ Q D S ----- Quick Display Single --------------"
Say " Appel QDS COL LG LDEB LFIN SELECT "
say " Parametres COL Colonne de recherche (position) "
say " LG Longueur du critere de recherche "
Say " LDEB,LFIN Ligne Debut et Ligne fin "
Say " _ SELECT = ALL pour afficher l'enreg. en double "
SAy " SELECT = ' ' pour afficher les 'Single' seulement"
Say " Defauts : QDS 1 LRECL .ZF .ZL "
Say " Attention les enreg. sont tries sur le critere de recherche. "
Say " --------------------------------------- Display Des 'Single'-"
Return