home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / sample_p.lst < prev    next >
File List  |  1997-03-14  |  997b  |  32 lines
  1. (0:0): informational FMT1000: Data Description and Conversion for OS/2 Version 1.10
  2. (0:0): informational FMT1001: ADL Parser (c) Copyright IBM Corp. 1994.
  3. (0:0): informational FMT1002: All rights reserved.
  4. <0001> DECLARE BEGIN;         /* ADL */
  5. <0002>   COBOLREC: SEQUENCE BEGIN;
  6. <0003>     INITIALS: CHAR LENGTH(3)
  7. <0004>               CCSID(500);
  8. <0005>     NUMBER: PACKED PRECISION(5);
  9. <0006>   END;
  10. <0007> END;
  11. <0008> 
  12. <0009> DECLARE BEGIN;         /* ADL */
  13. <0010>   CREC: SEQUENCE BEGIN;
  14. <0011>     INITIALS: CHARSFX MAXLEN(4)
  15. <0012>               CCSID(850);
  16. <0013>     NUMBER: BINARY PRECISION(15)
  17. <0014>             BYTRVS (TRUE );
  18. <0015>   END;
  19. <0016> END;
  20. <0017> 
  21. <0018> COBOL_TO_C: PLAN( COBOLREC: INPUT,
  22. <0019>                   CREC: OUTPUT )
  23. <0020>   BEGIN;
  24. <0021>     CREC <- COBOLREC;
  25. <0022>   END;
  26. <0023> 
  27. <0024> C_TO_COBOL: PLAN( CREC: INPUT,
  28. <0025>                   COBOLREC: OUTPUT )
  29. <0026>   BEGIN;
  30. <0027>     COBOLREC <- CREC;
  31. <0028>   END;
  32.