home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / sampasci.adl < prev    next >
Text File  |  1995-06-07  |  2KB  |  31 lines
  1. /*****************************************************************************/
  2. /* Copyright (c) IBM Corporation 1993  -  All Rights Reserved                */
  3. /*                                                                           */
  4. /* DFM/2 (program no. 5648-020)                                              */
  5. /* Version: 1.0                                                              */
  6. /* Release: 1.0                                                              */
  7. /*****************************************************************************/
  8. /* CHANGE ACTIVITY                                                           */
  9. /* Flag Reason      Level    Date   Origin    Comments                       */
  10. /* ------------------------------------------------------------------------- */
  11. /*                           930402 Mueller  : Initial Release               */
  12. /* IBM Deutschland Entwicklung GmbH, Boeblingen, Germany       GMU at SDFVM1 */
  13. /*****************************************************************************/
  14.  
  15. /*****************************************************************************/
  16. /* Example of a simple ADL file                                              */
  17. /* describing a view sequence for a record file with records of length 80    */
  18. /* to be viewed with Coded-Character-Set-Id 437 (PC Data: USA, ASCII format) */
  19. /*****************************************************************************/
  20.  DECLARE
  21.  BEGIN;
  22.    ViewRec:
  23.     SEQUENCE
  24.     BEGIN;
  25.       Field1:  CHAR LENGTH(80) CCSID(437);
  26.     END;
  27.  END;
  28. /*****************************************************************************/
  29. /* End of a simple ADL file for a view sequence.                             */
  30. /*****************************************************************************/
  31.