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

Text File | 1997-03-14 | 664b | 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;