home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / sampbase.adl < prev    next >
Text File  |  1995-06-07  |  2KB  |  47 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 base sequence.                           */
  17. /*****************************************************************************/
  18.  DECLARE
  19.   BEGIN;
  20.    letters:
  21.      SUBTYPE OF CHAR LENGTH(20) CCSID(00037);
  22.    EmplRecB:
  23.     SEQUENCE
  24.     BEGIN;
  25.      /* Pos. 1 - 6:   PRECISION(6) =  6 bytes */
  26.      EmpNbr: ZONED PRECISION(6) SCALE(0) ZONENC(x'F');
  27.  
  28.      /* Pos. 7 - 26:  LENGTH(20)   = 20 bytes */
  29.      LastName: letters;
  30.  
  31.      /* Pos. 27 - 28: LENGTH(2)    =  2 bytes */
  32.      Initials: letters LENGTH(2);
  33.  
  34.      /* Pos. 29 - 48: LENGTH(20)   = 20 bytes */
  35.      Address:  letters;
  36.  
  37.      /* Pos. 49 - 50: PRECISION(4) =  2 bytes */
  38.      Age:      BINARY PRECISION(4) BYTRVS(FALSE) SCALE(0) RADIX(10);
  39.  
  40.      /* Pos. 51 - 53: PRECISION(5) =  3 bytes */
  41.      HatSize:  PACKED PRECISION(5) SCALE(3);
  42.     END;
  43.   END;
  44. /*****************************************************************************/
  45. /* End of a sample ADL file for a base sequence.                             */
  46. /*****************************************************************************/
  47.