Blocksize difference for files using the same copybook
Posted: Wed Dec 22, 2010 1:29 am
I have a program that has multiple output files that are in the same format. The use the same copybook for the FD and working storage layouts.
FD is:
RECORD CONTAINS 1400 CHARACTERS
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F
LABEL RECORDS ARE STANDARD
DATA RECORD IS 'XXX'-BASE-RECORD.
01 'XXX'-BASE-RECORD PIC X(1400).
If I calculate the best blocksize for these dimensions on a 3390 device I get 26600.
However for a standard file written to DASD I get a file allocated as follows:
Management class . . : MCSNULL
Storage class . . . : SCGDGMED
Volume serial . . . : CPGML3
Device type . . . . : 3390
Data class . . . . . : DASDGDG
Organization . . . : PS
Record format . . . : FB
Record length . . . : 1400
Block size . . . . : 18200
I have a file written to compressed DASD that is allocated as:
Management class . . : MCSNULL
Storage class . . . : SCGDGMED
Volume serial . . . : CPGML9
Device type . . . . : 3390
Data class . . . . . : COMPACK1
Organization . . . : PS
Record format . . . : FB
Record length . . . : 1400
Block size . . . . : 32200
I assume and can accept the file being written to compressed DASD is being blocked by the compression package, but how is the file written out to plan old DASD blocking at 18200 when the BLOCK CONTAINS 0 RECORDS statement is coded for it?
Any ideas?
FD is:
RECORD CONTAINS 1400 CHARACTERS
BLOCK CONTAINS 0 RECORDS
RECORDING MODE IS F
LABEL RECORDS ARE STANDARD
DATA RECORD IS 'XXX'-BASE-RECORD.
01 'XXX'-BASE-RECORD PIC X(1400).
If I calculate the best blocksize for these dimensions on a 3390 device I get 26600.
However for a standard file written to DASD I get a file allocated as follows:
Management class . . : MCSNULL
Storage class . . . : SCGDGMED
Volume serial . . . : CPGML3
Device type . . . . : 3390
Data class . . . . . : DASDGDG
Organization . . . : PS
Record format . . . : FB
Record length . . . : 1400
Block size . . . . : 18200
I have a file written to compressed DASD that is allocated as:
Management class . . : MCSNULL
Storage class . . . : SCGDGMED
Volume serial . . . : CPGML9
Device type . . . . : 3390
Data class . . . . . : COMPACK1
Organization . . . : PS
Record format . . . : FB
Record length . . . : 1400
Block size . . . . : 32200
I assume and can accept the file being written to compressed DASD is being blocked by the compression package, but how is the file written out to plan old DASD blocking at 18200 when the BLOCK CONTAINS 0 RECORDS statement is coded for it?
Any ideas?