/*OTHER DECLARATIONS STATEMENTS*/
  DCL ERRORFI FILE SEQUENTIAL;
  DCL 01 EMPL_WRITE,
         05 ID_WRITE  CHAR(08),
         05 FILLER1 CHAR(01),
         05 REC_WRITE CHAR(02),
         05 FILLER2 CHAR(01),
         05 MSG CHAR(121);

  DCL FOUND_10 CHAR(1) INIT('N');
  DCL FOUND_20 CHAR(1) INIT('N');
  DCL FOUND_30 CHAR(1) INIT('N');
  DCL FOUND_40_ERROR CHAR(1) INIT('N');
  DCL EMP_ID CHAR(08) INIT('');
  DCL SAVED_ID CHAR(08) INIT('');
  DCL REC CHAR(02);
  DCL IOEMPN_10 CHAR(200)INIT('');
  DCL IOEMPN_20 CHAR(200)INIT('');
  DCL IOEMPN_30 CHAR(200)INIT('');
  DCL IOEMPN_40 CHAR(200)INIT('');
    DCL 01 EMPGEN_10 BASED(ADDR(IOEMPN_10))LIKE EMPGEN;
    DCL 01 EMPSAL_20 BASED(ADDR(IOEMPN_20))LIKE EMPSAL;
    DCL 01 EMPVAC_30 BASED(ADDR(IOEMPN_30))LIKE EMPVAC;
    DCL 01 EMPRPT_40 BASED(ADDR(IOEMPN_40))LIKE EMPRPT;


 /* CALL EMPNCSI(EMPN1_INPUT_PARAM,IOEMPN);
    CALL EMPNCSI(EMPN1_INPUT_PARAM,IOEMPN);
    DO WHILE(EMPN1_INPUT.RTC ='');
        PUT SKIP LIST(IOEMPN);
        CALL EMPNCSI(EMPN1_INPUT_PARAM,IOEMPN);
    END; */


    OPEN FILE(ERRORFI) OUTPUT;
    CALL EMPNCSI(EMPN1_INPUT_PARAM,IOEMPN);
   SAVED_ID=EMPGEN.EMP_ID;

        DO WHILE(EMPN1_INPUT.RTC ='');
    EMP_ID=EMPGEN.EMP_ID;
    REC=EMPGEN.RECCD;
   IF(EMP_ID = SAVED_ID)
     THEN
      DO;
       IF(REC='10')
         THEN
          DO;
           IOEMPN_10=IOEMPN;
           FOUND_10='Y';
          END;
         ELSE
          IF(REC='20')
            THEN
             DO;
              IOEMPN_20=IOEMPN;
              FOUND_20='Y';

             END;

               ELSE
                 IF(REC='30')
                  THEN
                    DO;
                    IOEMPN_30=IOEMPN;
                    FOUND_30='Y';
                     END;
                  ELSE
                 IF(REC='40')
                   THEN
                    DO;
                  IOEMPN_40=IOEMPN;
                 IF(EMPRPT.RPT_EMP_LVL >EMPGEN_10.EMP_LVL_ID
                 & EMPGEN_10.EMP_LVL_ID <4)
                  THEN
                    DO;
                   FOUND_40_ERROR='Y';
                  EMPL_WRITE.MSG='ERROR:EMPLOYEE MUST NOT
                 HAVE REPORTEES';

                                        EMPL_WRITE.ID_WRITE=EMPGEN_10.EMP_ID;
                      EMPL_WRITE.REC_WRITE=EMPGEN_10.RECCD;
                      WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
                      END;
                     ELSE
                      CALL EMPNCSO(EMPN1_OUTPUT_PARAM,
                      IOEMPN_40);
                  END;
                 ELSE
                  DO;
                   EMPL_WRITE.MSG='FOUND UNKNOWN ERROR ON';
                   EMPL_WRITE.ID_WRITE=EMP_ID;
                   EMPL_WRITE.REC_WRITE=REC;
                   WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
                  END;
  /*  PUT SKIP LIST('FOUND UNKNOWN ERROR ON ID:',EMP_ID
     ,'AND RECORD CODE:',REC); */
           CALL EMPNCSI(EMPN1_INPUT_PARAM,IOEMPN);
       END;

                ELSE
         DO;
          CALL OUTPUT_ERRORS(SAVED_ID,FOUND_10, FOUND_20,
          FOUND_30,FOUND_40_ERROR);

          SAVED_ID=EMPGEN.EMP_ID;

          FOUND_10='N';
          FOUND_20='N';
          FOUND_30='N';
     /* FOUND_40_ERROR='N'; */
          IOEMPN_10='';
          IOEMPN_20='';
          IOEMPN_30='';
          IOEMPN_40='';
         END;

   END;





           OUTPUT_ERRORS: PROCEDURE(ID,FOUND_10,FOUND_20,FOUND_30,
      FOUND_40_ERROR);
      DCL FOUND_10 CHAR(1);
      DCL FOUND_20 CHAR(1);
      DCL FOUND_30 CHAR(1);
      DCL FOUND_40_ERROR CHAR(1);
      DCL ID CHAR(08);

      IF(FOUND_10='Y' & FOUND_20='Y'& FOUND_30='Y')
        THEN
        DO;
        CALL EMPNCSO(EMPN1_OUTPUT_PARAM,IOEMPN_10);
        CALL EMPNCSO(EMPN1_OUTPUT_PARAM,IOEMPN_20);
        CALL EMPNCSO(EMPN1_OUTPUT_PARAM,IOEMPN_30);
        END;

      ELSE
         DO;
         IF(FOUND_10='N')

              THEN
              DO;
             EMPL_WRITE.MSG='ERROR: RECORD 10 IS MISSING ON ID:';
           EMPL_WRITE.ID_WRITE=ID;
            EMPL_WRITE.REC_WRITE='10';
           WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
            END;
        /*PUT SKIP LIST('ERROR: RECORD 10 IS MISSING ON ID:'
          ,ID); */
        IF(FOUND_20='N')
         THEN
           DO;
            EMPL_WRITE.MSG='ERROR: RECORD 20 IS MISSING ON ID:';
            EMPL_WRITE.ID_WRITE=ID;
           EMPL_WRITE.REC_WRITE='20';
            WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
             END;
          /*PUT SKIP LIST('ERROR: RECORD 20 IS MISSING ON ID:'
           ,ID); */



             IF(FOUND_30='N')
             THEN
               DO;
                EMPL_WRITE.MSG='ERROR: RECORD 30 IS MISSING ON ID:';
                EMPL_WRITE.ID_WRITE=ID;
               EMPL_WRITE.REC_WRITE='30';
              WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
               END;
              /*PUT SKIP LIST('ERROR: RECORD 30 IS MISSING ON ID:'
              ,ID); */
             IF(FOUND_40_ERROR='Y')
             THEN;
            /*   DO;
            EMPL_WRITE.MSG='ERROR:EMPLOYEE MUST NOT HAVE REPORTEES';
            EMPL_WRITE.ID_WRITE=ID;
             EMPL_WRITE.REC_WRITE=EMPGEN.RECCD;
            WRITE FILE(ERRORFI) FROM (EMPL_WRITE);
              END; */
            /* PUT SKIP LIST('ERROR: EMPLOYEEID:',ID, 'MUST NOT HAVE
                           REPORTEES');*/
       END;
   /*CLOSING FILE STATEMENT*/
/*  EMPN1_OUTPUT.GEN='CL';
   CALL EMPNCSO(EMPN1_OUTPUT_PARAM,IOEMPN); */
 END OUTPUT_ERRORS;
 END BD215;