*COMDECK CCONVERT 
      COMMON CCONVERT;
          BEGIN 
          ITEM REQUESTCODE;            # CONVERSION REQUEST CODE       #
          ITEM SOURCEBYTE;             # CHAR OFFSET IN SOURCEWORD.    #
          ITEM SOURCEWORD;             # SOURCE BEGINNING WORD ADDRESS.#
          ITEM SOURCELENG;             # NR BYTES IN SOURCE.           #
          ITEM SOURCEATTRIB;           # ADDR OF SOURCE DESCRIPTION.   #
          ITEM SINKBYTE;               # CHAR OFFSET IN SINKWORD.      #
          ITEM SINKWORD;               # SINK BEGINNING WORD ADDRESS.  #
          ITEM SINKLENG;               # NR BYTES IN SINK.             #
          ITEM SINKATTRIB;             # ADDR OF SINK DESCRIPTION.     #
          ITEM MURALADDR;              # LOCATION OF MURAL, =0 MEANS   #
                                       # USE DEFAULT MURAL, <0 MEANS NO#
                                       # EDITING DESIRED.              #
          ITEM EDITING B;              # TRUE IF EDITING/DEEDITING IS  #
                                       # REQUIRED.                     #
          ITEM RETURNCODE;             # ERROR RETURN CODE.            #
          ITEM RIGHTJUST B;        # TRUE IF JUSTIFIED RIGHT           #
          END 
      XDEF ARRAY CONVERSIONS[7];
        ITEM CCODE U(,,60)= [ #        OUTPUT DATA TYPES               #
          # INPUT DATA TYPES# #   X   N   I   U   E   D   C   L        #
          #(DISPLAY)     X  # O" 01  02  03  04  05  06  07  10 0000",
          #(COMP)        N  # O" 00  11  12  13  14  15  16  00 0000",
          #(INTEGER)     I  # O" 00  17  20  21  22  23  24  00 0000",
          #(UNNORM FP)   U  # O" 00  25  26  27  30  31  32  00 0000",
          #(SGL PREC)    E  # O" 00  33  34  35  36  37  40  00 0000",
          #(DBL PREC)    D  # O" 00  41  42  43  44  45  46  00 0000",
          #(COMPLEX)     C  # O" 00  47  50  51  52  53  54  00 0000",
          #(LOGICAL)     L  # O" 00  00  00  00  00  00  00  55 0000"]; 
