myrpgle

DCL-F IDEALWDSP WORKSTN;

       EXFMT YOURWEIGHT;

       DOW NOT(*IN03);
        IF FEET <> 0 AND INCHES <> 0 AND WEIGHT <> 0 AND GENDER = 'M';
         EXSR IDEALMALEWEIGHT;
         *IN88 = *ON;
         WRITE YOURWEIGHT;
         EXFMT RESULTS;
         *IN88 = *OFF;
        ENDIF;

        IF *IN03 = *OFF;
          EXSR RESET;
          EXFMT YOURWEIGHT;
        ENDIF;

       ENDDO;

        EXFMT STATISTICS;

        *INLR = *ON;

       RETURN;

       BEGSR RESET;
        FEET = 0;
        INCHES = 0;
        WEIGHT = 0;
        GENDER = ' ';
        OVRUND = ' ';
        DIFFERENCE = 0;
        *IN60 = *OFF;
        *IN70 = *OFF;
       ENDSR;

       BEGSR IDEALMALEWEIGHT;
        IF INCHES = 9;
         IF WEIGHT < 144;
          OVRUND = 'UNDER';
          DIFFERENCE = 144 - WEIGHT;
          TOTALUNDER += 1;
          *IN60 = *ON;
         ELSEIF WEIGHT > 176;
          OVRUND = 'OVER';
          DIFFERENCE = WEIGHT - 176;
          TOTALOVER += 1;
          *IN60 = *ON;
         ELSE;
          OVRUND = 'IDEAL';
          TOTALIDEAL += 1;
          *IN70 = *ON;
         ENDIF;

        ELSE;
         IF WEIGHT < 149;
          OVRUND = 'UNDER';
          DIFFERENCE = 149 - WEIGHT;
          TOTALUNDER += 1;
          *IN60 = *ON;
         ELSEIF WEIGHT > 183;
          OVRUND = 'OVER';
          DIFFERENCE = WEIGHT - 183;
          TOTALOVER += 1;
          *IN60 = *ON;
         ELSE;
          OVRUND = 'IDEAL';
          TOTALIDEAL += 1;
          *IN70 = *ON;
         ENDIF;
        ENDIF;
       ENDSR;