Conference turris::pli

707.0. "MAXIMUM_RECORD_SIZE" by MLNCSC::DELLAPERGOLA () Wed May 14 1997 10:24

	Hi


	a customer has migrated his PL/I application from Vax to
	Open VMS AXP 6.2-1h3 e DEC PL/I 4.1.

	A program have to find a file's maximum_record_size.
	This works locally but not via decnet.Indeed via decnet
	a wrong maximum_record_size is returned (locally is 200,
	via decnet is 480).

============================================================================
	Pl/I Program tfile.pli
	----------------------
tfile: procedure options(main);

dcl inner_name char(200) static;
dcl lrecl fixed bin(31) static internal;

%include pli_file_display;

dcl fileprt pointer static;

dcl roseq file record input;

open file(roseq) title('fn') sequential keyed  env(no_share);
allocate pli_file_display set(fileprt);
call display(roseq,fileprt->pli_file_display);
lrecl=fileprt->maximum_record_size;
inner_name=fileprt->expanded_title;
put skip list('Open Ok: lrecl='!!encode(0+lrecl,10)!!' Fn=['!!inner_name!!']');
end tfile;
===============================================================================
 
	DCL Procedure to run locally and decnet
	---------------------------------------
$ define fn dm10.idx
$ run tfile
$ define fn 0"""username password"""::dm10.idx
$ run tfile
===============================================================================
        
	Log file with error on record size via decnet
	---------------------------------------------
$ define fn dm10.idx
$ run tfile

Open Ok: lrecl=200 Fn=[$12$DIA4:[UTENTI.MODELLO.PAGHE]DM10.IDX;2
$ define fn 0"""username password"""::dm10.idx
%DCL-I-SUPERSEDE, previous value of FN has been superseded
$ run tfile

Open Ok: lrecl=480 Fn=[0"paghe password"::$12$DIA4:[UTENTI.MODELLO.PAGHE]DM10.IDX;2                                                                                                                                            ] 
===============================================================================

	File indexed DM10.IDX;2 can be found on decnet default account
	on node bluff (decnet address 46.845) 
===============================================================================
$analyze/RMS on file, locally and decnet, gives no difference
	
$analyze/rms dm10.idx

Check RMS File Integrity                     14-MAY-1997 15:15:49.72   Page 1
0"dellapergola password"::SYS$COMMON:[USERS.DELLAPERGOLA.SIAER]DM10.IDX;2

FILE HEADER
	File Spec: 0"dellapergola password"::SYS$COMMON:[USERS.DELLAPERGOLA.SIAER]DM10.IDX;2
	File ID: (0,0,0)
	Owner UIC: [DELLAPERGOLA]
	Protection:  System: RWED, Owner: RWED, Group: RE, World: RE
	Creation Date:   17-APR-1997 14:21:48.00
	Revision Date:   14-MAY-1997 15:12:36.00, Number: 2
	Expiration Date: none specified
	Backup Date:     none posted
	Contiguity Options:  contiguous-best-try
	Performance Options: none
	Reliability Options: none
	Journaling Enabled:  none
RMS FILE ATTRIBUTES
	File Organization: indexed
	Record Format: fixed
	Record Attributes:  carriage-return 
------>	Maximum Record Size: 200 <---------------------------------------------
------>	Longest Record: 200      <---------------------------------------------
	Blocks Allocated: 18, Default Extend Size: 1
	Bucket Size: 6
	Global Buffer Count: 0
FIXED PROLOG
	Number of Areas: 2, VBN of First Descriptor: 2
	Prolog Version: 3
AREA DESCRIPTOR #0 (VBN 2, offset %X'0000')
	Bucket Size: 6
	Reclaimed Bucket VBN: 0
	Current Extent Start: 1, Blocks: 8, Used: 8, Next: 9
	Default Extend Quantity: 1
	Total Allocation: 8
AREA DESCRIPTOR #1 (VBN 2, offset %X'0040')
	Bucket Size: 6
	Reclaimed Bucket VBN: 0
	Current Extent Start: 9, Blocks: 8, Used: 6, Next: 15
	Default Extend Quantity: 1
	Total Allocation: 8
KEY DESCRIPTOR #0 (VBN 1, offset %X'0000')
	Index Area: 1, Level 1 Index Area: 1, Data Area: 0
	Root Level: 1
	Index Bucket Size: 6, Data Bucket Size: 6
Check RMS File Integrity                     14-MAY-1997 15:15:49.73   Page 2
0"dellapergola password"::SYS$COMMON:[USERS.DELLAPERGOLA.SIAER]DM10.IDX;2
	Root VBN: 9
	Key Flags:
		(0)  KEY$V_DUPKEYS    0
		(3)  KEY$V_IDX_COMPR  1
		(4)  KEY$V_INITIDX    0
		(6)  KEY$V_KEY_COMPR  1
		(7)  KEY$V_REC_COMPR  1
	Key Segments: 1
	Key Size: 24
	Minimum Record Size: 24
	Index Fill Quantity: 3072, Data Fill Quantity: 3072
	Segment Positions:       0
	Segment Sizes:          24
	Data Type: string
	Name: ""
	First Data Bucket VBN: 3
The analysis uncovered NO errors.
ANA/RMS/OUT=DM10.OUT 0"dellapergola password"::DM10.IDX
===============================================================================
Can anyone help me in solving this problem
Thanks and best regards
	Anna Della Pergola

        Check out the the ENVIRONMENT option named USER_OPEN in
        section 7.2.54 of the User's Manual.  You would want something
        that looked like the example there, except it would stash
        the value of FAB.FAB$W_MRS someplace after opening the file.
        
        Dan