Example DSECT

Here is an example of an assembler DSECT. This example is referenced in this documentation to explain how IBM® Record Generator for Java™ processes assembler data structures.

This data structure contains the same data as that used in the Example COBOL copybook.

MY_RECORD             DSECT
CLAIM_NUMBER          DS   CL19
ADMISSION_DATE        DS   PL4
FROM_DATE             DS   PL4
THRU_DATE             DS   PL4
DISCHARGE_DATE        DS   PL4
FULL_DAYS             DS   PL3
COINSURANCE_DAYS      DS   HL2
LIFETIME_RES_DAYS     DS   FL4
INTERMEDIARY_NUM      DS   FDL8
PROVIDER              DS   CL13
INPATIENT_DED         DS   PL4
BLOOD_DED             DS   PL4
TOTAL_CHARGES         DS   ZL9
PATIENT_STATUS        DS   CL2
BLOOD_PINTS_FURNISHED DS   FL4
BLOOD_PINTS_REPLACED  DS   HL2
SEQUENCE_COUNTER      DS   HL2
TRANSACTION_IND       DS   ZL1
BILL_SOURCE           DS   ZL1
BENEFITS_EXHAUST_IND  DS   ZL1
BENEFITS_PAY_IND      DS   ZL1
AUTO_ADJUSTMENT_IND   DS   CL1
INTERMEDIARY_CTRL_NUM DS   CL23