OS/2 Shareware BBS: 10 Tools/10-Tools.zip/viscobv6.zip/vac22os2/ibmcobol/samples/sdu/samplep.adl

Text File | 1997-03-14 | 257b | 18 lines

DECLARE BEGIN;
 X: SEQUENCE BEGIN;
    C: CHAR LENGTH(5) CCSID(500);
 END;
END;

DECLARE BEGIN;
 Y: SEQUENCE BEGIN;
    C: CHAR LENGTH(10) CCSID(437);
 END;
END;

CNVREC: PLAN (X: INPUT,
              Y: OUTPUT)
  BEGIN;
    Y <- X;
  END;