IBM DB400

A1. Reading member 5 of myfilepf

CRTLF FILE(KCS/MYFILELF) SRCFILE(KCS/KC1) DTAMBRS

((KCS/MYFILEPF (MBR5)))

Or

ADDLFM FILE(KCS/MYFILELF) MBR(MYFILEBR) DTAMBRS

((KCS/MYFILEPF (MBR5)))

A2.For accounting purpose each month data can be stored as

12 different members.

So that we can easily access one month data or 12 months

together.

Easy to maintain 12 members in one PF file instead of 12 PF

Files.

8000. this can vary,can be lesser if date format,

alphanumeric fields are used.

IN THIS EXAMPLE I M USING EMPFILE FOR READING IN REVERSE

ORDER.

PGM

DCLF FILE(EMPFILE)

OVRDBF FILE(EMPFILE) SHARE(*YES)

OPNQRYF FILE((EMPFILE)) KEYFLD((EMPNO *DESCEND))

READF: RCVF RCDFMT(MPFILR)

MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

GOTO READF

END:

ENDPGM

Not necessarily. LR is generally set on after all

processing is doen i.e. at the end of the program but there

is no hard and fast rule for that.

In the DD statement's DISP parameter write DISP=KEEP.And to

access the file with disposition KEEP we need to supply the

volume srail number as vol=ser=xxxx.

We can give max of 8000 fields in rec format of a PF.But it

also depend on the no. of bytes occupied by the record

formate.Because rec. format of PF may occupy atmax 32766

bytes.ie if there is only one field which occupy 32766

bytes then we can't define a new field in record format.

so it depend on the no. of bytes occupied by the field

defined in the record format.

Ex.

Char field - max value(32766 bytes)

variable length field - max value(32740 bytes)

allow null field - max value(32765)

variable & allownull field - max value(32739)