*DECK TCONVRT 
      PROC TCONVRT; 
      BEGIN 
      CONTROL STEXT;
      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.            #
          END 
      XREF ARRAY CONVERSIONS[7];
        ITEM CCODE U(00,00,60); 
      END 
      TERM
