home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv6.zip / vac22os2 / ibmcobol / samples / sdu / sample.gen < prev    next >
Text File  |  1997-03-14  |  1KB  |  29 lines
  1. DECLARE
  2. BEGIN; /* declare */
  3.    /*defaults*/
  4.    DEFAULT CHAR CCSID(0) JUSTIFY(0) LENGTH(1) UNITLEN(8);
  5.    DEFAULT PACKED COMPLEX(FALSE) CONSTRAINED(FALSE) FIT(0) PRECISION(
  6.       15) SCALE(0) SGNLOC(0) SGNMNS(x'D') SGNPLS(x'C') SIGNED(TRUE);
  7.    
  8.    COBOLREC: SEQUENCE                           /* size: 48 */ 
  9.       BEGIN; /*sequence*/
  10.          INITIALS: CHAR LENGTH(3) CCSID(500);   /* size: 24 */ 
  11.          NUMBER: PACKED PRECISION(5);           /* size: 24 */ 
  12.       END; /*sequence*/
  13. END; /* declare */
  14.  
  15. DECLARE
  16. BEGIN; /* declare */
  17.    /*defaults*/
  18.    DEFAULT BINARY BYTRVS(FALSE) COMPLEX(FALSE) CONSTRAINED(FALSE) FIT(
  19.       0) PRECISION(31) RADIX(2) SCALE(0) SGNCNV(1) SIGNED(TRUE);
  20.    DEFAULT CHARSFX CCSID(0) MAXALC(TRUE) MAXLEN(1) UNITLEN(8);
  21.    
  22.    CREC: SEQUENCE                               /* size: 48 */ 
  23.       BEGIN; /*sequence*/
  24.          INITIALS: CHARSFX MAXLEN(4) CCSID(850); /* size: 32 */ 
  25.          NUMBER: BINARY PRECISION(15) BYTRVS(TRUE); /* size: 16 */ 
  26.       END; /*sequence*/
  27. END; /* declare */
  28.  
  29.