|
Hi Don,
Sorry about the delay in getting back to you, I only just received the
info from my customer.
Unfortunately this is the best he can supply me with, even though I
explained
the importance of testing his RMS files.
Please let me know if this is satisfactory or not.
Cheers,
Mario.
*******************************************************************************
**********************************************
LDEVL1-[ANDY]> dir 120*
Directory GRP$MDEV0:[ANDY]
1201.CDO;2 34/36
1-MAY-1996 16:22:44.10 (RWED,RWED,RWED,RWED)
1201.CDO;1 30/32
26-APR-1996 14:10:16.32 (RWED,RWED,RWED,RWED)
1201.COM;1 1/4
2-MAY-1996 13:18:30.03 (RWED,RWED,RWED,RWED)
1201.DAT;1 4072/4072
2-MAY-1996 11:55:55.26 (RWED,RWED,RWED,RWED)
1201.FDL;2 5/8
2-MAY-1996 10:31:04.58 (RWED,RWED,RWED,RWED)
1201.FDL;1 5/8
11-APR-1996 09:17:27.67 (RWED,RWED,RWED,RWED)
1201.LOG;1 7399/7400
2-MAY-1996 13:19:23.25 (RWED,RWED,RE,)
1201.REC;2 54/56
11-APR-1996 09:35:23.98 (RWED,RWED,RWED,RWED)
1201.SUB;1 1/4
2-MAY-1996 13:19:18.52 (RWED,RWED,RWED,RWED)
1201_INPUT.FDL;1 13/16
6-MAY-1996 16:04:45.17 (RWED,RWED,RWED,RWED)
1201_L1.DAT;2 2312/2312
2-MAY-1996 12:15:36.62 (RWED,RWED,RWED,RWED)
1201_L1.DAT;1 2312/2312
2-MAY-1996 11:57:06.29 (RWED,RWED,RWED,RWED)
1201_L2.DAT;1 984/984
1-MAY-1996 16:49:18.88 (RWED,RWED,RWED,RWED)
1201_L3.DAT;1 984/984
1-MAY-1996 16:49:41.94 (RWED,RWED,RWED,RWED)
1201_L4.DAT;1 1140/1140
1-MAY-1996 16:49:45.86 (RWED,RWED,RWED,RWED)
1201_L6.DAT;1 984/984
1-MAY-1996 16:49:50.58 (RWED,RWED,RWED,RWED)
1201_L7.DAT;1 984/984
1-MAY-1996 16:49:54.56 (RWED,RWED,RWED,RWED)
1201_L8.DAT;1 984/984
1-MAY-1996 16:49:59.30 (RWED,RWED,RWED,RWED)
1201_MALS.DAT;1 4071/4072
6-FEB-1996 20:39:22.00 (RWED,RWED,RWED,RWED)
Total of 19 files, 26369/26392 blocks.
******************************************************************************
***********************************************
LDEVL1-[ANDY]> anal /rms /fdl 1201.dat
LDEVL1-[ANDY]> dir 1201*.fdl
Directory GRP$MDEV0:[ANDY]
1201.FDL;3 13/16
6-MAY-1996 16:13:07.16 (RWED,RWED,RWED,RWED)
1201.FDL;2 5/8
2-MAY-1996 10:31:04.58 (RWED,RWED,RWED,RWED)
1201.FDL;1 5/8
11-APR-1996 09:17:27.67 (RWED,RWED,RWED,RWED)
1201_INPUT.FDL;1 13/16
6-MAY-1996 16:04:45.17 (RWED,RWED,RWED,RWED)
Total of 4 files, 36/48 blocks.
LDEVL1-[ANDY]> ren 1201.fdl;3 1201_input.fdl;2
LDEVL1-[ANDY]> ren 1201.fdl;3 1201_input.fdl;2
LDEVL1-[ANDY]> dir 1201*.fdl
Directory GRP$MDEV0:[ANDY]
1201.FDL;2 5/8
2-MAY-1996 10:31:04.58 (RWED,RWED,RWED,RWED)
1201.FDL;1 5/8
11-APR-1996 09:17:27.67 (RWED,RWED,RWED,RWED)
1201_INPUT.FDL;2 13/16
6-MAY-1996 16:13:07.16 (RWED,RWED,RWED,RWED)
1201_INPUT.FDL;1 13/16
6-MAY-1996 16:04:45.17 (RWED,RWED,RWED,RWED)
Total of 4 files, 36/48 blocks.
******************************************************************************
***********************************************
LDEVL1-[ANDY]> type 1201_input.fdl;2
IDENT " 6-MAY-1996 16:13:07 OpenVMS ANALYZE/RMS_FILE Utility"
SYSTEM
SOURCE OpenVMS
FILE
ALLOCATION 4072
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 6
CLUSTER_SIZE 4
CONTIGUOUS no
EXTENSION 156
FILE_MONITORING no
GLOBAL_BUFFER_COUNT 0
NAME "GRP$MDEV0:[ANDY]1201.DAT;1"
ORGANIZATION indexed
OWNER [MDEV,MDEV_ANDY]
PROTECTION (system:RWED, owner:RWED, group:RWED,
world:RWED)
RECORD
BLOCK_SPAN yes
CARRIAGE_CONTROL carriage_return
FORMAT fixed
SIZE 174
AREA 0
ALLOCATION 2640
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 6
EXTENSION 156
AREA 1
ALLOCATION 18
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 6
EXTENSION 6
AREA 2
ALLOCATION 1413
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 3
EXTENSION 96
KEY 0
CHANGES no
DATA_KEY_COMPRESSION yes
DATA_RECORD_COMPRESSION yes
DATA_AREA 0
DATA_FILL 100
DUPLICATES no
INDEX_AREA 1
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 1
NAME "l1_record_key"
NULL_KEY no
PROLOG 3
SEG0_LENGTH 14
SEG0_POSITION 2
TYPE string
KEY 1
CHANGES no
DATA_KEY_COMPRESSION yes
DATA_AREA 2
DATA_FILL 100
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_user_ident"
NULL_KEY no
SEG0_LENGTH 10
SEG0_POSITION 16
TYPE string
KEY 2
CHANGES no
DATA_KEY_COMPRESSION no
DATA_AREA 2
DATA_FILL 100
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION no
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_system_code"
NULL_KEY no
SEG0_LENGTH 2
SEG0_POSITION 26
TYPE string
KEY 3
CHANGES no
DATA_KEY_COMPRESSION no
DATA_AREA 2
DATA_FILL 100
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION no
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_sub_system_code"
NULL_KEY no
SEG0_LENGTH 3
SEG0_POSITION 28
TYPE string
KEY 4
CHANGES no
DATA_KEY_COMPRESSION yes
DATA_AREA 2
DATA_FILL 100
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_client_ref_no"
NULL_KEY no
SEG0_LENGTH 20
SEG0_POSITION 31
TYPE string
KEY 5
CHANGES no
DATA_KEY_COMPRESSION no
DATA_AREA 2
DATA_FILL 100
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION no
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_contact_initials"
NULL_KEY no
SEG0_LENGTH 3
SEG0_POSITION 51
TYPE string
ANALYSIS_OF_AREA 0
RECLAIMED_SPACE 0
ANALYSIS_OF_AREA 1
RECLAIMED_SPACE 0
ANALYSIS_OF_AREA 2
RECLAIMED_SPACE 0
ANALYSIS_OF_KEY 0
DATA_FILL 98
DATA_KEY_COMPRESSION 48
DATA_RECORD_COMPRESSION 61
DATA_RECORD_COUNT 16452
DATA_SPACE_OCCUPIED 2622
DEPTH 2
INDEX_COMPRESSION 24
INDEX_FILL 58
INDEX_SPACE_OCCUPIED 18
LEVEL1_RECORD_COUNT 437
MEAN_DATA_LENGTH 174
MEAN_INDEX_LENGTH 16
ANALYSIS_OF_KEY 1
DATA_FILL 77
DATA_KEY_COMPRESSION -4
DATA_RECORD_COUNT 133
DATA_SPACE_OCCUPIED 300
DEPTH 1
DUPLICATES_PER_SIDR 123
INDEX_COMPRESSION 24
INDEX_FILL 31
INDEX_SPACE_OCCUPIED 3
LEVEL1_RECORD_COUNT 51
MEAN_DATA_LENGTH 878
MEAN_INDEX_LENGTH 12
ANALYSIS_OF_KEY 2
DATA_FILL 93
DATA_KEY_COMPRESSION 0
DATA_RECORD_COUNT 88
DATA_SPACE_OCCUPIED 243
DEPTH 1
DUPLICATES_PER_SIDR 186
INDEX_COMPRESSION 0
INDEX_FILL 3
INDEX_SPACE_OCCUPIED 3
LEVEL1_RECORD_COUNT 9
MEAN_DATA_LENGTH 1313
MEAN_INDEX_LENGTH 4
ANALYSIS_OF_KEY 3
DATA_FILL 93
DATA_KEY_COMPRESSION 0
DATA_RECORD_COUNT 154
DATA_SPACE_OCCUPIED 246
DEPTH 1
DUPLICATES_PER_SIDR 106
INDEX_COMPRESSION 0
INDEX_FILL 8
INDEX_SPACE_OCCUPIED 3
LEVEL1_RECORD_COUNT 23
MEAN_DATA_LENGTH 753
MEAN_INDEX_LENGTH 5
ANALYSIS_OF_KEY 4
DATA_FILL 88
DATA_KEY_COMPRESSION 58
DATA_RECORD_COUNT 1016
DATA_SPACE_OCCUPIED 279
DEPTH 1
DUPLICATES_PER_SIDR 15
INDEX_COMPRESSION 44
INDEX_FILL 48
INDEX_SPACE_OCCUPIED 3
LEVEL1_RECORD_COUNT 60
MEAN_DATA_LENGTH 124
MEAN_INDEX_LENGTH 22
ANALYSIS_OF_KEY 5
DATA_FILL 85
DATA_KEY_COMPRESSION 0
DATA_RECORD_COUNT 218
DATA_SPACE_OCCUPIED 270
DEPTH 1
DUPLICATES_PER_SIDR 74
INDEX_COMPRESSION 0
INDEX_FILL 14
INDEX_SPACE_OCCUPIED 3
LEVEL1_RECORD_COUNT 42
MEAN_DATA_LENGTH 533
MEAN_INDEX_LENGTH 5
*******************************************************************************
**********************************************
!!! I used $ create file.dat /fdl=1201.fdl
!!! to make the 'empty' 1201_Ln.DAT files that
!!! the SQL insert is applied to.
LDEVL1-[ANDY]> type 1201.fdl
IDENT " 6-FEB-1996 15:55:02 VAX-11 FDL Editor"
SYSTEM
SOURCE "VAX/VMS"
FILE
ORGANIZATION indexed
RECORD
CARRIAGE_CONTROL carriage_return
FORMAT fixed
SIZE 174
AREA 0
ALLOCATION 612
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 6
EXTENSION 156
AREA 1
ALLOCATION 12
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 6
EXTENSION 6
AREA 2
ALLOCATION 357
BEST_TRY_CONTIGUOUS yes
BUCKET_SIZE 3
EXTENSION 96
KEY 0
CHANGES no
DATA_AREA 0
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DATA_RECORD_COMPRESSION yes
DUPLICATES no
INDEX_AREA 1
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 1
NAME "l1_record_key"
PROLOG 3
SEG0_LENGTH 14
SEG0_POSITION 2
TYPE string
KEY 1
CHANGES no
DATA_AREA 2
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_user_ident"
SEG0_LENGTH 10
SEG0_POSITION 16
TYPE string
KEY 2
CHANGES no
DATA_AREA 2
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_system_code"
SEG0_LENGTH 2
SEG0_POSITION 26
TYPE string
KEY 3
CHANGES no
DATA_AREA 2
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_sub_system_code"
SEG0_LENGTH 3
SEG0_POSITION 28
TYPE string
KEY 4
CHANGES no
DATA_AREA 2
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_client_ref_no"
SEG0_LENGTH 20
SEG0_POSITION 31
TYPE string
KEY 5
CHANGES no
DATA_AREA 2
DATA_FILL 100
DATA_KEY_COMPRESSION yes
DUPLICATES yes
INDEX_AREA 2
INDEX_COMPRESSION yes
INDEX_FILL 100
LEVEL1_INDEX_AREA 2
NAME "l1_contact_initials"
SEG0_LENGTH 3
SEG0_POSITION 51
TYPE string
****************************************************************
*************************************************************
LDEVL1-[ANDY]> type 1201.cdo
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! !
! done for l1 l2 l3 l4 l6 l7 l8 !
! .. !
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L1_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L2_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L3_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L4_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L6_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L7_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L8_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD Lx_RECORD_TYPE
DESCRIPTION IS /* Logon/Logoff record type "L1" */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD Lx_date
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 6 CHARACTERS.
DEFINE FIELD Lx_time
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 8 CHARACTERS.
DEFINE FIELD Lx_user_ident
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE FIELD Lx_system_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD Lx_sub_system_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 3 CHARACTERS.
DEFINE FIELD Lx_client_ref_no
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 20 CHARACTERS.
DEFINE FIELD Lx_contact_initials
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 3 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L1_last_date
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 6 CHARACTERS.
DEFINE FIELD L1_last_time
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 8 CHARACTERS.
DEFINE FIELD L1_logoff_flag
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 1 CHARACTERS.
DEFINE FIELD L1_maynelaw_session_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L1_maynelaw_rate_per_minute
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L1_elapsed_minutes
DESCRIPTION IS /* */
DATATYPE IS signed word .
DEFINE FIELD L1_filler_1
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 80 CHARACTERS.
DEFINE FIELD L1_filler_2
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 15 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L2_string
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 80 CHARACTERS.
DEFINE FIELD L2_module
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 40 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L3_authority_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE FIELD L3_account_name
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 40 CHARACTERS.
DEFINE FIELD L3_items_or_pea_no
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE FIELD L3_form_number
DESCRIPTION IS /* */
DATATYPE IS signed word .
DEFINE FIELD L3_maynelaw_form_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L3_authority_form_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L3_crr_no
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 6 CHARACTERS.
DEFINE FIELD L3_form_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L3_request_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 3 CHARACTERS.
DEFINE FIELD L3_broker_form_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L3_retrieved
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 1 CHARACTERS.
DEFINE FIELD L3_filler
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 34 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L4_form_number
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L4_ticket_number
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L4_lto_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L4_maynelaw_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L4_description
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 40 CHARACTERS.
DEFINE FIELD L4_form_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L4_request_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 3 CHARACTERS.
DEFINE FIELD L4_exp_no_prop
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 1 CHARACTERS.
DEFINE FIELD L4_filler
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 58 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L6_last_date
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 6 CHARACTERS.
DEFINE FIELD L6_last_time
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 8 CHARACTERS.
DEFINE FIELD L6_cac_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L6_maynelaw_rate_per_minute
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L6_elapsed_bintim
DESCRIPTION IS /* */
DATATYPE IS signed QUADWORD .
DEFINE FIELD L6_filler
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 90 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L7_asc_charge
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L7_broker_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L7_lawpoint_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L7_narrative
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 40 CHARACTERS.
DEFINE FIELD L7_variant
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 68 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
DEFINE FIELD L8_reference_no
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 8 CHARACTERS.
DEFINE FIELD L8_lawpoint_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_authority_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_authority_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE FIELD L8_stationer_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_connect_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_broker_fee
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_broker_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE FIELD L8_description
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 40 CHARACTERS.
DEFINE FIELD L8_form_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L8_request_type
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 3 CHARACTERS.
DEFINE FIELD L8_sbn_service_code
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 2 CHARACTERS.
DEFINE FIELD L8_form_number
DESCRIPTION IS /* */
DATATYPE IS signed longword .
DEFINE FIELD L8_filler
DESCRIPTION IS /* */
DATATYPE IS TEXT SIZE IS 21 CHARACTERS.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!DEFINE FIELD DATE_DOM
! DESCRIPTION IS /* standard definition for complete dates */
! DATATYPE IS DATE.
!
!DEFINE FIELD SALARY_DOM
! DESCRIPTION IS /* standard definition of salary */
! DATATYPE IS SIGNED LONGWORD.
!
!DEFINE FIELD YEAR_DOM
! DESCRIPTION IS /* standard definition for year-only date values
*/
! DATATYPE IS SIGNED WORD.
!DEFINE FIELD YEAR_GIVEN BASED ON YEAR_DOM.
!
!DEFINE FIELD LAST_NAME_DOM
! DESCRIPTION IS /* standard definition of last name */
! DATATYPE IS TEXT SIZE IS 14 CHARACTERS.
!DEFINE FIELD LAST_NAME datatype is text size is 14 BASED ON
LAST_NAME_DOM.
!
!DEFINE FIELD SALARY_START
! DESCRIPTION IS /* starting date, is null if = 17-NOV-1858
00:00:00.00 */
! BASED ON DATE_DOM.
DEFINE RECORD LIS01201_l1_RECORD .
L1_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
l1_last_date.
l1_last_time.
l1_logoff_flag.
l1_maynelaw_session_charge.
l1_maynelaw_rate_per_minute.
l1_elapsed_minutes.
l1_filler_1.
l1_filler_2.
END.
DEFINE RECORD LIS01201_L2_RECORD .
L2_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
L2_string.
L2_module.
END.
DEFINE RECORD LIS01201_L3_RECORD .
L3_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
L3_authority_code.
L3_account_name.
l3_items_or_pea_no.
l3_form_number.
l3_maynelaw_form_charge.
l3_authority_form_charge.
l3_crr_no.
l3_form_type.
l3_request_type.
l3_broker_form_charge.
l3_retrieved.
l3_filler.
END.
DEFINE RECORD LIS01201_L4_RECORD .
L4_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
l4_form_number .
l4_ticket_number .
l4_lto_charge .
l4_maynelaw_fee .
l4_description .
l4_form_type .
l4_request_type .
l4_exp_no_prop .
l4_filler .
END.
DEFINE RECORD LIS01201_L6_RECORD .
L6_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
l6_last_date .
l6_last_time .
l6_cac_charge .
l6_maynelaw_rate_per_minute .
l6_elapsed_bintim .
l6_filler .
END.
DEFINE RECORD LIS01201_L7_RECORD .
L7_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
l7_asc_charge .
l7_broker_fee .
l7_lawpoint_fee .
l7_narrative .
l7_variant .
END.
DEFINE RECORD LIS01201_L8_RECORD .
L8_RECORD_TYPE .
lx_date .
lx_time.
lx_user_ident.
lx_system_code.
lx_sub_system_code.
lx_client_ref_no.
lx_contact_initials.
l8_reference_no .
l8_lawpoint_fee .
l8_authority_fee .
l8_authority_code .
l8_stationer_fee .
l8_connect_fee .
l8_broker_fee .
l8_broker_code .
l8_description .
l8_form_type .
l8_request_type .
l8_sbn_service_code .
l8_form_number .
l8_filler .
END.
DEFINE RMS_DATABASE LIS01201_l1_STORAGE.
RECORD LIS01201_l1_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l2_STORAGE.
RECORD LIS01201_l2_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l3_STORAGE.
RECORD LIS01201_l3_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l4_STORAGE.
RECORD LIS01201_l4_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l6_STORAGE.
RECORD LIS01201_l6_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l7_STORAGE.
RECORD LIS01201_l7_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE LIS01201_l8_STORAGE.
RECORD LIS01201_l8_RECORD.
FILE_DEFINITION
! ORGANIZATION SEQUENTIAL
ORGANIZATION indexed
! FORMAT VARIABLE.
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l1_STORAGE.
RECORD LIS01201_l1_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l2_STORAGE.
RECORD LIS01201_l2_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l3_STORAGE.
RECORD LIS01201_l3_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l4_STORAGE.
RECORD LIS01201_l4_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l6_STORAGE.
RECORD LIS01201_l6_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l7_STORAGE.
RECORD LIS01201_l7_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE RMS_DATABASE normalised_LIS01201_l8_STORAGE.
RECORD LIS01201_l8_RECORD.
FILE_DEFINITION
ORGANIZATION indexed
FORMAT fixed .
END.
DEFINE DATABASE LIS01201_L1
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l1_stoRAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L2
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l2_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L3
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l3_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L4
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l4_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L6
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l6_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L7
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l7_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE LIS01201_L8
DESCRIPTION IS /* NEW LIS01201 */
USING LIS01201_l8_STORAGE
ON GRP$MDEV0:[ANDY]1201.DAT .
DEFINE DATABASE normalised_LIS01201_L1
USING normalised_LIS01201_l1_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L1.DAT .
DEFINE DATABASE normalised_LIS01201_L2
USING normalised_LIS01201_l2_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L2.DAT .
DEFINE DATABASE normalised_LIS01201_L3
USING normalised_LIS01201_l3_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L3.DAT .
DEFINE DATABASE normalised_LIS01201_L4
USING normalised_LIS01201_l4_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L4.DAT .
DEFINE DATABASE normalised_LIS01201_L6
USING normalised_LIS01201_l6_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L6.DAT .
DEFINE DATABASE normalised_LIS01201_L7
USING normalised_LIS01201_l7_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L7.DAT .
DEFINE DATABASE normalised_LIS01201_L8
USING normalised_LIS01201_l8_stoRAGE
ON GRP$MDEV0:[ANDY]1201_L8.DAT .
DEFINE FIELD f1
DATATYPE IS TEXT SIZE IS 10 CHARACTERS.
DEFINE RECORD r1 .
f1 .
end.
DEFINE RMS_DATABASE rmsdb1 .
RECORD r1 .
FILE_DEFINITION
ORGANIZATION SEQUENTIAL
FORMAT fixed .
END.
DEFINE DATABASE t1
USING rmsdb1
ON GRP$MDEV0:[ANDY]t1.DAT .
LDEVL1-[ANDY]> lo
MDEV_ANDY logged out at 6-MAY-1996 16:16:40.11
******************************************************************************
***********************************************
|