The following sample Cobol File Descriptions are used as input for the CICS transactions in Creating XML Schemas and iWay Business Services.
IWAYSRV0_in.cbl
05 COMMAND PIC X(5).
IWAYSRV0_out_S.cbl
05 RECORDTYPE PIC X(1). 05 DATA40 PIC X(39)
IWAYSRV0_out_L.cbl
05 RECORDTYPE PIC X(1). 05 DATA60 PIC X(59).
AASNATN_in.cbl
**************************************************************** 08800000 * INPUT to NATURAL PROGRAM AASNATN **************************************************************** 23100000 02 NATREC. 24000000 03 START-EMP PIC X(8). 32000000 03 END-EMP PIC X(8). 32000000
AASNATN_out.cbl
*************************************************************** 08800000 * OUTPUT FROM NATURAL PROGRAM AASNATN *************************************************************** 23100000 02 NATREC. 24000000 03 EMP-NUM PIC X(8). 32000000 03 FIRSTNAME PIC X(20). 40000000 03 LASTNAME PIC X(20). 40000000 03 MARITAL-STATUS PIC X(1). 40000000 03 SEX PIC X(1). 40000000 03 BIRTH PIC X(4). 40000000 03 DEPARTMENT PIC X(6). 40000000 03 JOB-TITLE PIC X(25). 40000000 03 CCODE1 PIC X(3). 40000000 03 CCODE2 PIC X(3). 40000000 03 CCODE3 PIC X(3). 40000000 03 CCODE4 PIC X(3). 40000000 03 CCODE5 PIC X(3). 40000000 03 SALARY1 PIC X(9). 40000000 03 SALARY1 PIC X(9). 40000000 03 SALARY1 PIC X(9). 40000000 03 SALARY1 PIC X(9). 40000000 03 SALARY1 PIC X(9). 40000000 03 FILLER PIC X(2). 40000000
iWay Software |