home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv6.zip
/
vac22os2
/
ibmcobol
/
samples
/
sdu
/
sample.adl
< prev
next >
Wrap
Text File
|
1997-03-14
|
593b
|
29 lines
DECLARE BEGIN; /* ADL */
COBOLREC: SEQUENCE BEGIN;
INITIALS: CHAR LENGTH(3)
CCSID(500);
NUMBER: PACKED PRECISION(5);
END;
END;
DECLARE BEGIN; /* ADL */
CREC: SEQUENCE BEGIN;
INITIALS: CHARSFX MAXLEN(4)
CCSID(850);
NUMBER: BINARY PRECISION(15)
BYTRVS (TRUE );
END;
END;
COBOL_TO_C: PLAN( COBOLREC: INPUT,
CREC: OUTPUT )
BEGIN;
CREC <- COBOLREC;
END;
C_TO_COBOL: PLAN( CREC: INPUT,
COBOLREC: OUTPUT )
BEGIN;
COBOLREC <- CREC;
END;