/* REXX -- converted to REXX on 1994/06/03 */
 ADDRESS "ISREDIT"
 "MACRO (MAC1 MAC2 MAC)"
 /*EDITPAIR  AUTHOR: DAVID MCRITCHIE, CREATED 1988/02/02 IS03  */
 /*          AT "The REXX Macros Toolbox", DMcRitchie@hotmail.com */
 /*          UPDATED 1990/10/19 16:14 IS03                     */
 /***********************************************************************/
 /*  TITLE:       EDITPAIR -- CHECK FOR MATCHED PAIR COMBINATION       **/
 /*  USERS:       TSO ISPF EDIT USERS   | SCRIPT USERS                 **/
 /*  CONTRIBUTED: 1987/01/20 DAVID MCRITCHIE                           **/
 /*                                                                    **/
 /*  EXAMPLE:     EDITPAIR                                             **/
 /*                                                                    **/
 /*  OPTIONS:                                                          **/
 /*      COL1 COL2  .LABEL1 .LABEL2  NX                                **/
 /*      NX   CANNOT BE USED WITH OTHER OPTIONS                        **/
 /***********************************************************************/
  /* SCRIPT CONVERSION TO PAGE USAGE -- D.MCR                        */
  "SEEK ALL" mac mac1
  "(OQCNT1S,OQCNT2L) = SEEK_COUNTS"
  "SEEK ALL" mac mac2
  "(CQCNT1S,CQCNT2L) = SEEK_COUNTS"
 IF OQCNT1S \= CQCNT1S THEN DO
     "LINE_BEFORE .ZF = NOTELINE ""UNMATCHED     ",
        MAC1 "("OQCNT1S")," MAC2 "("CQCNT1S") --" MAC""""
     "LINE_BEFORE .ZF = NOTELINE ""TRY USING     ",
        "%EDITPR"  mac1 mac2 mac""""
     Exit 1
 END
 return