The following data conversion macros apply to a file (TESTFC), which has two data constructs, and to a program (TESTPC):
TITLE 'DFHCNV MACRO IMPORT' * --------- START OF DFHCNV MACROS ---------- * DFHCNV TYPE=INITIAL,CLINTCP=(932, 437,XXXX) SPACE 2 DFHCNV TYPE=ENTRY,RTYPE=FC,RNAME=TESTFC,USREXIT=NO DFHCNV TYPE=KEY DFHCNV TYPE=FIELD,OFFSET=0,DATATYP=CHARACTER,DATALEN=8 DFHCNV TYPE=FIELD,OFFSET=8,DATATYP=PD,DATALEN=3,LAST=YES DFHCNV TYPE=SELECT,OPTION=COMPARE,OFFSET=11,DATA='A' DFHCNV TYPE=FIELD,OFFSET=0,DATATYP=CHARACTER,DATALEN=8 DFHCNV TYPE=FIELD,OFFSET=8,DATATYP=PD,DATALEN=3 DFHCNV TYPE=FIELD,OFFSET=11,DATATYP=CHARACTER,DATALEN=1 DFHCNV TYPE=FIELD,OFFSET=12,DATATYP=PD,DATALEN=4 DFHCNV TYPE=FIELD,OFFSET=16,DATATYP=PD,DATALEN=4 DFHCNV TYPE=FIELD,OFFSET=20,DATATYP=BINARY,DATALEN=8 DFHCNV TYPE=FIELD,OFFSET=28,DATATYP=USERDATA,DATALEN=10, X23456789 USRTYPE=B'01010000' DFHCNV TYPE=FIELD,OFFSET=38,DATATYP=CHARACTER,DATALEN=50, X LAST=YES DFHCNV TYPE=SELECT,OPTION=COMPARE,OFFSET=11,DATA='B' DFHCNV TYPE=FIELD,OFFSET=0,DATATYP=CHARACTER,DATALEN=8 DFHCNV TYPE=FIELD,OFFSET=8,DATATYP=PD,DATALEN=3 DFHCNV TYPE=FIELD,OFFSET=11,DATATYP=CHARACTER,DATALEN=1 DFHCNV TYPE=FIELD,OFFSET=12,DATATYP=USERDATA,DATALEN=2 DFHCNV TYPE=FIELD,OFFSET=14,DATATYP=CHARACTER,DATALEN=20, X LAST=YES DFHCNV TYPE=ENTRY,RTYPE=PC,RNAME=TESTPC DFHCNV TYPE=SELECT,OPTION=DEFAULT DFHCNV TYPE=FIELD,OFFSET=0,DATATYP=BINARY,DATALEN=12 DFHCNV TYPE=FIELD,OFFSET=12,DATATYP=CHARACTER,DATALEN=96 DFHCNV TYPE=FINAL END