RGB2HEX

       >>SOURCE FORMAT IS FREE
IDENTIFICATION DIVISION.
   PROGRAM-ID. RGB2HEX.
ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
      REPOSITORY.
         FUNCTION ALL INTRINSIC.
DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 INPUT-ARRAY.
      02 INPUT-VALUE     PICTURE 9(3) OCCURS 3 TIMES.
   01 TEMP               PICTURE 9(2).
   01 HEX-DIGITS         VALUE IS "0123456789ABCDEF".
      02 HEX-DIGIT       PICTURE X    OCCURS 16 TIMES.
   01 OUTPUT-MATRIX.
      02 OUTPUT-VALUE                 OCCURS 3 TIMES.
         03 OUTPUT-DIGIT PICTURE X    OCCURS 2 TIMES.
   01 ITERATOR           PICTURE 9.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
   PERFORM VARYING ITERATOR FROM 1 BY 1 UNTIL ITERATOR IS GREATER THAN 3
      DISPLAY ITERATOR UPON ARGUMENT-NUMBER
      ACCEPT INPUT-VALUE(ITERATOR) FROM ARGUMENT-VALUE
      DIVIDE INPUT-VALUE(ITERATOR) BY 16 GIVING TEMP
      ADD 1 TO TEMP GIVING TEMP
      MOVE HEX-DIGIT(TEMP) TO OUTPUT-DIGIT(ITERATOR,1)
      ADD 1 TO MOD(INPUT-VALUE(ITERATOR),16) GIVING TEMP
      MOVE HEX-DIGIT(TEMP) TO OUTPUT-DIGIT(ITERATOR,2)
   END-PERFORM.
   DISPLAY "#" OUTPUT-MATRIX.
   STOP RUN.
END PROGRAM RGB2HEX.