00010000   ISREDIT MACRO (DEBUG)
00010100   IF DEBUG = &DEBUG THEN -
00011000        CONTROL LIST CONLIST SYMLIST
00020000   ISREDIT X ALL
00030000   ISREDIT F ' EXEC COPY ' ALL
00030100   ISREDIT (CNT11,CNT12) = FIND_COUNTS
00031000   ISREDIT F ' EXEC COPY,' ALL
00031100   ISREDIT (CNT21,CNT22) = FIND_COUNTS
00032000   ISREDIT F ' EXEC COPY' NX ALL
00032100   SET CC = &LASTCC
00033000   ISREDIT (CNT31,CNT32) = FIND_COUNTS
00040000   IF &CC ^= 0 THEN DO
00041000      ISREDIT (VAR014A) = DATA_CHANGED
00042000      IF &STR(&VAR014A) = NO THEN DO
00042103         IF NOEXIT ^= &DEBUG THEN -
00042203           ISREDIT CANCEL
00042300         EXIT CODE(0)
00042400      END
00042500      ISREDIT LINE_AFTER 0 = NOTELINE "DATA WAS CHANGED BEFORE SCOPY INVOKED"
00043000      EXIT CODE(12)
00044000   END
00050000   ISREDIT F 'SYSUT1' ALL
00051000   ISREDIT (CNT41,CNT42) = FIND_COUNTS
00060000   ISREDIT F 'SYSUT2' ALL
00061000   ISREDIT (CNT51,CNT52) = FIND_COUNTS
00062000   IF &CNT31 = &CNT41 AND &CNT31 = &CNT51 THEN DO
00063000      /********** THE FOLLOWING LINES ARE ALSO IN  SCOPYNX ******
00063200      ISREDIT C ALL NX ' EXEC COPY,' ' EXEC SCOPY,'
00063300      ISREDIT C ALL NX ' EXEC COPY ' ' EXEC SCOPY '
00063400      ISREDIT C ALL NX 'SYSUT1' 'SORTIN'
00063500      ISREDIT C ALL NX 'SYSUT2' 'SORTOUT'
00063600      /**********************************************************
00063700      ISREDIT LINE_AFTER 0 = NOTELINE "SCOPYNX WAS INVOKED ON YOUR BEHALF"
00063800      ISREDIT F WORD 'COPY' ALL X
00063902      ISREDIT FIND '.COPY)' FIRST
00064001      IF &LASTCC = 0 THEN DO
00064101        ISREDIT LINE_AFTER 0 = NOTELINE "WARNING  '.COPY)' FOUND AS IN COND=(..."
00064201        ISREDIT LINE_AFTER 0 = NOTELINE "WARNING  '.COPY)' FOUND AS IN COND=(..."
00064301        SET &ZEDSMSG = &STR(.. .COPY&RP.)
00064401        SET &ZEDLMSG = &STR(CHANGE IS INCOMPLETE UNTIL  .COPY&RP.   IS (ARE) RESOLVED)
00064501        ISPEXEC     SETMSG MSG(ISRZ000)
00064601      END
00064702      ISREDIT FIND '.COPY.' FIRST
00064801      IF &LASTCC = 0 THEN DO
00064901        ISREDIT LINE_AFTER 0 = NOTELINE "WARNING  '.COPY.' FOUND AS IN VOL=REF=..."
00065001        ISREDIT LINE_AFTER 0 = NOTELINE "WARNING  '.COPY.' FOUND AS IN VOL=REF=..."
00065101        SET &ZEDSMSG = &STR(.. .COPY....)
00065201        SET &ZEDLMSG = &STR(CHANGE IS INCOMPLETE UNTIL  .COPY.   IS (ARE) RESOLVED)
00065301        ISPEXEC     SETMSG MSG(ISRZ000)
00065401      END
00065500      EXIT CODE(1)
00066000   END
00068000   SET &ZEDSMSG = &STR(NOT FINISHED)
00069004   SET &ZEDLMSG = &STR(SCOPYNX NOT INVOKED -- UNMATCHED ' EXEC COPY'= &CNT31.,  SYSUT1=&CNT41., SYSUT2=&CNT51.)
00069100   ISPEXEC     SETMSG MSG(ISRZ000)
00070000   ISREDIT F ' EXEC COPY' NX FIRST