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

Text File | 1997-03-14 | 593b | 29 lines

DECLARE BEGIN;         /* ADL */
  COBOLREC: SEQUENCE BEGIN;
    INITIALS: CHAR LENGTH(3)
              CCSID(500);
    NUMBER: PACKED PRECISION(5);
  END;
END;

DECLARE BEGIN;         /* ADL */
  CREC: SEQUENCE BEGIN;
    INITIALS: CHARSFX MAXLEN(4)
              CCSID(850);
    NUMBER: BINARY PRECISION(15)
            BYTRVS (TRUE );
  END;
END;

COBOL_TO_C: PLAN( COBOLREC: INPUT,
                  CREC: OUTPUT )
  BEGIN;
    CREC <- COBOLREC;
  END;

C_TO_COBOL: PLAN( CREC: INPUT,
                  COBOLREC: OUTPUT )
  BEGIN;
    COBOLREC <- CREC;
  END;