Re: [MI400] LVLCHK

["Leif Svalgaard" <leif@xxxxxxxx>]

From: sas <sas@toto.co.id>

> Dear Gene ,
> Would you be so kind explain me more detail how to code your advise about
> the level check , or somebody could help me ?

Sasyanto, if you download the latest version of chapter 13 of
my eBook, you'll see an example and more explanation of this
at the end of the chapter. It basically says:


Variable Length Part of the UFCB
You may recall from Chapter 12 that the User File Control Block, the UFCB,
consists of a fixed part and a variable part. Each item of the variable part
is headed by a 2-byte binary number identifying the type of the parameter
item. We have already met the 'record-length' parameter, which has an
identifier of 1:

    DCL DD UFCB-LENGTH-ID     BIN (2)  DEF(UFCB) POS(209) INIT(1);
    DCL DD UFCB-RECORD-LENGTH BIN (2)  DEF(UFCB) POS(211) INIT(132);

Remember to update the POS() values and the length of the UFCB itself.

With/Without Level Check
It is possible to control whether file level checking should be done when the
file is opened. The UFCB variable part entry is:

    DCL DD UFCB-LEVEL-CHECK    BIN (2)  DEF(UFCB) POS(213) INIT(6);
    DCL DD UFCB-LVLCHCK-VALUE  CHAR(1)  DEF(UFCB) POS(215) INIT(X'xx');

Where xx should be 80 to include level check or 00 to exclude level check.