Rocket® Enterprise Developer (formerly a product of Micro Focus or formerly a product of Open Text) documentation, created before Rocket Software acquired certain products from OpenText, may include outdated references to "Micro Focus" or "OpenText", both of which are trademarks of OpenText or its affiliates. Rocket Software is not affiliated with Micro Focus or OpenText and has since rebranded these products as Rocket® products. You may also encounter outdated links in this documentation. If you do, please contact Rocket Support (support@rocketsoftware.com) for assistance.
マクロの例
次のデータ変換マクロは、2 つのデータ構造があるファイル (TESTFC) および、プログラム (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