bdfu1m19 | Utilities |
Use this command to add logical records (LRECs) to the subfile to which you are currently linked. You can add LRECs to the end of the subfile or at a specific position in the subfile.
Requirements and Restrictions
Format
|
8013B4|THIS IS CHARACTER DATA|4A5F90
The TPFDF product assumes that the variable starts with hexadecimal data. To start with character data, place a vertical bar at the beginning of the variable. For example:
|STARTING WITH CHARACTER DATA|1F2E3D4E
You can use a different delimiter by setting variable #DBENUFB in the ACPDBE macro. See TPFDF Installation and Customization for more information about the ACPDBE macro.
Additional Information
To overcome this problem, the TPFDF product maintains a sequence counter that is used by ZUDFM to ensure file integrity. The sequence counter is updated in the block header whenever the subfile is changed. In subsequent entries, the retained value is compared with the actual value to ensure that the database is updated in the correct sequence.
Heavily modified databases may become difficult to maintain with ZUDFM entries if the sequence count is constantly being changed. In this case, write your own utilities to locate the file, hold it, and change it.
Examples
The following example shows the specified LREC added to the subfile. The LREC is inserted into the appropriate position of the subfile because the file has default keys defined. The standard TPFDF LREC DISPLAY heading is displayed after the LREC has been added to the file.
+--------------------------------------------------------------------------------+ |User: ZUDFM OAA/80|SMITH|0000000000123456 | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. F404F868 | | 000001 001080 B R O C K E R0000 00345874 | | 000002 001080 D U N N00 00000000 00328065 | | 000003 001080 I N O U Y E000000 00690794 | | 000004 001080 J A C O B S000000 00669412 | | 000005 001080 J O N E S 00000000 00789441 | | 000006 001080 S M I T H 00000000 00123456 | | 000007 001080 T A Y L O R000000 00123964 | | 000008 001080 T H A Y E R000000 00236348 | | 000009 001080 U N D E R H I L L 00894350 | | OAA/80|SMITH|0000000000123456 | +--------------------------------------------------------------------------------+
The following example adds an extended LREC, where the primary key is X'C0' and the DID is X'2010', as the second LREC in the subfile that is currently linked.
+--------------------------------------------------------------------------------+ |User: ZUDFM OAA2/C02010|LONDON, ENGLAND | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. A076908B | | 000001 000EC000 00060008 2000 M A D R I D , S P A I N | | 000002 0018C000 00060012 2010 L O N D O N , E N G L A N D | | 000003 001FC000 00060019 2080 P A R I S , F R A N C E | | T A P A R T | | ZUDFM OAA 2/C02010|LONDON, ENGLAND | +--------------------------------------------------------------------------------+
The following example adds an extended LREC with two subLRECs to the currently linked file, which already contains one extended LREC with no subLRECs.
+--------------------------------------------------------------------------------+ |User: ZUDFM OAA/C02222-0006C1C1F1F10007C2C2F2F2F2-|USERLREC | | | |System: UDFM0001I TPFDF LREC DISPLAY | | F.A. 00980013 000001 0012C000 0006000C | | 1111 U S E R L R E C 000002 001FC000 00130006 | | A A 1 1 0007 B B 2 2 200 0C2222 U | | S E R L R E C ZUDFM ADD /C022220006C1C1F1F10007C2C2F2F2F2!US| +--------------------------------------------------------------------------------+
The previous example shows information for LREC 1 and LREC 2.
References