home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / sampview.adl < prev    next >
Text File  |  1995-06-07  |  2KB  |  46 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. /* Start of a sample ADL file for a view sequence                            */
  17. /* Note: This defines a 'reduced view' on the file described with            */
  18. /*       ADL file SAMPBASE.ADL, which means the application program          */
  19. /*       does not need to see all of the fields defined in the base          */
  20. /*       description. When a file is opened where a 'reduced view' is        */
  21. /*       defined, only read operations are allowed (GETAI flag of DDMOpen).  */
  22. /*****************************************************************************/
  23.  DECLARE
  24.   BEGIN;
  25.    letters:
  26.      SUBTYPE OF CHAR LENGTH(20) CCSID(00437);
  27.    EmplRecV:
  28.     SEQUENCE
  29.     BEGIN;
  30.      /* Pos. 1 - 20: LENGTH(20)    = 20 bytes */
  31.      LastName: letters;
  32.  
  33.      /* Pos. 21 - 22: LENGTH(2)    =  2 bytes */
  34.      Initials: letters LENGTH(2);
  35.  
  36.      /* Pos. 23 - 26: PRECISION(9) =  4 bytes */
  37.      Age:      BINARY BYTRVS(TRUE) PRECISION(9) SCALE(0) RADIX(10);
  38.  
  39.      /* Pos. 27 - 29: PRECISION(5) =  3 bytes */
  40.      HatSize:  PACKED PRECISION(5) SCALE(3);
  41.     END;
  42.   END;
  43. /*****************************************************************************/
  44. /* End of a sample ADL file for a view sequence.                             */
  45. /*****************************************************************************/
  46.